Running as unit: rb-build-arm64_2-75142.service ==================================================================================== Sat Feb 22 04:56:06 UTC 2025 - running /srv/jenkins/bin/reproducible_build.sh (for job reproducible_builder_arm64_2) on jenkins, called using "codethink03-arm64 codethink04-arm64" as arguments. Sat Feb 22 04:56:06 UTC 2025 - actually running "reproducible_build.sh" (md5sum 68e686e434c9ab7bc3ec047d8b309cbc) as "/tmp/jenkins-script-pCNN57nx" $ git clone https://salsa.debian.org/qa/jenkins.debian.net.git ; more CONTRIBUTING Sat Feb 22 04:56:06 UTC 2025 - checking /var/lib/jenkins/offline_nodes if codethink03-arm64.debian.net is marked as down. Sat Feb 22 04:56:06 UTC 2025 - checking via ssh if codethink03-arm64.debian.net is up. removed '/tmp/read-only-fs-test-XaL30V' Sat Feb 22 04:56:07 UTC 2025 - checking /var/lib/jenkins/offline_nodes if codethink04-arm64.debian.net is marked as down. Sat Feb 22 04:56:07 UTC 2025 - checking via ssh if codethink04-arm64.debian.net is up. removed '/tmp/read-only-fs-test-O86iWW' ok, let's check if stumpwm is building anywhere yet… ok, stumpwm is not building anywhere… UPDATE 1 ============================================================================= Initialising reproducibly build of stumpwm in unstable on arm64 on jenkins now. 1st build will be done on codethink03-arm64.debian.net. 2nd build will be done on codethink04-arm64.debian.net. ============================================================================= Sat Feb 22 04:56:24 UTC 2025 I: starting to build stumpwm/unstable/arm64 on jenkins on '2025-02-22 04:56' Sat Feb 22 04:56:24 UTC 2025 I: The jenkins build log is/was available at https://jenkins.debian.net/userContent/reproducible/debian/build_service/arm64_2/75142/console.log 1740200184 arm64 unstable stumpwm Sat Feb 22 04:56:24 UTC 2025 I: Downloading source for unstable/stumpwm=2:22.11-3 --2025-02-22 04:56:25-- http://deb.debian.org/debian/pool/main/s/stumpwm/stumpwm_22.11-3.dsc Connecting to 46.16.76.132:3128... connected. Proxy request sent, awaiting response... 200 OK Length: 2137 (2.1K) [text/prs.lines.tag] Saving to: ‘stumpwm_22.11-3.dsc’ 0K .. 100% 376M=0s 2025-02-22 04:56:25 (376 MB/s) - ‘stumpwm_22.11-3.dsc’ saved [2137/2137] --2025-02-22 04:56:25-- http://deb.debian.org/debian/pool/main/s/stumpwm/stumpwm_22.11-3.dsc Connecting to 46.16.76.132:3128... connected. Proxy request sent, awaiting response... 200 OK Length: 2137 (2.1K) [text/prs.lines.tag] Saving to: ‘stumpwm_22.11-3.dsc’ 0K .. 100% 376M=0s 2025-02-22 04:56:25 (376 MB/s) - ‘stumpwm_22.11-3.dsc’ saved [2137/2137] Sat Feb 22 04:56:25 UTC 2025 I: stumpwm_22.11-3.dsc -----BEGIN PGP SIGNED MESSAGE----- Hash: SHA512 Format: 3.0 (quilt) Source: stumpwm Binary: stumpwm Architecture: all Version: 2:22.11-3 Maintainer: Debian Common Lisp Team Uploaders: Peter Van Eynde , Desmond O. Chang , Milan Zamazal , Benda Xu Homepage: https://stumpwm.github.io/ Standards-Version: 4.6.2 Vcs-Browser: https://salsa.debian.org/common-lisp-team/stumpwm Vcs-Git: https://salsa.debian.org/common-lisp-team/stumpwm.git Build-Depends: debhelper-compat (= 13) Build-Depends-Indep: autoconf, cl-alexandria, cl-clx-sbcl (>= 0.7.5), cl-fiasco, cl-ppcre, sbcl (>= 2.2.7), texinfo Package-List: stumpwm deb x11 optional arch=all Checksums-Sha1: 156ed3c9432939dd779f3d24a3708e5c8b782d49 280147 stumpwm_22.11.orig.tar.gz 4d05faf28a92f52fc22175e8eb1e4928275b034a 12580 stumpwm_22.11-3.debian.tar.xz Checksums-Sha256: 36940f3b2c1ba54219a8d3a784103cfa83f84c652d1dbd7d3b7360c55e5ef026 280147 stumpwm_22.11.orig.tar.gz 64161affab89319af7ca983a38d4f66c79ad3cce8cc1e80da9e8d81516b0e22e 12580 stumpwm_22.11-3.debian.tar.xz Files: 355a6d4f080045fc2f858c4d944e213c 280147 stumpwm_22.11.orig.tar.gz 317bf224ff803c9e961dea3604556eed 12580 stumpwm_22.11-3.debian.tar.xz -----BEGIN PGP SIGNATURE----- iQJDBAEBCgAtFiEENTS8ZhMowhj4Iw2H33YQtSHxcSIFAmPajnoPHG9ydkBkZWJp YW4ub3JnAAoJEN92ELUh8XEiR1oP/RleOIDTIEnmaU8/kLYigXaF+t7QZiwwnL3q HTo/wfSEnkb7TDdMoHN2nNWLFvlaoQfZNAH9uQam3RRaEPOhmtOVNtwcgKPWd9pJ xALxmyGoDlpJkim8SngF9A7mU/laac/xM24NkTYfJWBQDCzScWxw18x3G7LrCkJ/ wRb1n1KvRwvyuRMryhZXLb/h0qSTWLaH56SzSdc4V+Yqi+1T1vnOLsAEUYFvKhE6 EN+Ua3KcqwnFgOKk/Bk1xXdgQq4ZTrKDL+r75YL23/rz+DgRiTleiXsOP7BTWiHW xIzqovaAuURg6zY977ek2F46fmxSs90l2nsR7YXtBuomEphoptqLPBavcXUJcGgw gAL6YFQeJ7dDMC/Wu0QJWHVrC/bwGumWhIuhYLky92ZfDR2fktxatzt4gjAN8boG AM5ZcNEqj3Wjz87oWSwukfIsVB+Znn/eq4N0FXts9F3pgqi1J/eAuD/U32CGcajz ouqg/ElXYoHBp51EK7oMDFBpEobNGuOtfj/5WlNofPhV3mbIZEoJL6/bTt6bknV4 Vau3j0s9F2HkP9UzC7xzpGoXhS3DJj4PhBmRmWjECk/6/G0Plr25RQJ6KTGDh6qa eKxh2c83g+u2DVh8UB8I34MSYd62JOoTc0W0SirX6I+Q3UYJDdiiUCbwQUOVz8uH 7AHl00Q7 =Xbmv -----END PGP SIGNATURE----- Sat Feb 22 04:56:25 UTC 2025 I: Checking whether the package is not for us Sat Feb 22 04:56:25 UTC 2025 I: Starting 1st build on remote node codethink03-arm64.debian.net. Sat Feb 22 04:56:25 UTC 2025 I: Preparing to do remote build '1' on codethink03-arm64.debian.net. Sat Feb 22 04:56:25 UTC 2025 - checking /var/lib/jenkins/offline_nodes if codethink03-arm64.debian.net is marked as down. Sat Feb 22 04:56:25 UTC 2025 - checking via ssh if codethink03-arm64.debian.net is up. removed '/tmp/read-only-fs-test-ZRCShI' ==================================================================================== Fri Mar 27 11:19:26 UTC 2026 - running /srv/jenkins/bin/reproducible_build.sh (for job /srv/jenkins/bin/reproducible_build.sh) on codethink03-arm64, called using "1 stumpwm unstable /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9 2:22.11-3" as arguments. Fri Mar 27 11:19:26 UTC 2026 - actually running "reproducible_build.sh" (md5sum 68e686e434c9ab7bc3ec047d8b309cbc) as "/tmp/jenkins-script-3b7yryQQ" $ git clone https://salsa.debian.org/qa/jenkins.debian.net.git ; more CONTRIBUTING Fri Mar 27 11:19:26 UTC 2026 I: Downloading source for unstable/stumpwm=2:22.11-3 Reading package lists... NOTICE: 'stumpwm' packaging is maintained in the 'Git' version control system at: https://salsa.debian.org/common-lisp-team/stumpwm.git Please use: git clone https://salsa.debian.org/common-lisp-team/stumpwm.git to retrieve the latest (possibly unreleased) updates to the package. Need to get 295 kB of source archives. Get:1 http://deb.debian.org/debian unstable/main stumpwm 2:22.11-3 (dsc) [2137 B] Get:2 http://deb.debian.org/debian unstable/main stumpwm 2:22.11-3 (tar) [280 kB] Get:3 http://deb.debian.org/debian unstable/main stumpwm 2:22.11-3 (diff) [12.6 kB] Fetched 295 kB in 0s (4541 kB/s) Download complete and in download only mode Reading package lists... NOTICE: 'stumpwm' packaging is maintained in the 'Git' version control system at: https://salsa.debian.org/common-lisp-team/stumpwm.git Please use: git clone https://salsa.debian.org/common-lisp-team/stumpwm.git to retrieve the latest (possibly unreleased) updates to the package. Need to get 295 kB of source archives. Get:1 http://deb.debian.org/debian unstable/main stumpwm 2:22.11-3 (dsc) [2137 B] Get:2 http://deb.debian.org/debian unstable/main stumpwm 2:22.11-3 (tar) [280 kB] Get:3 http://deb.debian.org/debian unstable/main stumpwm 2:22.11-3 (diff) [12.6 kB] Fetched 295 kB in 0s (4541 kB/s) Download complete and in download only mode ============================================================================= Building stumpwm in unstable on arm64 on codethink03-arm64 now. Date: Fri Mar 27 11:19:26 GMT 2026 Date UTC: Fri Mar 27 11:19:26 UTC 2026 ============================================================================= W: /root/.pbuilderrc does not exist I: Logging to b1/build.log I: pbuilder: network access will be disabled during build I: Current time: Thu Mar 26 23:19:27 -12 2026 I: pbuilder-time-stamp: 1774610367 I: Building the build Environment I: extracting base tarball [/var/cache/pbuilder/unstable-reproducible-base.tgz] I: copying local configuration W: --override-config is not set; not updating apt.conf Read the manpage for details. 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_22.11-3.dsc] I: copying [./stumpwm_22.11.orig.tar.gz] I: copying [./stumpwm_22.11-3.debian.tar.xz] I: Extracting source dpkg-source: warning: cannot verify inline signature for ./stumpwm_22.11-3.dsc: unsupported subcommand dpkg-source: info: extracting stumpwm in stumpwm-22.11 dpkg-source: info: unpacking stumpwm_22.11.orig.tar.gz dpkg-source: info: unpacking stumpwm_22.11-3.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 0003-Evaluate-require-and-asdf-separately.patch I: Not using root during the build. I: Installing the build-deps I: user script /srv/workspace/pbuilder/2988947/tmp/hooks/D02_print_environment starting I: set BUILDDIR='/build/reproducible-path' 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 parallel=12 ' DISTRIBUTION='unstable' HOME='/root' HOST_ARCH='arm64' IFS=' ' INVOCATION_ID='45c7593975484e82a6c0ad8d857146d7' 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='2988947' 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/r-b-build.FsopWVB9/pbuilderrc_aOxp --distribution unstable --hookdir /etc/pbuilder/first-build-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/unstable-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/b1 --logfile b1/build.log stumpwm_22.11-3.dsc' SUDO_GID='109' SUDO_UID='104' SUDO_USER='jenkins' TERM='unknown' TZ='/usr/share/zoneinfo/Etc/GMT+12' USER='root' _='/usr/bin/systemd-run' http_proxy='http://192.168.101.4:3128' I: uname -a Linux codethink03-arm64 6.1.0-31-cloud-arm64 #1 SMP Debian 6.1.128-1 (2025-02-07) aarch64 GNU/Linux I: ls -l /bin lrwxrwxrwx 1 root root 7 Nov 22 2024 /bin -> usr/bin I: user script /srv/workspace/pbuilder/2988947/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-compat (= 13), autoconf, cl-alexandria, cl-clx-sbcl (>= 0.7.5), cl-fiasco, cl-ppcre, sbcl (>= 2.2.7), 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 ... 19889 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-compat (= 13); however: Package debhelper-compat is not installed. pbuilder-satisfydepends-dummy depends on autoconf; however: Package autoconf is not installed. pbuilder-satisfydepends-dummy depends on cl-alexandria; however: Package cl-alexandria is not installed. pbuilder-satisfydepends-dummy depends on cl-clx-sbcl (>= 0.7.5); however: Package cl-clx-sbcl is not installed. pbuilder-satisfydepends-dummy depends on cl-fiasco; however: Package cl-fiasco is not installed. pbuilder-satisfydepends-dummy depends on cl-ppcre; however: Package cl-ppcre is not installed. pbuilder-satisfydepends-dummy depends on sbcl (>= 2.2.7); 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-alexandria{a} cl-asdf{a} cl-clx-sbcl{a} cl-fiasco{a} cl-ppcre{a} cl-trivial-gray-streams{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} libelf1t64{a} libfile-stripnondeterminism-perl{a} libicu72{a} libmagic-mgc{a} libmagic1t64{a} libpipeline1{a} libproc2-0{a} libtext-charwidth-perl{a} libtext-unidecode-perl{a} libtext-wrapi18n-perl{a} libtool{a} libuchardet0{a} libunistring5{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} procps{a} sbcl{a} sensible-utils{a} tex-common{a} texinfo{a} texinfo-lib{a} ucf{a} The following packages are RECOMMENDED but will NOT be installed: binfmt-support cl-flexi-streams cl-rt curl libarchive-cpio-perl libltdl-dev libmail-sendmail-perl libwww-perl libxml-sax-expat-perl linux-sysctl-defaults lynx psmisc systemd wget 0 packages upgraded, 50 newly installed, 0 to remove and 0 not upgraded. Need to get 34.4 MB of archives. After unpacking 146 MB will be used. Writing extended state information... Get: 1 http://deb.debian.org/debian unstable/main arm64 libproc2-0 arm64 2:4.0.4-7 [62.4 kB] Get: 2 http://deb.debian.org/debian unstable/main arm64 procps arm64 2:4.0.4-7 [868 kB] Get: 3 http://deb.debian.org/debian unstable/main arm64 sensible-utils all 0.0.24 [24.8 kB] Get: 4 http://deb.debian.org/debian unstable/main arm64 libmagic-mgc arm64 1:5.45-3+b1 [314 kB] Get: 5 http://deb.debian.org/debian unstable/main arm64 libmagic1t64 arm64 1:5.45-3+b1 [102 kB] Get: 6 http://deb.debian.org/debian unstable/main arm64 file arm64 1:5.45-3+b1 [43.4 kB] Get: 7 http://deb.debian.org/debian unstable/main arm64 gettext-base arm64 0.23.1-1 [241 kB] Get: 8 http://deb.debian.org/debian unstable/main arm64 libuchardet0 arm64 0.0.8-1+b2 [69.2 kB] Get: 9 http://deb.debian.org/debian unstable/main arm64 groff-base arm64 1.23.0-7 [1129 kB] Get: 10 http://deb.debian.org/debian unstable/main arm64 bsdextrautils arm64 2.40.4-4 [92.1 kB] Get: 11 http://deb.debian.org/debian unstable/main arm64 libpipeline1 arm64 1.5.8-1 [40.2 kB] Get: 12 http://deb.debian.org/debian unstable/main arm64 man-db arm64 2.13.0-1 [1404 kB] Get: 13 http://deb.debian.org/debian unstable/main arm64 libtext-charwidth-perl arm64 0.04-11+b4 [9652 B] Get: 14 http://deb.debian.org/debian unstable/main arm64 libtext-wrapi18n-perl all 0.06-10 [8808 B] Get: 15 http://deb.debian.org/debian unstable/main arm64 ucf all 3.0050 [42.7 kB] Get: 16 http://deb.debian.org/debian unstable/main arm64 m4 arm64 1.4.19-5 [284 kB] Get: 17 http://deb.debian.org/debian unstable/main arm64 autoconf all 2.72-3 [493 kB] Get: 18 http://deb.debian.org/debian unstable/main arm64 autotools-dev all 20220109.1 [51.6 kB] Get: 19 http://deb.debian.org/debian unstable/main arm64 automake all 1:1.17-3 [862 kB] Get: 20 http://deb.debian.org/debian unstable/main arm64 autopoint all 0.23.1-1 [770 kB] Get: 21 http://deb.debian.org/debian unstable/main arm64 cl-alexandria all 20240125.git8514d8e-1 [203 kB] Get: 22 http://deb.debian.org/debian unstable/main arm64 cl-asdf all 2:3.3.7.2-1 [1263 kB] Get: 23 http://deb.debian.org/debian unstable/main arm64 cl-clx-sbcl arm64 0.7.5-1 [375 kB] Get: 24 http://deb.debian.org/debian unstable/main arm64 cl-trivial-gray-streams all 20240217.gita7ead68-1 [9776 B] Get: 25 http://deb.debian.org/debian unstable/main arm64 cl-fiasco all 0.0~git20200514.bb47d2f-3 [15.5 kB] Get: 26 http://deb.debian.org/debian unstable/main arm64 cl-ppcre all 20240427.git80fb19d-1 [110 kB] Get: 27 http://deb.debian.org/debian unstable/main arm64 libdebhelper-perl all 13.24.1 [90.9 kB] Get: 28 http://deb.debian.org/debian unstable/main arm64 libtool all 2.5.4-3 [539 kB] Get: 29 http://deb.debian.org/debian unstable/main arm64 dh-autoreconf all 20 [17.1 kB] Get: 30 http://deb.debian.org/debian unstable/main arm64 libarchive-zip-perl all 1.68-1 [104 kB] Get: 31 http://deb.debian.org/debian unstable/main arm64 libfile-stripnondeterminism-perl all 1.14.1-2 [19.7 kB] Get: 32 http://deb.debian.org/debian unstable/main arm64 dh-strip-nondeterminism all 1.14.1-2 [8620 B] Get: 33 http://deb.debian.org/debian unstable/main arm64 libelf1t64 arm64 0.192-4 [189 kB] Get: 34 http://deb.debian.org/debian unstable/main arm64 dwz arm64 0.15-1+b1 [102 kB] Get: 35 http://deb.debian.org/debian unstable/main arm64 libunistring5 arm64 1.3-1 [449 kB] Get: 36 http://deb.debian.org/debian unstable/main arm64 libicu72 arm64 72.1-6 [9239 kB] Get: 37 http://deb.debian.org/debian unstable/main arm64 libxml2 arm64 2.12.7+dfsg+really2.9.14-0.2+b1 [630 kB] Get: 38 http://deb.debian.org/debian unstable/main arm64 gettext arm64 0.23.1-1 [1610 kB] Get: 39 http://deb.debian.org/debian unstable/main arm64 intltool-debian all 0.35.0+20060710.6 [22.9 kB] Get: 40 http://deb.debian.org/debian unstable/main arm64 po-debconf all 1.0.21+nmu1 [248 kB] Get: 41 http://deb.debian.org/debian unstable/main arm64 debhelper all 13.24.1 [920 kB] Get: 42 http://deb.debian.org/debian unstable/main arm64 libtext-unidecode-perl all 1.30-3 [101 kB] Get: 43 http://deb.debian.org/debian unstable/main arm64 libxml-namespacesupport-perl all 1.12-2 [15.1 kB] Get: 44 http://deb.debian.org/debian unstable/main arm64 libxml-sax-base-perl all 1.09-3 [20.6 kB] Get: 45 http://deb.debian.org/debian unstable/main arm64 libxml-sax-perl all 1.02+dfsg-4 [53.4 kB] Get: 46 http://deb.debian.org/debian unstable/main arm64 libxml-libxml-perl arm64 2.0207+dfsg+really+2.0134-5+b1 [300 kB] Get: 47 http://deb.debian.org/debian unstable/main arm64 sbcl arm64 2:2.5.0-1 [8829 kB] Get: 48 http://deb.debian.org/debian unstable/main arm64 tex-common all 6.18 [32.5 kB] Get: 49 http://deb.debian.org/debian unstable/main arm64 texinfo-lib arm64 7.1.1-1+b1 [220 kB] Get: 50 http://deb.debian.org/debian unstable/main arm64 texinfo all 7.1.1-1 [1753 kB] Fetched 34.4 MB in 1s (68.3 MB/s) Preconfiguring packages ... Selecting previously unselected package libproc2-0:arm64. (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 ... 19889 files and directories currently installed.) Preparing to unpack .../00-libproc2-0_2%3a4.0.4-7_arm64.deb ... Unpacking libproc2-0:arm64 (2:4.0.4-7) ... Selecting previously unselected package procps. Preparing to unpack .../01-procps_2%3a4.0.4-7_arm64.deb ... Unpacking procps (2:4.0.4-7) ... Selecting previously unselected package sensible-utils. Preparing to unpack .../02-sensible-utils_0.0.24_all.deb ... Unpacking sensible-utils (0.0.24) ... Selecting previously unselected package libmagic-mgc. Preparing to unpack .../03-libmagic-mgc_1%3a5.45-3+b1_arm64.deb ... Unpacking libmagic-mgc (1:5.45-3+b1) ... Selecting previously unselected package libmagic1t64:arm64. Preparing to unpack .../04-libmagic1t64_1%3a5.45-3+b1_arm64.deb ... Unpacking libmagic1t64:arm64 (1:5.45-3+b1) ... Selecting previously unselected package file. Preparing to unpack .../05-file_1%3a5.45-3+b1_arm64.deb ... Unpacking file (1:5.45-3+b1) ... Selecting previously unselected package gettext-base. Preparing to unpack .../06-gettext-base_0.23.1-1_arm64.deb ... Unpacking gettext-base (0.23.1-1) ... Selecting previously unselected package libuchardet0:arm64. Preparing to unpack .../07-libuchardet0_0.0.8-1+b2_arm64.deb ... Unpacking libuchardet0:arm64 (0.0.8-1+b2) ... Selecting previously unselected package groff-base. Preparing to unpack .../08-groff-base_1.23.0-7_arm64.deb ... Unpacking groff-base (1.23.0-7) ... Selecting previously unselected package bsdextrautils. Preparing to unpack .../09-bsdextrautils_2.40.4-4_arm64.deb ... Unpacking bsdextrautils (2.40.4-4) ... Selecting previously unselected package libpipeline1:arm64. Preparing to unpack .../10-libpipeline1_1.5.8-1_arm64.deb ... Unpacking libpipeline1:arm64 (1.5.8-1) ... Selecting previously unselected package man-db. Preparing to unpack .../11-man-db_2.13.0-1_arm64.deb ... Unpacking man-db (2.13.0-1) ... Selecting previously unselected package libtext-charwidth-perl:arm64. Preparing to unpack .../12-libtext-charwidth-perl_0.04-11+b4_arm64.deb ... Unpacking libtext-charwidth-perl:arm64 (0.04-11+b4) ... Selecting previously unselected package libtext-wrapi18n-perl. Preparing to unpack .../13-libtext-wrapi18n-perl_0.06-10_all.deb ... Unpacking libtext-wrapi18n-perl (0.06-10) ... Selecting previously unselected package ucf. Preparing to unpack .../14-ucf_3.0050_all.deb ... Moving old data out of the way Unpacking ucf (3.0050) ... Selecting previously unselected package m4. Preparing to unpack .../15-m4_1.4.19-5_arm64.deb ... Unpacking m4 (1.4.19-5) ... Selecting previously unselected package autoconf. Preparing to unpack .../16-autoconf_2.72-3_all.deb ... Unpacking autoconf (2.72-3) ... Selecting previously unselected package autotools-dev. Preparing to unpack .../17-autotools-dev_20220109.1_all.deb ... Unpacking autotools-dev (20220109.1) ... Selecting previously unselected package automake. Preparing to unpack .../18-automake_1%3a1.17-3_all.deb ... Unpacking automake (1:1.17-3) ... Selecting previously unselected package autopoint. Preparing to unpack .../19-autopoint_0.23.1-1_all.deb ... Unpacking autopoint (0.23.1-1) ... Selecting previously unselected package cl-alexandria. Preparing to unpack .../20-cl-alexandria_20240125.git8514d8e-1_all.deb ... Unpacking cl-alexandria (20240125.git8514d8e-1) ... Selecting previously unselected package cl-asdf. Preparing to unpack .../21-cl-asdf_2%3a3.3.7.2-1_all.deb ... Unpacking cl-asdf (2:3.3.7.2-1) ... Selecting previously unselected package cl-clx-sbcl. Preparing to unpack .../22-cl-clx-sbcl_0.7.5-1_arm64.deb ... Unpacking cl-clx-sbcl (0.7.5-1) ... Selecting previously unselected package cl-trivial-gray-streams. Preparing to unpack .../23-cl-trivial-gray-streams_20240217.gita7ead68-1_all.deb ... Unpacking cl-trivial-gray-streams (20240217.gita7ead68-1) ... Selecting previously unselected package cl-fiasco. Preparing to unpack .../24-cl-fiasco_0.0~git20200514.bb47d2f-3_all.deb ... Unpacking cl-fiasco (0.0~git20200514.bb47d2f-3) ... Selecting previously unselected package cl-ppcre. Preparing to unpack .../25-cl-ppcre_20240427.git80fb19d-1_all.deb ... Unpacking cl-ppcre (20240427.git80fb19d-1) ... Selecting previously unselected package libdebhelper-perl. Preparing to unpack .../26-libdebhelper-perl_13.24.1_all.deb ... Unpacking libdebhelper-perl (13.24.1) ... Selecting previously unselected package libtool. Preparing to unpack .../27-libtool_2.5.4-3_all.deb ... Unpacking libtool (2.5.4-3) ... Selecting previously unselected package dh-autoreconf. Preparing to unpack .../28-dh-autoreconf_20_all.deb ... Unpacking dh-autoreconf (20) ... Selecting previously unselected package libarchive-zip-perl. Preparing to unpack .../29-libarchive-zip-perl_1.68-1_all.deb ... Unpacking libarchive-zip-perl (1.68-1) ... Selecting previously unselected package libfile-stripnondeterminism-perl. Preparing to unpack .../30-libfile-stripnondeterminism-perl_1.14.1-2_all.deb ... Unpacking libfile-stripnondeterminism-perl (1.14.1-2) ... Selecting previously unselected package dh-strip-nondeterminism. Preparing to unpack .../31-dh-strip-nondeterminism_1.14.1-2_all.deb ... Unpacking dh-strip-nondeterminism (1.14.1-2) ... Selecting previously unselected package libelf1t64:arm64. Preparing to unpack .../32-libelf1t64_0.192-4_arm64.deb ... Unpacking libelf1t64:arm64 (0.192-4) ... Selecting previously unselected package dwz. Preparing to unpack .../33-dwz_0.15-1+b1_arm64.deb ... Unpacking dwz (0.15-1+b1) ... Selecting previously unselected package libunistring5:arm64. Preparing to unpack .../34-libunistring5_1.3-1_arm64.deb ... Unpacking libunistring5:arm64 (1.3-1) ... Selecting previously unselected package libicu72:arm64. Preparing to unpack .../35-libicu72_72.1-6_arm64.deb ... Unpacking libicu72:arm64 (72.1-6) ... Selecting previously unselected package libxml2:arm64. Preparing to unpack .../36-libxml2_2.12.7+dfsg+really2.9.14-0.2+b1_arm64.deb ... Unpacking libxml2:arm64 (2.12.7+dfsg+really2.9.14-0.2+b1) ... Selecting previously unselected package gettext. Preparing to unpack .../37-gettext_0.23.1-1_arm64.deb ... Unpacking gettext (0.23.1-1) ... Selecting previously unselected package intltool-debian. Preparing to unpack .../38-intltool-debian_0.35.0+20060710.6_all.deb ... Unpacking intltool-debian (0.35.0+20060710.6) ... Selecting previously unselected package po-debconf. Preparing to unpack .../39-po-debconf_1.0.21+nmu1_all.deb ... Unpacking po-debconf (1.0.21+nmu1) ... Selecting previously unselected package debhelper. Preparing to unpack .../40-debhelper_13.24.1_all.deb ... Unpacking debhelper (13.24.1) ... Selecting previously unselected package libtext-unidecode-perl. Preparing to unpack .../41-libtext-unidecode-perl_1.30-3_all.deb ... Unpacking libtext-unidecode-perl (1.30-3) ... Selecting previously unselected package libxml-namespacesupport-perl. Preparing to unpack .../42-libxml-namespacesupport-perl_1.12-2_all.deb ... Unpacking libxml-namespacesupport-perl (1.12-2) ... Selecting previously unselected package libxml-sax-base-perl. Preparing to unpack .../43-libxml-sax-base-perl_1.09-3_all.deb ... Unpacking libxml-sax-base-perl (1.09-3) ... Selecting previously unselected package libxml-sax-perl. Preparing to unpack .../44-libxml-sax-perl_1.02+dfsg-4_all.deb ... Unpacking libxml-sax-perl (1.02+dfsg-4) ... Selecting previously unselected package libxml-libxml-perl. Preparing to unpack .../45-libxml-libxml-perl_2.0207+dfsg+really+2.0134-5+b1_arm64.deb ... Unpacking libxml-libxml-perl (2.0207+dfsg+really+2.0134-5+b1) ... Selecting previously unselected package sbcl. Preparing to unpack .../46-sbcl_2%3a2.5.0-1_arm64.deb ... Unpacking sbcl (2:2.5.0-1) ... Selecting previously unselected package tex-common. Preparing to unpack .../47-tex-common_6.18_all.deb ... Unpacking tex-common (6.18) ... Selecting previously unselected package texinfo-lib. Preparing to unpack .../48-texinfo-lib_7.1.1-1+b1_arm64.deb ... Unpacking texinfo-lib (7.1.1-1+b1) ... Selecting previously unselected package texinfo. Preparing to unpack .../49-texinfo_7.1.1-1_all.deb ... Unpacking texinfo (7.1.1-1) ... Setting up libpipeline1:arm64 (1.5.8-1) ... Setting up libtext-charwidth-perl:arm64 (0.04-11+b4) ... Setting up libicu72:arm64 (72.1-6) ... Setting up bsdextrautils (2.40.4-4) ... Setting up libmagic-mgc (1:5.45-3+b1) ... Setting up cl-asdf (2:3.3.7.2-1) ... Setting up libarchive-zip-perl (1.68-1) ... Setting up libdebhelper-perl (13.24.1) ... Setting up libmagic1t64:arm64 (1:5.45-3+b1) ... Setting up libxml-namespacesupport-perl (1.12-2) ... Setting up gettext-base (0.23.1-1) ... Setting up m4 (1.4.19-5) ... Setting up file (1:5.45-3+b1) ... Setting up texinfo-lib (7.1.1-1+b1) ... Setting up libtext-wrapi18n-perl (0.06-10) ... Setting up libelf1t64:arm64 (0.192-4) ... Setting up cl-trivial-gray-streams (20240217.gita7ead68-1) ... Setting up libxml-sax-base-perl (1.09-3) ... Setting up autotools-dev (20220109.1) ... Setting up libproc2-0:arm64 (2:4.0.4-7) ... Setting up libunistring5:arm64 (1.3-1) ... Setting up autopoint (0.23.1-1) ... Setting up autoconf (2.72-3) ... Setting up cl-clx-sbcl (0.7.5-1) ... Setting up sbcl (2:2.5.0-1) ... Setting up dwz (0.15-1+b1) ... Setting up sensible-utils (0.0.24) ... Setting up libuchardet0:arm64 (0.0.8-1+b2) ... Setting up procps (2:4.0.4-7) ... Setting up cl-alexandria (20240125.git8514d8e-1) ... Setting up cl-ppcre (20240427.git80fb19d-1) ... Setting up libtext-unidecode-perl (1.30-3) ... Setting up libxml2:arm64 (2.12.7+dfsg+really2.9.14-0.2+b1) ... Setting up automake (1:1.17-3) ... update-alternatives: using /usr/bin/automake-1.17 to provide /usr/bin/automake (automake) in auto mode Setting up libfile-stripnondeterminism-perl (1.14.1-2) ... Setting up gettext (0.23.1-1) ... Setting up libtool (2.5.4-3) ... Setting up cl-fiasco (0.0~git20200514.bb47d2f-3) ... Setting up intltool-debian (0.35.0+20060710.6) ... Setting up dh-autoreconf (20) ... Setting up ucf (3.0050) ... Setting up dh-strip-nondeterminism (1.14.1-2) ... Setting up groff-base (1.23.0-7) ... Setting up po-debconf (1.0.21+nmu1) ... Setting up man-db (2.13.0-1) ... Not building database; man-db/auto-update is not 'true'. Setting up libxml-sax-perl (1.02+dfsg-4) ... 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 tex-common (6.18) ... update-language: texlive-base not installed and configured, doing nothing! Setting up libxml-libxml-perl (2.0207+dfsg+really+2.0134-5+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.24.1) ... Setting up texinfo (7.1.1-1) ... Processing triggers for libc-bin (2.40-7) ... 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 I: Building the package I: Running cd /build/reproducible-path/stumpwm-22.11/ && 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_22.11-3_source.changes dpkg-buildpackage: info: source package stumpwm dpkg-buildpackage: info: source version 2:22.11-3 dpkg-buildpackage: info: source distribution unstable dpkg-buildpackage: info: source changed by Benda Xu dpkg-source --before-build . dpkg-buildpackage: info: host architecture arm64 debian/rules clean dh clean debian/rules override_dh_auto_clean make[1]: Entering directory '/build/reproducible-path/stumpwm-22.11' 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/reproducible-path/stumpwm-22.11' dh_clean debian/rules binary dh binary dh_update_autotools_config dh_autoreconf configure.ac:60: warning: AC_OUTPUT should be used without arguments. configure.ac:60: You should run autoupdate. configure.ac:61: warning: AC_OUTPUT should be used without arguments. configure.ac:61: You should run autoupdate. configure.ac:62: warning: AC_OUTPUT should be used without arguments. configure.ac:62: You should run autoupdate. debian/rules override_dh_auto_configure make[1]: Entering directory '/build/reproducible-path/stumpwm-22.11' 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 --runstatedir=/run --disable-maintainer-mode --disable-dependency-tracking --with-lisp=sbcl checking for sbcl... /usr/bin/sbcl configure: WARNING: SBCL_HOME must be defined to use asdf/quicklisp (it should be where your sbcl.core resides) configure: Using sbcl at /usr/bin/sbcl checking for makeinfo... yes configure: creating ./config.status config.status: creating Makefile configure: creating ./config.status config.status: creating Makefile config.status: creating make-image.lisp configure: creating ./config.status config.status: creating Makefile config.status: creating make-image.lisp config.status: creating load-stumpwm.lisp make[1]: Leaving directory '/build/reproducible-path/stumpwm-22.11' debian/rules override_dh_auto_build-indep make[1]: Entering directory '/build/reproducible-path/stumpwm-22.11' XDG_CACHE_HOME=/build/reproducible-path/stumpwm-22.11/.cache /usr/bin/make stumpwm.info make[2]: Entering directory '/build/reproducible-path/stumpwm-22.11' /usr/bin/sbcl --non-interactive --eval "(setf sb-impl::*default-external-format* :UTF-8)" --eval "(progn (load \"load-stumpwm.lisp\") (load \"manual.lisp\"))" --eval "(progn (stumpwm::generate-manual) (sb-ext:quit))" This is SBCL 2.5.0.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 01 DEC 2024 12:56:31 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-asdf/build/asdf-tmpGHU3ALSV.fasl ; compilation finished in 0:00:06.224 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/package.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/package-tmpAAURSO1.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/definitions.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/definitions-tmp5GEXGEG5.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/binding.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/binding-tmpAR3FSGEY.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/strings.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/strings-tmpJAIDFZTC.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/conditions.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/conditions-tmp8V3J6PE9.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/symbols.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/symbols-tmp9V47YWQF.fasl ; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/macros.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/macros-tmp9BN22RMA.fasl ; compilation finished in 0:00:00.072 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/functions.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/functions-tmp1CXFJSK9.fasl ; compilation finished in 0:00:00.028 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/lists.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/lists-tmpX4BRKI0R.fasl ; compilation finished in 0:00:00.168 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/types.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/types-tmpQ371UGST.fasl ; compilation finished in 0:00:00.076 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/io.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/io-tmp2OWI3Q7U.fasl ; compilation finished in 0:00:00.112 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables-tmp9KKTJMYV.fasl ; compilation finished in 0:00:00.048 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/control-flow.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/control-flow-tmpJU0JWO19.fasl ; compilation finished in 0:00:00.044 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/arrays.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/arrays-tmpZX2WN8N4.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/sequences.lisp" (written 25 JAN 2024 05:37:54 PM): ; file: /usr/share/common-lisp/source/alexandria/alexandria-1/sequences.lisp ; in: DEFUN LENGTH= ; (LENGTH FIRST) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/sequences-tmpOU81XRV0.fasl ; compilation finished in 0:00:00.108 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/numbers.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/numbers-tmpY2ML9CFA.fasl ; compilation finished in 0:00:00.108 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/features.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/features-tmpX2JYJDQE.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/package.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/package-tmpOPCILR65.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/arrays.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/arrays-tmpRV9F8A9A.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow-tmpK2ZAJT4I.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/sequences.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/sequences-tmpUX5S4ADN.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/lists.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/lists-tmp10401X32.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/packages.lisp" (written 27 APR 2024 01:06:11 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/packages-tmpZ7CBRM0G.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/specials.lisp" (written 27 APR 2024 01:06:11 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/specials-tmp9OZEQ0G2.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/util.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a (OR SIMPLE-BASE-STRING NULL). ; 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/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/util-tmpB2JTL1W9.fasl ; compilation finished in 0:00:00.024 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/errors.lisp" (written 27 APR 2024 01:06:11 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/errors-tmpP3BI68WQ.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/charset.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp ; in: DEFUN MIX ; (+ CL-PPCRE::CODE CL-PPCRE::HASH) ; ; 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFUN COMPUTE-INDEX ; (LENGTH VECTOR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL (-35184372088830) ; (35184372088830))), not a RATIONAL. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR FLOAT ; (RATIONAL (-35184372088830) (35184372088830))), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT (RATIONAL (-35184372088829) (35184372088831))) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (OR FLOAT ; (RATIONAL (-35184372088830) (35184372088830))), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR FLOAT (RATIONAL (-35184372088829) (35184372088831))) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFUN %ADD-TO-CHARSET/EXPAND ; (>= CL-PPCRE::NEW-SIZE 371370) ; ; note: forced to do <-INTEGER-FIXNUM (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; (* 2 CL-PPCRE::NEW-SIZE) ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN MAP-CHARSET ; (DECF CL-PPCRE::N) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM. ; The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER * 4611686018427387903), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; 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 T, 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 T, not a DOUBLE-FLOAT. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/charset-tmpQDARA81Z.fasl ; compilation finished in 0:00:00.032 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/charmap.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 ; in: DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LIM16) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; 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 T, 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 T, 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LIM16) ; ; 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/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/charmap-tmpYEMMM7SE.fasl ; compilation finished in 0:00:00.060 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/chartest.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/chartest.lisp ; in: DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; 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 T, 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 T, not a DOUBLE-FLOAT. ; in: DEFUN CREATE-OPTIMIZED-TEST-FUNCTION ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (<= (CL-PPCRE::CHARSET-COUNT CL-PPCRE::CHARSET) ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)) ; ; note: forced to do >-FIXNUM-INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (<= (HASH-TABLE-COUNT HASH-TABLE) ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)) ; ; note: forced to do >-FIXNUM-INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/chartest-tmp73HU0RPK.fasl ; compilation finished in 0:00:00.024 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/lexer.lisp" (written 27 APR 2024 01:06:11 AM): ; 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.") ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN GET-NUMBER ; (IF (< CL-PPCRE::END-POS CL-PPCRE::LEXER-LEN) ; CL-PPCRE::END-POS ; CL-PPCRE::LEXER-LEN) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN UNESCAPE-CHAR ; (CHAR-UPCASE CL-PPCRE::NEXT-CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/lexer-tmpIO5N7K88.fasl ; compilation finished in 0:00:00.176 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/parser.lisp" (written 27 APR 2024 01:06:11 AM): ; 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.") ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN SEQ ; (VECTOR-PUSH-EXTEND CL-PPCRE::QUANT (CAR CL-PPCRE::LAST-CDR)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/parser-tmpCM21U60Z.fasl ; compilation finished in 0:00:00.032 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; (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/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/regex-class-tmp9DT7SEFG.fasl ; compilation finished in 0:00:00.032 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD EVERYTHINGP (SEQ) ; (LENGTH CL-PPCRE::CLEANED-ELEMENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (ALTERNATION) ; (LENGTH CL-PPCRE::CHOICES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (REPETITION) ; (= 1 CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX ; SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX ; DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to 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 (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; in: DEFMETHOD REGEX-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-LENGTH ; CL-PPCRE::SUB-REGEX) ; IF (NOT CL-PPCRE::LEN) ; DO ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM6 CL-PPCRE::LEN) ; ; 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-LENGTH (ALTERNATION) ; (/= CL-PPCRE::LEN CL-PPCRE::OLD-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to 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. ; 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; in: DEFMETHOD REGEX-LENGTH (REPETITION) ; (EQL CL-PPCRE::MINIMUM 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. ; ; 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; (* CL-PPCRE::MINIMUM 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::SUM CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM6 CL-PPCRE::LEN) ; ; 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (ALTERNATION) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::MINIMIZE CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF ; ==> ; (< #:MINMAXTMP10 #:MINMAX9) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: 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. ; in: DEFMETHOD REGEX-MIN-LENGTH (BRANCH) ; (MIN (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH)) ; (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: 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 T, 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 T, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (REPETITION) ; (* (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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (ALTERNATION T) ; (/= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to 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. ; 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (REPETITION T) ; (* CL-PPCRE::MINIMUM 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (CHAR-CLASS T) ; (1+ CL-PPCRE::START-POS) ; ; note: unable to ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (EVERYTHING T) ; (1+ CL-PPCRE::START-POS) ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (STR T) ; (+ CL-PPCRE::START-POS (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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (FILTER T) ; (+ CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/regex-class-util-tmp8065ESJT.fasl ; compilation finished in 0:00:00.096 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/convert.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 ; in: DEFUN MAYBE-SPLIT-REPETITION ; (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN MAYBE-ACCUMULATE ; (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; (CL-PPCRE::STR CL-PPCRE::STR) ; (CL-PPCRE::SKIP CL-PPCRE::STR) T) ; --> SETF LET* ; ==> ; (REPLACE #:SEQUENCE #:NEW3 :START1 #:START :END1 NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; The second argument is a SEQUENCE, not a (OR NULL ; (SIMPLE-ARRAY CHARACTER (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR NULL ; (SIMPLE-ARRAY CHARACTER (*))). ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; (MAKE-ARRAY (CL-PPCRE::LEN CL-PPCRE::STR) :INITIAL-CONTENTS ; (CL-PPCRE::STR CL-PPCRE::STR) :ELEMENT-TYPE 'CHARACTER ; :FILL-POINTER T :ADJUSTABLE T) ; ; 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 second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; (SETF (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; --> FUNCALL ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20) ; (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; (CL-PPCRE::STR CL-PPCRE::STR) ; (CL-PPCRE::SKIP CL-PPCRE::STR) T) ; --> SETF LET* ; ==> ; (REPLACE #:SEQUENCE #:NEW3 :START1 #:START :END1 NIL) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BRANCH) T) ; (LENGTH (CL-PPCRE::CHOICES CL-PPCRE::ALTERNATIONS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :GREEDY-REPETITION) T) ; (ZEROP LENGTH) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :NAMED-REGISTER) T) ; (COPY-SEQ (SECOND CL-PPCRE::PARSE-TREE)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BACK-REFERENCE) T) ; (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a (SIMPLE-ARRAY CHARACTER (*)). ; (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 &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::NAME CL-PPCRE::IN CL-PPCRE::REG-NAMES ; CL-PPCRE::FOR CL-PPCRE::REG-INDEX CL-PPCRE::FROM 0 ; WHEN (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; CL-PPCRE::COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE 1+ ; ==> ; 1 ; ; note: forced to do 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CONVERT ; (COERCE (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) 'SIMPLE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/convert-tmp7S8Z6FGF.fasl ; compilation finished in 0:00:00.176 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/optimize.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a VECTOR, not a (OR SIMPLE-BASE-STRING NULL). ; (INCF CL-PPCRE::COLLECTOR-LENGTH (CL-PPCRE::LEN CL-PPCRE::ELEMENT)) ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFMETHOD START-ANCHORED-P (REPETITION) ; (PLUSP (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: 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. ; in: DEFMETHOD START-ANCHORED-P (REGEX) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::REGEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD END-STRING-AUX (SEQ) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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 SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; (CHAR CL-PPCRE::STR CL-PPCRE::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFMETHOD COMPUTE-MIN-REST (ALTERNATION T) ; (LOOP CL-PPCRE::FOR CL-PPCRE::CHOICE CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::MINIMIZE (CL-PPCRE::COMPUTE-MIN-REST CL-PPCRE::CHOICE ; CL-PPCRE::CURRENT-MIN-REST)) ; --> LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF ; ==> ; (< #:MINMAXTMP11 #:MINMAX10) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: 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. ; in: DEFMETHOD COMPUTE-MIN-REST (BRANCH T) ; (MIN ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST) ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: 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 T, 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 T, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (STR T) ; (+ CL-PPCRE::CURRENT-MIN-REST (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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (FILTER T) ; (+ CL-PPCRE::CURRENT-MIN-REST (OR (CL-PPCRE::LEN CL-PPCRE::FILTER) 0)) ; ; note: 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (REPETITION T) ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ CL-PPCRE::CURRENT-MIN-REST ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (LOOKBEHIND T) ; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::LOOKBEHIND)) ; ; note: 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (REGEX T) ; (1+ CL-PPCRE::CURRENT-MIN-REST) ; ; note: unable to ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/optimize-tmpSIT3QPKP.fasl ; compilation finished in 0:00:00.068 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/closures.lisp" (written 27 APR 2024 01:06:11 AM): ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; 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) ; in: DEFMETHOD CREATE-MATCHER-AUX (CHAR-CLASS T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::CHAR-CLASS ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::START-POS)) ; (LAMBDA (CL-PPCRE::START-POS) ; (DECLARE (FIXNUM CL-PPCRE::START-POS)) ; (AND (< CL-PPCRE::START-POS CL-PPCRE::*END-POS*) ; (CL-PPCRE::CHAR-CLASS-TEST) ; (FUNCALL CL-PPCRE::NEXT-FN (1+ CL-PPCRE::START-POS))))) ; --> LET LAMBDA FUNCTION AND IF IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFMETHOD CREATE-MATCHER-AUX (STR T) ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::START-POS ; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS) CL-PPCRE::CHR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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) ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-MATCHER-AUX (FILTER T) ; (FUNCALL CL-PPCRE::FN CL-PPCRE::START-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (FUNCALL CL-PPCRE::NEXT-FN CL-PPCRE::NEXT-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; NEXT-FN is not known to be a function ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/closures-tmpE0PA0714.fasl ; compilation finished in 0:00:00.252 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET BLOCK ; --> TAGBODY WHEN IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), 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)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; 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)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-GREEDY-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), 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)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-NON-GREEDY-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: ; DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS)))) ; --> LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA FUNCTION ; --> LET AND IF IF LOOP BLOCK LET TAGBODY UNLESS IF AND IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (AREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (ZEROP (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-MATCHER-AUX (REPETITION T) ; (ZEROP CL-PPCRE::MAXIMUM) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (EQL CL-PPCRE::MINIMUM 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. ; ; 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. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (PLUSP CL-PPCRE::LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; 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 T, 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 T, not a DOUBLE-FLOAT. ; (EQL CL-PPCRE::MINIMUM 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, 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 T, not a FIXNUM. ; The second 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). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; (PLUSP 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. ; (PLUSP 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. ; (PLUSP 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/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/repetition-closures-tmpJRWHHVG0.fasl ; compilation finished in 0:00:00.284 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/scanner.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/scanner.lisp ; in: DEFUN CREATE-BMH-MATCHER ; (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION IF LOOP BLOCK LET TAGBODY LOOP BLOCK LET LET TAGBODY UNLESS IF ; --> AND IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (LENGTH CL-PPCRE::PATTERN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CHAR-UPCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-DOWNCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (SEARCH CL-PPCRE::PATTERN CL-PPCRE::*STRING* :START2 CL-PPCRE::START-POS ; :END2 CL-PPCRE::*END-POS* :TEST CL-PPCRE::TEST) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN CREATE-CHAR-SEARCHER ; (CL-PPCRE::CHAR-SEARCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION AND IF LOOP BLOCK LET LET TAGBODY WHEN IF SETQ THE AND IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFUN CREATE-SCANNER-AUX ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (FUNCALL CL-PPCRE::END-STRING-TEST CL-PPCRE::TRY-POS) ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/scanner-tmp4WZVROCX.fasl ; compilation finished in 0:00:00.500 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/api.lisp" (written 27 APR 2024 01:06:11 AM): ; 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. ; in: DEFMETHOD CREATE-SCANNER (T) ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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. ; in: DEFMETHOD SCAN (STRING T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::REGEX-STRING) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; in: DEFMETHOD SCAN #'T ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; in: DEFMETHOD SCAN (T T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::PARSE-TREE) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; in: DEFUN SCAN-TO-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MAP 'VECTOR ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (IF CL-PPCRE::REG-START ; (FUNCALL CL-PPCRE::SUBSTR-FN CL-PPCRE::TARGET-STRING ; CL-PPCRE::REG-START CL-PPCRE::REG-END) ; NIL)) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMACRO DO-SCANS ; (DEFMACRO CL-PPCRE:DO-SCANS ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY &ENVIRONMENT CL-PPCRE::ENV) ; #<(SIMPLE-ARRAY CHARACTER ; (495)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START, MATCH-END, REG-STARTS, and ; REG-ENDS bound to the four return values of each match in turn. ... {1002451B0F}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::%START CL-PPCRE::%END ; CL-PPCRE::%REGEX CL-PPCRE::SCANNER) ; (DECLARE (IGNORABLE CL-PPCRE::%REGEX CL-PPCRE::SCANNER)) ; `(BLOCK NIL ; (LET* # ; # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END ; REG-STARTS REG-ENDS REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) ; in: DEFMACRO DO-MATCHES ; (DEFMACRO CL-PPCRE:DO-MATCHES ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (477)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START and MATCH-END bound to the ; start/end positions of each match in turn. After the last match, ; ... {100284DE3F}> ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; `(CL-PPCRE:DO-SCANS (,CL-PPCRE::MATCH-START ,CL-PPCRE::MATCH-END ; ,CL-PPCRE::REG-STARTS ,CL-PPCRE::REG-ENDS ; ,CL-PPCRE::REGEX ,CL-PPCRE::TARGET-STRING ; ,CL-PPCRE::RESULT-FORM :START ,CL-PPCRE::START :END ; ,CL-PPCRE::END) ; ,@CL-PPCRE::BODY))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) ; in: DEFMACRO DO-MATCHES-AS-STRINGS ; (DEFMACRO CL-PPCRE:DO-MATCHES-AS-STRINGS ; ( ; (CL-PPCRE::MATCH-VAR ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (569)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-VAR bound to the substring of ; TARGET-STRING corresponding to each match in turn. After the last ; ma... {10029EA8FF}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::SUBSTR-FN) ; `(LET (#) ; (CL-PPCRE:DO-MATCHES # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-VAR REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END ; SHAREDP) ; in: DEFMACRO DO-REGISTER-GROUPS ; (DEFMACRO CL-PPCRE:DO-REGISTER-GROUPS ; (CL-PPCRE::VAR-LIST ; (CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (820)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with the variables in VAR-LIST bound to the ; corresponding register groups for each match in turn, i.e. each ; va... {1002BB976F}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::SUBSTR-FN CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS CL-PPCRE::START-INDEX) ; `(LET (#) ; (CL-PPCRE:DO-SCANS # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX TARGET-STRING ; &OPTIONAL RESULT-FORM ; &KEY START END SHAREDP) ; in: DEFUN COUNT-MATCHES ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::S CL-PPCRE::E CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING COUNT :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (INCF COUNT)) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::S CL-PPCRE::E) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF COUNT) ; --> THE ; ==> ; (+ 1 COUNT) ; ; note: forced to do 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::S CL-PPCRE::E CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING COUNT :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (INCF COUNT)) ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::S CL-PPCRE::E) ; ; note: forced to do 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. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALL-MATCHES ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::RESULT-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::RESULT-LIST)) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do 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. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALL-MATCHES-AS-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES-AS-STRINGS (CL-PPCRE::MATCH CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START ; CL-PPCRE::START :END CL-PPCRE::END :SHAREDP ; CL-PPCRE::SHAREDP) ; (PUSH CL-PPCRE::MATCH CL-PPCRE::RESULT-LIST)) ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING7) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE ; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: forced to do 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. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; 1 ; ; note: forced to do 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SPLIT ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP CL-PPCRE::LIMIT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...) ; --> LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET LET ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE AREF ; ==> ; 1 ; ; 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 VECTOR, not a SIMPLE-ARRAY. ; ; 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 VECTOR, not a SIMPLE-ARRAY. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (= 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 NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a 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) ; --> 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do 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. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; 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. ; in: DEFUN STRING-CASE-MODIFIER ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::FROM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::TO) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; 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 ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (< 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 (NOT NULL), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The second argument is a (NOT NULL), 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 NULL INTEGER), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (OR NULL INTEGER), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (< CL-PPCRE::TOKEN 0) ; ; note: forced to do <-INTEGER-FIXNUM (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; in: DEFUN BUILD-REPLACEMENT ; (ARRAY-DIMENSION CL-PPCRE::REG-STARTS 0) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; (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: ; TOKEN is not known to be a function ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; 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: ; TOKEN is not known to be a function ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (>= CL-PPCRE::TOKEN CL-PPCRE::REG-BOUND) ; ; note: forced to do <-INTEGER-FIXNUM (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; (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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; ; 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFUN REGEX-REPLACE ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFUN REGEX-REPLACE-ALL ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do 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. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN REGEX-APROPOS-LIST ; (DEFUN CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; #<(SIMPLE-ARRAY CHARACTER ; (221)) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {1002192E0F}> ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (221)) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {1002192E0F}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS-LIST ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; in: DEFUN REGEX-APROPOS ; (DEFUN CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {10027406FF}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES)) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {10027406FF}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/api-tmpA0I3UKX8.fasl ; compilation finished in 0:00:00.416 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/clx/package.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/package-tmp267Y2N80.fasl ; compilation finished in 0:00:00.016 ; compiling file "/usr/share/common-lisp/source/clx/depdefs.lisp" (written 27 DEC 2022 07:29:08 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/depdefs-tmpOUPE5FSJ.fasl ; compilation finished in 0:00:00.136 ; compiling file "/usr/share/common-lisp/source/clx/clx.lisp" (written 27 DEC 2022 07:29:08 AM): ; file: /usr/share/common-lisp/source/clx/clx.lisp ; in: DEFUN ENCODE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:EVENT-MASK 'XLIB:EVENT-MASK) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-DEVICE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:DEVICE-EVENT-MASK 'XLIB:DEVICE-EVENT-MASK) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-MODIFIER-MASK ; (XLIB::X-TYPE-ERROR XLIB:MODIFIER-MASK 'XLIB:MODIFIER-MASK) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-STATE-MASK ; (XLIB::X-TYPE-ERROR XLIB::STATE-MASK ; '(OR XLIB:MASK16 (XLIB::CLX-LIST XLIB:STATE-MASK-KEY))) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-POINTER-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:POINTER-EVENT-MASK 'XLIB:POINTER-EVENT-MASK) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/clx-tmpIGHCU6ZA.fasl ; compilation finished in 0:00:00.264 ; compiling file "/usr/share/common-lisp/source/clx/dependent.lisp" (written 27 DEC 2022 07:29:08 AM): ; 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) ; in: DEFMACRO READ-IMAGE-LOAD-BYTE ; (SETQ POSITION (- 7 POSITION)) ; ; note: deleting unreachable code ; in: DEFMACRO READ-IMAGE-ASSEMBLE-BYTES ; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES)) ; ; note: deleting unreachable code ; in: DEFMACRO WRITE-IMAGE-LOAD-BYTE ; (- XLIB::INTEGER-SIZE 8 POSITION) ; ; note: deleting unreachable code ; in: DEFMACRO WRITE-IMAGE-ASSEMBLE-BYTES ; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES)) ; ; note: deleting unreachable code ; in: DEFUN COPY-BIT-RECT ; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::SDATA XLIB::SOURCE) (XLIB::SSTART) ; (XLIB::SEND)) ; (DECLARE (IGNORE XLIB::SEND)) ; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::DDATA XLIB::DEST) (XLIB::DSTART) ; (XLIB::DEND)) ; (DECLARE (IGNORE XLIB::DEND)) ; (ASSERT (AND (ZEROP XLIB::SSTART) (ZEROP XLIB::DSTART))) ; (DO ((XLIB::SRC-IDX # #) ; (XLIB::DEST-IDX # #) ; (COUNT XLIB::HEIGHT #)) ; ((ZEROP COUNT)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-IDX XLIB::DEST-IDX COUNT)) ; (SB-KERNEL:UB1-BASH-COPY XLIB::SDATA XLIB::SRC-IDX XLIB::DDATA ; XLIB::DEST-IDX XLIB::WIDTH)))) ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND IF THE ; ==> ; (SB-KERNEL:%WITH-ARRAY-DATA #:N-ARRAY0 #:N-SVALUE1 #:N-EVALUE2) ; ; note: unable to ; inline non-SIMPLE-vector-handling logic ; due to type uncertainty: ; The first argument is a (AND ARRAY (NOT (SIMPLE-ARRAY * (*)))), not a (OR ; VECTOR ; SIMPLE-ARRAY). ; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::DDATA XLIB::DEST) (XLIB::DSTART) ; (XLIB::DEND)) ; (DECLARE (IGNORE XLIB::DEND)) ; (ASSERT (AND (ZEROP XLIB::SSTART) (ZEROP XLIB::DSTART))) ; (DO ((XLIB::SRC-IDX (XLIB::INDEX+ # XLIB::SX #) ; (XLIB::INDEX+ XLIB::SRC-IDX XLIB::SOURCE-WIDTH)) ; (XLIB::DEST-IDX (XLIB::INDEX+ # XLIB::DX #) ; (XLIB::INDEX+ XLIB::DEST-IDX XLIB::DEST-WIDTH)) ; (COUNT XLIB::HEIGHT (1- COUNT))) ; ((ZEROP COUNT)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-IDX XLIB::DEST-IDX COUNT)) ; (SB-KERNEL:UB1-BASH-COPY XLIB::SDATA XLIB::SRC-IDX XLIB::DDATA ; XLIB::DEST-IDX XLIB::WIDTH))) ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND IF THE ; ==> ; (SB-KERNEL:%WITH-ARRAY-DATA #:N-ARRAY5 #:N-SVALUE6 #:N-EVALUE7) ; ; note: unable to ; inline non-SIMPLE-vector-handling logic ; due to type uncertainty: ; The first argument is a (AND ARRAY (NOT (SIMPLE-ARRAY * (*)))), not a (OR ; VECTOR ; SIMPLE-ARRAY). ; in: DEFUN FAST-READ-PIXARRAY ; (XLIB::READ-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X ; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE ; XLIB::BITS-PER-PIXEL FUNCTION XLIB::UNIT ...) ; ; note: deleting unreachable code ; in: DEFUN FAST-WRITE-PIXARRAY-USING-BITBLT ; (ARRAY-DIMENSION XLIB:PIXARRAY 1) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; in: DEFUN FAST-WRITE-PIXARRAY ; (XLIB::WRITE-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X ; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE ; XLIB::BITS-PER-PIXEL FUNCTION XLIB::+IMAGE-UNIT+ ...) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/dependent-tmpBO0TUGLK.fasl ; compilation finished in 0:00:00.256 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/clx/macros.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/macros.lisp ; in: DEFMACRO DEFINE-ACCESSOR ; (THIRD XLIB::GET-PUT-MACROS) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/macros-tmpIIXPIQNW.fasl ; compilation finished in 0:00:00.372 ; compiling file "/usr/share/common-lisp/source/clx/bufmac.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/bufmac-tmpOHM494YR.fasl ; compilation finished in 0:00:00.028 ; compiling file "/usr/share/common-lisp/source/clx/buffer.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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)) ; --> LET XLIB::HOLDING-LOCK IF HANDLER-CASE SB-INT:DX-FLET FLET #:FORM-FUN-3 ; --> 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: 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. ; in: DEFUN READ-VECTOR-CARD8 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD8 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD8 XLIB::INDEX))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD16 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD16 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD16 XLIB::INDEX))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD32 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD32 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD32 XLIB::INDEX))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD8 ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD16 ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-INT16 ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD32 ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CHAR2B ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/buffer-tmpOVFB07XF.fasl ; compilation finished in 0:00:00.772 ; compiling file "/usr/share/common-lisp/source/clx/display.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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. ; in: DEFUN DISPLAY-FINISH-OUTPUT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETINPUTFOCUS+ 16 ; :SIZES (8 32)) ; NIL) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/display-tmpG6VFGMYP.fasl ; compilation finished in 0:00:00.120 ; compiling file "/usr/share/common-lisp/source/clx/gcontext.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN SET-GCONTEXT-DASHES ; (VECTOR) ; ; note: deleting unreachable code ; in: DEFUN FORCE-GCONTEXT-CHANGES-INTERNAL ; (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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))) ; --> 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. ; --> 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (LENGTH XLIB::LOCAL-DASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETDASHES+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-DASH-OFFSET XLIB::LOCAL-STATE) 0) ; (LENGTH XLIB::LOCAL-DASH)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::LOCAL-DASH)) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::LOCAL-DASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (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))))) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; 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))) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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)) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-GCONTEXT-LOCAL-STATE ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) ; --> XLIB::WITH-BUFFER PROGN FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::TEMP-MASK))) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (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-CREATEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:DRAWABLE (XLIB::GCONTEXT-DRAWABLE XLIB:GCONTEXT)) ; (XLIB:CARD29 0)) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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))) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (ASH BIT -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) 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) ; &OPTIONAL). ; etc. ; in: DEFUN RESTORE-GCONTEXT-TEMP-STATE ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC)) ; --> 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (FUNCALL XLIB::COPY-FUNCTION XLIB::TEMP-GC XLIB:GCONTEXT ; (SVREF XLIB::LOCAL-STATE XLIB::I)) ; ; 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))) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (ASH BIT -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) 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) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC)) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-GCONTEXT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEGC+) ; (XLIB:RESOURCE-ID XLIB::GCONTEXTID) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (PROGN ; (DO* ((XLIB::I 0 #) ; (BIT 1 #) ; (XLIB::NBYTE 16) ; (XLIB::MASK 0) ; (XLIB::LOCAL # #)) ; ((XLIB::INDEX>= XLIB::I XLIB::+GCONTEXT-FAST-CHANGE-LENGTH+) ; (XLIB::CARD29-PUT 12 XLIB::MASK) ; (XLIB::CARD16-PUT 2 #) ; (XLIB::INDEX-INCF # XLIB::NBYTE)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::I XLIB::NBYTE) ; (TYPE XLIB::XGCMASK BIT) ; (TYPE XLIB::GCMASK XLIB::MASK) ; (TYPE # XLIB::LOCAL)) ; (UNLESS (EQL XLIB::LOCAL #) ; (SETF #) ; (XLIB::CARD32-PUT XLIB::NBYTE XLIB::LOCAL) ; (SETQ #) ; (XLIB::INDEX-INCF XLIB::NBYTE 4))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-GCONTEXT-COMPONENTS ; (FIND XLIB::KEY XLIB::*GCONTEXT-EXTENSIONS* :KEY ; #'XLIB::GCONTEXT-EXTENSION-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (FUNCALL (XLIB::GCONTEXT-EXTENSION-COPY-FUNCTION XLIB::EXTENSION) XLIB::SRC ; XLIB::DST ; (SVREF (XLIB::GCONTEXT-LOCAL-STATE XLIB::SRC) ; (XLIB::INDEX+ ; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) ; XLIB::*GCONTEXT-DATA-LENGTH*))) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+) ; (XLIB:GCONTEXT XLIB::SRC XLIB::DST) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::MASK))) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-GCONTEXT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/gcontext-tmp4QIPRMOF.fasl ; compilation finished in 0:00:00.804 ; compiling file "/usr/share/common-lisp/source/clx/input.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DEFUN READ-INPUT ; (CONS NIL NIL) ; ; note: deleting unreachable code ; in: DEFUN QUEUE-EVENT ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::EVENT-CODE) XLIB:DISPLAY ; XLIB::ARGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DECLARE-EVENT :CLIENT-MESSAGE ; (XLIB:DECLARE-EVENT :CLIENT-MESSAGE ; (XLIB::DATA FORMAT) ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (KEYWORD TYPE) ; ((XLIB::CLIENT-MESSAGE-SEQUENCE FORMAT) XLIB::DATA)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::READING-EVENT XLIB::WITH-BUFFER-INPUT LET LET* ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; --> 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 COND IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD8 MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ; --> ECASE COND IF IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD16 MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ; --> ECASE COND IF IF IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD32 MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN MAKE-ERROR ; (FUNCALL XLIB::ERROR-DECODE-FUNCTION XLIB:DISPLAY XLIB::EVENT) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/input-tmpGW0QV22K.fasl ; compilation finished in 0:00:01.368 ; compiling file "/usr/share/common-lisp/source/clx/requests.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEWINDOW+) ; (XLIB::DATA XLIB::DEPTH) ; (XLIB:RESOURCE-ID XLIB::WID) ; (XLIB:WINDOW XLIB::PARENT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH) ; ((XLIB::MEMBER16 :COPY :INPUT-OUTPUT :INPUT-ONLY) CLASS) ; (XLIB:RESOURCE-ID ; (COND ((EQ XLIB::VISUAL :COPY) 0) ; ((TYPEP XLIB::VISUAL 'XLIB:RESOURCE-ID) XLIB::VISUAL) ; (T (XLIB:VISUAL-INFO-ID XLIB::VISUAL)))) ; (XLIB::MASK ; (XLIB:CARD32 XLIB::BACK-PIXMAP XLIB::BACK-PIXEL XLIB::BORDER-PIXMAP ; XLIB::BORDER-PIXEL) ; ((XLIB::MEMBER-VECTOR XLIB::+BIT-GRAVITY-VECTOR+) XLIB:BIT-GRAVITY) ; ((XLIB::MEMBER-VECTOR XLIB::+WIN-GRAVITY-VECTOR+) XLIB::GRAVITY) ; ((MEMBER :NOT-USEFUL :WHEN-MAPPED :ALWAYS) XLIB::BACKING-STORE) ; (XLIB:CARD32 XLIB::BACKING-PLANES XLIB::BACKING-PIXEL) ; ((MEMBER :OFF :ON) XLIB::OVERRIDE-REDIRECT XLIB::SAVE-UNDER) ; (XLIB:CARD32 XLIB:EVENT-MASK XLIB::DO-NOT-PROPAGATE-MASK) ; ((OR (MEMBER :COPY) XLIB:COLORMAP) XLIB:COLORMAP) ; ((OR (MEMBER :NONE) XLIB:CURSOR) XLIB:CURSOR))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN SETQ THE ; ==> ; (LOGIOR XLIB::%MASK 4096) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 4096)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 4096)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 8192)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 8192)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET INCF LET* ; ==> ; (+ XLIB::%INDEX (XLIB::BUFFER-BOFFSET #:%BUFFER104)) ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DESTROY-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-DESTROYWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DESTROY-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-DESTROYSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN REPARENT-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-REPARENTWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW XLIB::PARENT) ; (XLIB:INT16 XLIB::X XLIB::Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MAP-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-MAPWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MAP-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-MAPSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNMAP-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNMAPWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNMAP-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNMAPSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CIRCULATE-WINDOW-UP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CIRCULATEWINDOW+) ; (XLIB::DATA 0) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CIRCULATE-WINDOW-DOWN ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CIRCULATEWINDOW+) ; (XLIB::DATA 1) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN INTERN-ATOM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-INTERNATOM+ 12 ; :SIZES 32) ; ((XLIB::DATA 0) (XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::RESOURCE-ID-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FIND-ATOM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-INTERNATOM+ 12 ; :SIZES 32) ; ((XLIB::DATA 1) (XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::OR-GET 8 NULL XLIB:RESOURCE-ID))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEPROPERTY+) ; ((XLIB::DATA (MEMBER :REPLACE :PREPEND :APPEND)) XLIB::MODE) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID XLIB::TYPE-ID) ; (XLIB:CARD8 FORMAT) ; (XLIB:CARD32 LENGTH) ; (PROGN ; (ECASE FORMAT ; (8 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD8 :START XLIB::START ; :END XLIB::END :TRANSFORM XLIB::TRANSFORM)) ; (16 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD16 :START ; XLIB::START :END XLIB::END :TRANSFORM ; XLIB::TRANSFORM)) ; (32 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD32 :START ; XLIB::START :END XLIB::END :TRANSFORM ; XLIB::TRANSFORM))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DELETE-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-DELETEPROPERTY+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GET-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETPROPERTY+ NIL ; :SIZES (8 32)) ; (((XLIB::DATA BOOLEAN) XLIB::DELETE-P) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID) ; ((OR NULL XLIB:RESOURCE-ID) XLIB::TYPE-ID) (XLIB:CARD32 XLIB::START) ; (XLIB:CARD32 (XLIB::INDEX- (OR XLIB::END 64000) XLIB::START))) ; (LET ((XLIB::REPLY-FORMAT (XLIB::CARD8-GET 1)) ; (XLIB::REPLY-TYPE (XLIB::CARD32-GET 8)) ; (XLIB::BYTES-AFTER (XLIB::CARD32-GET 12)) ; (XLIB::NITEMS (XLIB::CARD32-GET 16))) ; (VALUES XLIB::REPLY-FORMAT XLIB::REPLY-TYPE XLIB::BYTES-AFTER ; (AND (PLUSP XLIB::NITEMS) (ECASE XLIB::REPLY-FORMAT # # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ROTATE-PROPERTIES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-ROTATEPROPERTIES+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 LENGTH) ; (XLIB:INT16 (- XLIB::DELTA)) ; ((SEQUENCE :END LENGTH) SEQUENCE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-SELECTION-OWNER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETSELECTIONOWNER+) ; ((OR NULL XLIB:WINDOW) XLIB::OWNER) ; (XLIB:RESOURCE-ID XLIB::SELECTION-ID) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CONVERT-SELECTION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CONVERTSELECTION+) ; (XLIB:WINDOW XLIB::REQUESTOR) ; (XLIB:RESOURCE-ID XLIB::SELECTION-ID XLIB::TYPE-ID) ; ((OR NULL XLIB:RESOURCE-ID) XLIB::PROPERTY-ID) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SEND-EVENT ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE) ; XLIB:DISPLAY XLIB::ARGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SENDEVENT+) ; ((XLIB::DATA BOOLEAN) XLIB::PROPAGATE-P) ; (LENGTH 11) ; ((OR (MEMBER :POINTER-WINDOW :INPUT-FOCUS) XLIB:WINDOW) XLIB:WINDOW) ; (XLIB:CARD32 (XLIB::ENCODE-EVENT-MASK XLIB:EVENT-MASK)) ; (XLIB:CARD8 XLIB::EXTERNAL-EVENT-CODE) ; (PROGN ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE) ; XLIB:DISPLAY XLIB::ARGS) ; (SETF (XLIB::BUFFER-BOFFSET XLIB:DISPLAY) ; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 44)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-POINTER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GRABPOINTER+ NIL ; :SIZES 8) ; (((XLIB::DATA BOOLEAN) XLIB::OWNER-P) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK)) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P)) ; ((OR NULL XLIB:WINDOW) XLIB::CONFINE-TO) ; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ((OR NULL XLIB:CARD32) TIME)) ; (VALUES ; (XLIB::MEMBER8-GET 1 :SUCCESS :ALREADY-GRABBED :INVALID-TIME :NOT-VIEWABLE ; :FROZEN))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-POINTER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-UNGRABPOINTER+) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-BUTTON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-GRABBUTTON+) ; ((XLIB::DATA BOOLEAN) XLIB::OWNER-P) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK)) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P)) ; ((OR NULL XLIB:WINDOW) XLIB::CONFINE-TO) ; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ; (XLIB:CARD8 ; (IF (EQ XLIB::BUTTON :ANY) ; 0 ; XLIB::BUTTON)) ; (XLIB::PAD8 1) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-BUTTON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNGRABBUTTON+) ; (XLIB::DATA ; (IF (EQ XLIB::BUTTON :ANY) ; 0 ; XLIB::BUTTON)) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-ACTIVE-POINTER-GRAB ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEACTIVEPOINTERGRAB+) ; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-KEYBOARD ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GRABKEYBOARD+ NIL ; :SIZES 8) ; (((XLIB::DATA BOOLEAN) XLIB::OWNER-P) (XLIB:WINDOW XLIB:WINDOW) ; ((OR NULL XLIB:CARD32) TIME) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P))) ; (VALUES ; (XLIB::MEMBER8-GET 1 :SUCCESS :ALREADY-GRABBED :INVALID-TIME :NOT-VIEWABLE ; :FROZEN))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-KEYBOARD ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-UNGRABKEYBOARD+) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-KEY ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-GRABKEY+) ; ((XLIB::DATA BOOLEAN) XLIB::OWNER-P) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS)) ; (XLIB:CARD8 ; (IF (EQ XLIB::KEY :ANY) ; 0 ; XLIB::KEY)) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-KEY ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNGRABKEY+) ; (XLIB::DATA ; (IF (EQ XLIB::KEY :ANY) ; 0 ; XLIB::KEY)) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-SERVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-GRABSERVER+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-SERVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-UNGRABSERVER+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MOTION-EVENTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETMOTIONEVENTS+ ; NIL :SIZES 32) ; ((XLIB:WINDOW XLIB:WINDOW) ((OR NULL XLIB:CARD32) XLIB::START XLIB::STOP)) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; (XLIB::INDEX* (XLIB::CARD32-GET 8) 3) :INDEX ; XLIB::+REPLYSIZE+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN TRANSLATE-COORDINATES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-TRANSLATECOORDS+ ; 16 :SIZES (8 16 32)) ; ((XLIB:WINDOW XLIB::SRC XLIB::DST) (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y)) ; (AND (XLIB::BOOLEAN-GET 1) ; (VALUES (XLIB::INT16-GET 12) (XLIB::INT16-GET 14) ; (XLIB::OR-GET 8 NULL XLIB:WINDOW)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WARP-POINTER ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::DST) ; XLIB::+X-WARPPOINTER+) ; (XLIB:RESOURCE-ID 0) ; (XLIB:WINDOW XLIB::DST) ; (XLIB:INT16 0 0) ; (XLIB:CARD16 0 0) ; (XLIB:INT16 XLIB::DST-X XLIB::DST-Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WARP-POINTER-RELATIVE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-WARPPOINTER+) ; (XLIB:RESOURCE-ID 0) ; (XLIB:RESOURCE-ID 0) ; (XLIB:INT16 0 0) ; (XLIB:CARD16 0 0) ; (XLIB:INT16 XLIB::X-OFF XLIB::Y-OFF)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WARP-POINTER-IF-INSIDE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::DST) ; XLIB::+X-WARPPOINTER+) ; (XLIB:WINDOW XLIB::SRC XLIB::DST) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y) ; (XLIB:CARD16 (OR XLIB::SRC-WIDTH 0) (OR XLIB::SRC-HEIGHT 0)) ; (XLIB:INT16 XLIB::DST-X XLIB::DST-Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WARP-POINTER-RELATIVE-IF-INSIDE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::SRC) ; XLIB::+X-WARPPOINTER+) ; (XLIB:WINDOW XLIB::SRC) ; (XLIB:RESOURCE-ID 0) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y) ; (XLIB:CARD16 (OR XLIB::SRC-WIDTH 0) (OR XLIB::SRC-HEIGHT 0)) ; (XLIB:INT16 XLIB::X-OFF XLIB::Y-OFF)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-PIXMAP ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:PIXMAP 'XLIB:PIXMAP) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEPIXMAP+) ; (XLIB::DATA XLIB::DEPTH) ; (XLIB:RESOURCE-ID XLIB::PID) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-PIXMAP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEPIXMAP+) ; (XLIB:PIXMAP XLIB:PIXMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CLEAR-AREA ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CLEARTOBACKGROUND+) ; ((XLIB::DATA BOOLEAN) XLIB::EXPOSURES-P) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 (OR XLIB::WIDTH 0) (OR XLIB::HEIGHT 0))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-AREA ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB::SRC) ; XLIB::+X-COPYAREA+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB::SRC XLIB::DST) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y XLIB::DST-X XLIB::DST-Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-PLANE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB::SRC) ; XLIB::+X-COPYPLANE+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB::SRC XLIB::DST) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y XLIB::DST-X XLIB::DST-Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) ; (XLIB:CARD32 XLIB::PLANE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-COLORMAP ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:COLORMAP 'XLIB:COLORMAP) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATECOLORMAP+) ; ((XLIB::DATA BOOLEAN) XLIB::ALLOC-P) ; (XLIB:CARD29 XLIB::ID) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD29 (XLIB:VISUAL-INFO-ID XLIB:VISUAL-INFO))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-COLORMAP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREECOLORMAP+) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-COLORMAP-AND-FREE ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB::NEW-COLORMAP 'XLIB:COLORMAP) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYCOLORMAPANDFREE+) ; (XLIB:RESOURCE-ID XLIB::ID) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN INSTALL-COLORMAP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-INSTALLCOLORMAP+) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNINSTALL-COLORMAP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-UNINSTALLCOLORMAP+) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALLOC-COLOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCNAMEDCOLOR+ ; 24 :SIZES (16 32)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (XLIB:CARD16 LENGTH) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::CARD32-GET 8) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 18) :GREEN ; (XLIB::RGB-VAL-GET 20) :BLUE ; (XLIB::RGB-VAL-GET 22)) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 12) :GREEN ; (XLIB::RGB-VAL-GET 14) :BLUE ; (XLIB::RGB-VAL-GET 16)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLOR+ 20 ; :SIZES (16 32)) ; ((XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB:COLOR) (XLIB:COLOR-GREEN XLIB:COLOR) ; (XLIB:COLOR-BLUE XLIB:COLOR)) ; (XLIB::PAD16 NIL)) ; (VALUES (XLIB::CARD32-GET 16) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 8) :GREEN ; (XLIB::RGB-VAL-GET 10) :BLUE ; (XLIB::RGB-VAL-GET 12)) ; XLIB:COLOR)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALLOC-COLOR-CELLS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLORCELLS+ ; NIL :SIZES 16) ; (((XLIB::DATA BOOLEAN) XLIB::CONTIGUOUS-P) (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD16 XLIB::COLORS XLIB::PLANES)) ; (LET ((XLIB::PIXEL-LENGTH (XLIB::CARD16-GET 8)) ; (XLIB::MASK-LENGTH (XLIB::CARD16-GET 10))) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::PIXEL-LENGTH :INDEX XLIB::+REPLYSIZE+) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::MASK-LENGTH :INDEX ; (XLIB::INDEX+ XLIB::+REPLYSIZE+ #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALLOC-COLOR-PLANES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLORPLANES+ ; NIL :SIZES (16 32)) ; (((XLIB::DATA BOOLEAN) XLIB::CONTIGUOUS-P) (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD16 XLIB::COLORS XLIB::REDS XLIB::GREENS XLIB::BLUES)) ; (LET ((XLIB::RED-MASK (XLIB::CARD32-GET 12)) ; (XLIB::GREEN-MASK (XLIB::CARD32-GET 16)) ; (XLIB::BLUE-MASK (XLIB::CARD32-GET 20))) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; (XLIB::CARD16-GET 8) :INDEX XLIB::+REPLYSIZE+) ; XLIB::RED-MASK XLIB::GREEN-MASK XLIB::BLUE-MASK))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-COLORS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-FREECOLORS+) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB::PLANE-MASK) ; (SEQUENCE XLIB::PIXELS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::PIXELS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN STORE-COLOR ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORENAMEDCOLOR+) ; ((XLIB::DATA XLIB:CARD8) XLIB::FLAGS) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB:PIXEL) ; (XLIB:CARD16 LENGTH) ; (XLIB::PAD16 NIL) ; (STRING STRING)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORECOLORS+) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB:PIXEL) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::SPEC) (XLIB:COLOR-GREEN XLIB::SPEC) ; (XLIB:COLOR-BLUE XLIB::SPEC)) ; (XLIB:CARD8 XLIB::FLAGS) ; (XLIB::PAD8 NIL)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORENAMEDCOLOR+) ; ((XLIB::DATA XLIB:CARD8) XLIB::FLAGS) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB:PIXEL) ; (XLIB:CARD16 LENGTH) ; (XLIB::PAD16 NIL) ; (STRING STRING)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-COLORS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYCOLORS+ NIL ; :SIZES (8 16)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (SEQUENCE XLIB::PIXELS)) ; (LET ((SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE #))) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+) ; (DOTIMES (XLIB::I (LENGTH SEQUENCE) SEQUENCE) ; (SETF # #) ; (XLIB::ADVANCE-BUFFER-OFFSET 8)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::PIXELS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (SETF (ELT SEQUENCE XLIB::I) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 0) :GREEN ; (XLIB::RGB-VAL-GET 2) :BLUE (XLIB::RGB-VAL-GET 4))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYCOLORS+ NIL ; :SIZES (8 16)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (SEQUENCE XLIB::PIXELS)) ; (LET ((SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE #))) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+) ; (DOTIMES (XLIB::I (LENGTH SEQUENCE) SEQUENCE) ; (SETF # #) ; (XLIB::ADVANCE-BUFFER-OFFSET 8)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN LOOKUP-COLOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LOOKUPCOLOR+ 20 ; :SIZES 16) ; ((XLIB:COLORMAP XLIB:COLORMAP) (XLIB:CARD16 LENGTH) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 14) :GREEN (XLIB::RGB-VAL-GET 16) ; :BLUE (XLIB::RGB-VAL-GET 18)) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 8) :GREEN (XLIB::RGB-VAL-GET 10) ; :BLUE (XLIB::RGB-VAL-GET 12)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-CURSOR ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATECURSOR+) ; (XLIB:RESOURCE-ID XLIB::CID) ; (XLIB:PIXMAP XLIB::SOURCE) ; ((OR NULL XLIB:PIXMAP) XLIB::MASK) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND) ; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND)) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND) ; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND)) ; (XLIB:CARD16 XLIB::X XLIB::Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-GLYPH-CURSOR ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEGLYPHCURSOR+) ; (XLIB:RESOURCE-ID XLIB::CID XLIB::SOURCE-FONT-ID XLIB::MASK-FONT-ID) ; (XLIB:CARD16 XLIB::SOURCE-CHAR) ; (XLIB:CARD16 XLIB::MASK-CHAR) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND) ; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND)) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND) ; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-CURSOR ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREECURSOR+) ; (XLIB:CURSOR XLIB:CURSOR)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RECOLOR-CURSOR ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:CURSOR-DISPLAY XLIB:CURSOR) ; XLIB::+X-RECOLORCURSOR+) ; (XLIB:CURSOR XLIB:CURSOR) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND) ; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND)) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND) ; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-BEST-CURSOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12 ; :SIZES 16) ; ((XLIB::DATA 0) (XLIB:WINDOW XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-BEST-TILE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12 ; :SIZES 16) ; ((XLIB::DATA 1) (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-BEST-STIPPLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12 ; :SIZES 16) ; ((XLIB::DATA 2) (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-EXTENSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYEXTENSION+ ; 12 :SIZES 8) ; ((XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) (STRING STRING)) ; (AND (XLIB::BOOLEAN-GET 8) ; (VALUES (XLIB::CARD8-GET 9) (XLIB::CARD8-GET 10) ; (XLIB::CARD8-GET 11)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-KEYBOARD-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEKEYBOARDCONTROL+ ; :SIZES (32)) ; (XLIB::MASK ; (INTEGER XLIB::KEY-CLICK-PERCENT XLIB::BELL-PERCENT XLIB::BELL-PITCH ; XLIB::BELL-DURATION) ; (XLIB:CARD32 XLIB::LED) ((MEMBER :OFF :ON) XLIB::LED-MODE) ; (XLIB:CARD32 XLIB::KEY) ; ((MEMBER :OFF :ON :DEFAULT) XLIB::AUTO-REPEAT-MODE))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-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 #:%BUFFER46)) ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN BELL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-BELL+) ; (XLIB::DATA (XLIB::INT8->CARD8 XLIB::PERCENT-FROM-NORMAL))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-POINTER-MAPPING ; (LENGTH MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-SETPOINTERMAPPING+ 2 :SIZES 8) ; ((XLIB::DATA (LENGTH MAP)) ((SEQUENCE :FORMAT XLIB:CARD8) MAP)) ; (VALUES (XLIB::BOOLEAN-GET 1))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-POINTER-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEPOINTERCONTROL+) ; (XLIB:INT16 NUMERATOR DENOMINATOR XLIB::THRESHOLD) ; (XLIB:CARD8 XLIB::ACCELERATION-P XLIB::THRESHOLD-P)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETSCREENSAVER+) ; (XLIB:INT16 XLIB::TIMEOUT XLIB::INTERVAL) ; ((XLIB::MEMBER8 :ON :OFF :DEFAULT) XLIB::BLANKING XLIB::EXPOSURES)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ACTIVATE-SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FORCESCREENSAVER+) ; (XLIB::DATA 1)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RESET-SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FORCESCREENSAVER+) ; (XLIB::DATA 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-ACCESS-HOST ; (LENGTH XLIB::ADDRESS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEHOSTS+) ; ((XLIB::DATA BOOLEAN) XLIB::REMOVE-P) ; (XLIB:CARD8 ; (XLIB::ENCODE-TYPE (OR NULL (MEMBER :INTERNET :DECNET :CHAOS) XLIB:CARD32) ; XLIB::FAMILY)) ; (XLIB:CARD16 (LENGTH XLIB::ADDRESS)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::ADDRESS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::ADDRESS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ACCESS-HOSTS ; (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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SETF (ELT SEQUENCE XLIB::I) ; (CONS ; (IF (< XLIB::FAMILY 3) ; (SVREF '# XLIB::FAMILY) ; XLIB::FAMILY) ; (XLIB::SEQUENCE-GET :LENGTH XLIB::LEN :FORMAT XLIB:CARD8 ; :RESULT-TYPE 'LIST :INDEX ; (+ XLIB::BUFFER-BOFFSET 4)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ACCESS-CONTROL ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LISTHOSTS+ 2 ; :SIZES 8) ; NIL ; (XLIB::BOOLEAN-GET 1)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-ACCESS-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEACCESSCONTROL+) ; ((XLIB::DATA BOOLEAN) XLIB::ENABLED-P)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN KILL-CLIENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-KILLCLIENT+) ; (XLIB:RESOURCE-ID XLIB:RESOURCE-ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN KILL-TEMPORARY-CLIENTS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-KILLCLIENT+) ; (XLIB:RESOURCE-ID 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN NO-OPERATION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-NOOPERATION+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/requests-tmp2K9J0HSR.fasl ; compilation finished in 0:00:01.412 ; compiling file "/usr/share/common-lisp/source/clx/fonts.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-OPENFONT+) ; (XLIB:RESOURCE-ID XLIB:FONT-ID) ; (XLIB:CARD16 (LENGTH XLIB::NAME-STRING)) ; (XLIB::PAD16 NIL) ; (STRING XLIB::NAME-STRING)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN OPEN-FONT-INTERNAL ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:FONT 'XLIB:FONT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (LENGTH XLIB::NAME-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-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. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CLOSE-FONT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CLOSEFONT+) ; (XLIB:RESOURCE-ID XLIB::ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN LIST-FONT-NAMES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LISTFONTS+ ; XLIB::SIZE :SIZES (8 16)) ; ((XLIB:CARD16 XLIB::MAX-FONTS (LENGTH STRING)) (STRING STRING)) ; (VALUES ; (XLIB::READ-SEQUENCE-STRING XLIB::BUFFER-BBUF ; (XLIB::INDEX- XLIB::SIZE XLIB::+REPLYSIZE+) ; (XLIB::CARD16-GET 8) XLIB::RESULT-TYPE ; XLIB::+REPLYSIZE+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN LIST-FONTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-LISTFONTSWITHINFO+ 60 :SIZES ; (8 16) :MULTIPLE-REPLY T) ; ((XLIB:CARD16 XLIB::MAX-FONTS (LENGTH STRING)) (STRING STRING)) ; (COND ((ZEROP (XLIB::CARD8-GET 1)) T) ; (T ; (LET* (# # # # # # # # #) ; (SETF #) ; (PUSH XLIB:FONT XLIB::RESULT)) ; NIL))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-FONT-PATH ; (ELT XLIB::PATHS XLIB::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (STRING (ELT XLIB::PATHS XLIB::I)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING ; SYMBOL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (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)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CEILING XLIB::REQUEST-LENGTH 4) ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; 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)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/fonts-tmpP44I4E0Y.fasl ; compilation finished in 0:00:00.120 ; compiling file "/usr/share/common-lisp/source/clx/graphics.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 ; ==> ; (= (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-POINTS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYPOINT+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-LINE ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 ; ==> ; (= (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-LINES ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYLINE+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FILL-POLYGON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-FILLPOLY+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((XLIB::MEMBER8 :COMPLEX :NON-CONVEX :CONVEX) XLIB::SHAPE) ; (BOOLEAN XLIB::RELATIVE-P) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-SEGMENTS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYSEGMENT+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::SEGMENTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::SEGMENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-RECTANGLE ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 ; ==> ; (= (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-RECTANGLES ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; (IF XLIB::FILL-P ; XLIB::+X-POLYFILLRECTANGLE+ ; XLIB::+X-POLYRECTANGLE+) ; :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::RECTANGLES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-ARC ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 ; ==> ; (= (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-ARCS-LIST ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::REQUEST :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (PROGN ; (XLIB::CARD16-PUT 2 (XLIB::INDEX+ (XLIB::INDEX-ASH LENGTH -1) 3)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)) ; (DO ((XLIB::ARC XLIB::ARCS)) ; ((ENDP XLIB::ARC) (SETF #)) ; (WHEN (XLIB::INDEX>= XLIB::BUFFER-BOFFSET XLIB::LIMIT) ; (SETF #) ; (XLIB::BUFFER-FLUSH XLIB:DISPLAY) ; (XLIB::SET-BUFFER-OFFSET #)) ; (XLIB::INT16-PUT 0 (POP XLIB::ARC)) ; (XLIB::INT16-PUT 2 (POP XLIB::ARC)) ; (XLIB::CARD16-PUT 4 (POP XLIB::ARC)) ; (XLIB::CARD16-PUT 6 (POP XLIB::ARC)) ; (XLIB::ANGLE-PUT 8 (POP XLIB::ARC)) ; (XLIB::ANGLE-PUT 10 (POP XLIB::ARC)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-ARCS-VECTOR ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 0)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 1)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 2)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 3)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 4)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 5)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::REQUEST :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (PROGN ; (XLIB::CARD16-PUT 2 (XLIB::INDEX+ (XLIB::INDEX-ASH LENGTH -1) 3)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)) ; (DO ((XLIB::N 0 #) ; (LENGTH #)) ; ((XLIB::INDEX>= XLIB::N LENGTH) (SETF #)) ; (WHEN (XLIB::INDEX>= XLIB::BUFFER-BOFFSET XLIB::LIMIT) ; (SETF #) ; (XLIB::BUFFER-FLUSH XLIB:DISPLAY) ; (XLIB::SET-BUFFER-OFFSET #)) ; (XLIB::INT16-PUT 0 (AREF XLIB::ARCS #)) ; (XLIB::INT16-PUT 2 (AREF XLIB::ARCS #)) ; (XLIB::CARD16-PUT 4 (AREF XLIB::ARCS #)) ; (XLIB::CARD16-PUT 6 (AREF XLIB::ARCS #)) ; (XLIB::ANGLE-PUT 8 (AREF XLIB::ARCS #)) ; (XLIB::ANGLE-PUT 10 (AREF XLIB::ARCS #)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN PUT-RAW-IMAGE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-PUTIMAGE+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA (MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP)) FORMAT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 XLIB::LEFT-PAD XLIB::DEPTH) ; (XLIB::PAD16 NIL) ; ((SEQUENCE :FORMAT XLIB:CARD8 :START XLIB::START) XLIB::DATA)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::DATA) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GET-RAW-IMAGE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETIMAGE+ NIL ; :SIZES (8 32)) ; (((XLIB::DATA (MEMBER ERROR :XY-PIXMAP :Z-PIXMAP)) FORMAT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) (XLIB:CARD32 XLIB::PLANE-MASK)) ; (LET ((XLIB::DEPTH (XLIB::CARD8-GET 1)) ; (LENGTH (* 4 #)) ; (XLIB::VISUAL (XLIB::RESOURCE-ID-GET 8))) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :FORMAT XLIB:CARD8 ; :LENGTH LENGTH :START XLIB::START :DATA XLIB::DATA ; :INDEX ...) ; XLIB::DEPTH (XLIB:VISUAL-INFO XLIB:DISPLAY XLIB::VISUAL)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/graphics-tmp63LQ7EX6.fasl ; compilation finished in 0:00:00.340 ; compiling file "/usr/share/common-lisp/source/clx/text.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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 ; 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))) ; --> THE ; ==> ; (+ ; (IF (OR (XLIB::FONT-CHAR-INFOS-INTERNAL XLIB:FONT) ; (XLIB::FONT-LOCAL-ONLY-P XLIB:FONT)) ; (XLIB::TEXT-EXTENTS-LOCAL XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END ; :WIDTH-ONLY) ; (XLIB::TEXT-WIDTH-SERVER XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END)) ; XLIB::WIDTH) ; ; note: forced to do 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) ; &OPTIONAL). ; etc. ; in: DEFUN TEXT-EXTENTS-SERVER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYTEXTEXTENTS+ ; 28 :SIZES (8 16 32)) ; (((XLIB::DATA BOOLEAN) (ODDP LENGTH)) ; (LENGTH (XLIB::INDEX+ (XLIB::INDEX-CEILING LENGTH 2) 2)) ; (XLIB:RESOURCE-ID XLIB:FONT-ID) ; ((SEQUENCE :FORMAT XLIB::CHAR2B :START XLIB::START :END XLIB::END ; :APPENDING T) ; SEQUENCE)) ; (VALUES (XLIB::INTEGER-GET 16) (XLIB::INT16-GET 12) (XLIB::INT16-GET 14) ; (XLIB::INTEGER-GET 20) (XLIB::INTEGER-GET 24) (XLIB::INT16-GET 8) ; (XLIB::INT16-GET 10) ; (XLIB::MEMBER8-GET 1 :LEFT-TO-RIGHT :RIGHT-TO-LEFT))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN TEXT-WIDTH-SERVER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYTEXTEXTENTS+ ; 28 :SIZES 32) ; (((XLIB::DATA BOOLEAN) (ODDP LENGTH)) ; (LENGTH (XLIB::INDEX+ (XLIB::INDEX-CEILING LENGTH 2) 2)) ; (XLIB:RESOURCE-ID XLIB:FONT-ID) ; ((SEQUENCE :FORMAT XLIB::CHAR2B :START XLIB::START :END XLIB::END ; :APPENDING T) ; SEQUENCE)) ; (VALUES (XLIB::INTEGER-GET 16))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-GLYPH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 1 0) ; (XLIB:CARD8 (LDB (BYTE 8 0) ELT)) ; (XLIB:CARD8 (LDB (BYTE 8 8) ELT))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF XLIB::OVERALL-WIDTH XLIB::TRANSLATED-WIDTH) ; --> THE ; ==> ; (+ XLIB::TRANSLATED-WIDTH XLIB::OVERALL-WIDTH) ; ; 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) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT8+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (DO* (# ; # ; # ; # ; # ; #) ; (# # # # # #) ; (DECLARE # ; # ; #) ; (SETQ #) ; (MULTIPLE-VALUE-BIND # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 # # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF XLIB::OVERALL-WIDTH XLIB::TRANSLATED-WIDTH) ; --> THE ; ==> ; (+ XLIB::TRANSLATED-WIDTH XLIB::OVERALL-WIDTH) ; ; 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) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT16+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (DO* (# ; # ; # ; # ; # ; #) ; (# # # # # #) ; (DECLARE # ; # ; #) ; (SETQ #) ; (MULTIPLE-VALUE-BIND # # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-IMAGE-GLYPH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB::DATA 1) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 (LDB (BYTE 8 0) ELT)) ; (XLIB:CARD8 (LDB (BYTE 8 8) ELT))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-IMAGE-GLYPHS8 ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-IMAGETEXT8+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (MULTIPLE-VALUE-SETQ (XLIB::NEW-START XLIB:FONT XLIB::TRANSLATED-WIDTH) ; (FUNCALL # SEQUENCE XLIB::START XLIB::END XLIB:FONT XLIB::BUFFER-BBUF ; #)) ; (SETQ XLIB::CHUNK #) ; (WHEN (AND # #) (SETQ #) (RETURN-FROM XLIB::CHANGE-FONT)) ; (WHEN (XLIB::INDEX-ZEROP XLIB::CHUNK) ; (RETURN-FROM XLIB::DRAW-IMAGE-GLYPHS8 XLIB::NEW-START)) ; (XLIB::DATA-PUT 1 XLIB::CHUNK) ; (LET (#) ; (XLIB::LENGTH-PUT 2 #) ; (SETF #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-IMAGE-GLYPHS16 ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-IMAGETEXT16+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (MULTIPLE-VALUE-SETQ (XLIB::NEW-START XLIB:FONT XLIB::TRANSLATED-WIDTH) ; (FUNCALL # SEQUENCE XLIB::START XLIB::END XLIB:FONT XLIB::BUFFER 0)) ; (SETQ XLIB::CHUNK #) ; (WHEN (AND # #) (SETQ #) (RETURN-FROM XLIB::CHANGE-FONT)) ; (WHEN (XLIB::INDEX-ZEROP XLIB::CHUNK) ; (RETURN-FROM XLIB::DRAW-IMAGE-GLYPHS16 XLIB::NEW-START)) ; (XLIB::WRITE-SEQUENCE-CHAR2B XLIB:DISPLAY ; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16) ; XLIB::BUFFER 0 XLIB::CHUNK) ; (XLIB::DATA-PUT 1 XLIB::CHUNK) ; (LET (#) ; (XLIB::LENGTH-PUT 2 #) ; (SETF #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-KEYBOARD-MAPPING ; (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))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (AREF XLIB::KEYSYMS XLIB::I XLIB::J) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (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))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN KEYBOARD-MAPPING ; (1+ XLIB::I) ; ; 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-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 # #)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SETF (AREF XLIB::RESULT XLIB::I XLIB::J) (XLIB::CARD29-GET (* XLIB::J 4))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (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 # #)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/text-tmp86F1A8FB.fasl ; compilation finished in 0:00:00.444 ; compiling file "/usr/share/common-lisp/source/clx/attributes.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-DRAWABLE-GEOMETRY ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-CONFIGUREWINDOW+) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 (ASH 1 NUMBER)) ; (XLIB:CARD29 XLIB::VALUE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> UNWIND-PROTECT FLET BLOCK 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> UNWIND-PROTECT FLET BLOCK 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN PUT-WINDOW-ATTRIBUTE-CHANGES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEWINDOWATTRIBUTES+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::MASK) ; (PROGN ; (DO ((XLIB::BITS XLIB::MASK #) ; (XLIB::REQUEST-SIZE 2) ; (XLIB::I 1 #)) ; ((ZEROP XLIB::BITS) (XLIB::CARD16-PUT 2 #) (XLIB::INDEX-INCF # #)) ; (DECLARE (TYPE XLIB:MASK32 XLIB::BITS) ; (TYPE XLIB:ARRAY-INDEX XLIB::I XLIB::REQUEST-SIZE)) ; (WHEN (ODDP XLIB::BITS) (XLIB::CARD32-PUT # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN PUT-DRAWABLE-GEOMETRY-CHANGES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CONFIGUREWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 XLIB::MASK) ; (PROGN ; (DO ((XLIB::BITS XLIB::MASK #) ; (XLIB::REQUEST-SIZE 2) ; (XLIB::I 1 #)) ; ((ZEROP XLIB::BITS) (XLIB::CARD16-PUT 2 #) (XLIB::INDEX-INCF # #)) ; (DECLARE (TYPE XLIB:MASK16 XLIB::BITS) ; (TYPE FIXNUM XLIB::REQUEST-SIZE) ; (TYPE XLIB:ARRAY-INDEX XLIB::I)) ; (WHEN (ODDP XLIB::BITS) (XLIB::CARD29-PUT # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/attributes-tmpH7D4HL98.fasl ; compilation finished in 0:00:00.244 ; compiling file "/usr/share/common-lisp/source/clx/translate.lisp" (written 27 DEC 2022 07:29:08 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/translate-tmpCDM7YXYI.fasl ; compilation finished in 0:00:00.216 ; compiling file "/usr/share/common-lisp/source/clx/keysyms.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/keysyms-tmpLM57P5P.fasl ; compilation finished in 0:00:00.016 ; compiling file "/usr/share/common-lisp/source/clx/manager.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/manager-tmpZE69DN33.fasl ; compilation finished in 0:00:00.572 ; compiling file "/usr/share/common-lisp/source/clx/image.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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 LIST 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN PUT-IMAGE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-PUTIMAGE+ :GC-FORCE ; XLIB:GCONTEXT) ; ((XLIB::DATA (MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP)) ; (COND ((OR # XLIB::BITMAP-P) :BITMAP) ((PLUSP XLIB::LEFT-PAD) :XY-PIXMAP) ; (T FORMAT))) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 XLIB::WIDTH XLIB::REQUEST-HEIGHT) ; (XLIB:INT16 XLIB::X XLIB::REQUEST-Y) ; (XLIB:CARD8 XLIB::LEFT-PAD XLIB::DEPTH) ; (XLIB::PAD16 NIL) ; (PROGN ; (XLIB::LENGTH-PUT 2 XLIB::REQUEST-LENGTH) ; (SETF (XLIB::BUFFER-BOFFSET XLIB:DISPLAY) ; (XLIB::ADVANCE-BUFFER-OFFSET 24)) ; (ETYPECASE XLIB:IMAGE ; (XLIB:IMAGE-X (ECASE # # #)) ; (XLIB:IMAGE-XY ; (XLIB::WRITE-IMAGE-XY XLIB:DISPLAY XLIB:IMAGE XLIB::LEFT-PADDED-SRC-X ; XLIB::REQUEST-SRC-Y XLIB::LEFT-PADDED-WIDTH XLIB::REQUEST-HEIGHT ; XLIB::PADDED-BYTES-PER-LINE XLIB::UNIT XLIB::BYTE-LSB-FIRST-P ; XLIB::BIT-LSB-FIRST-P)) ; (XLIB:IMAGE-Z ; (XLIB::WRITE-IMAGE-Z XLIB:DISPLAY XLIB:IMAGE XLIB::LEFT-PADDED-SRC-X ; XLIB::REQUEST-SRC-Y XLIB::LEFT-PADDED-WIDTH XLIB::REQUEST-HEIGHT ; XLIB::PADDED-BYTES-PER-LINE XLIB::UNIT XLIB::BYTE-LSB-FIRST-P ; XLIB::BIT-LSB-FIRST-P))) ; (XLIB::BUFFER-PAD-REQUEST XLIB:DISPLAY ; (XLIB::INDEX- ; (XLIB::INDEX* XLIB::REQUEST-WORDS 4) ; XLIB::REQUEST-BYTES)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/image-tmpG8099TO3.fasl ; compilation finished in 0:00:01.032 ; compiling file "/usr/share/common-lisp/source/clx/resource.lisp" (written 27 DEC 2022 07:29:08 AM): ; file: /usr/share/common-lisp/source/clx/resource.lisp ; in: DEFUN DELETE-RESOURCE-INTERNAL ; (SETQ XLIB::LOOSE-P NIL) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/resource-tmpTASQCYAW.fasl ; compilation finished in 0:00:00.236 ; compiling file "/usr/share/common-lisp/source/clx/extensions/shape.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SHAPE-RECTANGLES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 1) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-RECTANGLE-ORDERING XLIB::ORDERING)) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::RECTANGLES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SHAPE-COMBINE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 3) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::SOURCE-KIND)) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET) ; (XLIB:WINDOW XLIB::SOURCE-WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SHAPE-OFFSET ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 4) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 0) ; (XLIB:CARD8 0) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/shape-tmp35U57IV6.fasl ; compilation finished in 0:00:00.216 ; compiling file "/usr/share/common-lisp/source/clx/extensions/big-requests.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/big-requests-tmpTZOONXRW.fasl ; compilation finished in 0:00:00.016 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xvidmode.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SET-CLIENT-VERSION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SET-CLIENT-VERSION+) ; (XLIB:CARD16 XLIB::+XF86VIDMODE-MAJOR-VERSION+) ; (XLIB:CARD16 XLIB::+XF86VIDMODE-MINOR-VERSION+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-PERMISSIONS ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-PERMISIONS+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-MOD-MODE-LINE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+MOD-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; ((SEQUENCE :FORMAT XLIB:CARD16 :START 2) XLIB::V)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+MOD-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; ((SEQUENCE :FORMAT XLIB:CARD16 :START 2) XLIB::V)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-MODE-LINE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MODE-LINE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0)) ; (LET ((XLIB::MODE-INFO ; (XLIB::MAKE-MODE-INFO :DOTCLOCK # :HDISPLAY # :HSYNCSTART # ; :HSYNCEND # :HTOTAL # :HSKEW ...)) ; (XLIB::SIZE (XLIB::CARD32-GET #))) ; (DECLARE (TYPE XLIB:CARD32 XLIB::SIZE)) ; (INCF XLIB::OFFSET 4) ; (SETF (XLIB::MODE-INFO-PRIVSIZE XLIB::MODE-INFO) XLIB::SIZE ; (XLIB::MODE-INFO-PRIVATE XLIB::MODE-INFO) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :INDEX XLIB::OFFSET ; :LENGTH XLIB::SIZE :RESULT-TYPE 'LIST)) ; XLIB::MODE-INFO)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MODE-LINE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0)) ; (LET ((XLIB::MODE-INFO ; (XLIB::MAKE-MODE-INFO :DOTCLOCK # :HDISPLAY # :HSYNCSTART # ; :HSYNCEND # :HTOTAL # :HSKEW ...)) ; (XLIB::SIZE (XLIB::CARD32-GET #))) ; (DECLARE (TYPE XLIB:CARD32 XLIB::SIZE)) ; (INCF XLIB::OFFSET 4) ; (SETF (XLIB::MODE-INFO-PRIVSIZE XLIB::MODE-INFO) XLIB::SIZE ; (XLIB::MODE-INFO-PRIVATE XLIB::MODE-INFO) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :INDEX XLIB::OFFSET ; :LENGTH XLIB::SIZE :RESULT-TYPE 'LIST)) ; XLIB::MODE-INFO)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-ALL-MODE-LINES ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::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 ...))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-ADD-MODE-LINE ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-DELETE-MODE-LINE ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-VALIDATE-MODE-LINE ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+VALIDATE-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V)) ; (LET ((XLIB::STATUS (XLIB::INTEGER-GET 8))) ; (DECLARE (TYPE XLIB:INT32 XLIB::STATUS)) ; (WHEN XLIB::STATUS (XLIB::DECODE-STATUS-MODE XLIB::STATUS)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0) (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0) ; (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0)) ; (VALUES (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0) (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0) ; (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0)) ; (VALUES (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SET-GAMMA ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+SET-GAMMA+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 0) ; (XLIB:CARD32 (TRUNCATE (* XLIB::RED 10000))) ; (XLIB:CARD32 (TRUNCATE (* XLIB::GREEN 10000))) ; (XLIB:CARD32 (TRUNCATE (* XLIB::BLUE 10000))) ; (XLIB:CARD32 0) ; (XLIB:CARD32 0) ; (XLIB:CARD32 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE)) ; (LET ((XLIB::REP-SIZE (* # 2))) ; (DECLARE (TYPE FIXNUM XLIB::REP-SIZE)) ; (UNLESS (ZEROP XLIB::REP-SIZE) ; (LET* (# #) ; (DECLARE #) ; (VALUES # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE)) ; (LET ((XLIB::REP-SIZE (* # 2))) ; (DECLARE (TYPE FIXNUM XLIB::REP-SIZE)) ; (UNLESS (ZEROP XLIB::REP-SIZE) ; (LET* (# #) ; (DECLARE #) ; (VALUES # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SET-GAMMA-RAMP ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+SET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE) ; ((SEQUENCE :FORMAT XLIB:CARD16) ; (IF (ZEROP (MOD XLIB::SIZE 2)) ; (CONCATENATE 'VECTOR XLIB::RED XLIB::GREEN XLIB::BLUE) ; (CONCATENATE 'VECTOR XLIB::RED '#(0) XLIB::GREEN '#(0) XLIB::BLUE ; '#(0))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP-SIZE ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA-RAMP-SIZE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (XLIB::CARD16-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-LOCK-MODE-SWITCH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+LOCK-MODE-SWITCH+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 ; (IF XLIB::LOCK-P ; 1 ; 0))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+LOCK-MODE-SWITCH+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 ; (IF XLIB::LOCK-P ; 1 ; 0))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SWITCH-TO-MODE ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-TO-MODE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SWITCH-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 XLIB::ZOOM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 XLIB::ZOOM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SELECT-NEXT-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 1)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 1)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SELECT-PREV-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 65535)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 65535)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-MONITOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MONITOR+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (LET* ((XLIB::VENDOR-NAME-LENGTH (XLIB::CARD8-GET 8)) ; (XLIB::MODEL-NAME-LENGTH (XLIB::CARD8-GET 9)) ; (XLIB::PAD (- 4 #)) ; (XLIB::NHSYNC (XLIB::CARD8-GET 10)) ; (XLIB::NVSYNC (XLIB::CARD8-GET 11)) ; (XLIB::VINDEX (+ 32 #)) ; (XLIB::MINDEX (+ XLIB::VINDEX XLIB::VENDOR-NAME-LENGTH XLIB::PAD)) ; (XLIB::HSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NHSYNC :INDEX 32 :RESULT-TYPE ; 'LIST)) ; (XLIB::VSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NVSYNC :INDEX # :RESULT-TYPE ; 'LIST))) ; (DECLARE ; (TYPE XLIB:CARD8 XLIB::NHSYNC XLIB::NVSYNC XLIB::VENDOR-NAME-LENGTH ; XLIB::MODEL-NAME-LENGTH) ; (TYPE FIXNUM XLIB::PAD XLIB::VINDEX XLIB::MINDEX)) ; (VALUES ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::HSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::VSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (XLIB::STRING-GET XLIB::VENDOR-NAME-LENGTH XLIB::VINDEX) ; (XLIB::STRING-GET XLIB::MODEL-NAME-LENGTH XLIB::MINDEX)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MONITOR+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (LET* ((XLIB::VENDOR-NAME-LENGTH (XLIB::CARD8-GET 8)) ; (XLIB::MODEL-NAME-LENGTH (XLIB::CARD8-GET 9)) ; (XLIB::PAD (- 4 #)) ; (XLIB::NHSYNC (XLIB::CARD8-GET 10)) ; (XLIB::NVSYNC (XLIB::CARD8-GET 11)) ; (XLIB::VINDEX (+ 32 #)) ; (XLIB::MINDEX (+ XLIB::VINDEX XLIB::VENDOR-NAME-LENGTH XLIB::PAD)) ; (XLIB::HSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NHSYNC :INDEX 32 :RESULT-TYPE ; 'LIST)) ; (XLIB::VSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NVSYNC :INDEX # :RESULT-TYPE ; 'LIST))) ; (DECLARE ; (TYPE XLIB:CARD8 XLIB::NHSYNC XLIB::NVSYNC XLIB::VENDOR-NAME-LENGTH ; XLIB::MODEL-NAME-LENGTH) ; (TYPE FIXNUM XLIB::PAD XLIB::VINDEX XLIB::MINDEX)) ; (VALUES ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::HSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::VSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (XLIB::STRING-GET XLIB::VENDOR-NAME-LENGTH XLIB::VINDEX) ; (XLIB::STRING-GET XLIB::MODEL-NAME-LENGTH XLIB::MINDEX)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-VIEWPORT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-VIEWPORT+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-VIEWPORT+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SET-VIEWPORT ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-DOTCLOCKS ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-DOT-CLOCKS+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 16) ; (XLIB::SEQUENCE-GET :LENGTH (XLIB::CARD32-GET 12) :FORMAT ; XLIB:CARD32 :INDEX 32 :RESULT-TYPE 'LIST))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xvidmode-tmpWN0UKDSV.fasl ; compilation finished in 0:00:00.684 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xrender.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xrender-tmpBF3HHBTQ.fasl ; compilation finished in 0:00:00.860 ; compiling file "/usr/share/common-lisp/source/clx/extensions/glx.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/glx.lisp ; in: DEFUN QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+QUERY-VERSION+) (XLIB:CARD32 1) (XLIB:CARD32 3)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+QUERY-SERVER-STRING+) ; (XLIB:CARD32 (OR (POSITION XLIB:SCREEN # :TEST #'EQ) 0)) ; (XLIB:CARD32 XLIB/GLX::NAME)) ; (LET* ((LENGTH (XLIB::CARD32-GET 12)) ; (XLIB/GLX::BYTES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD8 :RESULT-TYPE '# :INDEX 32 ; :LENGTH LENGTH))) ; (DECLARE (TYPE (SIMPLE-ARRAY XLIB:CARD8 #) XLIB/GLX::BYTES) ; (TYPE FIXNUM LENGTH)) ; (MAP-INTO (MAKE-STRING (1- LENGTH)) #'CODE-CHAR XLIB/GLX::BYTES))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CLIENT-INFO ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+CLIENT-INFO+) ; (XLIB:CARD32 4) ; (XLIB:CARD32 1) ; (XLIB:CARD32 3) ; (XLIB:CARD32 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MAKE-CONTEXT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB/GLX::CTX 'XLIB/GLX::CONTEXT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN CREATE-CONTEXT ; (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 LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+CREATE-CONTEXT+) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX)) ; (XLIB:RESOURCE-ID XLIB/GLX::VISUAL) ; (XLIB:CARD32 ; (OR (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY) :TEST #'EQ) 0)) ; (XLIB:RESOURCE-ID XLIB/GLX::SHARE-LIST) ; (BOOLEAN XLIB/GLX:IS-DIRECT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DESTROY-CONTEXT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+DESTROY-CONTEXT+) ; (XLIB:RESOURCE-ID XLIB/GLX::ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN IS-DIRECT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+IS-DIRECT+) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX))) ; (XLIB::CARD8-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-CONTEXT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+QUERY-CONTEXT+) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX))) ; (LET ((XLIB/GLX::NUM-ATTRIBUTES (XLIB::CARD32-GET 8))) ; (DECLARE (TYPE FIXNUM XLIB/GLX::NUM-ATTRIBUTES)) ; (LOOP XLIB/GLX::REPEAT XLIB/GLX::NUM-ATTRIBUTES ; XLIB/GLX::FOR XLIB/GLX::I FIXNUM XLIB/GLX::UPFROM 32 XLIB/GLX::BY 8 ; XLIB/GLX::COLLECTING (CONS (XLIB::CARD32-GET XLIB/GLX::I) ; (XLIB::CARD32-GET #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GET-DRAWABLE-ATTRIBUTES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+GET-DRAWABLE-ATTRIBUTES+) ; (XLIB:DRAWABLE XLIB:DRAWABLE)) ; (LET ((XLIB/GLX::NUM-ATTRIBUTES (XLIB::CARD32-GET 8))) ; (DECLARE (TYPE FIXNUM XLIB/GLX::NUM-ATTRIBUTES)) ; (LOOP XLIB/GLX::REPEAT XLIB/GLX::NUM-ATTRIBUTES ; XLIB/GLX::FOR XLIB/GLX::I FIXNUM XLIB/GLX::UPFROM 32 XLIB/GLX::BY 8 ; XLIB/GLX::COLLECTING (CONS (XLIB::CARD32-GET XLIB/GLX::I) ; (XLIB::CARD32-GET #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MAKE-CURRENT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+MAKE-CURRENT+) ; (XLIB:RESOURCE-ID (XLIB:DRAWABLE-ID XLIB:DRAWABLE)) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX)) ; (XLIB:CARD32 XLIB/GLX::OLD-TAG)) ; (LET ((XLIB/GLX::NEW-TAG (XLIB::CARD32-GET 8))) ; (SETF (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX) XLIB/GLX::NEW-TAG ; (XLIB/GLX::CONTEXT-DRAWABLE XLIB/GLX::CTX) XLIB:DRAWABLE ; (XLIB/GLX::CONTEXT-DISPLAY XLIB/GLX::CTX) XLIB:DISPLAY ; XLIB/GLX::*CURRENT-CONTEXT* XLIB/GLX::CTX))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 LIST VECTOR). ; (LOOP XLIB/GLX::REPEAT (/ (- XLIB/GLX::NUM-PROPERTIES XLIB/GLX::NUM-ORDERED) ; 2) ; XLIB/GLX::COLLECTING (CONS (XLIB::CARD32-GET (INCF XLIB/GLX::INDEX 4)) ; (XLIB::CARD32-GET (INCF XLIB/GLX::INDEX 4)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+GET-VISUAL-CONFIGS+) ; (XLIB:CARD32 (OR (POSITION XLIB:SCREEN # :TEST #'EQ) 0))) ; (LET* ((XLIB/GLX::NUM-VISUALS (XLIB::CARD32-GET 8)) ; (XLIB/GLX::NUM-PROPERTIES (XLIB::CARD32-GET 12)) ; (XLIB/GLX::NUM-ORDERED ; (LENGTH XLIB/GLX::*VISUAL-CONFIG-PROPERTIES*))) ; (DECLARE ; (TYPE FIXNUM XLIB/GLX::NUM-ORDERED XLIB/GLX::NUM-VISUALS ; XLIB/GLX::NUM-PROPERTIES)) ; (LOOP XLIB/GLX::WITH XLIB/GLX::INDEX FIXNUM = 28 ; XLIB/GLX::REPEAT XLIB/GLX::NUM-VISUALS ; XLIB/GLX::COLLECTING (XLIB/GLX::MAKE-VISUAL (NCONC # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SWAP-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+SWAP-BUFFERS+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX)) ; (XLIB:RESOURCE-ID ; (XLIB:DRAWABLE-ID (XLIB/GLX::CONTEXT-DRAWABLE XLIB/GLX::CTX)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WAIT-GL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+WAIT-GL+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WAIT-X ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+WAIT-X+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/glx-tmpGYUNPZCY.fasl ; compilation finished in 0:00:00.292 ; compiling file "/usr/share/common-lisp/source/clx/extensions/gl.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/gl.lisp ; in: DEFINE-SEQUENCE-SETTER INT8 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT8) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER INT16 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT16) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER INT32 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT32) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER BOOL ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::BOOL) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER CARD8 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD8) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER CARD16 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD16) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER CARD32 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD32) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER FLOAT32 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::FLOAT32) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER FLOAT64 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::FLOAT64) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN GET-STRING ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+GET-STRING+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (XLIB:CARD32 XLIB/GL::NAME)) ; (LET* ((LENGTH (XLIB::CARD32-GET 12)) ; (XLIB/GL::BYTES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD8 :RESULT-TYPE '# :INDEX 32 ; :LENGTH LENGTH))) ; (DECLARE (TYPE (SIMPLE-ARRAY XLIB:CARD8 #) XLIB/GL::BYTES) ; (TYPE FIXNUM LENGTH)) ; (MAP-INTO (MAKE-STRING (1- LENGTH)) #'CODE-CHAR XLIB/GL::BYTES))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN NEW-LIST ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GL::+NEW-LIST+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (XLIB:CARD32 LIST) ; (XLIB:CARD32 XLIB/GL::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GEN-LISTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+GEN-LISTS+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (INTEGER XLIB/GL::RANGE)) ; (XLIB::CARD32-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN END-LIST ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GL::+END-LIST+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ENABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+ENABLE+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (XLIB:CARD32 XLIB/GL::CAP))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FLUSH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GL::+FLUSH+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FINISH ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+FINISH+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/gl-tmpD68Q8WCA.fasl ; compilation finished in 0:00:01.200 ; compiling file "/usr/share/common-lisp/source/clx/extensions/dpms.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/dpms.lisp ; in: DEFUN DPMS-GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+GET-VERSION+) ; (XLIB:CARD16 XLIB/DPMS::MAJOR-VERSION) ; (XLIB:CARD16 XLIB/DPMS::MINOR-VERSION)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-CAPABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+CAPABLE+)) ; (XLIB::BOOLEAN-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-GET-TIMEOUTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+GET-TIMEOUTS+)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10) (XLIB::CARD16-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-SET-TIMEOUTS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/DPMS::+SET-TIMEOUTS+) ; (XLIB:CARD16 XLIB/DPMS::STANDBY) ; (XLIB:CARD16 XLIB/DPMS::SUSPEND) ; (XLIB:CARD16 XLIB/DPMS::OFF) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-ENABLE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/DPMS::+ENABLE+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-DISABLE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; ((XLIB::DATA XLIB/DPMS::+DISABLE+))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-FORCE-LEVEL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/DPMS::+FORCE-LEVEL+) ; (XLIB:CARD16 ; (ECASE XLIB/DPMS::POWER-LEVEL ; (:DPMS-MODE-ON 0) ; (:DPMS-MODE-STANDBY 1) ; (:DPMS-MODE-SUSPEND 2) ; (:DPMS-MODE-OFF 3))) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+INFO+)) ; (LET ((XLIB/DPMS::STATE ; (IF # ; :DPMS-ENABLED ; :DPMS-DISABLED))) ; (VALUES (UNLESS (EQ XLIB/DPMS::STATE :DPMS-DISABLED) (ECASE # # # # #)) ; XLIB/DPMS::STATE))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/dpms-tmp7MK9KM9C.fasl ; compilation finished in 0:00:00.052 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xtest.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/xtest.lisp ; in: DEFUN GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/XTEST::OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB/XTEST::+GET-VERSION+) (XLIB:CARD8 XLIB/XTEST::MAJOR) ; (XLIB:CARD16 XLIB/XTEST::MINOR)) ; (VALUES (XLIB::CARD8-GET 1) (XLIB::CARD16-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPARE-CURSOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/XTEST::OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB/XTEST::+COMPARE-CURSOR+) ; (XLIB:RESOURCE-ID (XLIB:WINDOW-ID XLIB:WINDOW)) ; (XLIB:RESOURCE-ID XLIB:CURSOR-ID)) ; (VALUES (XLIB::CARD8-GET 1))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FAKE-MOTION-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 XLIB/XTEST::+FAKE-MOTION-NOTIFY+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::RELATIVE ; 1 ; 0)) ; (XLIB/XTEST::PAD16 0) ; (XLIB:CARD32 XLIB/XTEST::DELAY) ; (XLIB:CARD32 XLIB/XTEST::ROOT-WINDOW-ID) ; (XLIB/XTEST::PAD32 0 0) ; (XLIB:CARD16 XLIB/XTEST::X) ; (XLIB:CARD16 XLIB/XTEST::Y) ; (XLIB/XTEST::PAD32 0 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FAKE-BUTTON-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::PRESSED ; XLIB/XTEST::+FAKE-BUTTON-PRESS+ ; XLIB/XTEST::+FAKE-BUTTON-RELEASE+)) ; (XLIB:CARD8 XLIB/XTEST::BUTTON) ; (XLIB/XTEST::PAD16 0) ; (XLIB:CARD32 XLIB/XTEST::DELAY) ; (XLIB/XTEST::PAD32 0 0 0 0 0 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FAKE-KEY-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::PRESSED ; XLIB/XTEST::+FAKE-KEY-PRESS+ ; XLIB/XTEST::+FAKE-KEY-RELEASE+)) ; (XLIB:CARD8 XLIB/XTEST::KEYCODE) ; (XLIB/XTEST::PAD16 0) ; (XLIB:CARD32 XLIB/XTEST::DELAY) ; (XLIB/XTEST::PAD32 0 0 0 0 0 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+GRAB-CONTROL+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::GRAB? ; 1 ; 0)) ; (XLIB/XTEST::PAD8 0) ; (XLIB/XTEST::PAD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xtest-tmpJJ71X849.fasl ; compilation finished in 0:00:00.052 ; compiling file "/usr/share/common-lisp/source/clx/extensions/screensaver.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/screensaver.lisp ; in: DEFUN SCREEN-SAVER-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "MIT-SCREEN-SAVER") ; NIL) ; ((XLIB::DATA 0) (XLIB:CARD8 1) (XLIB:CARD8 0) (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/screensaver-tmp1VUK6SR2.fasl ; compilation finished in 0:00:00.016 ; compiling file "/usr/share/common-lisp/source/clx/extensions/randr.lisp" (written 27 DEC 2022 07:29:08 AM): ; file: /usr/share/common-lisp/source/clx/extensions/randr.lisp ; in: DEFUN RR-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (32)) ; ((XLIB::DATA XLIB::+RR-QUERYVERSION+) (XLIB:CARD32 XLIB::+RR-MAJOR+) ; (XLIB:CARD32 XLIB::+RR-MINOR+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-SCREEN-CONFIG ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (16 32)) ; ((XLIB::DATA XLIB::+RR-SETSCREENCONFIG+) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB:TIMESTAMP) (XLIB:CARD32 XLIB::CONF-TIMESTAMP) ; (XLIB:CARD16 XLIB::SIZE-ID) (XLIB:CARD16 XLIB::ROT-MASK) ; (XLIB:CARD16 XLIB::REFRESH) (XLIB::PAD16)) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) (XLIB::WINDOW-GET 16) ; (XLIB::MEMBER16-VECTOR-GET 20 XLIB::+RENDER-SUBPIXEL-ORDER+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SELECT-INPUT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SELECTINPUT+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 XLIB::SELECT-MASK) ; (XLIB::PAD16)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-SCREEN-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETSCREENINFO+) (XLIB:WINDOW XLIB:WINDOW)) ; (LET ((XLIB::NUM-SCREENS (XLIB::CARD16-GET 20)) ; (XLIB::NUM-RATES (XLIB::CARD16-GET 28)) ; (XLIB::RATES-LOCATION 0)) ; (DECLARE (TYPE FIXNUM XLIB::RATES-LOCATION XLIB::NUM-RATES)) ; (VALUES (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 1)) ; (XLIB::WINDOW-GET 8) (XLIB::CARD32-GET 12) (XLIB::CARD32-GET 16) ; (XLIB::CARD16-GET 22) ; (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 24)) ; (XLIB::CARD16-GET 26) ; (LOOP :FOR XLIB::X FIXNUM :FROM 1 :TO XLIB::NUM-SCREENS ; :FOR XLIB::OFFSET FIXNUM := ...) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH XLIB::NUM-RATES ; :INDEX XLIB::RATES-LOCATION :RESULT-TYPE ; XLIB::RESULT-TYPE)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-SCREEN-SIZE-RANGE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (16)) ; ((XLIB::DATA XLIB::+RR-GETSCREENSIZERANGE+) (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH 4 :INDEX 8 :RESULT-TYPE ; XLIB::RESULT-TYPE))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-SCREEN-SIZE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETSCREENSIZE+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 XLIB::WIDTH) ; (XLIB:CARD16 XLIB::HEIGHT) ; (XLIB:CARD32 XLIB::WIDTH-MM) ; (XLIB:CARD32 XLIB::HEIGHT-MM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-SCREEN-RESOURCES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETSCREENRESOURCES+) (XLIB:WINDOW XLIB:WINDOW)) ; (LET* ((XLIB::NUM-CRTCS (XLIB::CARD16-GET 16)) ; (XLIB::NUM-OUTPUTS (XLIB::CARD16-GET 18)) ; (XLIB::OUTPUT-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #)) ; (XLIB::NUM-MODEINFOS (XLIB::CARD16-GET 20)) ; (XLIB::NAME-BYTES (XLIB::CARD16-GET 22)) ; (XLIB::MODE-START (XLIB::INDEX+ XLIB::OUTPUT-START #)) ; (XLIB::NAME-START (XLIB::INDEX+ XLIB::MODE-START #))) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX 32 :LENGTH ; XLIB::NUM-CRTCS) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX XLIB::OUTPUT-START ; :LENGTH XLIB::NUM-OUTPUTS) ; (LOOP :FOR XLIB::I FIXNUM :FROM 1 :TO XLIB::NUM-MODEINFOS ; :FOR XLIB::OFFSET FIXNUM := ...) ; (XLIB::STRING-GET XLIB::NAME-BYTES XLIB::NAME-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-OUTPUT-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETOUTPUTINFO+) (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; (LET* ((XLIB::NUM-CRTCS (XLIB::CARD16-GET 26)) ; (XLIB::NUM-MODES (XLIB::CARD16-GET 28)) ; (XLIB::NUM-CLONES (XLIB::CARD16-GET 32)) ; (XLIB::NAME-LENGTH (XLIB::CARD16-GET 34)) ; (XLIB::CRTC-START 26) ; (XLIB::MODE-START (XLIB::INDEX+ XLIB::CRTC-START #)) ; (XLIB::CLONE-START (XLIB::INDEX+ XLIB::MODE-START #)) ; (XLIB::NAME-START (XLIB::INDEX+ XLIB::CLONE-START #))) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) (XLIB::CARD32-GET 16) ; (XLIB::CARD32-GET 20) ; (XLIB::MEMBER8-VECTOR-GET 24 XLIB::+RR-CONNECTION+) ; (XLIB::MEMBER8-VECTOR-GET 25 XLIB::+RENDER-SUBPIXEL-ORDER+) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::NUM-CRTCS :INDEX 26) ; (XLIB::CARD16-GET 30) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::NUM-MODES :INDEX XLIB::MODE-START) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::NUM-CLONES :INDEX XLIB::CLONE-START) ; ...))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-LIST-OUTPUT-PROPERTIES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-LISTOUTPUTPROPERTIES+) (XLIB:CARD32 XLIB::OUTPUT)) ; (LET ((XLIB::NUM-ATOMS (XLIB::CARD16-GET 8))) ; (VALUES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE XLIB::RESULT-TYPE ; :LENGTH XLIB::NUM-ATOMS :INDEX XLIB::+REPLYSIZE+ ; :TRANSFORM #'(LAMBDA # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-QUERY-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-QUERYOUTPUTPROPERTY+) (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM)) ; (VALUES (XLIB::BOOLEAN-GET 8) (XLIB::BOOLEAN-GET 9) (XLIB::BOOLEAN-GET 10) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :INDEX ; XLIB::+REPLYSIZE+ :LENGTH ; (XLIB::CARD32-GET 4)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-CONFIGURE-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-CONFIGUREOUTPUTPROPERTY+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM) ; (BOOLEAN XLIB::PENDING XLIB::RANGE) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-CHANGE-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-CHANGEOUTPUTPROPERTY+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM) ; (XLIB:CARD32 XLIB::ATOM-TYPE) ; (XLIB:CARD8 32) ; (XLIB:CARD8 XLIB::MODE) ; (XLIB::PAD16) ; (XLIB:CARD32 XLIB::DATA-LENGTH) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-DELETE-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-DELETEOUTPUTPROPERTY+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETOUTPUTPROPERTY+) (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM) (XLIB:CARD32 TYPE) (XLIB:CARD32 0) (XLIB:CARD32 0) ; (XLIB:CARD8 DELETE) (XLIB:CARD8 XLIB::PENDING) (XLIB::PAD16)) ; (LET* ((XLIB::BYTES-AFTER (XLIB::CARD32-GET 12)) ; (XLIB::VALUE-LENGTH (XLIB::CARD32-GET 16)) ; (XLIB::BYTE-FORMAT (UNLESS # #))) ; (VALUES (XLIB::CARD32-GET 8) XLIB::VALUE-LENGTH ; (WHEN (NOT #) (CASE XLIB::BYTE-FORMAT # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-CREATE-MODE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-CREATEMODE+) (XLIB:WINDOW XLIB:WINDOW) ; (PROGN ; (XLIB::RR-MODE-INFO-PUT 8 XLIB:MODE-INFO) ; (XLIB::STRING-PUT 40 XLIB::NAME))) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-DESTROY-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-DESTROYMODE+) ; (XLIB:CARD32 XLIB::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-ADD-OUTPUT-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-ADDOUTPUTMODE+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 XLIB::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-DELETE-OUTPUT-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-DELETEOUTPUTMODE+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 XLIB::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-CRTC-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCINFO+) (XLIB:CARD32 XLIB::CRTC) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; (LET* ((XLIB::NUM-OUTPUTS (XLIB::CARD16-GET 28)) ; (XLIB::POS-OUTPUTS (XLIB::CARD16-GET 30)) ; (XLIB::POS-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #))) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8) (XLIB::INT16-GET 12) (XLIB::INT16-GET 14) ; (XLIB::CARD16-GET 16) (XLIB::CARD16-GET 18) (XLIB::CARD32-GET 20) ; (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 24)) ; (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 26)) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :INDEX ; XLIB::+REPLYSIZE+ :LENGTH XLIB::NUM-OUTPUTS) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :INDEX ; XLIB::POS-START :LENGTH XLIB::POS-OUTPUTS)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-CRTC-CONFIG ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-SETCRTCCONFIG+) (XLIB:CARD32 XLIB::CRTC) ; (XLIB:CARD32 XLIB:TIMESTAMP) (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP) ; (XLIB:CARD16 XLIB::X) (XLIB:CARD16 XLIB::Y) (XLIB:CARD32 XLIB::MODE) ; (XLIB:CARD16 XLIB::ROT-MASK) (XLIB::PAD16) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-CRTC-GAMMA-SIZE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCGAMMASIZE+) (XLIB:CARD32 XLIB::CRTC)) ; (VALUES (XLIB::CARD16-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-CRTC-GAMMA ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCGAMMA+) (XLIB:CARD32 XLIB::CRTC)) ; (LET* ((XLIB::SIZE (XLIB::CARD16-GET 8)) ; (XLIB::GREEN-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #)) ; (XLIB::BLUE-START (XLIB::INDEX+ XLIB::GREEN-START #))) ; (VALUES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH XLIB::SIZE :INDEX ; XLIB::+REPLYSIZE+ :RESULT-TYPE XLIB::RESULT-TYPE) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH XLIB::SIZE :INDEX ; XLIB::GREEN-START :RESULT-TYPE XLIB::RESULT-TYPE) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH XLIB::SIZE :INDEX ; XLIB::BLUE-START :RESULT-TYPE XLIB::RESULT-TYPE)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-CRTC-GAMMA ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETCRTCGAMMA+) ; (XLIB:CARD32 XLIB::CRTC) ; (XLIB:CARD16 XLIB::SIZE) ; (XLIB::PAD16) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-SCREEN-RESOURCES-CURRENT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETSCREENRESOURCESCURRENT+) ; (XLIB:WINDOW XLIB:WINDOW)) ; (LET* ((XLIB::NUM-CRTCS (XLIB::CARD16-GET 16)) ; (XLIB::NUM-OUTPUTS (XLIB::CARD16-GET 18)) ; (XLIB::OUTPUT-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #)) ; (XLIB::NUM-MODEINFOS (XLIB::CARD16-GET 20)) ; (XLIB::NAME-BYTES (XLIB::CARD16-GET 22)) ; (XLIB::MODE-START (XLIB::INDEX+ XLIB::OUTPUT-START #)) ; (XLIB::NAME-START (XLIB::INDEX+ XLIB::MODE-START #))) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX 32 :LENGTH ; XLIB::NUM-CRTCS) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX XLIB::OUTPUT-START ; :LENGTH XLIB::NUM-OUTPUTS) ; (LOOP :FOR XLIB::I FIXNUM :FROM 1 :TO XLIB::NUM-MODEINFOS ; :FOR XLIB::OFFSET FIXNUM := ...) ; (XLIB::STRING-GET XLIB::NAME-BYTES XLIB::NAME-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-CRTC-TRANSFORM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCTRANSFORM+) (XLIB:CARD32 XLIB::CRTC)) ; (LET* ((XLIB::PEND-NAME (XLIB::CARD16-GET 88)) ; (XLIB::PEND-NUM-PARAMS (XLIB::CARD16-GET 90)) ; (XLIB::PAD-PEND (- 4 #)) ; (XLIB::PAD-PEND-START ; (XLIB::INDEX+ 96 XLIB::PEND-NAME XLIB::PAD-PEND)) ; (XLIB::CUR-NAME (XLIB::CARD16-GET 92)) ; (XLIB::CUR-NUM-PARAMS (XLIB::CARD16-GET 94)) ; (XLIB::PAD-CUR (- 4 #)) ; (XLIB::CUR-NAME-START (XLIB::INDEX+ XLIB::PAD-PEND-START #)) ; (XLIB::CUR-PARAM-START ; (XLIB::INDEX+ XLIB::CUR-NAME-START XLIB::CUR-NAME XLIB::PAD-CUR))) ; (DECLARE (TYPE XLIB:CARD16 XLIB::PEND-NAME XLIB::CUR-NAME)) ; (VALUES (XLIB::RR-TRANSFORM-GET 8) (XLIB::CARD8-GET 44) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH 9 ; :INDEX 48) ; (XLIB::STRING-GET XLIB::PEND-NAME 96) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::PEND-NUM-PARAMS :INDEX ; XLIB::PAD-PEND-START) ; (XLIB::STRING-GET XLIB::CUR-NAME XLIB::CUR-NAME-START) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::CUR-NUM-PARAMS :INDEX ; XLIB::CUR-PARAM-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-OUTPUT-PRIMARY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETOUTPUTPRIMARY+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::OUTPUT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-OUTPUT-PRIMARY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETOUTPUTPRIMARY+) (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-PROVIDERS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETPROVIDERS+) (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD16-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-PROVIDER-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETPROVIDERINFO+) (XLIB:CARD32 XLIB::PROVIDER) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) (XLIB::CARD16-GET 16) ; (XLIB::CARD16-GET 18) (XLIB::CARD16-GET 20) ; (XLIB::STRING-GET (XLIB::CARD16-GET 22) 56))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-PROVIDER-OUTPUT-SOURCE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETPROVIDEROUTPUTSOURCE+) ; (XLIB:CARD32 XLIB::PROVIDER) ; (XLIB:CARD32 XLIB::SOURCE-PROVIDER) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-PROVIDER-OFFLOAD-SINK ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETPROVIDEROFFLOADSINK+) ; (XLIB:CARD32 XLIB::PROVIDER) ; (XLIB:CARD32 XLIB::SINK-PROVIDER) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-LIST-PROVIDER-PROPERTIES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-LISTPROVIDERPROPERTIES+) ; (XLIB:CARD32 XLIB::PROVIDER)) ; (VALUES (XLIB::CARD32-GET 4) (XLIB::CARD16-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/randr-tmpR2FIHSUG.fasl ; compilation finished in 0:00:00.428 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xinerama.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 ...))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xinerama-tmp8PYELRKX.fasl ; compilation finished in 0:00:00.104 ; compiling file "/usr/share/common-lisp/source/clx/extensions/dbe.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/dbe.lisp ; in: DEFUN CREATE-BACK-BUFFER ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB::BB 'XLIB::BACK-BUFFER) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN DBE-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER") ; NIL) ; ((XLIB::DATA XLIB::+QUERY-VERSION+) (XLIB:CARD8 XLIB::+DBE-MAJOR+) ; (XLIB:CARD8 XLIB::+DBE-MINOR+)) ; (VALUES (XLIB::CARD8-GET 8) (XLIB::CARD8-GET 9))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-ALLOCATE-BACK-BUFFER-NAME ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+ALLOCATE-BACK-BUFFER-NAME+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:DRAWABLE XLIB::BACK-BUFFER) ; (XLIB:CARD8 XLIB::SWAP-HINT) ; (XLIB::PAD8) ; (XLIB::PAD16)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-DEALLOCATE-BACK-BUFFER-NAME ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+DEALLOCATE-BACK-BUFFER-NAME+) ; (XLIB:DRAWABLE XLIB::BACK-BUFFER)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-SWAP-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+SWAP-BUFFERS+) ; (XLIB:CARD32 XLIB::NUM) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-BEGIN-IDIOM ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+BEGIN-IDIOM+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-END-IDIOM ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+END-IDIOM+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-GET-VISUAL-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER") ; NIL :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-VISUAL-INFO+) (XLIB:CARD32 XLIB::NUM) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::WL)) ; (VALUES ; (LET ((XLIB::NUM #) (XLIB::NEXT 32) (XLIB::RESULT-LIST NIL)) ; (DECLARE (TYPE FIXNUM XLIB::NUM XLIB::NEXT)) ; (DOTIMES (XLIB::I XLIB::NUM #) (PUSH # XLIB::RESULT-LIST))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-GET-BACK-BUFFER-ATTRIBUTES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER") ; NIL :SIZES 32) ; ((XLIB::DATA XLIB::+GET-BACK-BUFFER-ATTRIBUTES+) ; (XLIB:DRAWABLE XLIB::BACK-BUFFER)) ; (VALUES (XLIB::OR-GET 8 NULL XLIB:WINDOW))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/dbe-tmpEHTOKYT0.fasl ; compilation finished in 0:00:00.080 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xc-misc.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/xc-misc.lisp ; in: DEFUN XC-GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::XC-OPCODE XLIB:DISPLAY) NIL ; :SIZES (16)) ; ((XLIB::DATA XLIB::+XC-GET-VERSION+) (XLIB:CARD16 XLIB::+XC-MAJOR+) ; (XLIB:CARD16 XLIB::+XC-MINOR+)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XC-GET-XID-RANGE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::XC-OPCODE XLIB:DISPLAY) NIL ; :SIZES (32)) ; ((XLIB::DATA XLIB::+XC-GET-XID-RANGE+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XC-GET-XID-LIST ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::XC-OPCODE XLIB:DISPLAY) NIL ; :SIZES (32)) ; ((XLIB::DATA XLIB::+XC-GET-XID-LIST+) (XLIB:CARD32 COUNT)) ; (LET ((XLIB::NUM (XLIB::CARD32-GET 8))) ; (VALUES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE XLIB::RESULT-TYPE ; :LENGTH XLIB::NUM :INDEX 32)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xc-misc-tmpS6U1VHI9.fasl ; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/clx/extensions/dri2.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/dri2.lisp ; in: DEFUN DRI2-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-QUERY-VERSION+) (XLIB:CARD32 XLIB::+DRI-MAJOR+) ; (XLIB:CARD32 XLIB::+DRI-MINOR+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-CONNECT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-CONNECT+) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::DRIVER-TYPE)) ; (LET* ((XLIB::DRIVER-NAME-LENGTH (XLIB::CARD32-GET 8)) ; (XLIB::DEVICE-NAME-LENGTH (XLIB::CARD32-GET 12)) ; (XLIB::DEVICE-START (+ 32 #))) ; (VALUES (XLIB::STRING-GET XLIB::DRIVER-NAME-LENGTH 32) ; (XLIB::STRING-GET XLIB::DEVICE-NAME-LENGTH XLIB::DEVICE-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-AUTHENTICATE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-AUTHENTICATE+) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::TOKEN)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-CREATE-DRAWABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-CREATE-DRAWABLE+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-DESTROY-DRAWABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; NIL ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-GET-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-BUFFERS+) (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD32 XLIB::LEN) ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; (VALUES (XLIB::CARD32-GET 16) (XLIB::CARD32-GET 12) (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-COPY-REGION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-COPY-REGION+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-GET-BUFFERS-WITH-FORMAT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-BUFFERS-WITH-FORMAT+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-SWAP-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-SWAP-BUFFERS+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-GET-MSC ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-MSC+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-WAIT-MSC ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-WAIT-MSC+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-SWAP-INTERVAL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::DRI2-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+DRI2-SWAP-INTERVAL+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-GET-PARAM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-PARAM+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/dri2-tmpVTFK6ZJW.fasl ; compilation finished in 0:00:00.072 ; compiling file "/usr/share/common-lisp/source/clx/extensions/composite.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/composite.lisp ; in: DEFUN COMPOSITE-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY) ; NIL :SIZES (32)) ; ((XLIB::DATA XLIB::+COMPOSITE-QUERYVERSION+) ; (XLIB:CARD32 XLIB::+COMPOSITE-MAJOR+) ; (XLIB:CARD32 XLIB::+COMPOSITE-MINOR+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-REDIRECT-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-REDIRECTWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD8 XLIB::UPDATE-TYPE) ; (XLIB:CARD8 0) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-REDIRECT-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-REDIRECTSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD8 XLIB::UPDATE-TYPE) ; (XLIB:CARD8 0) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-UNREDIRECT-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-UNREDIRECTWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-UNREDIRECT-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-UNREDIRECTSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-CREATE-REGION-FROM-BORDER-CLIP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-CREATEREGIONFROMBORDERCLIP+) ; (XLIB:CARD32 XLIB::REGION) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-NAME-WINDOW-PIXMAP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-NAMEWINDOWPIXMAP+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:DRAWABLE XLIB:DRAWABLE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-GET-OVERLAY-WINDOW ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY) ; NIL :SIZES (32)) ; ((XLIB::DATA XLIB::+COMPOSITE-GETOVERLAYWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-RELEASE-OVERLAY-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-RELEASEOVERLAYWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/composite-tmp75WVSJEW.fasl ; compilation finished in 0:00:00.184 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/package.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/package-tmpBU5UM3S4.fasl ; compilation finished in 0:00:00.004 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/dynamic-mixins.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/dynamic-mixins-tmpOBHVA3CD.fasl ; compilation finished in 0:00:00.040 ; compiling file "/build/reproducible-path/stumpwm-22.11/package.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/package-tmpJ6ELVFLF.fasl ; compilation finished in 0:00:00.000 ; compiling file "/build/reproducible-path/stumpwm-22.11/debug.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/debug-tmpULDB0RG.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/primitives.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/primitives-tmpUTZ0UUTE.fasl ; compilation finished in 0:00:00.304 ; compiling file "/build/reproducible-path/stumpwm-22.11/wrappers.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/wrappers-tmpOOSRA8PZ.fasl ; compilation finished in 0:00:00.084 ; compiling file "/build/reproducible-path/stumpwm-22.11/pathnames.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/pathnames-tmpDMIL0RVK.fasl ; compilation finished in 0:00:00.004 ; compiling file "/build/reproducible-path/stumpwm-22.11/font-rendering.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/font-rendering-tmp8MR9IMIO.fasl ; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/keysyms.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/keysyms-tmpJQDKAVAY.fasl ; compilation finished in 0:00:00.112 ; compiling file "/build/reproducible-path/stumpwm-22.11/keytrans.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/keytrans-tmp3I8CEEQY.fasl ; compilation finished in 0:00:00.012 ; compiling file "/build/reproducible-path/stumpwm-22.11/kmap.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/kmap-tmpA3RHFLWZ.fasl ; compilation finished in 0:00:00.080 ; compiling file "/build/reproducible-path/stumpwm-22.11/input.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/input-tmpYZIB7VXO.fasl ; compilation finished in 0:00:00.344 ; compiling file "/build/reproducible-path/stumpwm-22.11/core.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/core-tmpR8PK79V8.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/command.lisp" (written 22 NOV 2022 12:13:18 AM): ; file: /build/reproducible-path/stumpwm-22.11/command.lisp ; in: DEFUN ARGUMENT-POP ; (LOOP STUMPWM::FOR STUMPWM::I STUMPWM::FROM STUMPWM::START STUMPWM::BELOW (LENGTH ; STUMPWM::INPUT) ; STUMPWM::FOR CHAR = (CHAR STUMPWM::INPUT STUMPWM::I) ; DO ...) ; --> LET LET TAGBODY ; ==> ; NIL ; ; caught STYLE-WARNING: ; The binding of I is not a REAL: ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/command-tmpN1ZVB1HZ.fasl ; compilation finished in 0:00:00.236 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/build/reproducible-path/stumpwm-22.11/menu-declarations.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/menu-declarations-tmpZGRRPISB.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/menu-definitions.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/menu-definitions-tmpFNKDE5XP.fasl ; compilation finished in 0:00:00.084 ; compiling file "/build/reproducible-path/stumpwm-22.11/screen.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/screen-tmpRJTU435C.fasl ; compilation finished in 0:00:00.104 ; compiling file "/build/reproducible-path/stumpwm-22.11/head.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/head-tmpI9WG87JK.fasl ; compilation finished in 0:00:00.024 ; compiling file "/build/reproducible-path/stumpwm-22.11/group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/group-tmpYDE6I9E6.fasl ; compilation finished in 0:00:00.084 ; compiling file "/build/reproducible-path/stumpwm-22.11/bindings.lisp" (written 27 MAR 2026 11:19:33 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/bindings-tmp319UV2V8.fasl ; compilation finished in 0:00:00.024 ; compiling file "/build/reproducible-path/stumpwm-22.11/events.lisp" (written 22 NOV 2022 12:13:18 AM): ; file: /build/reproducible-path/stumpwm-22.11/events.lisp ; in: DEFUN SCROLL-BUTTON-KEYWORD-P ; (EQ STUMPWM::BUTTON :WHEEL-RIGHT) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/events-tmpLYQINFYS.fasl ; compilation finished in 0:00:00.168 ; compiling file "/build/reproducible-path/stumpwm-22.11/window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/window-tmpGA31XWNO.fasl ; compilation finished in 0:00:00.204 ; compiling file "/build/reproducible-path/stumpwm-22.11/floating-group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/floating-group-tmp5HT23M6C.fasl ; compilation finished in 0:00:00.172 ; compiling file "/build/reproducible-path/stumpwm-22.11/tile-window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tile-window-tmpA60KLDKY.fasl ; compilation finished in 0:00:00.068 ; compiling file "/build/reproducible-path/stumpwm-22.11/tile-group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tile-group-tmpD801X3GJ.fasl ; compilation finished in 0:00:00.440 WARNING: redefining STUMPWM::ORPHANED-FRAMES in DEFUN ; compiling file "/build/reproducible-path/stumpwm-22.11/window-placement.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/window-placement-tmpGOW1GC70.fasl ; compilation finished in 0:00:00.132 ; compiling file "/build/reproducible-path/stumpwm-22.11/message-window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/message-window-tmpPQ1X28TL.fasl ; compilation finished in 0:00:00.056 ; compiling file "/build/reproducible-path/stumpwm-22.11/selection.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/selection-tmpE92ECU7O.fasl ; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/module.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/module-tmp8S0II570.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/ioloop.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/ioloop-tmpJE88A12F.fasl ; compilation finished in 0:00:00.168 ; compiling file "/build/reproducible-path/stumpwm-22.11/timers.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/timers-tmpA5FNLPLT.fasl ; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/stumpwm.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/stumpwm-tmpHKCV9TP8.fasl ; compilation finished in 0:00:00.068 ; compiling file "/build/reproducible-path/stumpwm-22.11/user.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/user-tmpZ18MA7XE.fasl ; compilation finished in 0:00:00.116 ; compiling file "/build/reproducible-path/stumpwm-22.11/interactive-keymap.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/interactive-keymap-tmp6LQJ9T0C.fasl ; compilation finished in 0:00:00.012 ; compiling file "/build/reproducible-path/stumpwm-22.11/iresize.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/iresize-tmpTX7OA81T.fasl ; compilation finished in 0:00:00.012 ; compiling file "/build/reproducible-path/stumpwm-22.11/help.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/help-tmpWOTC3PB7.fasl ; compilation finished in 0:00:00.224 ; compiling file "/build/reproducible-path/stumpwm-22.11/fdump.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/fdump-tmpHQE95SAC.fasl ; compilation finished in 0:00:00.112 ; compiling file "/build/reproducible-path/stumpwm-22.11/time.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/time-tmpO87FP9NR.fasl ; compilation finished in 0:00:00.048 ; compiling file "/build/reproducible-path/stumpwm-22.11/mode-line.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/mode-line-tmpP6A3E92I.fasl ; compilation finished in 0:00:00.068 ; compiling file "/build/reproducible-path/stumpwm-22.11/mode-line-formatters.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/mode-line-formatters-tmpUSHT8RIL.fasl ; compilation finished in 0:00:00.060 ; compiling file "/build/reproducible-path/stumpwm-22.11/color.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/color-tmp7YCPD44Y.fasl ; compilation finished in 0:00:00.080 ; compiling file "/build/reproducible-path/stumpwm-22.11/wse.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/wse-tmpQXR7SNXD.fasl ; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-window-tmp6FLI1OC3.fasl ; compilation finished in 0:00:00.008 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-group-tmpWBK8JTS9.fasl ; compilation finished in 0:00:00.364 ; compiling file "/build/reproducible-path/stumpwm-22.11/remap-keys.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/remap-keys-tmpUVEUD2ZN.fasl ; compilation finished in 0:00:00.012 ; compiling file "/build/reproducible-path/stumpwm-22.11/manual.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/manual-tmpOWNJOEU.fasl ; compilation finished in 0:00:00.028 ; compiling file "/build/reproducible-path/stumpwm-22.11/minor-modes.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/minor-modes-tmpVT5BMTA5.fasl ; compilation finished in 0:00:00.296 ; compiling file "/build/reproducible-path/stumpwm-22.11/replace-class.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/replace-class-tmpN3CFVWZF.fasl ; compilation finished in 0:00:00.020 WARNING: redefining DYNAMIC-MIXINS:REPLACE-CLASS in DEFGENERIC ; compiling file "/build/reproducible-path/stumpwm-22.11/version.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/version-tmpNK27C0R1.fasl ; compilation finished in 0:00:00.004 ; ; compilation unit finished ; caught 8 STYLE-WARNING conditions ; printed 1501 notes test "makeinfo" = "no" || makeinfo stumpwm.texi make[2]: Leaving directory '/build/reproducible-path/stumpwm-22.11' make[1]: Leaving directory '/build/reproducible-path/stumpwm-22.11' dh_auto_test make -j12 test "TESTSUITEFLAGS=-j12 --verbose" VERBOSE=1 make[1]: Entering directory '/build/reproducible-path/stumpwm-22.11' /usr/bin/sbcl --non-interactive --eval "(setf sb-impl::*default-external-format* :UTF-8)" --load "load-stumpwm.lisp" --eval "(asdf:load-system :stumpwm-tests)" --eval "(if (fiasco:all-tests) (uiop:quit 0) (uiop:quit 1))" This is SBCL 2.5.0.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 01 DEC 2024 12:56:31 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-asdf/build/asdf-tmpGHU3ALSV.fasl ; compilation finished in 0:00:06.228 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/package.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/package-tmpAAURSO1.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/definitions.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/definitions-tmp5GEXGEG5.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/binding.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/binding-tmpAR3FSGEY.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/strings.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/strings-tmpJAIDFZTC.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/conditions.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/conditions-tmp8V3J6PE9.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/symbols.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/symbols-tmp9V47YWQF.fasl ; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/macros.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/macros-tmp9BN22RMA.fasl ; compilation finished in 0:00:00.072 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/functions.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/functions-tmp1CXFJSK9.fasl ; compilation finished in 0:00:00.032 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/lists.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/lists-tmpX4BRKI0R.fasl ; compilation finished in 0:00:00.172 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/types.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/types-tmpQ371UGST.fasl ; compilation finished in 0:00:00.076 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/io.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/io-tmp2OWI3Q7U.fasl ; compilation finished in 0:00:00.112 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables-tmp9KKTJMYV.fasl ; compilation finished in 0:00:00.048 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/control-flow.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/control-flow-tmpJU0JWO19.fasl ; compilation finished in 0:00:00.040 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/arrays.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/arrays-tmpZX2WN8N4.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/sequences.lisp" (written 25 JAN 2024 05:37:54 PM): ; file: /usr/share/common-lisp/source/alexandria/alexandria-1/sequences.lisp ; in: DEFUN LENGTH= ; (LENGTH FIRST) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/sequences-tmpOU81XRV0.fasl ; compilation finished in 0:00:00.112 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/numbers.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/numbers-tmpY2ML9CFA.fasl ; compilation finished in 0:00:00.108 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/features.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/features-tmpX2JYJDQE.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/package.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/package-tmpOPCILR65.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/arrays.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/arrays-tmpRV9F8A9A.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow-tmpK2ZAJT4I.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/sequences.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/sequences-tmpUX5S4ADN.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/lists.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/lists-tmp10401X32.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/packages.lisp" (written 27 APR 2024 01:06:11 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/packages-tmpZ7CBRM0G.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/specials.lisp" (written 27 APR 2024 01:06:11 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/specials-tmp9OZEQ0G2.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/util.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a (OR SIMPLE-BASE-STRING NULL). ; 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/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/util-tmpB2JTL1W9.fasl ; compilation finished in 0:00:00.028 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/errors.lisp" (written 27 APR 2024 01:06:11 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/errors-tmpP3BI68WQ.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/charset.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp ; in: DEFUN MIX ; (+ CL-PPCRE::CODE CL-PPCRE::HASH) ; ; 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFUN COMPUTE-INDEX ; (LENGTH VECTOR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL (-35184372088830) ; (35184372088830))), not a RATIONAL. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR FLOAT ; (RATIONAL (-35184372088830) (35184372088830))), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT (RATIONAL (-35184372088829) (35184372088831))) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (OR FLOAT ; (RATIONAL (-35184372088830) (35184372088830))), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR FLOAT (RATIONAL (-35184372088829) (35184372088831))) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFUN %ADD-TO-CHARSET/EXPAND ; (>= CL-PPCRE::NEW-SIZE 371370) ; ; note: forced to do <-INTEGER-FIXNUM (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; (* 2 CL-PPCRE::NEW-SIZE) ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN MAP-CHARSET ; (DECF CL-PPCRE::N) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM. ; The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER * 4611686018427387903), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; 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 T, 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 T, not a DOUBLE-FLOAT. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/charset-tmpQDARA81Z.fasl ; compilation finished in 0:00:00.036 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/charmap.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 ; in: DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LIM16) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; 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 T, 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 T, 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LIM16) ; ; 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/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/charmap-tmpYEMMM7SE.fasl ; compilation finished in 0:00:00.060 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/chartest.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/chartest.lisp ; in: DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; 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 T, 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 T, not a DOUBLE-FLOAT. ; in: DEFUN CREATE-OPTIMIZED-TEST-FUNCTION ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (<= (CL-PPCRE::CHARSET-COUNT CL-PPCRE::CHARSET) ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)) ; ; note: forced to do >-FIXNUM-INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (<= (HASH-TABLE-COUNT HASH-TABLE) ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)) ; ; note: forced to do >-FIXNUM-INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/chartest-tmp73HU0RPK.fasl ; compilation finished in 0:00:00.024 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/lexer.lisp" (written 27 APR 2024 01:06:11 AM): ; 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.") ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN GET-NUMBER ; (IF (< CL-PPCRE::END-POS CL-PPCRE::LEXER-LEN) ; CL-PPCRE::END-POS ; CL-PPCRE::LEXER-LEN) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN UNESCAPE-CHAR ; (CHAR-UPCASE CL-PPCRE::NEXT-CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/lexer-tmpIO5N7K88.fasl ; compilation finished in 0:00:00.176 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/parser.lisp" (written 27 APR 2024 01:06:11 AM): ; 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.") ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN SEQ ; (VECTOR-PUSH-EXTEND CL-PPCRE::QUANT (CAR CL-PPCRE::LAST-CDR)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/parser-tmpCM21U60Z.fasl ; compilation finished in 0:00:00.032 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; (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/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/regex-class-tmp9DT7SEFG.fasl ; compilation finished in 0:00:00.036 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD EVERYTHINGP (SEQ) ; (LENGTH CL-PPCRE::CLEANED-ELEMENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (ALTERNATION) ; (LENGTH CL-PPCRE::CHOICES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (REPETITION) ; (= 1 CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX ; SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX ; DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to 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 (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; in: DEFMETHOD REGEX-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-LENGTH ; CL-PPCRE::SUB-REGEX) ; IF (NOT CL-PPCRE::LEN) ; DO ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM6 CL-PPCRE::LEN) ; ; 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-LENGTH (ALTERNATION) ; (/= CL-PPCRE::LEN CL-PPCRE::OLD-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to 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. ; 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; in: DEFMETHOD REGEX-LENGTH (REPETITION) ; (EQL CL-PPCRE::MINIMUM 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. ; ; 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; (* CL-PPCRE::MINIMUM 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::SUM CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM6 CL-PPCRE::LEN) ; ; 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (ALTERNATION) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::MINIMIZE CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF ; ==> ; (< #:MINMAXTMP10 #:MINMAX9) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: 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. ; in: DEFMETHOD REGEX-MIN-LENGTH (BRANCH) ; (MIN (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH)) ; (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: 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 T, 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 T, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (REPETITION) ; (* (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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (ALTERNATION T) ; (/= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to 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. ; 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (REPETITION T) ; (* CL-PPCRE::MINIMUM 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (CHAR-CLASS T) ; (1+ CL-PPCRE::START-POS) ; ; note: unable to ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (EVERYTHING T) ; (1+ CL-PPCRE::START-POS) ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (STR T) ; (+ CL-PPCRE::START-POS (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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (FILTER T) ; (+ CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/regex-class-util-tmp8065ESJT.fasl ; compilation finished in 0:00:00.096 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/convert.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 ; in: DEFUN MAYBE-SPLIT-REPETITION ; (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN MAYBE-ACCUMULATE ; (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; (CL-PPCRE::STR CL-PPCRE::STR) ; (CL-PPCRE::SKIP CL-PPCRE::STR) T) ; --> SETF LET* ; ==> ; (REPLACE #:SEQUENCE #:NEW3 :START1 #:START :END1 NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; The second argument is a SEQUENCE, not a (OR NULL ; (SIMPLE-ARRAY CHARACTER (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR NULL ; (SIMPLE-ARRAY CHARACTER (*))). ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; (MAKE-ARRAY (CL-PPCRE::LEN CL-PPCRE::STR) :INITIAL-CONTENTS ; (CL-PPCRE::STR CL-PPCRE::STR) :ELEMENT-TYPE 'CHARACTER ; :FILL-POINTER T :ADJUSTABLE T) ; ; 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 second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; (SETF (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; --> FUNCALL ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20) ; (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; (CL-PPCRE::STR CL-PPCRE::STR) ; (CL-PPCRE::SKIP CL-PPCRE::STR) T) ; --> SETF LET* ; ==> ; (REPLACE #:SEQUENCE #:NEW3 :START1 #:START :END1 NIL) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BRANCH) T) ; (LENGTH (CL-PPCRE::CHOICES CL-PPCRE::ALTERNATIONS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :GREEDY-REPETITION) T) ; (ZEROP LENGTH) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :NAMED-REGISTER) T) ; (COPY-SEQ (SECOND CL-PPCRE::PARSE-TREE)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BACK-REFERENCE) T) ; (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a (SIMPLE-ARRAY CHARACTER (*)). ; (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 &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::NAME CL-PPCRE::IN CL-PPCRE::REG-NAMES ; CL-PPCRE::FOR CL-PPCRE::REG-INDEX CL-PPCRE::FROM 0 ; WHEN (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; CL-PPCRE::COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE 1+ ; ==> ; 1 ; ; note: forced to do 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CONVERT ; (COERCE (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) 'SIMPLE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/convert-tmp7S8Z6FGF.fasl ; compilation finished in 0:00:00.176 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/optimize.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a VECTOR, not a (OR SIMPLE-BASE-STRING NULL). ; (INCF CL-PPCRE::COLLECTOR-LENGTH (CL-PPCRE::LEN CL-PPCRE::ELEMENT)) ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFMETHOD START-ANCHORED-P (REPETITION) ; (PLUSP (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: 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. ; in: DEFMETHOD START-ANCHORED-P (REGEX) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::REGEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD END-STRING-AUX (SEQ) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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 SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; (CHAR CL-PPCRE::STR CL-PPCRE::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFMETHOD COMPUTE-MIN-REST (ALTERNATION T) ; (LOOP CL-PPCRE::FOR CL-PPCRE::CHOICE CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::MINIMIZE (CL-PPCRE::COMPUTE-MIN-REST CL-PPCRE::CHOICE ; CL-PPCRE::CURRENT-MIN-REST)) ; --> LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF ; ==> ; (< #:MINMAXTMP11 #:MINMAX10) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: 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. ; in: DEFMETHOD COMPUTE-MIN-REST (BRANCH T) ; (MIN ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST) ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: 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 T, 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 T, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (STR T) ; (+ CL-PPCRE::CURRENT-MIN-REST (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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (FILTER T) ; (+ CL-PPCRE::CURRENT-MIN-REST (OR (CL-PPCRE::LEN CL-PPCRE::FILTER) 0)) ; ; note: 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (REPETITION T) ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ CL-PPCRE::CURRENT-MIN-REST ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (LOOKBEHIND T) ; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::LOOKBEHIND)) ; ; note: 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (REGEX T) ; (1+ CL-PPCRE::CURRENT-MIN-REST) ; ; note: unable to ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/optimize-tmpSIT3QPKP.fasl ; compilation finished in 0:00:00.204 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/closures.lisp" (written 27 APR 2024 01:06:11 AM): ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; 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) ; in: DEFMETHOD CREATE-MATCHER-AUX (CHAR-CLASS T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::CHAR-CLASS ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::START-POS)) ; (LAMBDA (CL-PPCRE::START-POS) ; (DECLARE (FIXNUM CL-PPCRE::START-POS)) ; (AND (< CL-PPCRE::START-POS CL-PPCRE::*END-POS*) ; (CL-PPCRE::CHAR-CLASS-TEST) ; (FUNCALL CL-PPCRE::NEXT-FN (1+ CL-PPCRE::START-POS))))) ; --> LET LAMBDA FUNCTION AND IF IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFMETHOD CREATE-MATCHER-AUX (STR T) ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::START-POS ; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS) CL-PPCRE::CHR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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) ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-MATCHER-AUX (FILTER T) ; (FUNCALL CL-PPCRE::FN CL-PPCRE::START-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (FUNCALL CL-PPCRE::NEXT-FN CL-PPCRE::NEXT-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; NEXT-FN is not known to be a function ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/closures-tmpE0PA0714.fasl ; compilation finished in 0:00:00.144 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET BLOCK ; --> TAGBODY WHEN IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), 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)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; 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)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-GREEDY-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), 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)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-NON-GREEDY-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: ; DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS)))) ; --> LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA FUNCTION ; --> LET AND IF IF LOOP BLOCK LET TAGBODY UNLESS IF AND IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (AREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (ZEROP (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-MATCHER-AUX (REPETITION T) ; (ZEROP CL-PPCRE::MAXIMUM) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (EQL CL-PPCRE::MINIMUM 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. ; ; 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. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (PLUSP CL-PPCRE::LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; 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 T, 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 T, not a DOUBLE-FLOAT. ; (EQL CL-PPCRE::MINIMUM 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, 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 T, not a FIXNUM. ; The second 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). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; (PLUSP 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. ; (PLUSP 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. ; (PLUSP 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/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/repetition-closures-tmpJRWHHVG0.fasl ; compilation finished in 0:00:00.308 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/scanner.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/scanner.lisp ; in: DEFUN CREATE-BMH-MATCHER ; (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION IF LOOP BLOCK LET TAGBODY LOOP BLOCK LET LET TAGBODY UNLESS IF ; --> AND IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (LENGTH CL-PPCRE::PATTERN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CHAR-UPCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-DOWNCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (SEARCH CL-PPCRE::PATTERN CL-PPCRE::*STRING* :START2 CL-PPCRE::START-POS ; :END2 CL-PPCRE::*END-POS* :TEST CL-PPCRE::TEST) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN CREATE-CHAR-SEARCHER ; (CL-PPCRE::CHAR-SEARCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION AND IF LOOP BLOCK LET LET TAGBODY WHEN IF SETQ THE AND IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFUN CREATE-SCANNER-AUX ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (FUNCALL CL-PPCRE::END-STRING-TEST CL-PPCRE::TRY-POS) ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/scanner-tmp4WZVROCX.fasl ; compilation finished in 0:00:00.508 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/api.lisp" (written 27 APR 2024 01:06:11 AM): ; 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. ; in: DEFMETHOD CREATE-SCANNER (T) ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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. ; in: DEFMETHOD SCAN (STRING T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::REGEX-STRING) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; in: DEFMETHOD SCAN #'T ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; in: DEFMETHOD SCAN (T T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::PARSE-TREE) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; in: DEFUN SCAN-TO-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MAP 'VECTOR ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (IF CL-PPCRE::REG-START ; (FUNCALL CL-PPCRE::SUBSTR-FN CL-PPCRE::TARGET-STRING ; CL-PPCRE::REG-START CL-PPCRE::REG-END) ; NIL)) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMACRO DO-SCANS ; (DEFMACRO CL-PPCRE:DO-SCANS ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY &ENVIRONMENT CL-PPCRE::ENV) ; #<(SIMPLE-ARRAY CHARACTER ; (495)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START, MATCH-END, REG-STARTS, and ; REG-ENDS bound to the four return values of each match in turn. ... {1002D1E6FF}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::%START CL-PPCRE::%END ; CL-PPCRE::%REGEX CL-PPCRE::SCANNER) ; (DECLARE (IGNORABLE CL-PPCRE::%REGEX CL-PPCRE::SCANNER)) ; `(BLOCK NIL ; (LET* # ; # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END ; REG-STARTS REG-ENDS REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) ; in: DEFMACRO DO-MATCHES ; (DEFMACRO CL-PPCRE:DO-MATCHES ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (477)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START and MATCH-END bound to the ; start/end positions of each match in turn. After the last match, ; ... {100312A43F}> ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; `(CL-PPCRE:DO-SCANS (,CL-PPCRE::MATCH-START ,CL-PPCRE::MATCH-END ; ,CL-PPCRE::REG-STARTS ,CL-PPCRE::REG-ENDS ; ,CL-PPCRE::REGEX ,CL-PPCRE::TARGET-STRING ; ,CL-PPCRE::RESULT-FORM :START ,CL-PPCRE::START :END ; ,CL-PPCRE::END) ; ,@CL-PPCRE::BODY))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) ; in: DEFMACRO DO-MATCHES-AS-STRINGS ; (DEFMACRO CL-PPCRE:DO-MATCHES-AS-STRINGS ; ( ; (CL-PPCRE::MATCH-VAR ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (569)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-VAR bound to the substring of ; TARGET-STRING corresponding to each match in turn. After the last ; ma... {10032B6F7F}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::SUBSTR-FN) ; `(LET (#) ; (CL-PPCRE:DO-MATCHES # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-VAR REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END ; SHAREDP) ; in: DEFMACRO DO-REGISTER-GROUPS ; (DEFMACRO CL-PPCRE:DO-REGISTER-GROUPS ; (CL-PPCRE::VAR-LIST ; (CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (820)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with the variables in VAR-LIST bound to the ; corresponding register groups for each match in turn, i.e. each ; va... {1003485D7F}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::SUBSTR-FN CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS CL-PPCRE::START-INDEX) ; `(LET (#) ; (CL-PPCRE:DO-SCANS # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX TARGET-STRING ; &OPTIONAL RESULT-FORM ; &KEY START END SHAREDP) ; in: DEFUN COUNT-MATCHES ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::S CL-PPCRE::E CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING COUNT :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (INCF COUNT)) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::S CL-PPCRE::E) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF COUNT) ; --> THE ; ==> ; (+ 1 COUNT) ; ; note: forced to do 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::S CL-PPCRE::E CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING COUNT :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (INCF COUNT)) ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::S CL-PPCRE::E) ; ; note: forced to do 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. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALL-MATCHES ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::RESULT-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::RESULT-LIST)) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do 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. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALL-MATCHES-AS-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES-AS-STRINGS (CL-PPCRE::MATCH CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START ; CL-PPCRE::START :END CL-PPCRE::END :SHAREDP ; CL-PPCRE::SHAREDP) ; (PUSH CL-PPCRE::MATCH CL-PPCRE::RESULT-LIST)) ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING7) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE ; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: forced to do 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. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; 1 ; ; note: forced to do 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SPLIT ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP CL-PPCRE::LIMIT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...) ; --> LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET LET ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE AREF ; ==> ; 1 ; ; 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 VECTOR, not a SIMPLE-ARRAY. ; ; 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 VECTOR, not a SIMPLE-ARRAY. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (= 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 NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a 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) ; --> 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do 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. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; 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. ; in: DEFUN STRING-CASE-MODIFIER ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::FROM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::TO) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; 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 ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (< 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 (NOT NULL), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The second argument is a (NOT NULL), 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 NULL INTEGER), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (OR NULL INTEGER), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (< CL-PPCRE::TOKEN 0) ; ; note: forced to do <-INTEGER-FIXNUM (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; in: DEFUN BUILD-REPLACEMENT ; (ARRAY-DIMENSION CL-PPCRE::REG-STARTS 0) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; (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: ; TOKEN is not known to be a function ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; 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: ; TOKEN is not known to be a function ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (>= CL-PPCRE::TOKEN CL-PPCRE::REG-BOUND) ; ; note: forced to do <-INTEGER-FIXNUM (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; (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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; ; 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFUN REGEX-REPLACE ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFUN REGEX-REPLACE-ALL ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do 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. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN REGEX-APROPOS-LIST ; (DEFUN CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; #<(SIMPLE-ARRAY CHARACTER ; (221)) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {1002A8E7BF}> ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (221)) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {1002A8E7BF}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS-LIST ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; in: DEFUN REGEX-APROPOS ; (DEFUN CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {100300C4BF}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES)) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {100300C4BF}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/api-tmpA0I3UKX8.fasl ; compilation finished in 0:00:00.416 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/clx/package.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/package-tmp267Y2N80.fasl ; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/clx/depdefs.lisp" (written 27 DEC 2022 07:29:08 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/depdefs-tmpOUPE5FSJ.fasl ; compilation finished in 0:00:00.136 ; compiling file "/usr/share/common-lisp/source/clx/clx.lisp" (written 27 DEC 2022 07:29:08 AM): ; file: /usr/share/common-lisp/source/clx/clx.lisp ; in: DEFUN ENCODE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:EVENT-MASK 'XLIB:EVENT-MASK) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-DEVICE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:DEVICE-EVENT-MASK 'XLIB:DEVICE-EVENT-MASK) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-MODIFIER-MASK ; (XLIB::X-TYPE-ERROR XLIB:MODIFIER-MASK 'XLIB:MODIFIER-MASK) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-STATE-MASK ; (XLIB::X-TYPE-ERROR XLIB::STATE-MASK ; '(OR XLIB:MASK16 (XLIB::CLX-LIST XLIB:STATE-MASK-KEY))) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-POINTER-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:POINTER-EVENT-MASK 'XLIB:POINTER-EVENT-MASK) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/clx-tmpIGHCU6ZA.fasl ; compilation finished in 0:00:00.260 ; compiling file "/usr/share/common-lisp/source/clx/dependent.lisp" (written 27 DEC 2022 07:29:08 AM): ; 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) ; in: DEFMACRO READ-IMAGE-LOAD-BYTE ; (SETQ POSITION (- 7 POSITION)) ; ; note: deleting unreachable code ; in: DEFMACRO READ-IMAGE-ASSEMBLE-BYTES ; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES)) ; ; note: deleting unreachable code ; in: DEFMACRO WRITE-IMAGE-LOAD-BYTE ; (- XLIB::INTEGER-SIZE 8 POSITION) ; ; note: deleting unreachable code ; in: DEFMACRO WRITE-IMAGE-ASSEMBLE-BYTES ; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES)) ; ; note: deleting unreachable code ; in: DEFUN COPY-BIT-RECT ; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::SDATA XLIB::SOURCE) (XLIB::SSTART) ; (XLIB::SEND)) ; (DECLARE (IGNORE XLIB::SEND)) ; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::DDATA XLIB::DEST) (XLIB::DSTART) ; (XLIB::DEND)) ; (DECLARE (IGNORE XLIB::DEND)) ; (ASSERT (AND (ZEROP XLIB::SSTART) (ZEROP XLIB::DSTART))) ; (DO ((XLIB::SRC-IDX # #) ; (XLIB::DEST-IDX # #) ; (COUNT XLIB::HEIGHT #)) ; ((ZEROP COUNT)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-IDX XLIB::DEST-IDX COUNT)) ; (SB-KERNEL:UB1-BASH-COPY XLIB::SDATA XLIB::SRC-IDX XLIB::DDATA ; XLIB::DEST-IDX XLIB::WIDTH)))) ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND IF THE ; ==> ; (SB-KERNEL:%WITH-ARRAY-DATA #:N-ARRAY0 #:N-SVALUE1 #:N-EVALUE2) ; ; note: unable to ; inline non-SIMPLE-vector-handling logic ; due to type uncertainty: ; The first argument is a (AND ARRAY (NOT (SIMPLE-ARRAY * (*)))), not a (OR ; VECTOR ; SIMPLE-ARRAY). ; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::DDATA XLIB::DEST) (XLIB::DSTART) ; (XLIB::DEND)) ; (DECLARE (IGNORE XLIB::DEND)) ; (ASSERT (AND (ZEROP XLIB::SSTART) (ZEROP XLIB::DSTART))) ; (DO ((XLIB::SRC-IDX (XLIB::INDEX+ # XLIB::SX #) ; (XLIB::INDEX+ XLIB::SRC-IDX XLIB::SOURCE-WIDTH)) ; (XLIB::DEST-IDX (XLIB::INDEX+ # XLIB::DX #) ; (XLIB::INDEX+ XLIB::DEST-IDX XLIB::DEST-WIDTH)) ; (COUNT XLIB::HEIGHT (1- COUNT))) ; ((ZEROP COUNT)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-IDX XLIB::DEST-IDX COUNT)) ; (SB-KERNEL:UB1-BASH-COPY XLIB::SDATA XLIB::SRC-IDX XLIB::DDATA ; XLIB::DEST-IDX XLIB::WIDTH))) ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND IF THE ; ==> ; (SB-KERNEL:%WITH-ARRAY-DATA #:N-ARRAY5 #:N-SVALUE6 #:N-EVALUE7) ; ; note: unable to ; inline non-SIMPLE-vector-handling logic ; due to type uncertainty: ; The first argument is a (AND ARRAY (NOT (SIMPLE-ARRAY * (*)))), not a (OR ; VECTOR ; SIMPLE-ARRAY). ; in: DEFUN FAST-READ-PIXARRAY ; (XLIB::READ-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X ; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE ; XLIB::BITS-PER-PIXEL FUNCTION XLIB::UNIT ...) ; ; note: deleting unreachable code ; in: DEFUN FAST-WRITE-PIXARRAY-USING-BITBLT ; (ARRAY-DIMENSION XLIB:PIXARRAY 1) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; in: DEFUN FAST-WRITE-PIXARRAY ; (XLIB::WRITE-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X ; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE ; XLIB::BITS-PER-PIXEL FUNCTION XLIB::+IMAGE-UNIT+ ...) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/dependent-tmpBO0TUGLK.fasl ; compilation finished in 0:00:00.272 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/clx/macros.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/macros.lisp ; in: DEFMACRO DEFINE-ACCESSOR ; (THIRD XLIB::GET-PUT-MACROS) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/macros-tmpIIXPIQNW.fasl ; compilation finished in 0:00:00.388 ; compiling file "/usr/share/common-lisp/source/clx/bufmac.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/bufmac-tmpOHM494YR.fasl ; compilation finished in 0:00:00.028 ; compiling file "/usr/share/common-lisp/source/clx/buffer.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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)) ; --> LET XLIB::HOLDING-LOCK IF HANDLER-CASE SB-INT:DX-FLET FLET #:FORM-FUN-3 ; --> 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: 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. ; in: DEFUN READ-VECTOR-CARD8 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD8 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD8 XLIB::INDEX))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD16 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD16 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD16 XLIB::INDEX))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD32 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD32 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD32 XLIB::INDEX))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD8 ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD16 ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-INT16 ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD32 ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CHAR2B ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/buffer-tmpOVFB07XF.fasl ; compilation finished in 0:00:00.812 ; compiling file "/usr/share/common-lisp/source/clx/display.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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. ; in: DEFUN DISPLAY-FINISH-OUTPUT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETINPUTFOCUS+ 16 ; :SIZES (8 32)) ; NIL) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/display-tmpG6VFGMYP.fasl ; compilation finished in 0:00:00.132 ; compiling file "/usr/share/common-lisp/source/clx/gcontext.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN SET-GCONTEXT-DASHES ; (VECTOR) ; ; note: deleting unreachable code ; in: DEFUN FORCE-GCONTEXT-CHANGES-INTERNAL ; (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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))) ; --> 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. ; --> 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (LENGTH XLIB::LOCAL-DASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETDASHES+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-DASH-OFFSET XLIB::LOCAL-STATE) 0) ; (LENGTH XLIB::LOCAL-DASH)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::LOCAL-DASH)) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::LOCAL-DASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (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))))) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; 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))) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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)) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-GCONTEXT-LOCAL-STATE ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) ; --> XLIB::WITH-BUFFER PROGN FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::TEMP-MASK))) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (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-CREATEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:DRAWABLE (XLIB::GCONTEXT-DRAWABLE XLIB:GCONTEXT)) ; (XLIB:CARD29 0)) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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))) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (ASH BIT -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) 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) ; &OPTIONAL). ; etc. ; in: DEFUN RESTORE-GCONTEXT-TEMP-STATE ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC)) ; --> 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (FUNCALL XLIB::COPY-FUNCTION XLIB::TEMP-GC XLIB:GCONTEXT ; (SVREF XLIB::LOCAL-STATE XLIB::I)) ; ; 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))) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (ASH BIT -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) 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) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC)) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-GCONTEXT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEGC+) ; (XLIB:RESOURCE-ID XLIB::GCONTEXTID) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (PROGN ; (DO* ((XLIB::I 0 #) ; (BIT 1 #) ; (XLIB::NBYTE 16) ; (XLIB::MASK 0) ; (XLIB::LOCAL # #)) ; ((XLIB::INDEX>= XLIB::I XLIB::+GCONTEXT-FAST-CHANGE-LENGTH+) ; (XLIB::CARD29-PUT 12 XLIB::MASK) ; (XLIB::CARD16-PUT 2 #) ; (XLIB::INDEX-INCF # XLIB::NBYTE)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::I XLIB::NBYTE) ; (TYPE XLIB::XGCMASK BIT) ; (TYPE XLIB::GCMASK XLIB::MASK) ; (TYPE # XLIB::LOCAL)) ; (UNLESS (EQL XLIB::LOCAL #) ; (SETF #) ; (XLIB::CARD32-PUT XLIB::NBYTE XLIB::LOCAL) ; (SETQ #) ; (XLIB::INDEX-INCF XLIB::NBYTE 4))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-GCONTEXT-COMPONENTS ; (FIND XLIB::KEY XLIB::*GCONTEXT-EXTENSIONS* :KEY ; #'XLIB::GCONTEXT-EXTENSION-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (FUNCALL (XLIB::GCONTEXT-EXTENSION-COPY-FUNCTION XLIB::EXTENSION) XLIB::SRC ; XLIB::DST ; (SVREF (XLIB::GCONTEXT-LOCAL-STATE XLIB::SRC) ; (XLIB::INDEX+ ; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) ; XLIB::*GCONTEXT-DATA-LENGTH*))) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+) ; (XLIB:GCONTEXT XLIB::SRC XLIB::DST) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::MASK))) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-GCONTEXT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/gcontext-tmp4QIPRMOF.fasl ; compilation finished in 0:00:00.820 ; compiling file "/usr/share/common-lisp/source/clx/input.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DEFUN READ-INPUT ; (CONS NIL NIL) ; ; note: deleting unreachable code ; in: DEFUN QUEUE-EVENT ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::EVENT-CODE) XLIB:DISPLAY ; XLIB::ARGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DECLARE-EVENT :CLIENT-MESSAGE ; (XLIB:DECLARE-EVENT :CLIENT-MESSAGE ; (XLIB::DATA FORMAT) ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (KEYWORD TYPE) ; ((XLIB::CLIENT-MESSAGE-SEQUENCE FORMAT) XLIB::DATA)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::READING-EVENT XLIB::WITH-BUFFER-INPUT LET LET* ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; --> 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 COND IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD8 MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ; --> ECASE COND IF IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD16 MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ; --> ECASE COND IF IF IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD32 MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN MAKE-ERROR ; (FUNCALL XLIB::ERROR-DECODE-FUNCTION XLIB:DISPLAY XLIB::EVENT) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/input-tmpGW0QV22K.fasl ; compilation finished in 0:00:01.424 ; compiling file "/usr/share/common-lisp/source/clx/requests.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEWINDOW+) ; (XLIB::DATA XLIB::DEPTH) ; (XLIB:RESOURCE-ID XLIB::WID) ; (XLIB:WINDOW XLIB::PARENT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH) ; ((XLIB::MEMBER16 :COPY :INPUT-OUTPUT :INPUT-ONLY) CLASS) ; (XLIB:RESOURCE-ID ; (COND ((EQ XLIB::VISUAL :COPY) 0) ; ((TYPEP XLIB::VISUAL 'XLIB:RESOURCE-ID) XLIB::VISUAL) ; (T (XLIB:VISUAL-INFO-ID XLIB::VISUAL)))) ; (XLIB::MASK ; (XLIB:CARD32 XLIB::BACK-PIXMAP XLIB::BACK-PIXEL XLIB::BORDER-PIXMAP ; XLIB::BORDER-PIXEL) ; ((XLIB::MEMBER-VECTOR XLIB::+BIT-GRAVITY-VECTOR+) XLIB:BIT-GRAVITY) ; ((XLIB::MEMBER-VECTOR XLIB::+WIN-GRAVITY-VECTOR+) XLIB::GRAVITY) ; ((MEMBER :NOT-USEFUL :WHEN-MAPPED :ALWAYS) XLIB::BACKING-STORE) ; (XLIB:CARD32 XLIB::BACKING-PLANES XLIB::BACKING-PIXEL) ; ((MEMBER :OFF :ON) XLIB::OVERRIDE-REDIRECT XLIB::SAVE-UNDER) ; (XLIB:CARD32 XLIB:EVENT-MASK XLIB::DO-NOT-PROPAGATE-MASK) ; ((OR (MEMBER :COPY) XLIB:COLORMAP) XLIB:COLORMAP) ; ((OR (MEMBER :NONE) XLIB:CURSOR) XLIB:CURSOR))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN SETQ THE ; ==> ; (LOGIOR XLIB::%MASK 4096) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 4096)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 4096)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 8192)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 8192)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET INCF LET* ; ==> ; (+ XLIB::%INDEX (XLIB::BUFFER-BOFFSET #:%BUFFER104)) ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DESTROY-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-DESTROYWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DESTROY-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-DESTROYSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN REPARENT-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-REPARENTWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW XLIB::PARENT) ; (XLIB:INT16 XLIB::X XLIB::Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MAP-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-MAPWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MAP-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-MAPSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNMAP-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNMAPWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNMAP-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNMAPSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CIRCULATE-WINDOW-UP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CIRCULATEWINDOW+) ; (XLIB::DATA 0) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CIRCULATE-WINDOW-DOWN ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CIRCULATEWINDOW+) ; (XLIB::DATA 1) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN INTERN-ATOM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-INTERNATOM+ 12 ; :SIZES 32) ; ((XLIB::DATA 0) (XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::RESOURCE-ID-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FIND-ATOM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-INTERNATOM+ 12 ; :SIZES 32) ; ((XLIB::DATA 1) (XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::OR-GET 8 NULL XLIB:RESOURCE-ID))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEPROPERTY+) ; ((XLIB::DATA (MEMBER :REPLACE :PREPEND :APPEND)) XLIB::MODE) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID XLIB::TYPE-ID) ; (XLIB:CARD8 FORMAT) ; (XLIB:CARD32 LENGTH) ; (PROGN ; (ECASE FORMAT ; (8 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD8 :START XLIB::START ; :END XLIB::END :TRANSFORM XLIB::TRANSFORM)) ; (16 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD16 :START ; XLIB::START :END XLIB::END :TRANSFORM ; XLIB::TRANSFORM)) ; (32 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD32 :START ; XLIB::START :END XLIB::END :TRANSFORM ; XLIB::TRANSFORM))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DELETE-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-DELETEPROPERTY+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GET-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETPROPERTY+ NIL ; :SIZES (8 32)) ; (((XLIB::DATA BOOLEAN) XLIB::DELETE-P) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID) ; ((OR NULL XLIB:RESOURCE-ID) XLIB::TYPE-ID) (XLIB:CARD32 XLIB::START) ; (XLIB:CARD32 (XLIB::INDEX- (OR XLIB::END 64000) XLIB::START))) ; (LET ((XLIB::REPLY-FORMAT (XLIB::CARD8-GET 1)) ; (XLIB::REPLY-TYPE (XLIB::CARD32-GET 8)) ; (XLIB::BYTES-AFTER (XLIB::CARD32-GET 12)) ; (XLIB::NITEMS (XLIB::CARD32-GET 16))) ; (VALUES XLIB::REPLY-FORMAT XLIB::REPLY-TYPE XLIB::BYTES-AFTER ; (AND (PLUSP XLIB::NITEMS) (ECASE XLIB::REPLY-FORMAT # # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ROTATE-PROPERTIES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-ROTATEPROPERTIES+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 LENGTH) ; (XLIB:INT16 (- XLIB::DELTA)) ; ((SEQUENCE :END LENGTH) SEQUENCE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-SELECTION-OWNER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETSELECTIONOWNER+) ; ((OR NULL XLIB:WINDOW) XLIB::OWNER) ; (XLIB:RESOURCE-ID XLIB::SELECTION-ID) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CONVERT-SELECTION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CONVERTSELECTION+) ; (XLIB:WINDOW XLIB::REQUESTOR) ; (XLIB:RESOURCE-ID XLIB::SELECTION-ID XLIB::TYPE-ID) ; ((OR NULL XLIB:RESOURCE-ID) XLIB::PROPERTY-ID) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SEND-EVENT ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE) ; XLIB:DISPLAY XLIB::ARGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SENDEVENT+) ; ((XLIB::DATA BOOLEAN) XLIB::PROPAGATE-P) ; (LENGTH 11) ; ((OR (MEMBER :POINTER-WINDOW :INPUT-FOCUS) XLIB:WINDOW) XLIB:WINDOW) ; (XLIB:CARD32 (XLIB::ENCODE-EVENT-MASK XLIB:EVENT-MASK)) ; (XLIB:CARD8 XLIB::EXTERNAL-EVENT-CODE) ; (PROGN ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE) ; XLIB:DISPLAY XLIB::ARGS) ; (SETF (XLIB::BUFFER-BOFFSET XLIB:DISPLAY) ; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 44)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-POINTER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GRABPOINTER+ NIL ; :SIZES 8) ; (((XLIB::DATA BOOLEAN) XLIB::OWNER-P) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK)) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P)) ; ((OR NULL XLIB:WINDOW) XLIB::CONFINE-TO) ; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ((OR NULL XLIB:CARD32) TIME)) ; (VALUES ; (XLIB::MEMBER8-GET 1 :SUCCESS :ALREADY-GRABBED :INVALID-TIME :NOT-VIEWABLE ; :FROZEN))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-POINTER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-UNGRABPOINTER+) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-BUTTON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-GRABBUTTON+) ; ((XLIB::DATA BOOLEAN) XLIB::OWNER-P) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK)) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P)) ; ((OR NULL XLIB:WINDOW) XLIB::CONFINE-TO) ; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ; (XLIB:CARD8 ; (IF (EQ XLIB::BUTTON :ANY) ; 0 ; XLIB::BUTTON)) ; (XLIB::PAD8 1) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-BUTTON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNGRABBUTTON+) ; (XLIB::DATA ; (IF (EQ XLIB::BUTTON :ANY) ; 0 ; XLIB::BUTTON)) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-ACTIVE-POINTER-GRAB ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEACTIVEPOINTERGRAB+) ; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-KEYBOARD ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GRABKEYBOARD+ NIL ; :SIZES 8) ; (((XLIB::DATA BOOLEAN) XLIB::OWNER-P) (XLIB:WINDOW XLIB:WINDOW) ; ((OR NULL XLIB:CARD32) TIME) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P))) ; (VALUES ; (XLIB::MEMBER8-GET 1 :SUCCESS :ALREADY-GRABBED :INVALID-TIME :NOT-VIEWABLE ; :FROZEN))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-KEYBOARD ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-UNGRABKEYBOARD+) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-KEY ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-GRABKEY+) ; ((XLIB::DATA BOOLEAN) XLIB::OWNER-P) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS)) ; (XLIB:CARD8 ; (IF (EQ XLIB::KEY :ANY) ; 0 ; XLIB::KEY)) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-KEY ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNGRABKEY+) ; (XLIB::DATA ; (IF (EQ XLIB::KEY :ANY) ; 0 ; XLIB::KEY)) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-SERVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-GRABSERVER+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-SERVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-UNGRABSERVER+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MOTION-EVENTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETMOTIONEVENTS+ ; NIL :SIZES 32) ; ((XLIB:WINDOW XLIB:WINDOW) ((OR NULL XLIB:CARD32) XLIB::START XLIB::STOP)) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; (XLIB::INDEX* (XLIB::CARD32-GET 8) 3) :INDEX ; XLIB::+REPLYSIZE+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN TRANSLATE-COORDINATES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-TRANSLATECOORDS+ ; 16 :SIZES (8 16 32)) ; ((XLIB:WINDOW XLIB::SRC XLIB::DST) (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y)) ; (AND (XLIB::BOOLEAN-GET 1) ; (VALUES (XLIB::INT16-GET 12) (XLIB::INT16-GET 14) ; (XLIB::OR-GET 8 NULL XLIB:WINDOW)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WARP-POINTER ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::DST) ; XLIB::+X-WARPPOINTER+) ; (XLIB:RESOURCE-ID 0) ; (XLIB:WINDOW XLIB::DST) ; (XLIB:INT16 0 0) ; (XLIB:CARD16 0 0) ; (XLIB:INT16 XLIB::DST-X XLIB::DST-Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WARP-POINTER-RELATIVE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-WARPPOINTER+) ; (XLIB:RESOURCE-ID 0) ; (XLIB:RESOURCE-ID 0) ; (XLIB:INT16 0 0) ; (XLIB:CARD16 0 0) ; (XLIB:INT16 XLIB::X-OFF XLIB::Y-OFF)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WARP-POINTER-IF-INSIDE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::DST) ; XLIB::+X-WARPPOINTER+) ; (XLIB:WINDOW XLIB::SRC XLIB::DST) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y) ; (XLIB:CARD16 (OR XLIB::SRC-WIDTH 0) (OR XLIB::SRC-HEIGHT 0)) ; (XLIB:INT16 XLIB::DST-X XLIB::DST-Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WARP-POINTER-RELATIVE-IF-INSIDE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::SRC) ; XLIB::+X-WARPPOINTER+) ; (XLIB:WINDOW XLIB::SRC) ; (XLIB:RESOURCE-ID 0) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y) ; (XLIB:CARD16 (OR XLIB::SRC-WIDTH 0) (OR XLIB::SRC-HEIGHT 0)) ; (XLIB:INT16 XLIB::X-OFF XLIB::Y-OFF)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-PIXMAP ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:PIXMAP 'XLIB:PIXMAP) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEPIXMAP+) ; (XLIB::DATA XLIB::DEPTH) ; (XLIB:RESOURCE-ID XLIB::PID) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-PIXMAP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEPIXMAP+) ; (XLIB:PIXMAP XLIB:PIXMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CLEAR-AREA ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CLEARTOBACKGROUND+) ; ((XLIB::DATA BOOLEAN) XLIB::EXPOSURES-P) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 (OR XLIB::WIDTH 0) (OR XLIB::HEIGHT 0))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-AREA ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB::SRC) ; XLIB::+X-COPYAREA+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB::SRC XLIB::DST) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y XLIB::DST-X XLIB::DST-Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-PLANE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB::SRC) ; XLIB::+X-COPYPLANE+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB::SRC XLIB::DST) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y XLIB::DST-X XLIB::DST-Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) ; (XLIB:CARD32 XLIB::PLANE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-COLORMAP ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:COLORMAP 'XLIB:COLORMAP) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATECOLORMAP+) ; ((XLIB::DATA BOOLEAN) XLIB::ALLOC-P) ; (XLIB:CARD29 XLIB::ID) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD29 (XLIB:VISUAL-INFO-ID XLIB:VISUAL-INFO))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-COLORMAP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREECOLORMAP+) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-COLORMAP-AND-FREE ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB::NEW-COLORMAP 'XLIB:COLORMAP) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYCOLORMAPANDFREE+) ; (XLIB:RESOURCE-ID XLIB::ID) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN INSTALL-COLORMAP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-INSTALLCOLORMAP+) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNINSTALL-COLORMAP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-UNINSTALLCOLORMAP+) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALLOC-COLOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCNAMEDCOLOR+ ; 24 :SIZES (16 32)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (XLIB:CARD16 LENGTH) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::CARD32-GET 8) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 18) :GREEN ; (XLIB::RGB-VAL-GET 20) :BLUE ; (XLIB::RGB-VAL-GET 22)) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 12) :GREEN ; (XLIB::RGB-VAL-GET 14) :BLUE ; (XLIB::RGB-VAL-GET 16)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLOR+ 20 ; :SIZES (16 32)) ; ((XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB:COLOR) (XLIB:COLOR-GREEN XLIB:COLOR) ; (XLIB:COLOR-BLUE XLIB:COLOR)) ; (XLIB::PAD16 NIL)) ; (VALUES (XLIB::CARD32-GET 16) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 8) :GREEN ; (XLIB::RGB-VAL-GET 10) :BLUE ; (XLIB::RGB-VAL-GET 12)) ; XLIB:COLOR)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALLOC-COLOR-CELLS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLORCELLS+ ; NIL :SIZES 16) ; (((XLIB::DATA BOOLEAN) XLIB::CONTIGUOUS-P) (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD16 XLIB::COLORS XLIB::PLANES)) ; (LET ((XLIB::PIXEL-LENGTH (XLIB::CARD16-GET 8)) ; (XLIB::MASK-LENGTH (XLIB::CARD16-GET 10))) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::PIXEL-LENGTH :INDEX XLIB::+REPLYSIZE+) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::MASK-LENGTH :INDEX ; (XLIB::INDEX+ XLIB::+REPLYSIZE+ #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALLOC-COLOR-PLANES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLORPLANES+ ; NIL :SIZES (16 32)) ; (((XLIB::DATA BOOLEAN) XLIB::CONTIGUOUS-P) (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD16 XLIB::COLORS XLIB::REDS XLIB::GREENS XLIB::BLUES)) ; (LET ((XLIB::RED-MASK (XLIB::CARD32-GET 12)) ; (XLIB::GREEN-MASK (XLIB::CARD32-GET 16)) ; (XLIB::BLUE-MASK (XLIB::CARD32-GET 20))) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; (XLIB::CARD16-GET 8) :INDEX XLIB::+REPLYSIZE+) ; XLIB::RED-MASK XLIB::GREEN-MASK XLIB::BLUE-MASK))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-COLORS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-FREECOLORS+) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB::PLANE-MASK) ; (SEQUENCE XLIB::PIXELS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::PIXELS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN STORE-COLOR ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORENAMEDCOLOR+) ; ((XLIB::DATA XLIB:CARD8) XLIB::FLAGS) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB:PIXEL) ; (XLIB:CARD16 LENGTH) ; (XLIB::PAD16 NIL) ; (STRING STRING)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORECOLORS+) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB:PIXEL) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::SPEC) (XLIB:COLOR-GREEN XLIB::SPEC) ; (XLIB:COLOR-BLUE XLIB::SPEC)) ; (XLIB:CARD8 XLIB::FLAGS) ; (XLIB::PAD8 NIL)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORENAMEDCOLOR+) ; ((XLIB::DATA XLIB:CARD8) XLIB::FLAGS) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB:PIXEL) ; (XLIB:CARD16 LENGTH) ; (XLIB::PAD16 NIL) ; (STRING STRING)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-COLORS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYCOLORS+ NIL ; :SIZES (8 16)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (SEQUENCE XLIB::PIXELS)) ; (LET ((SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE #))) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+) ; (DOTIMES (XLIB::I (LENGTH SEQUENCE) SEQUENCE) ; (SETF # #) ; (XLIB::ADVANCE-BUFFER-OFFSET 8)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::PIXELS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (SETF (ELT SEQUENCE XLIB::I) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 0) :GREEN ; (XLIB::RGB-VAL-GET 2) :BLUE (XLIB::RGB-VAL-GET 4))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYCOLORS+ NIL ; :SIZES (8 16)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (SEQUENCE XLIB::PIXELS)) ; (LET ((SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE #))) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+) ; (DOTIMES (XLIB::I (LENGTH SEQUENCE) SEQUENCE) ; (SETF # #) ; (XLIB::ADVANCE-BUFFER-OFFSET 8)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN LOOKUP-COLOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LOOKUPCOLOR+ 20 ; :SIZES 16) ; ((XLIB:COLORMAP XLIB:COLORMAP) (XLIB:CARD16 LENGTH) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 14) :GREEN (XLIB::RGB-VAL-GET 16) ; :BLUE (XLIB::RGB-VAL-GET 18)) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 8) :GREEN (XLIB::RGB-VAL-GET 10) ; :BLUE (XLIB::RGB-VAL-GET 12)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-CURSOR ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATECURSOR+) ; (XLIB:RESOURCE-ID XLIB::CID) ; (XLIB:PIXMAP XLIB::SOURCE) ; ((OR NULL XLIB:PIXMAP) XLIB::MASK) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND) ; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND)) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND) ; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND)) ; (XLIB:CARD16 XLIB::X XLIB::Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-GLYPH-CURSOR ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEGLYPHCURSOR+) ; (XLIB:RESOURCE-ID XLIB::CID XLIB::SOURCE-FONT-ID XLIB::MASK-FONT-ID) ; (XLIB:CARD16 XLIB::SOURCE-CHAR) ; (XLIB:CARD16 XLIB::MASK-CHAR) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND) ; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND)) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND) ; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-CURSOR ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREECURSOR+) ; (XLIB:CURSOR XLIB:CURSOR)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RECOLOR-CURSOR ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:CURSOR-DISPLAY XLIB:CURSOR) ; XLIB::+X-RECOLORCURSOR+) ; (XLIB:CURSOR XLIB:CURSOR) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND) ; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND)) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND) ; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-BEST-CURSOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12 ; :SIZES 16) ; ((XLIB::DATA 0) (XLIB:WINDOW XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-BEST-TILE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12 ; :SIZES 16) ; ((XLIB::DATA 1) (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-BEST-STIPPLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12 ; :SIZES 16) ; ((XLIB::DATA 2) (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-EXTENSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYEXTENSION+ ; 12 :SIZES 8) ; ((XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) (STRING STRING)) ; (AND (XLIB::BOOLEAN-GET 8) ; (VALUES (XLIB::CARD8-GET 9) (XLIB::CARD8-GET 10) ; (XLIB::CARD8-GET 11)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-KEYBOARD-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEKEYBOARDCONTROL+ ; :SIZES (32)) ; (XLIB::MASK ; (INTEGER XLIB::KEY-CLICK-PERCENT XLIB::BELL-PERCENT XLIB::BELL-PITCH ; XLIB::BELL-DURATION) ; (XLIB:CARD32 XLIB::LED) ((MEMBER :OFF :ON) XLIB::LED-MODE) ; (XLIB:CARD32 XLIB::KEY) ; ((MEMBER :OFF :ON :DEFAULT) XLIB::AUTO-REPEAT-MODE))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-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 #:%BUFFER46)) ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN BELL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-BELL+) ; (XLIB::DATA (XLIB::INT8->CARD8 XLIB::PERCENT-FROM-NORMAL))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-POINTER-MAPPING ; (LENGTH MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-SETPOINTERMAPPING+ 2 :SIZES 8) ; ((XLIB::DATA (LENGTH MAP)) ((SEQUENCE :FORMAT XLIB:CARD8) MAP)) ; (VALUES (XLIB::BOOLEAN-GET 1))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-POINTER-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEPOINTERCONTROL+) ; (XLIB:INT16 NUMERATOR DENOMINATOR XLIB::THRESHOLD) ; (XLIB:CARD8 XLIB::ACCELERATION-P XLIB::THRESHOLD-P)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETSCREENSAVER+) ; (XLIB:INT16 XLIB::TIMEOUT XLIB::INTERVAL) ; ((XLIB::MEMBER8 :ON :OFF :DEFAULT) XLIB::BLANKING XLIB::EXPOSURES)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ACTIVATE-SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FORCESCREENSAVER+) ; (XLIB::DATA 1)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RESET-SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FORCESCREENSAVER+) ; (XLIB::DATA 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-ACCESS-HOST ; (LENGTH XLIB::ADDRESS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEHOSTS+) ; ((XLIB::DATA BOOLEAN) XLIB::REMOVE-P) ; (XLIB:CARD8 ; (XLIB::ENCODE-TYPE (OR NULL (MEMBER :INTERNET :DECNET :CHAOS) XLIB:CARD32) ; XLIB::FAMILY)) ; (XLIB:CARD16 (LENGTH XLIB::ADDRESS)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::ADDRESS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::ADDRESS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ACCESS-HOSTS ; (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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SETF (ELT SEQUENCE XLIB::I) ; (CONS ; (IF (< XLIB::FAMILY 3) ; (SVREF '# XLIB::FAMILY) ; XLIB::FAMILY) ; (XLIB::SEQUENCE-GET :LENGTH XLIB::LEN :FORMAT XLIB:CARD8 ; :RESULT-TYPE 'LIST :INDEX ; (+ XLIB::BUFFER-BOFFSET 4)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ACCESS-CONTROL ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LISTHOSTS+ 2 ; :SIZES 8) ; NIL ; (XLIB::BOOLEAN-GET 1)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-ACCESS-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEACCESSCONTROL+) ; ((XLIB::DATA BOOLEAN) XLIB::ENABLED-P)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN KILL-CLIENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-KILLCLIENT+) ; (XLIB:RESOURCE-ID XLIB:RESOURCE-ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN KILL-TEMPORARY-CLIENTS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-KILLCLIENT+) ; (XLIB:RESOURCE-ID 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN NO-OPERATION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-NOOPERATION+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/requests-tmp2K9J0HSR.fasl ; compilation finished in 0:00:01.452 ; compiling file "/usr/share/common-lisp/source/clx/fonts.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-OPENFONT+) ; (XLIB:RESOURCE-ID XLIB:FONT-ID) ; (XLIB:CARD16 (LENGTH XLIB::NAME-STRING)) ; (XLIB::PAD16 NIL) ; (STRING XLIB::NAME-STRING)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN OPEN-FONT-INTERNAL ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:FONT 'XLIB:FONT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (LENGTH XLIB::NAME-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-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. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CLOSE-FONT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CLOSEFONT+) ; (XLIB:RESOURCE-ID XLIB::ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN LIST-FONT-NAMES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LISTFONTS+ ; XLIB::SIZE :SIZES (8 16)) ; ((XLIB:CARD16 XLIB::MAX-FONTS (LENGTH STRING)) (STRING STRING)) ; (VALUES ; (XLIB::READ-SEQUENCE-STRING XLIB::BUFFER-BBUF ; (XLIB::INDEX- XLIB::SIZE XLIB::+REPLYSIZE+) ; (XLIB::CARD16-GET 8) XLIB::RESULT-TYPE ; XLIB::+REPLYSIZE+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN LIST-FONTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-LISTFONTSWITHINFO+ 60 :SIZES ; (8 16) :MULTIPLE-REPLY T) ; ((XLIB:CARD16 XLIB::MAX-FONTS (LENGTH STRING)) (STRING STRING)) ; (COND ((ZEROP (XLIB::CARD8-GET 1)) T) ; (T ; (LET* (# # # # # # # # #) ; (SETF #) ; (PUSH XLIB:FONT XLIB::RESULT)) ; NIL))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-FONT-PATH ; (ELT XLIB::PATHS XLIB::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (STRING (ELT XLIB::PATHS XLIB::I)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING ; SYMBOL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (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)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CEILING XLIB::REQUEST-LENGTH 4) ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; 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)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/fonts-tmpP44I4E0Y.fasl ; compilation finished in 0:00:00.260 ; compiling file "/usr/share/common-lisp/source/clx/graphics.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 ; ==> ; (= (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-POINTS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYPOINT+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-LINE ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 ; ==> ; (= (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-LINES ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYLINE+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FILL-POLYGON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-FILLPOLY+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((XLIB::MEMBER8 :COMPLEX :NON-CONVEX :CONVEX) XLIB::SHAPE) ; (BOOLEAN XLIB::RELATIVE-P) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-SEGMENTS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYSEGMENT+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::SEGMENTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::SEGMENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-RECTANGLE ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 ; ==> ; (= (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-RECTANGLES ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; (IF XLIB::FILL-P ; XLIB::+X-POLYFILLRECTANGLE+ ; XLIB::+X-POLYRECTANGLE+) ; :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::RECTANGLES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-ARC ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 ; ==> ; (= (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-ARCS-LIST ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::REQUEST :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (PROGN ; (XLIB::CARD16-PUT 2 (XLIB::INDEX+ (XLIB::INDEX-ASH LENGTH -1) 3)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)) ; (DO ((XLIB::ARC XLIB::ARCS)) ; ((ENDP XLIB::ARC) (SETF #)) ; (WHEN (XLIB::INDEX>= XLIB::BUFFER-BOFFSET XLIB::LIMIT) ; (SETF #) ; (XLIB::BUFFER-FLUSH XLIB:DISPLAY) ; (XLIB::SET-BUFFER-OFFSET #)) ; (XLIB::INT16-PUT 0 (POP XLIB::ARC)) ; (XLIB::INT16-PUT 2 (POP XLIB::ARC)) ; (XLIB::CARD16-PUT 4 (POP XLIB::ARC)) ; (XLIB::CARD16-PUT 6 (POP XLIB::ARC)) ; (XLIB::ANGLE-PUT 8 (POP XLIB::ARC)) ; (XLIB::ANGLE-PUT 10 (POP XLIB::ARC)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-ARCS-VECTOR ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 0)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 1)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 2)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 3)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 4)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 5)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::REQUEST :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (PROGN ; (XLIB::CARD16-PUT 2 (XLIB::INDEX+ (XLIB::INDEX-ASH LENGTH -1) 3)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)) ; (DO ((XLIB::N 0 #) ; (LENGTH #)) ; ((XLIB::INDEX>= XLIB::N LENGTH) (SETF #)) ; (WHEN (XLIB::INDEX>= XLIB::BUFFER-BOFFSET XLIB::LIMIT) ; (SETF #) ; (XLIB::BUFFER-FLUSH XLIB:DISPLAY) ; (XLIB::SET-BUFFER-OFFSET #)) ; (XLIB::INT16-PUT 0 (AREF XLIB::ARCS #)) ; (XLIB::INT16-PUT 2 (AREF XLIB::ARCS #)) ; (XLIB::CARD16-PUT 4 (AREF XLIB::ARCS #)) ; (XLIB::CARD16-PUT 6 (AREF XLIB::ARCS #)) ; (XLIB::ANGLE-PUT 8 (AREF XLIB::ARCS #)) ; (XLIB::ANGLE-PUT 10 (AREF XLIB::ARCS #)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN PUT-RAW-IMAGE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-PUTIMAGE+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA (MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP)) FORMAT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 XLIB::LEFT-PAD XLIB::DEPTH) ; (XLIB::PAD16 NIL) ; ((SEQUENCE :FORMAT XLIB:CARD8 :START XLIB::START) XLIB::DATA)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::DATA) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GET-RAW-IMAGE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETIMAGE+ NIL ; :SIZES (8 32)) ; (((XLIB::DATA (MEMBER ERROR :XY-PIXMAP :Z-PIXMAP)) FORMAT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) (XLIB:CARD32 XLIB::PLANE-MASK)) ; (LET ((XLIB::DEPTH (XLIB::CARD8-GET 1)) ; (LENGTH (* 4 #)) ; (XLIB::VISUAL (XLIB::RESOURCE-ID-GET 8))) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :FORMAT XLIB:CARD8 ; :LENGTH LENGTH :START XLIB::START :DATA XLIB::DATA ; :INDEX ...) ; XLIB::DEPTH (XLIB:VISUAL-INFO XLIB:DISPLAY XLIB::VISUAL)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/graphics-tmp63LQ7EX6.fasl ; compilation finished in 0:00:00.276 ; compiling file "/usr/share/common-lisp/source/clx/text.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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 ; 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))) ; --> THE ; ==> ; (+ ; (IF (OR (XLIB::FONT-CHAR-INFOS-INTERNAL XLIB:FONT) ; (XLIB::FONT-LOCAL-ONLY-P XLIB:FONT)) ; (XLIB::TEXT-EXTENTS-LOCAL XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END ; :WIDTH-ONLY) ; (XLIB::TEXT-WIDTH-SERVER XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END)) ; XLIB::WIDTH) ; ; note: forced to do 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) ; &OPTIONAL). ; etc. ; in: DEFUN TEXT-EXTENTS-SERVER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYTEXTEXTENTS+ ; 28 :SIZES (8 16 32)) ; (((XLIB::DATA BOOLEAN) (ODDP LENGTH)) ; (LENGTH (XLIB::INDEX+ (XLIB::INDEX-CEILING LENGTH 2) 2)) ; (XLIB:RESOURCE-ID XLIB:FONT-ID) ; ((SEQUENCE :FORMAT XLIB::CHAR2B :START XLIB::START :END XLIB::END ; :APPENDING T) ; SEQUENCE)) ; (VALUES (XLIB::INTEGER-GET 16) (XLIB::INT16-GET 12) (XLIB::INT16-GET 14) ; (XLIB::INTEGER-GET 20) (XLIB::INTEGER-GET 24) (XLIB::INT16-GET 8) ; (XLIB::INT16-GET 10) ; (XLIB::MEMBER8-GET 1 :LEFT-TO-RIGHT :RIGHT-TO-LEFT))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN TEXT-WIDTH-SERVER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYTEXTEXTENTS+ ; 28 :SIZES 32) ; (((XLIB::DATA BOOLEAN) (ODDP LENGTH)) ; (LENGTH (XLIB::INDEX+ (XLIB::INDEX-CEILING LENGTH 2) 2)) ; (XLIB:RESOURCE-ID XLIB:FONT-ID) ; ((SEQUENCE :FORMAT XLIB::CHAR2B :START XLIB::START :END XLIB::END ; :APPENDING T) ; SEQUENCE)) ; (VALUES (XLIB::INTEGER-GET 16))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-GLYPH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 1 0) ; (XLIB:CARD8 (LDB (BYTE 8 0) ELT)) ; (XLIB:CARD8 (LDB (BYTE 8 8) ELT))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF XLIB::OVERALL-WIDTH XLIB::TRANSLATED-WIDTH) ; --> THE ; ==> ; (+ XLIB::TRANSLATED-WIDTH XLIB::OVERALL-WIDTH) ; ; 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) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT8+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (DO* (# ; # ; # ; # ; # ; #) ; (# # # # # #) ; (DECLARE # ; # ; #) ; (SETQ #) ; (MULTIPLE-VALUE-BIND # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 # # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF XLIB::OVERALL-WIDTH XLIB::TRANSLATED-WIDTH) ; --> THE ; ==> ; (+ XLIB::TRANSLATED-WIDTH XLIB::OVERALL-WIDTH) ; ; 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) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT16+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (DO* (# ; # ; # ; # ; # ; #) ; (# # # # # #) ; (DECLARE # ; # ; #) ; (SETQ #) ; (MULTIPLE-VALUE-BIND # # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-IMAGE-GLYPH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB::DATA 1) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 (LDB (BYTE 8 0) ELT)) ; (XLIB:CARD8 (LDB (BYTE 8 8) ELT))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-IMAGE-GLYPHS8 ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-IMAGETEXT8+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (MULTIPLE-VALUE-SETQ (XLIB::NEW-START XLIB:FONT XLIB::TRANSLATED-WIDTH) ; (FUNCALL # SEQUENCE XLIB::START XLIB::END XLIB:FONT XLIB::BUFFER-BBUF ; #)) ; (SETQ XLIB::CHUNK #) ; (WHEN (AND # #) (SETQ #) (RETURN-FROM XLIB::CHANGE-FONT)) ; (WHEN (XLIB::INDEX-ZEROP XLIB::CHUNK) ; (RETURN-FROM XLIB::DRAW-IMAGE-GLYPHS8 XLIB::NEW-START)) ; (XLIB::DATA-PUT 1 XLIB::CHUNK) ; (LET (#) ; (XLIB::LENGTH-PUT 2 #) ; (SETF #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-IMAGE-GLYPHS16 ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-IMAGETEXT16+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (MULTIPLE-VALUE-SETQ (XLIB::NEW-START XLIB:FONT XLIB::TRANSLATED-WIDTH) ; (FUNCALL # SEQUENCE XLIB::START XLIB::END XLIB:FONT XLIB::BUFFER 0)) ; (SETQ XLIB::CHUNK #) ; (WHEN (AND # #) (SETQ #) (RETURN-FROM XLIB::CHANGE-FONT)) ; (WHEN (XLIB::INDEX-ZEROP XLIB::CHUNK) ; (RETURN-FROM XLIB::DRAW-IMAGE-GLYPHS16 XLIB::NEW-START)) ; (XLIB::WRITE-SEQUENCE-CHAR2B XLIB:DISPLAY ; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16) ; XLIB::BUFFER 0 XLIB::CHUNK) ; (XLIB::DATA-PUT 1 XLIB::CHUNK) ; (LET (#) ; (XLIB::LENGTH-PUT 2 #) ; (SETF #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-KEYBOARD-MAPPING ; (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))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (AREF XLIB::KEYSYMS XLIB::I XLIB::J) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (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))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN KEYBOARD-MAPPING ; (1+ XLIB::I) ; ; 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-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 # #)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SETF (AREF XLIB::RESULT XLIB::I XLIB::J) (XLIB::CARD29-GET (* XLIB::J 4))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (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 # #)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/text-tmp86F1A8FB.fasl ; compilation finished in 0:00:00.416 ; compiling file "/usr/share/common-lisp/source/clx/attributes.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-DRAWABLE-GEOMETRY ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-CONFIGUREWINDOW+) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 (ASH 1 NUMBER)) ; (XLIB:CARD29 XLIB::VALUE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> UNWIND-PROTECT FLET BLOCK 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> UNWIND-PROTECT FLET BLOCK 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN PUT-WINDOW-ATTRIBUTE-CHANGES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEWINDOWATTRIBUTES+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::MASK) ; (PROGN ; (DO ((XLIB::BITS XLIB::MASK #) ; (XLIB::REQUEST-SIZE 2) ; (XLIB::I 1 #)) ; ((ZEROP XLIB::BITS) (XLIB::CARD16-PUT 2 #) (XLIB::INDEX-INCF # #)) ; (DECLARE (TYPE XLIB:MASK32 XLIB::BITS) ; (TYPE XLIB:ARRAY-INDEX XLIB::I XLIB::REQUEST-SIZE)) ; (WHEN (ODDP XLIB::BITS) (XLIB::CARD32-PUT # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN PUT-DRAWABLE-GEOMETRY-CHANGES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CONFIGUREWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 XLIB::MASK) ; (PROGN ; (DO ((XLIB::BITS XLIB::MASK #) ; (XLIB::REQUEST-SIZE 2) ; (XLIB::I 1 #)) ; ((ZEROP XLIB::BITS) (XLIB::CARD16-PUT 2 #) (XLIB::INDEX-INCF # #)) ; (DECLARE (TYPE XLIB:MASK16 XLIB::BITS) ; (TYPE FIXNUM XLIB::REQUEST-SIZE) ; (TYPE XLIB:ARRAY-INDEX XLIB::I)) ; (WHEN (ODDP XLIB::BITS) (XLIB::CARD29-PUT # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/attributes-tmpH7D4HL98.fasl ; compilation finished in 0:00:00.256 ; compiling file "/usr/share/common-lisp/source/clx/translate.lisp" (written 27 DEC 2022 07:29:08 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/translate-tmpCDM7YXYI.fasl ; compilation finished in 0:00:00.228 ; compiling file "/usr/share/common-lisp/source/clx/keysyms.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/keysyms-tmpLM57P5P.fasl ; compilation finished in 0:00:00.016 ; compiling file "/usr/share/common-lisp/source/clx/manager.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/manager-tmpZE69DN33.fasl ; compilation finished in 0:00:00.588 ; compiling file "/usr/share/common-lisp/source/clx/image.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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 LIST 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN PUT-IMAGE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-PUTIMAGE+ :GC-FORCE ; XLIB:GCONTEXT) ; ((XLIB::DATA (MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP)) ; (COND ((OR # XLIB::BITMAP-P) :BITMAP) ((PLUSP XLIB::LEFT-PAD) :XY-PIXMAP) ; (T FORMAT))) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 XLIB::WIDTH XLIB::REQUEST-HEIGHT) ; (XLIB:INT16 XLIB::X XLIB::REQUEST-Y) ; (XLIB:CARD8 XLIB::LEFT-PAD XLIB::DEPTH) ; (XLIB::PAD16 NIL) ; (PROGN ; (XLIB::LENGTH-PUT 2 XLIB::REQUEST-LENGTH) ; (SETF (XLIB::BUFFER-BOFFSET XLIB:DISPLAY) ; (XLIB::ADVANCE-BUFFER-OFFSET 24)) ; (ETYPECASE XLIB:IMAGE ; (XLIB:IMAGE-X (ECASE # # #)) ; (XLIB:IMAGE-XY ; (XLIB::WRITE-IMAGE-XY XLIB:DISPLAY XLIB:IMAGE XLIB::LEFT-PADDED-SRC-X ; XLIB::REQUEST-SRC-Y XLIB::LEFT-PADDED-WIDTH XLIB::REQUEST-HEIGHT ; XLIB::PADDED-BYTES-PER-LINE XLIB::UNIT XLIB::BYTE-LSB-FIRST-P ; XLIB::BIT-LSB-FIRST-P)) ; (XLIB:IMAGE-Z ; (XLIB::WRITE-IMAGE-Z XLIB:DISPLAY XLIB:IMAGE XLIB::LEFT-PADDED-SRC-X ; XLIB::REQUEST-SRC-Y XLIB::LEFT-PADDED-WIDTH XLIB::REQUEST-HEIGHT ; XLIB::PADDED-BYTES-PER-LINE XLIB::UNIT XLIB::BYTE-LSB-FIRST-P ; XLIB::BIT-LSB-FIRST-P))) ; (XLIB::BUFFER-PAD-REQUEST XLIB:DISPLAY ; (XLIB::INDEX- ; (XLIB::INDEX* XLIB::REQUEST-WORDS 4) ; XLIB::REQUEST-BYTES)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/image-tmpG8099TO3.fasl ; compilation finished in 0:00:01.060 ; compiling file "/usr/share/common-lisp/source/clx/resource.lisp" (written 27 DEC 2022 07:29:08 AM): ; file: /usr/share/common-lisp/source/clx/resource.lisp ; in: DEFUN DELETE-RESOURCE-INTERNAL ; (SETQ XLIB::LOOSE-P NIL) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/resource-tmpTASQCYAW.fasl ; compilation finished in 0:00:00.240 ; compiling file "/usr/share/common-lisp/source/clx/extensions/shape.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SHAPE-RECTANGLES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 1) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-RECTANGLE-ORDERING XLIB::ORDERING)) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::RECTANGLES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SHAPE-COMBINE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 3) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::SOURCE-KIND)) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET) ; (XLIB:WINDOW XLIB::SOURCE-WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SHAPE-OFFSET ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 4) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 0) ; (XLIB:CARD8 0) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/shape-tmp35U57IV6.fasl ; compilation finished in 0:00:00.216 ; compiling file "/usr/share/common-lisp/source/clx/extensions/big-requests.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/big-requests-tmpTZOONXRW.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xvidmode.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SET-CLIENT-VERSION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SET-CLIENT-VERSION+) ; (XLIB:CARD16 XLIB::+XF86VIDMODE-MAJOR-VERSION+) ; (XLIB:CARD16 XLIB::+XF86VIDMODE-MINOR-VERSION+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-PERMISSIONS ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-PERMISIONS+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-MOD-MODE-LINE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+MOD-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; ((SEQUENCE :FORMAT XLIB:CARD16 :START 2) XLIB::V)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+MOD-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; ((SEQUENCE :FORMAT XLIB:CARD16 :START 2) XLIB::V)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-MODE-LINE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MODE-LINE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0)) ; (LET ((XLIB::MODE-INFO ; (XLIB::MAKE-MODE-INFO :DOTCLOCK # :HDISPLAY # :HSYNCSTART # ; :HSYNCEND # :HTOTAL # :HSKEW ...)) ; (XLIB::SIZE (XLIB::CARD32-GET #))) ; (DECLARE (TYPE XLIB:CARD32 XLIB::SIZE)) ; (INCF XLIB::OFFSET 4) ; (SETF (XLIB::MODE-INFO-PRIVSIZE XLIB::MODE-INFO) XLIB::SIZE ; (XLIB::MODE-INFO-PRIVATE XLIB::MODE-INFO) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :INDEX XLIB::OFFSET ; :LENGTH XLIB::SIZE :RESULT-TYPE 'LIST)) ; XLIB::MODE-INFO)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MODE-LINE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0)) ; (LET ((XLIB::MODE-INFO ; (XLIB::MAKE-MODE-INFO :DOTCLOCK # :HDISPLAY # :HSYNCSTART # ; :HSYNCEND # :HTOTAL # :HSKEW ...)) ; (XLIB::SIZE (XLIB::CARD32-GET #))) ; (DECLARE (TYPE XLIB:CARD32 XLIB::SIZE)) ; (INCF XLIB::OFFSET 4) ; (SETF (XLIB::MODE-INFO-PRIVSIZE XLIB::MODE-INFO) XLIB::SIZE ; (XLIB::MODE-INFO-PRIVATE XLIB::MODE-INFO) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :INDEX XLIB::OFFSET ; :LENGTH XLIB::SIZE :RESULT-TYPE 'LIST)) ; XLIB::MODE-INFO)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-ALL-MODE-LINES ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::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 ...))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-ADD-MODE-LINE ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-DELETE-MODE-LINE ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-VALIDATE-MODE-LINE ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+VALIDATE-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V)) ; (LET ((XLIB::STATUS (XLIB::INTEGER-GET 8))) ; (DECLARE (TYPE XLIB:INT32 XLIB::STATUS)) ; (WHEN XLIB::STATUS (XLIB::DECODE-STATUS-MODE XLIB::STATUS)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0) (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0) ; (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0)) ; (VALUES (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0) (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0) ; (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0)) ; (VALUES (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SET-GAMMA ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+SET-GAMMA+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 0) ; (XLIB:CARD32 (TRUNCATE (* XLIB::RED 10000))) ; (XLIB:CARD32 (TRUNCATE (* XLIB::GREEN 10000))) ; (XLIB:CARD32 (TRUNCATE (* XLIB::BLUE 10000))) ; (XLIB:CARD32 0) ; (XLIB:CARD32 0) ; (XLIB:CARD32 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE)) ; (LET ((XLIB::REP-SIZE (* # 2))) ; (DECLARE (TYPE FIXNUM XLIB::REP-SIZE)) ; (UNLESS (ZEROP XLIB::REP-SIZE) ; (LET* (# #) ; (DECLARE #) ; (VALUES # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE)) ; (LET ((XLIB::REP-SIZE (* # 2))) ; (DECLARE (TYPE FIXNUM XLIB::REP-SIZE)) ; (UNLESS (ZEROP XLIB::REP-SIZE) ; (LET* (# #) ; (DECLARE #) ; (VALUES # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SET-GAMMA-RAMP ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+SET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE) ; ((SEQUENCE :FORMAT XLIB:CARD16) ; (IF (ZEROP (MOD XLIB::SIZE 2)) ; (CONCATENATE 'VECTOR XLIB::RED XLIB::GREEN XLIB::BLUE) ; (CONCATENATE 'VECTOR XLIB::RED '#(0) XLIB::GREEN '#(0) XLIB::BLUE ; '#(0))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP-SIZE ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA-RAMP-SIZE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (XLIB::CARD16-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-LOCK-MODE-SWITCH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+LOCK-MODE-SWITCH+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 ; (IF XLIB::LOCK-P ; 1 ; 0))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+LOCK-MODE-SWITCH+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 ; (IF XLIB::LOCK-P ; 1 ; 0))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SWITCH-TO-MODE ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-TO-MODE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SWITCH-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 XLIB::ZOOM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 XLIB::ZOOM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SELECT-NEXT-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 1)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 1)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SELECT-PREV-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 65535)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 65535)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-MONITOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MONITOR+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (LET* ((XLIB::VENDOR-NAME-LENGTH (XLIB::CARD8-GET 8)) ; (XLIB::MODEL-NAME-LENGTH (XLIB::CARD8-GET 9)) ; (XLIB::PAD (- 4 #)) ; (XLIB::NHSYNC (XLIB::CARD8-GET 10)) ; (XLIB::NVSYNC (XLIB::CARD8-GET 11)) ; (XLIB::VINDEX (+ 32 #)) ; (XLIB::MINDEX (+ XLIB::VINDEX XLIB::VENDOR-NAME-LENGTH XLIB::PAD)) ; (XLIB::HSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NHSYNC :INDEX 32 :RESULT-TYPE ; 'LIST)) ; (XLIB::VSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NVSYNC :INDEX # :RESULT-TYPE ; 'LIST))) ; (DECLARE ; (TYPE XLIB:CARD8 XLIB::NHSYNC XLIB::NVSYNC XLIB::VENDOR-NAME-LENGTH ; XLIB::MODEL-NAME-LENGTH) ; (TYPE FIXNUM XLIB::PAD XLIB::VINDEX XLIB::MINDEX)) ; (VALUES ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::HSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::VSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (XLIB::STRING-GET XLIB::VENDOR-NAME-LENGTH XLIB::VINDEX) ; (XLIB::STRING-GET XLIB::MODEL-NAME-LENGTH XLIB::MINDEX)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MONITOR+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (LET* ((XLIB::VENDOR-NAME-LENGTH (XLIB::CARD8-GET 8)) ; (XLIB::MODEL-NAME-LENGTH (XLIB::CARD8-GET 9)) ; (XLIB::PAD (- 4 #)) ; (XLIB::NHSYNC (XLIB::CARD8-GET 10)) ; (XLIB::NVSYNC (XLIB::CARD8-GET 11)) ; (XLIB::VINDEX (+ 32 #)) ; (XLIB::MINDEX (+ XLIB::VINDEX XLIB::VENDOR-NAME-LENGTH XLIB::PAD)) ; (XLIB::HSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NHSYNC :INDEX 32 :RESULT-TYPE ; 'LIST)) ; (XLIB::VSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NVSYNC :INDEX # :RESULT-TYPE ; 'LIST))) ; (DECLARE ; (TYPE XLIB:CARD8 XLIB::NHSYNC XLIB::NVSYNC XLIB::VENDOR-NAME-LENGTH ; XLIB::MODEL-NAME-LENGTH) ; (TYPE FIXNUM XLIB::PAD XLIB::VINDEX XLIB::MINDEX)) ; (VALUES ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::HSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::VSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (XLIB::STRING-GET XLIB::VENDOR-NAME-LENGTH XLIB::VINDEX) ; (XLIB::STRING-GET XLIB::MODEL-NAME-LENGTH XLIB::MINDEX)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-VIEWPORT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-VIEWPORT+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-VIEWPORT+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SET-VIEWPORT ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-DOTCLOCKS ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-DOT-CLOCKS+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 16) ; (XLIB::SEQUENCE-GET :LENGTH (XLIB::CARD32-GET 12) :FORMAT ; XLIB:CARD32 :INDEX 32 :RESULT-TYPE 'LIST))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xvidmode-tmpWN0UKDSV.fasl ; compilation finished in 0:00:00.700 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xrender.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xrender-tmpBF3HHBTQ.fasl ; compilation finished in 0:00:00.876 ; compiling file "/usr/share/common-lisp/source/clx/extensions/glx.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/glx.lisp ; in: DEFUN QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+QUERY-VERSION+) (XLIB:CARD32 1) (XLIB:CARD32 3)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+QUERY-SERVER-STRING+) ; (XLIB:CARD32 (OR (POSITION XLIB:SCREEN # :TEST #'EQ) 0)) ; (XLIB:CARD32 XLIB/GLX::NAME)) ; (LET* ((LENGTH (XLIB::CARD32-GET 12)) ; (XLIB/GLX::BYTES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD8 :RESULT-TYPE '# :INDEX 32 ; :LENGTH LENGTH))) ; (DECLARE (TYPE (SIMPLE-ARRAY XLIB:CARD8 #) XLIB/GLX::BYTES) ; (TYPE FIXNUM LENGTH)) ; (MAP-INTO (MAKE-STRING (1- LENGTH)) #'CODE-CHAR XLIB/GLX::BYTES))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CLIENT-INFO ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+CLIENT-INFO+) ; (XLIB:CARD32 4) ; (XLIB:CARD32 1) ; (XLIB:CARD32 3) ; (XLIB:CARD32 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MAKE-CONTEXT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB/GLX::CTX 'XLIB/GLX::CONTEXT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN CREATE-CONTEXT ; (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 LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+CREATE-CONTEXT+) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX)) ; (XLIB:RESOURCE-ID XLIB/GLX::VISUAL) ; (XLIB:CARD32 ; (OR (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY) :TEST #'EQ) 0)) ; (XLIB:RESOURCE-ID XLIB/GLX::SHARE-LIST) ; (BOOLEAN XLIB/GLX:IS-DIRECT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DESTROY-CONTEXT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+DESTROY-CONTEXT+) ; (XLIB:RESOURCE-ID XLIB/GLX::ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN IS-DIRECT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+IS-DIRECT+) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX))) ; (XLIB::CARD8-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-CONTEXT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+QUERY-CONTEXT+) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX))) ; (LET ((XLIB/GLX::NUM-ATTRIBUTES (XLIB::CARD32-GET 8))) ; (DECLARE (TYPE FIXNUM XLIB/GLX::NUM-ATTRIBUTES)) ; (LOOP XLIB/GLX::REPEAT XLIB/GLX::NUM-ATTRIBUTES ; XLIB/GLX::FOR XLIB/GLX::I FIXNUM XLIB/GLX::UPFROM 32 XLIB/GLX::BY 8 ; XLIB/GLX::COLLECTING (CONS (XLIB::CARD32-GET XLIB/GLX::I) ; (XLIB::CARD32-GET #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GET-DRAWABLE-ATTRIBUTES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+GET-DRAWABLE-ATTRIBUTES+) ; (XLIB:DRAWABLE XLIB:DRAWABLE)) ; (LET ((XLIB/GLX::NUM-ATTRIBUTES (XLIB::CARD32-GET 8))) ; (DECLARE (TYPE FIXNUM XLIB/GLX::NUM-ATTRIBUTES)) ; (LOOP XLIB/GLX::REPEAT XLIB/GLX::NUM-ATTRIBUTES ; XLIB/GLX::FOR XLIB/GLX::I FIXNUM XLIB/GLX::UPFROM 32 XLIB/GLX::BY 8 ; XLIB/GLX::COLLECTING (CONS (XLIB::CARD32-GET XLIB/GLX::I) ; (XLIB::CARD32-GET #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MAKE-CURRENT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+MAKE-CURRENT+) ; (XLIB:RESOURCE-ID (XLIB:DRAWABLE-ID XLIB:DRAWABLE)) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX)) ; (XLIB:CARD32 XLIB/GLX::OLD-TAG)) ; (LET ((XLIB/GLX::NEW-TAG (XLIB::CARD32-GET 8))) ; (SETF (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX) XLIB/GLX::NEW-TAG ; (XLIB/GLX::CONTEXT-DRAWABLE XLIB/GLX::CTX) XLIB:DRAWABLE ; (XLIB/GLX::CONTEXT-DISPLAY XLIB/GLX::CTX) XLIB:DISPLAY ; XLIB/GLX::*CURRENT-CONTEXT* XLIB/GLX::CTX))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 LIST VECTOR). ; (LOOP XLIB/GLX::REPEAT (/ (- XLIB/GLX::NUM-PROPERTIES XLIB/GLX::NUM-ORDERED) ; 2) ; XLIB/GLX::COLLECTING (CONS (XLIB::CARD32-GET (INCF XLIB/GLX::INDEX 4)) ; (XLIB::CARD32-GET (INCF XLIB/GLX::INDEX 4)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+GET-VISUAL-CONFIGS+) ; (XLIB:CARD32 (OR (POSITION XLIB:SCREEN # :TEST #'EQ) 0))) ; (LET* ((XLIB/GLX::NUM-VISUALS (XLIB::CARD32-GET 8)) ; (XLIB/GLX::NUM-PROPERTIES (XLIB::CARD32-GET 12)) ; (XLIB/GLX::NUM-ORDERED ; (LENGTH XLIB/GLX::*VISUAL-CONFIG-PROPERTIES*))) ; (DECLARE ; (TYPE FIXNUM XLIB/GLX::NUM-ORDERED XLIB/GLX::NUM-VISUALS ; XLIB/GLX::NUM-PROPERTIES)) ; (LOOP XLIB/GLX::WITH XLIB/GLX::INDEX FIXNUM = 28 ; XLIB/GLX::REPEAT XLIB/GLX::NUM-VISUALS ; XLIB/GLX::COLLECTING (XLIB/GLX::MAKE-VISUAL (NCONC # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SWAP-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+SWAP-BUFFERS+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX)) ; (XLIB:RESOURCE-ID ; (XLIB:DRAWABLE-ID (XLIB/GLX::CONTEXT-DRAWABLE XLIB/GLX::CTX)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WAIT-GL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+WAIT-GL+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WAIT-X ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+WAIT-X+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/glx-tmpGYUNPZCY.fasl ; compilation finished in 0:00:00.288 ; compiling file "/usr/share/common-lisp/source/clx/extensions/gl.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/gl.lisp ; in: DEFINE-SEQUENCE-SETTER INT8 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT8) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER INT16 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT16) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER INT32 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT32) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER BOOL ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::BOOL) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER CARD8 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD8) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER CARD16 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD16) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER CARD32 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD32) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER FLOAT32 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::FLOAT32) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER FLOAT64 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::FLOAT64) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN GET-STRING ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+GET-STRING+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (XLIB:CARD32 XLIB/GL::NAME)) ; (LET* ((LENGTH (XLIB::CARD32-GET 12)) ; (XLIB/GL::BYTES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD8 :RESULT-TYPE '# :INDEX 32 ; :LENGTH LENGTH))) ; (DECLARE (TYPE (SIMPLE-ARRAY XLIB:CARD8 #) XLIB/GL::BYTES) ; (TYPE FIXNUM LENGTH)) ; (MAP-INTO (MAKE-STRING (1- LENGTH)) #'CODE-CHAR XLIB/GL::BYTES))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN NEW-LIST ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GL::+NEW-LIST+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (XLIB:CARD32 LIST) ; (XLIB:CARD32 XLIB/GL::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GEN-LISTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+GEN-LISTS+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (INTEGER XLIB/GL::RANGE)) ; (XLIB::CARD32-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN END-LIST ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GL::+END-LIST+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ENABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+ENABLE+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (XLIB:CARD32 XLIB/GL::CAP))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FLUSH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GL::+FLUSH+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FINISH ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+FINISH+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/gl-tmpD68Q8WCA.fasl ; compilation finished in 0:00:01.228 ; compiling file "/usr/share/common-lisp/source/clx/extensions/dpms.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/dpms.lisp ; in: DEFUN DPMS-GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+GET-VERSION+) ; (XLIB:CARD16 XLIB/DPMS::MAJOR-VERSION) ; (XLIB:CARD16 XLIB/DPMS::MINOR-VERSION)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-CAPABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+CAPABLE+)) ; (XLIB::BOOLEAN-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-GET-TIMEOUTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+GET-TIMEOUTS+)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10) (XLIB::CARD16-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-SET-TIMEOUTS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/DPMS::+SET-TIMEOUTS+) ; (XLIB:CARD16 XLIB/DPMS::STANDBY) ; (XLIB:CARD16 XLIB/DPMS::SUSPEND) ; (XLIB:CARD16 XLIB/DPMS::OFF) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-ENABLE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/DPMS::+ENABLE+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-DISABLE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; ((XLIB::DATA XLIB/DPMS::+DISABLE+))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-FORCE-LEVEL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/DPMS::+FORCE-LEVEL+) ; (XLIB:CARD16 ; (ECASE XLIB/DPMS::POWER-LEVEL ; (:DPMS-MODE-ON 0) ; (:DPMS-MODE-STANDBY 1) ; (:DPMS-MODE-SUSPEND 2) ; (:DPMS-MODE-OFF 3))) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+INFO+)) ; (LET ((XLIB/DPMS::STATE ; (IF # ; :DPMS-ENABLED ; :DPMS-DISABLED))) ; (VALUES (UNLESS (EQ XLIB/DPMS::STATE :DPMS-DISABLED) (ECASE # # # # #)) ; XLIB/DPMS::STATE))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/dpms-tmp7MK9KM9C.fasl ; compilation finished in 0:00:00.052 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xtest.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/xtest.lisp ; in: DEFUN GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/XTEST::OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB/XTEST::+GET-VERSION+) (XLIB:CARD8 XLIB/XTEST::MAJOR) ; (XLIB:CARD16 XLIB/XTEST::MINOR)) ; (VALUES (XLIB::CARD8-GET 1) (XLIB::CARD16-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPARE-CURSOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/XTEST::OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB/XTEST::+COMPARE-CURSOR+) ; (XLIB:RESOURCE-ID (XLIB:WINDOW-ID XLIB:WINDOW)) ; (XLIB:RESOURCE-ID XLIB:CURSOR-ID)) ; (VALUES (XLIB::CARD8-GET 1))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FAKE-MOTION-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 XLIB/XTEST::+FAKE-MOTION-NOTIFY+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::RELATIVE ; 1 ; 0)) ; (XLIB/XTEST::PAD16 0) ; (XLIB:CARD32 XLIB/XTEST::DELAY) ; (XLIB:CARD32 XLIB/XTEST::ROOT-WINDOW-ID) ; (XLIB/XTEST::PAD32 0 0) ; (XLIB:CARD16 XLIB/XTEST::X) ; (XLIB:CARD16 XLIB/XTEST::Y) ; (XLIB/XTEST::PAD32 0 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FAKE-BUTTON-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::PRESSED ; XLIB/XTEST::+FAKE-BUTTON-PRESS+ ; XLIB/XTEST::+FAKE-BUTTON-RELEASE+)) ; (XLIB:CARD8 XLIB/XTEST::BUTTON) ; (XLIB/XTEST::PAD16 0) ; (XLIB:CARD32 XLIB/XTEST::DELAY) ; (XLIB/XTEST::PAD32 0 0 0 0 0 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FAKE-KEY-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::PRESSED ; XLIB/XTEST::+FAKE-KEY-PRESS+ ; XLIB/XTEST::+FAKE-KEY-RELEASE+)) ; (XLIB:CARD8 XLIB/XTEST::KEYCODE) ; (XLIB/XTEST::PAD16 0) ; (XLIB:CARD32 XLIB/XTEST::DELAY) ; (XLIB/XTEST::PAD32 0 0 0 0 0 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+GRAB-CONTROL+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::GRAB? ; 1 ; 0)) ; (XLIB/XTEST::PAD8 0) ; (XLIB/XTEST::PAD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xtest-tmpJJ71X849.fasl ; compilation finished in 0:00:00.052 ; compiling file "/usr/share/common-lisp/source/clx/extensions/screensaver.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/screensaver.lisp ; in: DEFUN SCREEN-SAVER-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "MIT-SCREEN-SAVER") ; NIL) ; ((XLIB::DATA 0) (XLIB:CARD8 1) (XLIB:CARD8 0) (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/screensaver-tmp1VUK6SR2.fasl ; compilation finished in 0:00:00.016 ; compiling file "/usr/share/common-lisp/source/clx/extensions/randr.lisp" (written 27 DEC 2022 07:29:08 AM): ; file: /usr/share/common-lisp/source/clx/extensions/randr.lisp ; in: DEFUN RR-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (32)) ; ((XLIB::DATA XLIB::+RR-QUERYVERSION+) (XLIB:CARD32 XLIB::+RR-MAJOR+) ; (XLIB:CARD32 XLIB::+RR-MINOR+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-SCREEN-CONFIG ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (16 32)) ; ((XLIB::DATA XLIB::+RR-SETSCREENCONFIG+) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB:TIMESTAMP) (XLIB:CARD32 XLIB::CONF-TIMESTAMP) ; (XLIB:CARD16 XLIB::SIZE-ID) (XLIB:CARD16 XLIB::ROT-MASK) ; (XLIB:CARD16 XLIB::REFRESH) (XLIB::PAD16)) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) (XLIB::WINDOW-GET 16) ; (XLIB::MEMBER16-VECTOR-GET 20 XLIB::+RENDER-SUBPIXEL-ORDER+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SELECT-INPUT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SELECTINPUT+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 XLIB::SELECT-MASK) ; (XLIB::PAD16)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-SCREEN-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETSCREENINFO+) (XLIB:WINDOW XLIB:WINDOW)) ; (LET ((XLIB::NUM-SCREENS (XLIB::CARD16-GET 20)) ; (XLIB::NUM-RATES (XLIB::CARD16-GET 28)) ; (XLIB::RATES-LOCATION 0)) ; (DECLARE (TYPE FIXNUM XLIB::RATES-LOCATION XLIB::NUM-RATES)) ; (VALUES (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 1)) ; (XLIB::WINDOW-GET 8) (XLIB::CARD32-GET 12) (XLIB::CARD32-GET 16) ; (XLIB::CARD16-GET 22) ; (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 24)) ; (XLIB::CARD16-GET 26) ; (LOOP :FOR XLIB::X FIXNUM :FROM 1 :TO XLIB::NUM-SCREENS ; :FOR XLIB::OFFSET FIXNUM := ...) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH XLIB::NUM-RATES ; :INDEX XLIB::RATES-LOCATION :RESULT-TYPE ; XLIB::RESULT-TYPE)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-SCREEN-SIZE-RANGE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (16)) ; ((XLIB::DATA XLIB::+RR-GETSCREENSIZERANGE+) (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH 4 :INDEX 8 :RESULT-TYPE ; XLIB::RESULT-TYPE))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-SCREEN-SIZE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETSCREENSIZE+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 XLIB::WIDTH) ; (XLIB:CARD16 XLIB::HEIGHT) ; (XLIB:CARD32 XLIB::WIDTH-MM) ; (XLIB:CARD32 XLIB::HEIGHT-MM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-SCREEN-RESOURCES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETSCREENRESOURCES+) (XLIB:WINDOW XLIB:WINDOW)) ; (LET* ((XLIB::NUM-CRTCS (XLIB::CARD16-GET 16)) ; (XLIB::NUM-OUTPUTS (XLIB::CARD16-GET 18)) ; (XLIB::OUTPUT-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #)) ; (XLIB::NUM-MODEINFOS (XLIB::CARD16-GET 20)) ; (XLIB::NAME-BYTES (XLIB::CARD16-GET 22)) ; (XLIB::MODE-START (XLIB::INDEX+ XLIB::OUTPUT-START #)) ; (XLIB::NAME-START (XLIB::INDEX+ XLIB::MODE-START #))) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX 32 :LENGTH ; XLIB::NUM-CRTCS) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX XLIB::OUTPUT-START ; :LENGTH XLIB::NUM-OUTPUTS) ; (LOOP :FOR XLIB::I FIXNUM :FROM 1 :TO XLIB::NUM-MODEINFOS ; :FOR XLIB::OFFSET FIXNUM := ...) ; (XLIB::STRING-GET XLIB::NAME-BYTES XLIB::NAME-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-OUTPUT-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETOUTPUTINFO+) (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; (LET* ((XLIB::NUM-CRTCS (XLIB::CARD16-GET 26)) ; (XLIB::NUM-MODES (XLIB::CARD16-GET 28)) ; (XLIB::NUM-CLONES (XLIB::CARD16-GET 32)) ; (XLIB::NAME-LENGTH (XLIB::CARD16-GET 34)) ; (XLIB::CRTC-START 26) ; (XLIB::MODE-START (XLIB::INDEX+ XLIB::CRTC-START #)) ; (XLIB::CLONE-START (XLIB::INDEX+ XLIB::MODE-START #)) ; (XLIB::NAME-START (XLIB::INDEX+ XLIB::CLONE-START #))) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) (XLIB::CARD32-GET 16) ; (XLIB::CARD32-GET 20) ; (XLIB::MEMBER8-VECTOR-GET 24 XLIB::+RR-CONNECTION+) ; (XLIB::MEMBER8-VECTOR-GET 25 XLIB::+RENDER-SUBPIXEL-ORDER+) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::NUM-CRTCS :INDEX 26) ; (XLIB::CARD16-GET 30) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::NUM-MODES :INDEX XLIB::MODE-START) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::NUM-CLONES :INDEX XLIB::CLONE-START) ; ...))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-LIST-OUTPUT-PROPERTIES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-LISTOUTPUTPROPERTIES+) (XLIB:CARD32 XLIB::OUTPUT)) ; (LET ((XLIB::NUM-ATOMS (XLIB::CARD16-GET 8))) ; (VALUES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE XLIB::RESULT-TYPE ; :LENGTH XLIB::NUM-ATOMS :INDEX XLIB::+REPLYSIZE+ ; :TRANSFORM #'(LAMBDA # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-QUERY-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-QUERYOUTPUTPROPERTY+) (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM)) ; (VALUES (XLIB::BOOLEAN-GET 8) (XLIB::BOOLEAN-GET 9) (XLIB::BOOLEAN-GET 10) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :INDEX ; XLIB::+REPLYSIZE+ :LENGTH ; (XLIB::CARD32-GET 4)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-CONFIGURE-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-CONFIGUREOUTPUTPROPERTY+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM) ; (BOOLEAN XLIB::PENDING XLIB::RANGE) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-CHANGE-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-CHANGEOUTPUTPROPERTY+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM) ; (XLIB:CARD32 XLIB::ATOM-TYPE) ; (XLIB:CARD8 32) ; (XLIB:CARD8 XLIB::MODE) ; (XLIB::PAD16) ; (XLIB:CARD32 XLIB::DATA-LENGTH) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-DELETE-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-DELETEOUTPUTPROPERTY+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETOUTPUTPROPERTY+) (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM) (XLIB:CARD32 TYPE) (XLIB:CARD32 0) (XLIB:CARD32 0) ; (XLIB:CARD8 DELETE) (XLIB:CARD8 XLIB::PENDING) (XLIB::PAD16)) ; (LET* ((XLIB::BYTES-AFTER (XLIB::CARD32-GET 12)) ; (XLIB::VALUE-LENGTH (XLIB::CARD32-GET 16)) ; (XLIB::BYTE-FORMAT (UNLESS # #))) ; (VALUES (XLIB::CARD32-GET 8) XLIB::VALUE-LENGTH ; (WHEN (NOT #) (CASE XLIB::BYTE-FORMAT # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-CREATE-MODE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-CREATEMODE+) (XLIB:WINDOW XLIB:WINDOW) ; (PROGN ; (XLIB::RR-MODE-INFO-PUT 8 XLIB:MODE-INFO) ; (XLIB::STRING-PUT 40 XLIB::NAME))) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-DESTROY-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-DESTROYMODE+) ; (XLIB:CARD32 XLIB::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-ADD-OUTPUT-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-ADDOUTPUTMODE+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 XLIB::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-DELETE-OUTPUT-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-DELETEOUTPUTMODE+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 XLIB::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-CRTC-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCINFO+) (XLIB:CARD32 XLIB::CRTC) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; (LET* ((XLIB::NUM-OUTPUTS (XLIB::CARD16-GET 28)) ; (XLIB::POS-OUTPUTS (XLIB::CARD16-GET 30)) ; (XLIB::POS-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #))) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8) (XLIB::INT16-GET 12) (XLIB::INT16-GET 14) ; (XLIB::CARD16-GET 16) (XLIB::CARD16-GET 18) (XLIB::CARD32-GET 20) ; (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 24)) ; (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 26)) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :INDEX ; XLIB::+REPLYSIZE+ :LENGTH XLIB::NUM-OUTPUTS) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :INDEX ; XLIB::POS-START :LENGTH XLIB::POS-OUTPUTS)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-CRTC-CONFIG ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-SETCRTCCONFIG+) (XLIB:CARD32 XLIB::CRTC) ; (XLIB:CARD32 XLIB:TIMESTAMP) (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP) ; (XLIB:CARD16 XLIB::X) (XLIB:CARD16 XLIB::Y) (XLIB:CARD32 XLIB::MODE) ; (XLIB:CARD16 XLIB::ROT-MASK) (XLIB::PAD16) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-CRTC-GAMMA-SIZE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCGAMMASIZE+) (XLIB:CARD32 XLIB::CRTC)) ; (VALUES (XLIB::CARD16-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-CRTC-GAMMA ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCGAMMA+) (XLIB:CARD32 XLIB::CRTC)) ; (LET* ((XLIB::SIZE (XLIB::CARD16-GET 8)) ; (XLIB::GREEN-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #)) ; (XLIB::BLUE-START (XLIB::INDEX+ XLIB::GREEN-START #))) ; (VALUES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH XLIB::SIZE :INDEX ; XLIB::+REPLYSIZE+ :RESULT-TYPE XLIB::RESULT-TYPE) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH XLIB::SIZE :INDEX ; XLIB::GREEN-START :RESULT-TYPE XLIB::RESULT-TYPE) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH XLIB::SIZE :INDEX ; XLIB::BLUE-START :RESULT-TYPE XLIB::RESULT-TYPE)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-CRTC-GAMMA ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETCRTCGAMMA+) ; (XLIB:CARD32 XLIB::CRTC) ; (XLIB:CARD16 XLIB::SIZE) ; (XLIB::PAD16) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-SCREEN-RESOURCES-CURRENT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETSCREENRESOURCESCURRENT+) ; (XLIB:WINDOW XLIB:WINDOW)) ; (LET* ((XLIB::NUM-CRTCS (XLIB::CARD16-GET 16)) ; (XLIB::NUM-OUTPUTS (XLIB::CARD16-GET 18)) ; (XLIB::OUTPUT-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #)) ; (XLIB::NUM-MODEINFOS (XLIB::CARD16-GET 20)) ; (XLIB::NAME-BYTES (XLIB::CARD16-GET 22)) ; (XLIB::MODE-START (XLIB::INDEX+ XLIB::OUTPUT-START #)) ; (XLIB::NAME-START (XLIB::INDEX+ XLIB::MODE-START #))) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX 32 :LENGTH ; XLIB::NUM-CRTCS) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX XLIB::OUTPUT-START ; :LENGTH XLIB::NUM-OUTPUTS) ; (LOOP :FOR XLIB::I FIXNUM :FROM 1 :TO XLIB::NUM-MODEINFOS ; :FOR XLIB::OFFSET FIXNUM := ...) ; (XLIB::STRING-GET XLIB::NAME-BYTES XLIB::NAME-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-CRTC-TRANSFORM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCTRANSFORM+) (XLIB:CARD32 XLIB::CRTC)) ; (LET* ((XLIB::PEND-NAME (XLIB::CARD16-GET 88)) ; (XLIB::PEND-NUM-PARAMS (XLIB::CARD16-GET 90)) ; (XLIB::PAD-PEND (- 4 #)) ; (XLIB::PAD-PEND-START ; (XLIB::INDEX+ 96 XLIB::PEND-NAME XLIB::PAD-PEND)) ; (XLIB::CUR-NAME (XLIB::CARD16-GET 92)) ; (XLIB::CUR-NUM-PARAMS (XLIB::CARD16-GET 94)) ; (XLIB::PAD-CUR (- 4 #)) ; (XLIB::CUR-NAME-START (XLIB::INDEX+ XLIB::PAD-PEND-START #)) ; (XLIB::CUR-PARAM-START ; (XLIB::INDEX+ XLIB::CUR-NAME-START XLIB::CUR-NAME XLIB::PAD-CUR))) ; (DECLARE (TYPE XLIB:CARD16 XLIB::PEND-NAME XLIB::CUR-NAME)) ; (VALUES (XLIB::RR-TRANSFORM-GET 8) (XLIB::CARD8-GET 44) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH 9 ; :INDEX 48) ; (XLIB::STRING-GET XLIB::PEND-NAME 96) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::PEND-NUM-PARAMS :INDEX ; XLIB::PAD-PEND-START) ; (XLIB::STRING-GET XLIB::CUR-NAME XLIB::CUR-NAME-START) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::CUR-NUM-PARAMS :INDEX ; XLIB::CUR-PARAM-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-OUTPUT-PRIMARY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETOUTPUTPRIMARY+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::OUTPUT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-OUTPUT-PRIMARY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETOUTPUTPRIMARY+) (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-PROVIDERS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETPROVIDERS+) (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD16-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-PROVIDER-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETPROVIDERINFO+) (XLIB:CARD32 XLIB::PROVIDER) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) (XLIB::CARD16-GET 16) ; (XLIB::CARD16-GET 18) (XLIB::CARD16-GET 20) ; (XLIB::STRING-GET (XLIB::CARD16-GET 22) 56))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-PROVIDER-OUTPUT-SOURCE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETPROVIDEROUTPUTSOURCE+) ; (XLIB:CARD32 XLIB::PROVIDER) ; (XLIB:CARD32 XLIB::SOURCE-PROVIDER) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-PROVIDER-OFFLOAD-SINK ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETPROVIDEROFFLOADSINK+) ; (XLIB:CARD32 XLIB::PROVIDER) ; (XLIB:CARD32 XLIB::SINK-PROVIDER) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-LIST-PROVIDER-PROPERTIES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-LISTPROVIDERPROPERTIES+) ; (XLIB:CARD32 XLIB::PROVIDER)) ; (VALUES (XLIB::CARD32-GET 4) (XLIB::CARD16-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/randr-tmpR2FIHSUG.fasl ; compilation finished in 0:00:00.448 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xinerama.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 ...))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xinerama-tmp8PYELRKX.fasl ; compilation finished in 0:00:00.100 ; compiling file "/usr/share/common-lisp/source/clx/extensions/dbe.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/dbe.lisp ; in: DEFUN CREATE-BACK-BUFFER ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB::BB 'XLIB::BACK-BUFFER) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN DBE-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER") ; NIL) ; ((XLIB::DATA XLIB::+QUERY-VERSION+) (XLIB:CARD8 XLIB::+DBE-MAJOR+) ; (XLIB:CARD8 XLIB::+DBE-MINOR+)) ; (VALUES (XLIB::CARD8-GET 8) (XLIB::CARD8-GET 9))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-ALLOCATE-BACK-BUFFER-NAME ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+ALLOCATE-BACK-BUFFER-NAME+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:DRAWABLE XLIB::BACK-BUFFER) ; (XLIB:CARD8 XLIB::SWAP-HINT) ; (XLIB::PAD8) ; (XLIB::PAD16)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-DEALLOCATE-BACK-BUFFER-NAME ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+DEALLOCATE-BACK-BUFFER-NAME+) ; (XLIB:DRAWABLE XLIB::BACK-BUFFER)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-SWAP-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+SWAP-BUFFERS+) ; (XLIB:CARD32 XLIB::NUM) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-BEGIN-IDIOM ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+BEGIN-IDIOM+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-END-IDIOM ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+END-IDIOM+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-GET-VISUAL-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER") ; NIL :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-VISUAL-INFO+) (XLIB:CARD32 XLIB::NUM) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::WL)) ; (VALUES ; (LET ((XLIB::NUM #) (XLIB::NEXT 32) (XLIB::RESULT-LIST NIL)) ; (DECLARE (TYPE FIXNUM XLIB::NUM XLIB::NEXT)) ; (DOTIMES (XLIB::I XLIB::NUM #) (PUSH # XLIB::RESULT-LIST))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-GET-BACK-BUFFER-ATTRIBUTES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER") ; NIL :SIZES 32) ; ((XLIB::DATA XLIB::+GET-BACK-BUFFER-ATTRIBUTES+) ; (XLIB:DRAWABLE XLIB::BACK-BUFFER)) ; (VALUES (XLIB::OR-GET 8 NULL XLIB:WINDOW))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/dbe-tmpEHTOKYT0.fasl ; compilation finished in 0:00:00.080 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xc-misc.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/xc-misc.lisp ; in: DEFUN XC-GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::XC-OPCODE XLIB:DISPLAY) NIL ; :SIZES (16)) ; ((XLIB::DATA XLIB::+XC-GET-VERSION+) (XLIB:CARD16 XLIB::+XC-MAJOR+) ; (XLIB:CARD16 XLIB::+XC-MINOR+)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XC-GET-XID-RANGE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::XC-OPCODE XLIB:DISPLAY) NIL ; :SIZES (32)) ; ((XLIB::DATA XLIB::+XC-GET-XID-RANGE+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XC-GET-XID-LIST ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::XC-OPCODE XLIB:DISPLAY) NIL ; :SIZES (32)) ; ((XLIB::DATA XLIB::+XC-GET-XID-LIST+) (XLIB:CARD32 COUNT)) ; (LET ((XLIB::NUM (XLIB::CARD32-GET 8))) ; (VALUES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE XLIB::RESULT-TYPE ; :LENGTH XLIB::NUM :INDEX 32)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xc-misc-tmpS6U1VHI9.fasl ; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/clx/extensions/dri2.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/dri2.lisp ; in: DEFUN DRI2-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-QUERY-VERSION+) (XLIB:CARD32 XLIB::+DRI-MAJOR+) ; (XLIB:CARD32 XLIB::+DRI-MINOR+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-CONNECT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-CONNECT+) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::DRIVER-TYPE)) ; (LET* ((XLIB::DRIVER-NAME-LENGTH (XLIB::CARD32-GET 8)) ; (XLIB::DEVICE-NAME-LENGTH (XLIB::CARD32-GET 12)) ; (XLIB::DEVICE-START (+ 32 #))) ; (VALUES (XLIB::STRING-GET XLIB::DRIVER-NAME-LENGTH 32) ; (XLIB::STRING-GET XLIB::DEVICE-NAME-LENGTH XLIB::DEVICE-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-AUTHENTICATE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-AUTHENTICATE+) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::TOKEN)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-CREATE-DRAWABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-CREATE-DRAWABLE+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-DESTROY-DRAWABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; NIL ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-GET-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-BUFFERS+) (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD32 XLIB::LEN) ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; (VALUES (XLIB::CARD32-GET 16) (XLIB::CARD32-GET 12) (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-COPY-REGION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-COPY-REGION+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-GET-BUFFERS-WITH-FORMAT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-BUFFERS-WITH-FORMAT+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-SWAP-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-SWAP-BUFFERS+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-GET-MSC ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-MSC+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-WAIT-MSC ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-WAIT-MSC+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-SWAP-INTERVAL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::DRI2-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+DRI2-SWAP-INTERVAL+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-GET-PARAM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-PARAM+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/dri2-tmpVTFK6ZJW.fasl ; compilation finished in 0:00:00.228 ; compiling file "/usr/share/common-lisp/source/clx/extensions/composite.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/composite.lisp ; in: DEFUN COMPOSITE-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY) ; NIL :SIZES (32)) ; ((XLIB::DATA XLIB::+COMPOSITE-QUERYVERSION+) ; (XLIB:CARD32 XLIB::+COMPOSITE-MAJOR+) ; (XLIB:CARD32 XLIB::+COMPOSITE-MINOR+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-REDIRECT-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-REDIRECTWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD8 XLIB::UPDATE-TYPE) ; (XLIB:CARD8 0) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-REDIRECT-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-REDIRECTSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD8 XLIB::UPDATE-TYPE) ; (XLIB:CARD8 0) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-UNREDIRECT-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-UNREDIRECTWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-UNREDIRECT-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-UNREDIRECTSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-CREATE-REGION-FROM-BORDER-CLIP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-CREATEREGIONFROMBORDERCLIP+) ; (XLIB:CARD32 XLIB::REGION) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-NAME-WINDOW-PIXMAP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-NAMEWINDOWPIXMAP+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:DRAWABLE XLIB:DRAWABLE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-GET-OVERLAY-WINDOW ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY) ; NIL :SIZES (32)) ; ((XLIB::DATA XLIB::+COMPOSITE-GETOVERLAYWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-RELEASE-OVERLAY-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-RELEASEOVERLAYWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/composite-tmp75WVSJEW.fasl ; compilation finished in 0:00:00.076 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/package.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/package-tmpBU5UM3S4.fasl ; compilation finished in 0:00:00.000 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/dynamic-mixins.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/dynamic-mixins-tmpOBHVA3CD.fasl ; compilation finished in 0:00:00.040 ; compiling file "/build/reproducible-path/stumpwm-22.11/package.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/package-tmpJ6ELVFLF.fasl ; compilation finished in 0:00:00.004 ; compiling file "/build/reproducible-path/stumpwm-22.11/debug.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/debug-tmpULDB0RG.fasl ; compilation finished in 0:00:00.012 ; compiling file "/build/reproducible-path/stumpwm-22.11/primitives.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/primitives-tmpUTZ0UUTE.fasl ; compilation finished in 0:00:00.284 ; compiling file "/build/reproducible-path/stumpwm-22.11/wrappers.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/wrappers-tmpOOSRA8PZ.fasl ; compilation finished in 0:00:00.072 ; compiling file "/build/reproducible-path/stumpwm-22.11/pathnames.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/pathnames-tmpDMIL0RVK.fasl ; compilation finished in 0:00:00.004 ; compiling file "/build/reproducible-path/stumpwm-22.11/font-rendering.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/font-rendering-tmp8MR9IMIO.fasl ; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/keysyms.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/keysyms-tmpJQDKAVAY.fasl ; compilation finished in 0:00:00.112 ; compiling file "/build/reproducible-path/stumpwm-22.11/keytrans.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/keytrans-tmp3I8CEEQY.fasl ; compilation finished in 0:00:00.008 ; compiling file "/build/reproducible-path/stumpwm-22.11/kmap.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/kmap-tmpA3RHFLWZ.fasl ; compilation finished in 0:00:00.080 ; compiling file "/build/reproducible-path/stumpwm-22.11/input.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/input-tmpYZIB7VXO.fasl ; compilation finished in 0:00:00.364 ; compiling file "/build/reproducible-path/stumpwm-22.11/core.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/core-tmpR8PK79V8.fasl ; compilation finished in 0:00:00.012 ; compiling file "/build/reproducible-path/stumpwm-22.11/command.lisp" (written 22 NOV 2022 12:13:18 AM): ; file: /build/reproducible-path/stumpwm-22.11/command.lisp ; in: DEFUN ARGUMENT-POP ; (LOOP STUMPWM::FOR STUMPWM::I STUMPWM::FROM STUMPWM::START STUMPWM::BELOW (LENGTH ; STUMPWM::INPUT) ; STUMPWM::FOR CHAR = (CHAR STUMPWM::INPUT STUMPWM::I) ; DO ...) ; --> LET LET TAGBODY ; ==> ; NIL ; ; caught STYLE-WARNING: ; The binding of I is not a REAL: ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/command-tmpN1ZVB1HZ.fasl ; compilation finished in 0:00:00.232 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/build/reproducible-path/stumpwm-22.11/menu-declarations.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/menu-declarations-tmpZGRRPISB.fasl ; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/menu-definitions.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/menu-definitions-tmpFNKDE5XP.fasl ; compilation finished in 0:00:00.088 ; compiling file "/build/reproducible-path/stumpwm-22.11/screen.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/screen-tmpRJTU435C.fasl ; compilation finished in 0:00:00.104 ; compiling file "/build/reproducible-path/stumpwm-22.11/head.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/head-tmpI9WG87JK.fasl ; compilation finished in 0:00:00.024 ; compiling file "/build/reproducible-path/stumpwm-22.11/group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/group-tmpYDE6I9E6.fasl ; compilation finished in 0:00:00.084 ; compiling file "/build/reproducible-path/stumpwm-22.11/bindings.lisp" (written 27 MAR 2026 11:19:33 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/bindings-tmp319UV2V8.fasl ; compilation finished in 0:00:00.024 ; compiling file "/build/reproducible-path/stumpwm-22.11/events.lisp" (written 22 NOV 2022 12:13:18 AM): ; file: /build/reproducible-path/stumpwm-22.11/events.lisp ; in: DEFUN SCROLL-BUTTON-KEYWORD-P ; (EQ STUMPWM::BUTTON :WHEEL-RIGHT) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/events-tmpLYQINFYS.fasl ; compilation finished in 0:00:00.164 ; compiling file "/build/reproducible-path/stumpwm-22.11/window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/window-tmpGA31XWNO.fasl ; compilation finished in 0:00:00.208 ; compiling file "/build/reproducible-path/stumpwm-22.11/floating-group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/floating-group-tmp5HT23M6C.fasl ; compilation finished in 0:00:00.176 ; compiling file "/build/reproducible-path/stumpwm-22.11/tile-window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tile-window-tmpA60KLDKY.fasl ; compilation finished in 0:00:00.072 ; compiling file "/build/reproducible-path/stumpwm-22.11/tile-group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tile-group-tmpD801X3GJ.fasl ; compilation finished in 0:00:00.432 WARNING: redefining STUMPWM::ORPHANED-FRAMES in DEFUN ; compiling file "/build/reproducible-path/stumpwm-22.11/window-placement.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/window-placement-tmpGOW1GC70.fasl ; compilation finished in 0:00:00.132 ; compiling file "/build/reproducible-path/stumpwm-22.11/message-window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/message-window-tmpPQ1X28TL.fasl ; compilation finished in 0:00:00.056 ; compiling file "/build/reproducible-path/stumpwm-22.11/selection.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/selection-tmpE92ECU7O.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/module.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/module-tmp8S0II570.fasl ; compilation finished in 0:00:00.012 ; compiling file "/build/reproducible-path/stumpwm-22.11/ioloop.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/ioloop-tmpJE88A12F.fasl ; compilation finished in 0:00:00.168 ; compiling file "/build/reproducible-path/stumpwm-22.11/timers.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/timers-tmpA5FNLPLT.fasl ; compilation finished in 0:00:00.024 ; compiling file "/build/reproducible-path/stumpwm-22.11/stumpwm.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/stumpwm-tmpHKCV9TP8.fasl ; compilation finished in 0:00:00.072 ; compiling file "/build/reproducible-path/stumpwm-22.11/user.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/user-tmpZ18MA7XE.fasl ; compilation finished in 0:00:00.112 ; compiling file "/build/reproducible-path/stumpwm-22.11/interactive-keymap.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/interactive-keymap-tmp6LQJ9T0C.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/iresize.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/iresize-tmpTX7OA81T.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/help.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/help-tmpWOTC3PB7.fasl ; compilation finished in 0:00:00.224 ; compiling file "/build/reproducible-path/stumpwm-22.11/fdump.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/fdump-tmpHQE95SAC.fasl ; compilation finished in 0:00:00.112 ; compiling file "/build/reproducible-path/stumpwm-22.11/time.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/time-tmpO87FP9NR.fasl ; compilation finished in 0:00:00.044 ; compiling file "/build/reproducible-path/stumpwm-22.11/mode-line.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/mode-line-tmpP6A3E92I.fasl ; compilation finished in 0:00:00.072 ; compiling file "/build/reproducible-path/stumpwm-22.11/mode-line-formatters.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/mode-line-formatters-tmpUSHT8RIL.fasl ; compilation finished in 0:00:00.056 ; compiling file "/build/reproducible-path/stumpwm-22.11/color.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/color-tmp7YCPD44Y.fasl ; compilation finished in 0:00:00.084 ; compiling file "/build/reproducible-path/stumpwm-22.11/wse.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/wse-tmpQXR7SNXD.fasl ; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-window-tmp6FLI1OC3.fasl ; compilation finished in 0:00:00.008 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-group-tmpWBK8JTS9.fasl ; compilation finished in 0:00:00.372 ; compiling file "/build/reproducible-path/stumpwm-22.11/remap-keys.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/remap-keys-tmpUVEUD2ZN.fasl ; compilation finished in 0:00:00.012 ; compiling file "/build/reproducible-path/stumpwm-22.11/manual.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/manual-tmpOWNJOEU.fasl ; compilation finished in 0:00:00.028 ; compiling file "/build/reproducible-path/stumpwm-22.11/minor-modes.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/minor-modes-tmpVT5BMTA5.fasl ; compilation finished in 0:00:00.304 ; compiling file "/build/reproducible-path/stumpwm-22.11/replace-class.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/replace-class-tmpN3CFVWZF.fasl ; compilation finished in 0:00:00.020 WARNING: redefining DYNAMIC-MIXINS:REPLACE-CLASS in DEFGENERIC ; compiling file "/build/reproducible-path/stumpwm-22.11/version.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/version-tmpNK27C0R1.fasl ; compilation finished in 0:00:00.000 ; ; compilation unit finished ; caught 8 STYLE-WARNING conditions ; printed 1501 notes WARNING: System definition file #P"/usr/share/common-lisp/source/fiasco/fiasco.asd" contains definition for system "fiasco-self-tests". Please only define "fiasco" and secondary systems with a name starting with "fiasco/" (e.g. "fiasco/test") in that file. ; compiling file "/usr/share/common-lisp/source/cl-trivial-gray-streams/package.lisp" (written 17 FEB 2024 06:10:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-trivial-gray-streams/package-tmp3BPE71HR.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/cl-trivial-gray-streams/streams.lisp" (written 17 FEB 2024 06:10:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-trivial-gray-streams/streams-tmp758YUXMV.fasl ; compilation finished in 0:00:00.024 ; compiling file "/usr/share/common-lisp/source/fiasco/src/package.lisp" (written 14 MAY 2020 04:10:55 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/fiasco/src/package-tmpGMQXK1HK.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/fiasco/src/streams.lisp" (written 14 MAY 2020 04:10:55 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/fiasco/src/streams-tmp49Q238TW.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/fiasco/src/infrastructure.lisp" (written 14 MAY 2020 04:10:55 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/fiasco/src/infrastructure-tmpMXPMJ5KG.fasl ; compilation finished in 0:00:00.252 ; compiling file "/usr/share/common-lisp/source/fiasco/src/asserts.lisp" (written 14 MAY 2020 04:10:55 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/fiasco/src/asserts-tmpB69313KI.fasl ; compilation finished in 0:00:00.032 ; compiling file "/usr/share/common-lisp/source/fiasco/src/test.lisp" (written 14 MAY 2020 04:10:55 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/fiasco/src/test-tmp9ZT99EEA.fasl ; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/fiasco/src/suite.lisp" (written 14 MAY 2020 04:10:55 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/fiasco/src/suite-tmpW045U8V2.fasl ; compilation finished in 0:00:00.112 ; compiling file "/build/reproducible-path/stumpwm-22.11/tests/package.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tests/package-tmp6XOIRI3N.fasl ; compilation finished in 0:00:00.024 ; compiling file "/build/reproducible-path/stumpwm-22.11/tests/kmap.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tests/kmap-tmp9ZHTLHSG.fasl ; compilation finished in 0:00:00.024 ; compiling file "/build/reproducible-path/stumpwm-22.11/tests/pathnames.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tests/pathnames-tmpRW73Q691.fasl ; compilation finished in 0:00:00.036 ALL-TESTS (Suite) STUMPWM-TESTS (Suite) TEST-PARSE-KEY........................................................[ OK ] TEST-DIRECTORY-PATHNAME-P.............................................[ OK ] TEST-ENSURE-DIRECTORY-PATHNAME........................................[ OK ] make[1]: Leaving directory '/build/reproducible-path/stumpwm-22.11' create-stamp debian/debhelper-build-stamp dh_prep debian/rules override_dh_install make[1]: Entering directory '/build/reproducible-path/stumpwm-22.11' # 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 cp -f debian/stumpwm.bin stumpwm dh_install -Xmake-image.lisp -Xsample-stumpwmrc.lisp -Xdynamic-mixins/README.md make[1]: Leaving directory '/build/reproducible-path/stumpwm-22.11' 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_22.11-3_all.deb'. dpkg-genbuildinfo --build=binary -O../stumpwm_22.11-3_arm64.buildinfo dpkg-genchanges --build=binary -O../stumpwm_22.11-3_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: not including original 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/2988947 and its subdirectories I: Current time: Thu Mar 26 23:20:53 -12 2026 I: pbuilder-time-stamp: 1774610453 Fri Mar 27 11:20:53 UTC 2026 I: Signing ./b1/stumpwm_22.11-3_arm64.buildinfo as stumpwm_22.11-3_arm64.buildinfo.asc Fri Mar 27 11:20:53 UTC 2026 I: Signed ./b1/stumpwm_22.11-3_arm64.buildinfo as ./b1/stumpwm_22.11-3_arm64.buildinfo.asc Fri Mar 27 11:20:53 UTC 2026 - build #1 for stumpwm/unstable/arm64 on codethink03-arm64 done. Starting cleanup. All cleanup done. Fri Mar 27 11:20:53 UTC 2026 - reproducible_build.sh stopped running as /tmp/jenkins-script-3b7yryQQ, removing. /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9: total 16 drwxr-xr-x 2 jenkins jenkins 4096 Feb 22 04:57 b1 drwxr-xr-x 2 jenkins jenkins 4096 Feb 22 04:56 b2 -rw------- 1 jenkins jenkins 3248 Feb 22 04:56 rbuildlog.aHHbUVn -rw-r--r-- 1 jenkins jenkins 2137 Feb 1 2023 stumpwm_22.11-3.dsc /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/b1: total 2040 -rw-r--r-- 1 jenkins jenkins 1790805 Feb 22 04:57 build.log -rw-r--r-- 1 jenkins jenkins 12580 Feb 22 04:57 stumpwm_22.11-3.debian.tar.xz -rw-r--r-- 1 jenkins jenkins 2137 Feb 22 04:57 stumpwm_22.11-3.dsc -rw-r--r-- 1 jenkins jenkins 247024 Feb 22 04:57 stumpwm_22.11-3_all.deb -rw-r--r-- 1 jenkins jenkins 5253 Feb 22 04:57 stumpwm_22.11-3_arm64.buildinfo -rw-r--r-- 1 jenkins jenkins 6135 Feb 22 04:57 stumpwm_22.11-3_arm64.buildinfo.asc -rw-r--r-- 1 jenkins jenkins 1102 Feb 22 04:57 stumpwm_22.11-3_arm64.changes -rw-r--r-- 1 jenkins jenkins 1256 Feb 22 04:57 stumpwm_22.11-3_source.changes /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/b2: total 0 Sat Feb 22 04:57:54 UTC 2025 I: Deleting $TMPDIR on codethink03-arm64.debian.net. I: pbuilder: network access will be disabled during build I: Current time: Thu Mar 26 23:19:27 -12 2026 I: pbuilder-time-stamp: 1774610367 I: Building the build Environment I: extracting base tarball [/var/cache/pbuilder/unstable-reproducible-base.tgz] I: copying local configuration W: --override-config is not set; not updating apt.conf Read the manpage for details. 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_22.11-3.dsc] I: copying [./stumpwm_22.11.orig.tar.gz] I: copying [./stumpwm_22.11-3.debian.tar.xz] I: Extracting source dpkg-source: warning: cannot verify inline signature for ./stumpwm_22.11-3.dsc: unsupported subcommand dpkg-source: info: extracting stumpwm in stumpwm-22.11 dpkg-source: info: unpacking stumpwm_22.11.orig.tar.gz dpkg-source: info: unpacking stumpwm_22.11-3.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 0003-Evaluate-require-and-asdf-separately.patch I: Not using root during the build. I: Installing the build-deps I: user script /srv/workspace/pbuilder/2988947/tmp/hooks/D02_print_environment starting I: set BUILDDIR='/build/reproducible-path' 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 parallel=12 ' DISTRIBUTION='unstable' HOME='/root' HOST_ARCH='arm64' IFS=' ' INVOCATION_ID='45c7593975484e82a6c0ad8d857146d7' 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='2988947' 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/r-b-build.FsopWVB9/pbuilderrc_aOxp --distribution unstable --hookdir /etc/pbuilder/first-build-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/unstable-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/b1 --logfile b1/build.log stumpwm_22.11-3.dsc' SUDO_GID='109' SUDO_UID='104' SUDO_USER='jenkins' TERM='unknown' TZ='/usr/share/zoneinfo/Etc/GMT+12' USER='root' _='/usr/bin/systemd-run' http_proxy='http://192.168.101.4:3128' I: uname -a Linux codethink03-arm64 6.1.0-31-cloud-arm64 #1 SMP Debian 6.1.128-1 (2025-02-07) aarch64 GNU/Linux I: ls -l /bin lrwxrwxrwx 1 root root 7 Nov 22 2024 /bin -> usr/bin I: user script /srv/workspace/pbuilder/2988947/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-compat (= 13), autoconf, cl-alexandria, cl-clx-sbcl (>= 0.7.5), cl-fiasco, cl-ppcre, sbcl (>= 2.2.7), 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 ... 19889 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-compat (= 13); however: Package debhelper-compat is not installed. pbuilder-satisfydepends-dummy depends on autoconf; however: Package autoconf is not installed. pbuilder-satisfydepends-dummy depends on cl-alexandria; however: Package cl-alexandria is not installed. pbuilder-satisfydepends-dummy depends on cl-clx-sbcl (>= 0.7.5); however: Package cl-clx-sbcl is not installed. pbuilder-satisfydepends-dummy depends on cl-fiasco; however: Package cl-fiasco is not installed. pbuilder-satisfydepends-dummy depends on cl-ppcre; however: Package cl-ppcre is not installed. pbuilder-satisfydepends-dummy depends on sbcl (>= 2.2.7); 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-alexandria{a} cl-asdf{a} cl-clx-sbcl{a} cl-fiasco{a} cl-ppcre{a} cl-trivial-gray-streams{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} libelf1t64{a} libfile-stripnondeterminism-perl{a} libicu72{a} libmagic-mgc{a} libmagic1t64{a} libpipeline1{a} libproc2-0{a} libtext-charwidth-perl{a} libtext-unidecode-perl{a} libtext-wrapi18n-perl{a} libtool{a} libuchardet0{a} libunistring5{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} procps{a} sbcl{a} sensible-utils{a} tex-common{a} texinfo{a} texinfo-lib{a} ucf{a} The following packages are RECOMMENDED but will NOT be installed: binfmt-support cl-flexi-streams cl-rt curl libarchive-cpio-perl libltdl-dev libmail-sendmail-perl libwww-perl libxml-sax-expat-perl linux-sysctl-defaults lynx psmisc systemd wget 0 packages upgraded, 50 newly installed, 0 to remove and 0 not upgraded. Need to get 34.4 MB of archives. After unpacking 146 MB will be used. Writing extended state information... Get: 1 http://deb.debian.org/debian unstable/main arm64 libproc2-0 arm64 2:4.0.4-7 [62.4 kB] Get: 2 http://deb.debian.org/debian unstable/main arm64 procps arm64 2:4.0.4-7 [868 kB] Get: 3 http://deb.debian.org/debian unstable/main arm64 sensible-utils all 0.0.24 [24.8 kB] Get: 4 http://deb.debian.org/debian unstable/main arm64 libmagic-mgc arm64 1:5.45-3+b1 [314 kB] Get: 5 http://deb.debian.org/debian unstable/main arm64 libmagic1t64 arm64 1:5.45-3+b1 [102 kB] Get: 6 http://deb.debian.org/debian unstable/main arm64 file arm64 1:5.45-3+b1 [43.4 kB] Get: 7 http://deb.debian.org/debian unstable/main arm64 gettext-base arm64 0.23.1-1 [241 kB] Get: 8 http://deb.debian.org/debian unstable/main arm64 libuchardet0 arm64 0.0.8-1+b2 [69.2 kB] Get: 9 http://deb.debian.org/debian unstable/main arm64 groff-base arm64 1.23.0-7 [1129 kB] Get: 10 http://deb.debian.org/debian unstable/main arm64 bsdextrautils arm64 2.40.4-4 [92.1 kB] Get: 11 http://deb.debian.org/debian unstable/main arm64 libpipeline1 arm64 1.5.8-1 [40.2 kB] Get: 12 http://deb.debian.org/debian unstable/main arm64 man-db arm64 2.13.0-1 [1404 kB] Get: 13 http://deb.debian.org/debian unstable/main arm64 libtext-charwidth-perl arm64 0.04-11+b4 [9652 B] Get: 14 http://deb.debian.org/debian unstable/main arm64 libtext-wrapi18n-perl all 0.06-10 [8808 B] Get: 15 http://deb.debian.org/debian unstable/main arm64 ucf all 3.0050 [42.7 kB] Get: 16 http://deb.debian.org/debian unstable/main arm64 m4 arm64 1.4.19-5 [284 kB] Get: 17 http://deb.debian.org/debian unstable/main arm64 autoconf all 2.72-3 [493 kB] Get: 18 http://deb.debian.org/debian unstable/main arm64 autotools-dev all 20220109.1 [51.6 kB] Get: 19 http://deb.debian.org/debian unstable/main arm64 automake all 1:1.17-3 [862 kB] Get: 20 http://deb.debian.org/debian unstable/main arm64 autopoint all 0.23.1-1 [770 kB] Get: 21 http://deb.debian.org/debian unstable/main arm64 cl-alexandria all 20240125.git8514d8e-1 [203 kB] Get: 22 http://deb.debian.org/debian unstable/main arm64 cl-asdf all 2:3.3.7.2-1 [1263 kB] Get: 23 http://deb.debian.org/debian unstable/main arm64 cl-clx-sbcl arm64 0.7.5-1 [375 kB] Get: 24 http://deb.debian.org/debian unstable/main arm64 cl-trivial-gray-streams all 20240217.gita7ead68-1 [9776 B] Get: 25 http://deb.debian.org/debian unstable/main arm64 cl-fiasco all 0.0~git20200514.bb47d2f-3 [15.5 kB] Get: 26 http://deb.debian.org/debian unstable/main arm64 cl-ppcre all 20240427.git80fb19d-1 [110 kB] Get: 27 http://deb.debian.org/debian unstable/main arm64 libdebhelper-perl all 13.24.1 [90.9 kB] Get: 28 http://deb.debian.org/debian unstable/main arm64 libtool all 2.5.4-3 [539 kB] Get: 29 http://deb.debian.org/debian unstable/main arm64 dh-autoreconf all 20 [17.1 kB] Get: 30 http://deb.debian.org/debian unstable/main arm64 libarchive-zip-perl all 1.68-1 [104 kB] Get: 31 http://deb.debian.org/debian unstable/main arm64 libfile-stripnondeterminism-perl all 1.14.1-2 [19.7 kB] Get: 32 http://deb.debian.org/debian unstable/main arm64 dh-strip-nondeterminism all 1.14.1-2 [8620 B] Get: 33 http://deb.debian.org/debian unstable/main arm64 libelf1t64 arm64 0.192-4 [189 kB] Get: 34 http://deb.debian.org/debian unstable/main arm64 dwz arm64 0.15-1+b1 [102 kB] Get: 35 http://deb.debian.org/debian unstable/main arm64 libunistring5 arm64 1.3-1 [449 kB] Get: 36 http://deb.debian.org/debian unstable/main arm64 libicu72 arm64 72.1-6 [9239 kB] Get: 37 http://deb.debian.org/debian unstable/main arm64 libxml2 arm64 2.12.7+dfsg+really2.9.14-0.2+b1 [630 kB] Get: 38 http://deb.debian.org/debian unstable/main arm64 gettext arm64 0.23.1-1 [1610 kB] Get: 39 http://deb.debian.org/debian unstable/main arm64 intltool-debian all 0.35.0+20060710.6 [22.9 kB] Get: 40 http://deb.debian.org/debian unstable/main arm64 po-debconf all 1.0.21+nmu1 [248 kB] Get: 41 http://deb.debian.org/debian unstable/main arm64 debhelper all 13.24.1 [920 kB] Get: 42 http://deb.debian.org/debian unstable/main arm64 libtext-unidecode-perl all 1.30-3 [101 kB] Get: 43 http://deb.debian.org/debian unstable/main arm64 libxml-namespacesupport-perl all 1.12-2 [15.1 kB] Get: 44 http://deb.debian.org/debian unstable/main arm64 libxml-sax-base-perl all 1.09-3 [20.6 kB] Get: 45 http://deb.debian.org/debian unstable/main arm64 libxml-sax-perl all 1.02+dfsg-4 [53.4 kB] Get: 46 http://deb.debian.org/debian unstable/main arm64 libxml-libxml-perl arm64 2.0207+dfsg+really+2.0134-5+b1 [300 kB] Get: 47 http://deb.debian.org/debian unstable/main arm64 sbcl arm64 2:2.5.0-1 [8829 kB] Get: 48 http://deb.debian.org/debian unstable/main arm64 tex-common all 6.18 [32.5 kB] Get: 49 http://deb.debian.org/debian unstable/main arm64 texinfo-lib arm64 7.1.1-1+b1 [220 kB] Get: 50 http://deb.debian.org/debian unstable/main arm64 texinfo all 7.1.1-1 [1753 kB] Fetched 34.4 MB in 1s (68.3 MB/s) Preconfiguring packages ... Selecting previously unselected package libproc2-0:arm64. (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 ... 19889 files and directories currently installed.) Preparing to unpack .../00-libproc2-0_2%3a4.0.4-7_arm64.deb ... Unpacking libproc2-0:arm64 (2:4.0.4-7) ... Selecting previously unselected package procps. Preparing to unpack .../01-procps_2%3a4.0.4-7_arm64.deb ... Unpacking procps (2:4.0.4-7) ... Selecting previously unselected package sensible-utils. Preparing to unpack .../02-sensible-utils_0.0.24_all.deb ... Unpacking sensible-utils (0.0.24) ... Selecting previously unselected package libmagic-mgc. Preparing to unpack .../03-libmagic-mgc_1%3a5.45-3+b1_arm64.deb ... Unpacking libmagic-mgc (1:5.45-3+b1) ... Selecting previously unselected package libmagic1t64:arm64. Preparing to unpack .../04-libmagic1t64_1%3a5.45-3+b1_arm64.deb ... Unpacking libmagic1t64:arm64 (1:5.45-3+b1) ... Selecting previously unselected package file. Preparing to unpack .../05-file_1%3a5.45-3+b1_arm64.deb ... Unpacking file (1:5.45-3+b1) ... Selecting previously unselected package gettext-base. Preparing to unpack .../06-gettext-base_0.23.1-1_arm64.deb ... Unpacking gettext-base (0.23.1-1) ... Selecting previously unselected package libuchardet0:arm64. Preparing to unpack .../07-libuchardet0_0.0.8-1+b2_arm64.deb ... Unpacking libuchardet0:arm64 (0.0.8-1+b2) ... Selecting previously unselected package groff-base. Preparing to unpack .../08-groff-base_1.23.0-7_arm64.deb ... Unpacking groff-base (1.23.0-7) ... Selecting previously unselected package bsdextrautils. Preparing to unpack .../09-bsdextrautils_2.40.4-4_arm64.deb ... Unpacking bsdextrautils (2.40.4-4) ... Selecting previously unselected package libpipeline1:arm64. Preparing to unpack .../10-libpipeline1_1.5.8-1_arm64.deb ... Unpacking libpipeline1:arm64 (1.5.8-1) ... Selecting previously unselected package man-db. Preparing to unpack .../11-man-db_2.13.0-1_arm64.deb ... Unpacking man-db (2.13.0-1) ... Selecting previously unselected package libtext-charwidth-perl:arm64. Preparing to unpack .../12-libtext-charwidth-perl_0.04-11+b4_arm64.deb ... Unpacking libtext-charwidth-perl:arm64 (0.04-11+b4) ... Selecting previously unselected package libtext-wrapi18n-perl. Preparing to unpack .../13-libtext-wrapi18n-perl_0.06-10_all.deb ... Unpacking libtext-wrapi18n-perl (0.06-10) ... Selecting previously unselected package ucf. Preparing to unpack .../14-ucf_3.0050_all.deb ... Moving old data out of the way Unpacking ucf (3.0050) ... Selecting previously unselected package m4. Preparing to unpack .../15-m4_1.4.19-5_arm64.deb ... Unpacking m4 (1.4.19-5) ... Selecting previously unselected package autoconf. Preparing to unpack .../16-autoconf_2.72-3_all.deb ... Unpacking autoconf (2.72-3) ... Selecting previously unselected package autotools-dev. Preparing to unpack .../17-autotools-dev_20220109.1_all.deb ... Unpacking autotools-dev (20220109.1) ... Selecting previously unselected package automake. Preparing to unpack .../18-automake_1%3a1.17-3_all.deb ... Unpacking automake (1:1.17-3) ... Selecting previously unselected package autopoint. Preparing to unpack .../19-autopoint_0.23.1-1_all.deb ... Unpacking autopoint (0.23.1-1) ... Selecting previously unselected package cl-alexandria. Preparing to unpack .../20-cl-alexandria_20240125.git8514d8e-1_all.deb ... Unpacking cl-alexandria (20240125.git8514d8e-1) ... Selecting previously unselected package cl-asdf. Preparing to unpack .../21-cl-asdf_2%3a3.3.7.2-1_all.deb ... Unpacking cl-asdf (2:3.3.7.2-1) ... Selecting previously unselected package cl-clx-sbcl. Preparing to unpack .../22-cl-clx-sbcl_0.7.5-1_arm64.deb ... Unpacking cl-clx-sbcl (0.7.5-1) ... Selecting previously unselected package cl-trivial-gray-streams. Preparing to unpack .../23-cl-trivial-gray-streams_20240217.gita7ead68-1_all.deb ... Unpacking cl-trivial-gray-streams (20240217.gita7ead68-1) ... Selecting previously unselected package cl-fiasco. Preparing to unpack .../24-cl-fiasco_0.0~git20200514.bb47d2f-3_all.deb ... Unpacking cl-fiasco (0.0~git20200514.bb47d2f-3) ... Selecting previously unselected package cl-ppcre. Preparing to unpack .../25-cl-ppcre_20240427.git80fb19d-1_all.deb ... Unpacking cl-ppcre (20240427.git80fb19d-1) ... Selecting previously unselected package libdebhelper-perl. Preparing to unpack .../26-libdebhelper-perl_13.24.1_all.deb ... Unpacking libdebhelper-perl (13.24.1) ... Selecting previously unselected package libtool. Preparing to unpack .../27-libtool_2.5.4-3_all.deb ... Unpacking libtool (2.5.4-3) ... Selecting previously unselected package dh-autoreconf. Preparing to unpack .../28-dh-autoreconf_20_all.deb ... Unpacking dh-autoreconf (20) ... Selecting previously unselected package libarchive-zip-perl. Preparing to unpack .../29-libarchive-zip-perl_1.68-1_all.deb ... Unpacking libarchive-zip-perl (1.68-1) ... Selecting previously unselected package libfile-stripnondeterminism-perl. Preparing to unpack .../30-libfile-stripnondeterminism-perl_1.14.1-2_all.deb ... Unpacking libfile-stripnondeterminism-perl (1.14.1-2) ... Selecting previously unselected package dh-strip-nondeterminism. Preparing to unpack .../31-dh-strip-nondeterminism_1.14.1-2_all.deb ... Unpacking dh-strip-nondeterminism (1.14.1-2) ... Selecting previously unselected package libelf1t64:arm64. Preparing to unpack .../32-libelf1t64_0.192-4_arm64.deb ... Unpacking libelf1t64:arm64 (0.192-4) ... Selecting previously unselected package dwz. Preparing to unpack .../33-dwz_0.15-1+b1_arm64.deb ... Unpacking dwz (0.15-1+b1) ... Selecting previously unselected package libunistring5:arm64. Preparing to unpack .../34-libunistring5_1.3-1_arm64.deb ... Unpacking libunistring5:arm64 (1.3-1) ... Selecting previously unselected package libicu72:arm64. Preparing to unpack .../35-libicu72_72.1-6_arm64.deb ... Unpacking libicu72:arm64 (72.1-6) ... Selecting previously unselected package libxml2:arm64. Preparing to unpack .../36-libxml2_2.12.7+dfsg+really2.9.14-0.2+b1_arm64.deb ... Unpacking libxml2:arm64 (2.12.7+dfsg+really2.9.14-0.2+b1) ... Selecting previously unselected package gettext. Preparing to unpack .../37-gettext_0.23.1-1_arm64.deb ... Unpacking gettext (0.23.1-1) ... Selecting previously unselected package intltool-debian. Preparing to unpack .../38-intltool-debian_0.35.0+20060710.6_all.deb ... Unpacking intltool-debian (0.35.0+20060710.6) ... Selecting previously unselected package po-debconf. Preparing to unpack .../39-po-debconf_1.0.21+nmu1_all.deb ... Unpacking po-debconf (1.0.21+nmu1) ... Selecting previously unselected package debhelper. Preparing to unpack .../40-debhelper_13.24.1_all.deb ... Unpacking debhelper (13.24.1) ... Selecting previously unselected package libtext-unidecode-perl. Preparing to unpack .../41-libtext-unidecode-perl_1.30-3_all.deb ... Unpacking libtext-unidecode-perl (1.30-3) ... Selecting previously unselected package libxml-namespacesupport-perl. Preparing to unpack .../42-libxml-namespacesupport-perl_1.12-2_all.deb ... Unpacking libxml-namespacesupport-perl (1.12-2) ... Selecting previously unselected package libxml-sax-base-perl. Preparing to unpack .../43-libxml-sax-base-perl_1.09-3_all.deb ... Unpacking libxml-sax-base-perl (1.09-3) ... Selecting previously unselected package libxml-sax-perl. Preparing to unpack .../44-libxml-sax-perl_1.02+dfsg-4_all.deb ... Unpacking libxml-sax-perl (1.02+dfsg-4) ... Selecting previously unselected package libxml-libxml-perl. Preparing to unpack .../45-libxml-libxml-perl_2.0207+dfsg+really+2.0134-5+b1_arm64.deb ... Unpacking libxml-libxml-perl (2.0207+dfsg+really+2.0134-5+b1) ... Selecting previously unselected package sbcl. Preparing to unpack .../46-sbcl_2%3a2.5.0-1_arm64.deb ... Unpacking sbcl (2:2.5.0-1) ... Selecting previously unselected package tex-common. Preparing to unpack .../47-tex-common_6.18_all.deb ... Unpacking tex-common (6.18) ... Selecting previously unselected package texinfo-lib. Preparing to unpack .../48-texinfo-lib_7.1.1-1+b1_arm64.deb ... Unpacking texinfo-lib (7.1.1-1+b1) ... Selecting previously unselected package texinfo. Preparing to unpack .../49-texinfo_7.1.1-1_all.deb ... Unpacking texinfo (7.1.1-1) ... Setting up libpipeline1:arm64 (1.5.8-1) ... Setting up libtext-charwidth-perl:arm64 (0.04-11+b4) ... Setting up libicu72:arm64 (72.1-6) ... Setting up bsdextrautils (2.40.4-4) ... Setting up libmagic-mgc (1:5.45-3+b1) ... Setting up cl-asdf (2:3.3.7.2-1) ... Setting up libarchive-zip-perl (1.68-1) ... Setting up libdebhelper-perl (13.24.1) ... Setting up libmagic1t64:arm64 (1:5.45-3+b1) ... Setting up libxml-namespacesupport-perl (1.12-2) ... Setting up gettext-base (0.23.1-1) ... Setting up m4 (1.4.19-5) ... Setting up file (1:5.45-3+b1) ... Setting up texinfo-lib (7.1.1-1+b1) ... Setting up libtext-wrapi18n-perl (0.06-10) ... Setting up libelf1t64:arm64 (0.192-4) ... Setting up cl-trivial-gray-streams (20240217.gita7ead68-1) ... Setting up libxml-sax-base-perl (1.09-3) ... Setting up autotools-dev (20220109.1) ... Setting up libproc2-0:arm64 (2:4.0.4-7) ... Setting up libunistring5:arm64 (1.3-1) ... Setting up autopoint (0.23.1-1) ... Setting up autoconf (2.72-3) ... Setting up cl-clx-sbcl (0.7.5-1) ... Setting up sbcl (2:2.5.0-1) ... Setting up dwz (0.15-1+b1) ... Setting up sensible-utils (0.0.24) ... Setting up libuchardet0:arm64 (0.0.8-1+b2) ... Setting up procps (2:4.0.4-7) ... Setting up cl-alexandria (20240125.git8514d8e-1) ... Setting up cl-ppcre (20240427.git80fb19d-1) ... Setting up libtext-unidecode-perl (1.30-3) ... Setting up libxml2:arm64 (2.12.7+dfsg+really2.9.14-0.2+b1) ... Setting up automake (1:1.17-3) ... update-alternatives: using /usr/bin/automake-1.17 to provide /usr/bin/automake (automake) in auto mode Setting up libfile-stripnondeterminism-perl (1.14.1-2) ... Setting up gettext (0.23.1-1) ... Setting up libtool (2.5.4-3) ... Setting up cl-fiasco (0.0~git20200514.bb47d2f-3) ... Setting up intltool-debian (0.35.0+20060710.6) ... Setting up dh-autoreconf (20) ... Setting up ucf (3.0050) ... Setting up dh-strip-nondeterminism (1.14.1-2) ... Setting up groff-base (1.23.0-7) ... Setting up po-debconf (1.0.21+nmu1) ... Setting up man-db (2.13.0-1) ... Not building database; man-db/auto-update is not 'true'. Setting up libxml-sax-perl (1.02+dfsg-4) ... 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 tex-common (6.18) ... update-language: texlive-base not installed and configured, doing nothing! Setting up libxml-libxml-perl (2.0207+dfsg+really+2.0134-5+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.24.1) ... Setting up texinfo (7.1.1-1) ... Processing triggers for libc-bin (2.40-7) ... 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 I: Building the package I: Running cd /build/reproducible-path/stumpwm-22.11/ && 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_22.11-3_source.changes dpkg-buildpackage: info: source package stumpwm dpkg-buildpackage: info: source version 2:22.11-3 dpkg-buildpackage: info: source distribution unstable dpkg-buildpackage: info: source changed by Benda Xu dpkg-source --before-build . dpkg-buildpackage: info: host architecture arm64 debian/rules clean dh clean debian/rules override_dh_auto_clean make[1]: Entering directory '/build/reproducible-path/stumpwm-22.11' 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/reproducible-path/stumpwm-22.11' dh_clean debian/rules binary dh binary dh_update_autotools_config dh_autoreconf configure.ac:60: warning: AC_OUTPUT should be used without arguments. configure.ac:60: You should run autoupdate. configure.ac:61: warning: AC_OUTPUT should be used without arguments. configure.ac:61: You should run autoupdate. configure.ac:62: warning: AC_OUTPUT should be used without arguments. configure.ac:62: You should run autoupdate. debian/rules override_dh_auto_configure make[1]: Entering directory '/build/reproducible-path/stumpwm-22.11' 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 --runstatedir=/run --disable-maintainer-mode --disable-dependency-tracking --with-lisp=sbcl checking for sbcl... /usr/bin/sbcl configure: WARNING: SBCL_HOME must be defined to use asdf/quicklisp (it should be where your sbcl.core resides) configure: Using sbcl at /usr/bin/sbcl checking for makeinfo... yes configure: creating ./config.status config.status: creating Makefile configure: creating ./config.status config.status: creating Makefile config.status: creating make-image.lisp configure: creating ./config.status config.status: creating Makefile config.status: creating make-image.lisp config.status: creating load-stumpwm.lisp make[1]: Leaving directory '/build/reproducible-path/stumpwm-22.11' debian/rules override_dh_auto_build-indep make[1]: Entering directory '/build/reproducible-path/stumpwm-22.11' XDG_CACHE_HOME=/build/reproducible-path/stumpwm-22.11/.cache /usr/bin/make stumpwm.info make[2]: Entering directory '/build/reproducible-path/stumpwm-22.11' /usr/bin/sbcl --non-interactive --eval "(setf sb-impl::*default-external-format* :UTF-8)" --eval "(progn (load \"load-stumpwm.lisp\") (load \"manual.lisp\"))" --eval "(progn (stumpwm::generate-manual) (sb-ext:quit))" This is SBCL 2.5.0.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 01 DEC 2024 12:56:31 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-asdf/build/asdf-tmpGHU3ALSV.fasl ; compilation finished in 0:00:06.224 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/package.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/package-tmpAAURSO1.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/definitions.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/definitions-tmp5GEXGEG5.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/binding.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/binding-tmpAR3FSGEY.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/strings.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/strings-tmpJAIDFZTC.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/conditions.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/conditions-tmp8V3J6PE9.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/symbols.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/symbols-tmp9V47YWQF.fasl ; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/macros.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/macros-tmp9BN22RMA.fasl ; compilation finished in 0:00:00.072 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/functions.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/functions-tmp1CXFJSK9.fasl ; compilation finished in 0:00:00.028 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/lists.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/lists-tmpX4BRKI0R.fasl ; compilation finished in 0:00:00.168 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/types.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/types-tmpQ371UGST.fasl ; compilation finished in 0:00:00.076 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/io.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/io-tmp2OWI3Q7U.fasl ; compilation finished in 0:00:00.112 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables-tmp9KKTJMYV.fasl ; compilation finished in 0:00:00.048 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/control-flow.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/control-flow-tmpJU0JWO19.fasl ; compilation finished in 0:00:00.044 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/arrays.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/arrays-tmpZX2WN8N4.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/sequences.lisp" (written 25 JAN 2024 05:37:54 PM): ; file: /usr/share/common-lisp/source/alexandria/alexandria-1/sequences.lisp ; in: DEFUN LENGTH= ; (LENGTH FIRST) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/sequences-tmpOU81XRV0.fasl ; compilation finished in 0:00:00.108 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/numbers.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/numbers-tmpY2ML9CFA.fasl ; compilation finished in 0:00:00.108 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/features.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/features-tmpX2JYJDQE.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/package.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/package-tmpOPCILR65.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/arrays.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/arrays-tmpRV9F8A9A.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow-tmpK2ZAJT4I.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/sequences.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/sequences-tmpUX5S4ADN.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/lists.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/lists-tmp10401X32.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/packages.lisp" (written 27 APR 2024 01:06:11 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/packages-tmpZ7CBRM0G.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/specials.lisp" (written 27 APR 2024 01:06:11 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/specials-tmp9OZEQ0G2.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/util.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a (OR SIMPLE-BASE-STRING NULL). ; 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/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/util-tmpB2JTL1W9.fasl ; compilation finished in 0:00:00.024 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/errors.lisp" (written 27 APR 2024 01:06:11 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/errors-tmpP3BI68WQ.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/charset.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp ; in: DEFUN MIX ; (+ CL-PPCRE::CODE CL-PPCRE::HASH) ; ; 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFUN COMPUTE-INDEX ; (LENGTH VECTOR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL (-35184372088830) ; (35184372088830))), not a RATIONAL. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR FLOAT ; (RATIONAL (-35184372088830) (35184372088830))), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT (RATIONAL (-35184372088829) (35184372088831))) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (OR FLOAT ; (RATIONAL (-35184372088830) (35184372088830))), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR FLOAT (RATIONAL (-35184372088829) (35184372088831))) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFUN %ADD-TO-CHARSET/EXPAND ; (>= CL-PPCRE::NEW-SIZE 371370) ; ; note: forced to do <-INTEGER-FIXNUM (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; (* 2 CL-PPCRE::NEW-SIZE) ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN MAP-CHARSET ; (DECF CL-PPCRE::N) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM. ; The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER * 4611686018427387903), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; 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 T, 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 T, not a DOUBLE-FLOAT. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/charset-tmpQDARA81Z.fasl ; compilation finished in 0:00:00.032 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/charmap.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 ; in: DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LIM16) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; 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 T, 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 T, 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LIM16) ; ; 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/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/charmap-tmpYEMMM7SE.fasl ; compilation finished in 0:00:00.060 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/chartest.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/chartest.lisp ; in: DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; 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 T, 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 T, not a DOUBLE-FLOAT. ; in: DEFUN CREATE-OPTIMIZED-TEST-FUNCTION ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (<= (CL-PPCRE::CHARSET-COUNT CL-PPCRE::CHARSET) ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)) ; ; note: forced to do >-FIXNUM-INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (<= (HASH-TABLE-COUNT HASH-TABLE) ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)) ; ; note: forced to do >-FIXNUM-INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/chartest-tmp73HU0RPK.fasl ; compilation finished in 0:00:00.024 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/lexer.lisp" (written 27 APR 2024 01:06:11 AM): ; 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.") ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN GET-NUMBER ; (IF (< CL-PPCRE::END-POS CL-PPCRE::LEXER-LEN) ; CL-PPCRE::END-POS ; CL-PPCRE::LEXER-LEN) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN UNESCAPE-CHAR ; (CHAR-UPCASE CL-PPCRE::NEXT-CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/lexer-tmpIO5N7K88.fasl ; compilation finished in 0:00:00.176 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/parser.lisp" (written 27 APR 2024 01:06:11 AM): ; 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.") ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN SEQ ; (VECTOR-PUSH-EXTEND CL-PPCRE::QUANT (CAR CL-PPCRE::LAST-CDR)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/parser-tmpCM21U60Z.fasl ; compilation finished in 0:00:00.032 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; (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/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/regex-class-tmp9DT7SEFG.fasl ; compilation finished in 0:00:00.032 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD EVERYTHINGP (SEQ) ; (LENGTH CL-PPCRE::CLEANED-ELEMENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (ALTERNATION) ; (LENGTH CL-PPCRE::CHOICES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (REPETITION) ; (= 1 CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX ; SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX ; DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to 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 (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; in: DEFMETHOD REGEX-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-LENGTH ; CL-PPCRE::SUB-REGEX) ; IF (NOT CL-PPCRE::LEN) ; DO ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM6 CL-PPCRE::LEN) ; ; 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-LENGTH (ALTERNATION) ; (/= CL-PPCRE::LEN CL-PPCRE::OLD-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to 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. ; 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; in: DEFMETHOD REGEX-LENGTH (REPETITION) ; (EQL CL-PPCRE::MINIMUM 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. ; ; 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; (* CL-PPCRE::MINIMUM 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::SUM CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM6 CL-PPCRE::LEN) ; ; 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (ALTERNATION) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::MINIMIZE CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF ; ==> ; (< #:MINMAXTMP10 #:MINMAX9) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: 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. ; in: DEFMETHOD REGEX-MIN-LENGTH (BRANCH) ; (MIN (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH)) ; (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: 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 T, 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 T, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (REPETITION) ; (* (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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (ALTERNATION T) ; (/= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to 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. ; 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (REPETITION T) ; (* CL-PPCRE::MINIMUM 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (CHAR-CLASS T) ; (1+ CL-PPCRE::START-POS) ; ; note: unable to ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (EVERYTHING T) ; (1+ CL-PPCRE::START-POS) ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (STR T) ; (+ CL-PPCRE::START-POS (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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (FILTER T) ; (+ CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/regex-class-util-tmp8065ESJT.fasl ; compilation finished in 0:00:00.096 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/convert.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 ; in: DEFUN MAYBE-SPLIT-REPETITION ; (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN MAYBE-ACCUMULATE ; (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; (CL-PPCRE::STR CL-PPCRE::STR) ; (CL-PPCRE::SKIP CL-PPCRE::STR) T) ; --> SETF LET* ; ==> ; (REPLACE #:SEQUENCE #:NEW3 :START1 #:START :END1 NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; The second argument is a SEQUENCE, not a (OR NULL ; (SIMPLE-ARRAY CHARACTER (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR NULL ; (SIMPLE-ARRAY CHARACTER (*))). ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; (MAKE-ARRAY (CL-PPCRE::LEN CL-PPCRE::STR) :INITIAL-CONTENTS ; (CL-PPCRE::STR CL-PPCRE::STR) :ELEMENT-TYPE 'CHARACTER ; :FILL-POINTER T :ADJUSTABLE T) ; ; 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 second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; (SETF (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; --> FUNCALL ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20) ; (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; (CL-PPCRE::STR CL-PPCRE::STR) ; (CL-PPCRE::SKIP CL-PPCRE::STR) T) ; --> SETF LET* ; ==> ; (REPLACE #:SEQUENCE #:NEW3 :START1 #:START :END1 NIL) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BRANCH) T) ; (LENGTH (CL-PPCRE::CHOICES CL-PPCRE::ALTERNATIONS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :GREEDY-REPETITION) T) ; (ZEROP LENGTH) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :NAMED-REGISTER) T) ; (COPY-SEQ (SECOND CL-PPCRE::PARSE-TREE)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BACK-REFERENCE) T) ; (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a (SIMPLE-ARRAY CHARACTER (*)). ; (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 &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::NAME CL-PPCRE::IN CL-PPCRE::REG-NAMES ; CL-PPCRE::FOR CL-PPCRE::REG-INDEX CL-PPCRE::FROM 0 ; WHEN (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; CL-PPCRE::COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE 1+ ; ==> ; 1 ; ; note: forced to do 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CONVERT ; (COERCE (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) 'SIMPLE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/convert-tmp7S8Z6FGF.fasl ; compilation finished in 0:00:00.176 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/optimize.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a VECTOR, not a (OR SIMPLE-BASE-STRING NULL). ; (INCF CL-PPCRE::COLLECTOR-LENGTH (CL-PPCRE::LEN CL-PPCRE::ELEMENT)) ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFMETHOD START-ANCHORED-P (REPETITION) ; (PLUSP (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: 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. ; in: DEFMETHOD START-ANCHORED-P (REGEX) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::REGEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD END-STRING-AUX (SEQ) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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 SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; (CHAR CL-PPCRE::STR CL-PPCRE::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFMETHOD COMPUTE-MIN-REST (ALTERNATION T) ; (LOOP CL-PPCRE::FOR CL-PPCRE::CHOICE CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::MINIMIZE (CL-PPCRE::COMPUTE-MIN-REST CL-PPCRE::CHOICE ; CL-PPCRE::CURRENT-MIN-REST)) ; --> LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF ; ==> ; (< #:MINMAXTMP11 #:MINMAX10) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: 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. ; in: DEFMETHOD COMPUTE-MIN-REST (BRANCH T) ; (MIN ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST) ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: 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 T, 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 T, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (STR T) ; (+ CL-PPCRE::CURRENT-MIN-REST (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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (FILTER T) ; (+ CL-PPCRE::CURRENT-MIN-REST (OR (CL-PPCRE::LEN CL-PPCRE::FILTER) 0)) ; ; note: 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (REPETITION T) ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ CL-PPCRE::CURRENT-MIN-REST ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (LOOKBEHIND T) ; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::LOOKBEHIND)) ; ; note: 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (REGEX T) ; (1+ CL-PPCRE::CURRENT-MIN-REST) ; ; note: unable to ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/optimize-tmpSIT3QPKP.fasl ; compilation finished in 0:00:00.068 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/closures.lisp" (written 27 APR 2024 01:06:11 AM): ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; 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) ; in: DEFMETHOD CREATE-MATCHER-AUX (CHAR-CLASS T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::CHAR-CLASS ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::START-POS)) ; (LAMBDA (CL-PPCRE::START-POS) ; (DECLARE (FIXNUM CL-PPCRE::START-POS)) ; (AND (< CL-PPCRE::START-POS CL-PPCRE::*END-POS*) ; (CL-PPCRE::CHAR-CLASS-TEST) ; (FUNCALL CL-PPCRE::NEXT-FN (1+ CL-PPCRE::START-POS))))) ; --> LET LAMBDA FUNCTION AND IF IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFMETHOD CREATE-MATCHER-AUX (STR T) ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::START-POS ; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS) CL-PPCRE::CHR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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) ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-MATCHER-AUX (FILTER T) ; (FUNCALL CL-PPCRE::FN CL-PPCRE::START-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (FUNCALL CL-PPCRE::NEXT-FN CL-PPCRE::NEXT-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; NEXT-FN is not known to be a function ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/closures-tmpE0PA0714.fasl ; compilation finished in 0:00:00.252 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET BLOCK ; --> TAGBODY WHEN IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), 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)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; 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)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-GREEDY-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), 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)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-NON-GREEDY-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: ; DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS)))) ; --> LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA FUNCTION ; --> LET AND IF IF LOOP BLOCK LET TAGBODY UNLESS IF AND IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (AREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (ZEROP (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-MATCHER-AUX (REPETITION T) ; (ZEROP CL-PPCRE::MAXIMUM) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (EQL CL-PPCRE::MINIMUM 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. ; ; 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. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (PLUSP CL-PPCRE::LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; 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 T, 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 T, not a DOUBLE-FLOAT. ; (EQL CL-PPCRE::MINIMUM 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, 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 T, not a FIXNUM. ; The second 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). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; (PLUSP 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. ; (PLUSP 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. ; (PLUSP 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/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/repetition-closures-tmpJRWHHVG0.fasl ; compilation finished in 0:00:00.284 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/scanner.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/scanner.lisp ; in: DEFUN CREATE-BMH-MATCHER ; (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION IF LOOP BLOCK LET TAGBODY LOOP BLOCK LET LET TAGBODY UNLESS IF ; --> AND IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (LENGTH CL-PPCRE::PATTERN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CHAR-UPCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-DOWNCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (SEARCH CL-PPCRE::PATTERN CL-PPCRE::*STRING* :START2 CL-PPCRE::START-POS ; :END2 CL-PPCRE::*END-POS* :TEST CL-PPCRE::TEST) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN CREATE-CHAR-SEARCHER ; (CL-PPCRE::CHAR-SEARCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION AND IF LOOP BLOCK LET LET TAGBODY WHEN IF SETQ THE AND IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFUN CREATE-SCANNER-AUX ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (FUNCALL CL-PPCRE::END-STRING-TEST CL-PPCRE::TRY-POS) ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/scanner-tmp4WZVROCX.fasl ; compilation finished in 0:00:00.500 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/api.lisp" (written 27 APR 2024 01:06:11 AM): ; 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. ; in: DEFMETHOD CREATE-SCANNER (T) ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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. ; in: DEFMETHOD SCAN (STRING T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::REGEX-STRING) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; in: DEFMETHOD SCAN #'T ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; in: DEFMETHOD SCAN (T T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::PARSE-TREE) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; in: DEFUN SCAN-TO-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MAP 'VECTOR ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (IF CL-PPCRE::REG-START ; (FUNCALL CL-PPCRE::SUBSTR-FN CL-PPCRE::TARGET-STRING ; CL-PPCRE::REG-START CL-PPCRE::REG-END) ; NIL)) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMACRO DO-SCANS ; (DEFMACRO CL-PPCRE:DO-SCANS ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY &ENVIRONMENT CL-PPCRE::ENV) ; #<(SIMPLE-ARRAY CHARACTER ; (495)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START, MATCH-END, REG-STARTS, and ; REG-ENDS bound to the four return values of each match in turn. ... {1002451B0F}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::%START CL-PPCRE::%END ; CL-PPCRE::%REGEX CL-PPCRE::SCANNER) ; (DECLARE (IGNORABLE CL-PPCRE::%REGEX CL-PPCRE::SCANNER)) ; `(BLOCK NIL ; (LET* # ; # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END ; REG-STARTS REG-ENDS REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) ; in: DEFMACRO DO-MATCHES ; (DEFMACRO CL-PPCRE:DO-MATCHES ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (477)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START and MATCH-END bound to the ; start/end positions of each match in turn. After the last match, ; ... {100284DE3F}> ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; `(CL-PPCRE:DO-SCANS (,CL-PPCRE::MATCH-START ,CL-PPCRE::MATCH-END ; ,CL-PPCRE::REG-STARTS ,CL-PPCRE::REG-ENDS ; ,CL-PPCRE::REGEX ,CL-PPCRE::TARGET-STRING ; ,CL-PPCRE::RESULT-FORM :START ,CL-PPCRE::START :END ; ,CL-PPCRE::END) ; ,@CL-PPCRE::BODY))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) ; in: DEFMACRO DO-MATCHES-AS-STRINGS ; (DEFMACRO CL-PPCRE:DO-MATCHES-AS-STRINGS ; ( ; (CL-PPCRE::MATCH-VAR ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (569)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-VAR bound to the substring of ; TARGET-STRING corresponding to each match in turn. After the last ; ma... {10029EA8FF}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::SUBSTR-FN) ; `(LET (#) ; (CL-PPCRE:DO-MATCHES # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-VAR REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END ; SHAREDP) ; in: DEFMACRO DO-REGISTER-GROUPS ; (DEFMACRO CL-PPCRE:DO-REGISTER-GROUPS ; (CL-PPCRE::VAR-LIST ; (CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (820)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with the variables in VAR-LIST bound to the ; corresponding register groups for each match in turn, i.e. each ; va... {1002BB976F}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::SUBSTR-FN CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS CL-PPCRE::START-INDEX) ; `(LET (#) ; (CL-PPCRE:DO-SCANS # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX TARGET-STRING ; &OPTIONAL RESULT-FORM ; &KEY START END SHAREDP) ; in: DEFUN COUNT-MATCHES ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::S CL-PPCRE::E CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING COUNT :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (INCF COUNT)) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::S CL-PPCRE::E) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF COUNT) ; --> THE ; ==> ; (+ 1 COUNT) ; ; note: forced to do 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::S CL-PPCRE::E CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING COUNT :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (INCF COUNT)) ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::S CL-PPCRE::E) ; ; note: forced to do 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. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALL-MATCHES ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::RESULT-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::RESULT-LIST)) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do 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. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALL-MATCHES-AS-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES-AS-STRINGS (CL-PPCRE::MATCH CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START ; CL-PPCRE::START :END CL-PPCRE::END :SHAREDP ; CL-PPCRE::SHAREDP) ; (PUSH CL-PPCRE::MATCH CL-PPCRE::RESULT-LIST)) ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING7) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE ; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: forced to do 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. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; 1 ; ; note: forced to do 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SPLIT ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP CL-PPCRE::LIMIT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...) ; --> LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET LET ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE AREF ; ==> ; 1 ; ; 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 VECTOR, not a SIMPLE-ARRAY. ; ; 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 VECTOR, not a SIMPLE-ARRAY. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (= 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 NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a 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) ; --> 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do 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. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; 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. ; in: DEFUN STRING-CASE-MODIFIER ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::FROM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::TO) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; 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 ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (< 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 (NOT NULL), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The second argument is a (NOT NULL), 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 NULL INTEGER), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (OR NULL INTEGER), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (< CL-PPCRE::TOKEN 0) ; ; note: forced to do <-INTEGER-FIXNUM (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; in: DEFUN BUILD-REPLACEMENT ; (ARRAY-DIMENSION CL-PPCRE::REG-STARTS 0) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; (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: ; TOKEN is not known to be a function ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; 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: ; TOKEN is not known to be a function ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (>= CL-PPCRE::TOKEN CL-PPCRE::REG-BOUND) ; ; note: forced to do <-INTEGER-FIXNUM (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; (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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; ; 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFUN REGEX-REPLACE ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFUN REGEX-REPLACE-ALL ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do 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. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN REGEX-APROPOS-LIST ; (DEFUN CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; #<(SIMPLE-ARRAY CHARACTER ; (221)) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {1002192E0F}> ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (221)) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {1002192E0F}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS-LIST ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; in: DEFUN REGEX-APROPOS ; (DEFUN CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {10027406FF}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES)) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {10027406FF}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/api-tmpA0I3UKX8.fasl ; compilation finished in 0:00:00.416 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/clx/package.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/package-tmp267Y2N80.fasl ; compilation finished in 0:00:00.016 ; compiling file "/usr/share/common-lisp/source/clx/depdefs.lisp" (written 27 DEC 2022 07:29:08 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/depdefs-tmpOUPE5FSJ.fasl ; compilation finished in 0:00:00.136 ; compiling file "/usr/share/common-lisp/source/clx/clx.lisp" (written 27 DEC 2022 07:29:08 AM): ; file: /usr/share/common-lisp/source/clx/clx.lisp ; in: DEFUN ENCODE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:EVENT-MASK 'XLIB:EVENT-MASK) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-DEVICE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:DEVICE-EVENT-MASK 'XLIB:DEVICE-EVENT-MASK) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-MODIFIER-MASK ; (XLIB::X-TYPE-ERROR XLIB:MODIFIER-MASK 'XLIB:MODIFIER-MASK) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-STATE-MASK ; (XLIB::X-TYPE-ERROR XLIB::STATE-MASK ; '(OR XLIB:MASK16 (XLIB::CLX-LIST XLIB:STATE-MASK-KEY))) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-POINTER-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:POINTER-EVENT-MASK 'XLIB:POINTER-EVENT-MASK) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/clx-tmpIGHCU6ZA.fasl ; compilation finished in 0:00:00.264 ; compiling file "/usr/share/common-lisp/source/clx/dependent.lisp" (written 27 DEC 2022 07:29:08 AM): ; 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) ; in: DEFMACRO READ-IMAGE-LOAD-BYTE ; (SETQ POSITION (- 7 POSITION)) ; ; note: deleting unreachable code ; in: DEFMACRO READ-IMAGE-ASSEMBLE-BYTES ; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES)) ; ; note: deleting unreachable code ; in: DEFMACRO WRITE-IMAGE-LOAD-BYTE ; (- XLIB::INTEGER-SIZE 8 POSITION) ; ; note: deleting unreachable code ; in: DEFMACRO WRITE-IMAGE-ASSEMBLE-BYTES ; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES)) ; ; note: deleting unreachable code ; in: DEFUN COPY-BIT-RECT ; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::SDATA XLIB::SOURCE) (XLIB::SSTART) ; (XLIB::SEND)) ; (DECLARE (IGNORE XLIB::SEND)) ; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::DDATA XLIB::DEST) (XLIB::DSTART) ; (XLIB::DEND)) ; (DECLARE (IGNORE XLIB::DEND)) ; (ASSERT (AND (ZEROP XLIB::SSTART) (ZEROP XLIB::DSTART))) ; (DO ((XLIB::SRC-IDX # #) ; (XLIB::DEST-IDX # #) ; (COUNT XLIB::HEIGHT #)) ; ((ZEROP COUNT)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-IDX XLIB::DEST-IDX COUNT)) ; (SB-KERNEL:UB1-BASH-COPY XLIB::SDATA XLIB::SRC-IDX XLIB::DDATA ; XLIB::DEST-IDX XLIB::WIDTH)))) ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND IF THE ; ==> ; (SB-KERNEL:%WITH-ARRAY-DATA #:N-ARRAY0 #:N-SVALUE1 #:N-EVALUE2) ; ; note: unable to ; inline non-SIMPLE-vector-handling logic ; due to type uncertainty: ; The first argument is a (AND ARRAY (NOT (SIMPLE-ARRAY * (*)))), not a (OR ; VECTOR ; SIMPLE-ARRAY). ; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::DDATA XLIB::DEST) (XLIB::DSTART) ; (XLIB::DEND)) ; (DECLARE (IGNORE XLIB::DEND)) ; (ASSERT (AND (ZEROP XLIB::SSTART) (ZEROP XLIB::DSTART))) ; (DO ((XLIB::SRC-IDX (XLIB::INDEX+ # XLIB::SX #) ; (XLIB::INDEX+ XLIB::SRC-IDX XLIB::SOURCE-WIDTH)) ; (XLIB::DEST-IDX (XLIB::INDEX+ # XLIB::DX #) ; (XLIB::INDEX+ XLIB::DEST-IDX XLIB::DEST-WIDTH)) ; (COUNT XLIB::HEIGHT (1- COUNT))) ; ((ZEROP COUNT)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-IDX XLIB::DEST-IDX COUNT)) ; (SB-KERNEL:UB1-BASH-COPY XLIB::SDATA XLIB::SRC-IDX XLIB::DDATA ; XLIB::DEST-IDX XLIB::WIDTH))) ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND IF THE ; ==> ; (SB-KERNEL:%WITH-ARRAY-DATA #:N-ARRAY5 #:N-SVALUE6 #:N-EVALUE7) ; ; note: unable to ; inline non-SIMPLE-vector-handling logic ; due to type uncertainty: ; The first argument is a (AND ARRAY (NOT (SIMPLE-ARRAY * (*)))), not a (OR ; VECTOR ; SIMPLE-ARRAY). ; in: DEFUN FAST-READ-PIXARRAY ; (XLIB::READ-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X ; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE ; XLIB::BITS-PER-PIXEL FUNCTION XLIB::UNIT ...) ; ; note: deleting unreachable code ; in: DEFUN FAST-WRITE-PIXARRAY-USING-BITBLT ; (ARRAY-DIMENSION XLIB:PIXARRAY 1) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; in: DEFUN FAST-WRITE-PIXARRAY ; (XLIB::WRITE-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X ; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE ; XLIB::BITS-PER-PIXEL FUNCTION XLIB::+IMAGE-UNIT+ ...) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/dependent-tmpBO0TUGLK.fasl ; compilation finished in 0:00:00.256 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/clx/macros.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/macros.lisp ; in: DEFMACRO DEFINE-ACCESSOR ; (THIRD XLIB::GET-PUT-MACROS) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/macros-tmpIIXPIQNW.fasl ; compilation finished in 0:00:00.372 ; compiling file "/usr/share/common-lisp/source/clx/bufmac.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/bufmac-tmpOHM494YR.fasl ; compilation finished in 0:00:00.028 ; compiling file "/usr/share/common-lisp/source/clx/buffer.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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)) ; --> LET XLIB::HOLDING-LOCK IF HANDLER-CASE SB-INT:DX-FLET FLET #:FORM-FUN-3 ; --> 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: 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. ; in: DEFUN READ-VECTOR-CARD8 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD8 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD8 XLIB::INDEX))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD16 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD16 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD16 XLIB::INDEX))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD32 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD32 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD32 XLIB::INDEX))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD8 ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD16 ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-INT16 ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD32 ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CHAR2B ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/buffer-tmpOVFB07XF.fasl ; compilation finished in 0:00:00.772 ; compiling file "/usr/share/common-lisp/source/clx/display.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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. ; in: DEFUN DISPLAY-FINISH-OUTPUT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETINPUTFOCUS+ 16 ; :SIZES (8 32)) ; NIL) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/display-tmpG6VFGMYP.fasl ; compilation finished in 0:00:00.120 ; compiling file "/usr/share/common-lisp/source/clx/gcontext.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN SET-GCONTEXT-DASHES ; (VECTOR) ; ; note: deleting unreachable code ; in: DEFUN FORCE-GCONTEXT-CHANGES-INTERNAL ; (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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))) ; --> 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. ; --> 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (LENGTH XLIB::LOCAL-DASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETDASHES+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-DASH-OFFSET XLIB::LOCAL-STATE) 0) ; (LENGTH XLIB::LOCAL-DASH)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::LOCAL-DASH)) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::LOCAL-DASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (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))))) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; 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))) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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)) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-GCONTEXT-LOCAL-STATE ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) ; --> XLIB::WITH-BUFFER PROGN FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::TEMP-MASK))) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (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-CREATEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:DRAWABLE (XLIB::GCONTEXT-DRAWABLE XLIB:GCONTEXT)) ; (XLIB:CARD29 0)) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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))) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (ASH BIT -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) 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) ; &OPTIONAL). ; etc. ; in: DEFUN RESTORE-GCONTEXT-TEMP-STATE ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC)) ; --> 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (FUNCALL XLIB::COPY-FUNCTION XLIB::TEMP-GC XLIB:GCONTEXT ; (SVREF XLIB::LOCAL-STATE XLIB::I)) ; ; 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))) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (ASH BIT -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) 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) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC)) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-GCONTEXT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEGC+) ; (XLIB:RESOURCE-ID XLIB::GCONTEXTID) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (PROGN ; (DO* ((XLIB::I 0 #) ; (BIT 1 #) ; (XLIB::NBYTE 16) ; (XLIB::MASK 0) ; (XLIB::LOCAL # #)) ; ((XLIB::INDEX>= XLIB::I XLIB::+GCONTEXT-FAST-CHANGE-LENGTH+) ; (XLIB::CARD29-PUT 12 XLIB::MASK) ; (XLIB::CARD16-PUT 2 #) ; (XLIB::INDEX-INCF # XLIB::NBYTE)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::I XLIB::NBYTE) ; (TYPE XLIB::XGCMASK BIT) ; (TYPE XLIB::GCMASK XLIB::MASK) ; (TYPE # XLIB::LOCAL)) ; (UNLESS (EQL XLIB::LOCAL #) ; (SETF #) ; (XLIB::CARD32-PUT XLIB::NBYTE XLIB::LOCAL) ; (SETQ #) ; (XLIB::INDEX-INCF XLIB::NBYTE 4))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-GCONTEXT-COMPONENTS ; (FIND XLIB::KEY XLIB::*GCONTEXT-EXTENSIONS* :KEY ; #'XLIB::GCONTEXT-EXTENSION-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (FUNCALL (XLIB::GCONTEXT-EXTENSION-COPY-FUNCTION XLIB::EXTENSION) XLIB::SRC ; XLIB::DST ; (SVREF (XLIB::GCONTEXT-LOCAL-STATE XLIB::SRC) ; (XLIB::INDEX+ ; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) ; XLIB::*GCONTEXT-DATA-LENGTH*))) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+) ; (XLIB:GCONTEXT XLIB::SRC XLIB::DST) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::MASK))) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-GCONTEXT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/gcontext-tmp4QIPRMOF.fasl ; compilation finished in 0:00:00.804 ; compiling file "/usr/share/common-lisp/source/clx/input.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DEFUN READ-INPUT ; (CONS NIL NIL) ; ; note: deleting unreachable code ; in: DEFUN QUEUE-EVENT ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::EVENT-CODE) XLIB:DISPLAY ; XLIB::ARGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DECLARE-EVENT :CLIENT-MESSAGE ; (XLIB:DECLARE-EVENT :CLIENT-MESSAGE ; (XLIB::DATA FORMAT) ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (KEYWORD TYPE) ; ((XLIB::CLIENT-MESSAGE-SEQUENCE FORMAT) XLIB::DATA)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::READING-EVENT XLIB::WITH-BUFFER-INPUT LET LET* ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; --> 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 COND IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD8 MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ; --> ECASE COND IF IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD16 MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ; --> ECASE COND IF IF IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD32 MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN MAKE-ERROR ; (FUNCALL XLIB::ERROR-DECODE-FUNCTION XLIB:DISPLAY XLIB::EVENT) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/input-tmpGW0QV22K.fasl ; compilation finished in 0:00:01.368 ; compiling file "/usr/share/common-lisp/source/clx/requests.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEWINDOW+) ; (XLIB::DATA XLIB::DEPTH) ; (XLIB:RESOURCE-ID XLIB::WID) ; (XLIB:WINDOW XLIB::PARENT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH) ; ((XLIB::MEMBER16 :COPY :INPUT-OUTPUT :INPUT-ONLY) CLASS) ; (XLIB:RESOURCE-ID ; (COND ((EQ XLIB::VISUAL :COPY) 0) ; ((TYPEP XLIB::VISUAL 'XLIB:RESOURCE-ID) XLIB::VISUAL) ; (T (XLIB:VISUAL-INFO-ID XLIB::VISUAL)))) ; (XLIB::MASK ; (XLIB:CARD32 XLIB::BACK-PIXMAP XLIB::BACK-PIXEL XLIB::BORDER-PIXMAP ; XLIB::BORDER-PIXEL) ; ((XLIB::MEMBER-VECTOR XLIB::+BIT-GRAVITY-VECTOR+) XLIB:BIT-GRAVITY) ; ((XLIB::MEMBER-VECTOR XLIB::+WIN-GRAVITY-VECTOR+) XLIB::GRAVITY) ; ((MEMBER :NOT-USEFUL :WHEN-MAPPED :ALWAYS) XLIB::BACKING-STORE) ; (XLIB:CARD32 XLIB::BACKING-PLANES XLIB::BACKING-PIXEL) ; ((MEMBER :OFF :ON) XLIB::OVERRIDE-REDIRECT XLIB::SAVE-UNDER) ; (XLIB:CARD32 XLIB:EVENT-MASK XLIB::DO-NOT-PROPAGATE-MASK) ; ((OR (MEMBER :COPY) XLIB:COLORMAP) XLIB:COLORMAP) ; ((OR (MEMBER :NONE) XLIB:CURSOR) XLIB:CURSOR))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN SETQ THE ; ==> ; (LOGIOR XLIB::%MASK 4096) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 4096)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 4096)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 8192)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 8192)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET INCF LET* ; ==> ; (+ XLIB::%INDEX (XLIB::BUFFER-BOFFSET #:%BUFFER104)) ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DESTROY-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-DESTROYWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DESTROY-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-DESTROYSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN REPARENT-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-REPARENTWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW XLIB::PARENT) ; (XLIB:INT16 XLIB::X XLIB::Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MAP-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-MAPWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MAP-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-MAPSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNMAP-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNMAPWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNMAP-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNMAPSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CIRCULATE-WINDOW-UP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CIRCULATEWINDOW+) ; (XLIB::DATA 0) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CIRCULATE-WINDOW-DOWN ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CIRCULATEWINDOW+) ; (XLIB::DATA 1) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN INTERN-ATOM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-INTERNATOM+ 12 ; :SIZES 32) ; ((XLIB::DATA 0) (XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::RESOURCE-ID-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FIND-ATOM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-INTERNATOM+ 12 ; :SIZES 32) ; ((XLIB::DATA 1) (XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::OR-GET 8 NULL XLIB:RESOURCE-ID))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEPROPERTY+) ; ((XLIB::DATA (MEMBER :REPLACE :PREPEND :APPEND)) XLIB::MODE) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID XLIB::TYPE-ID) ; (XLIB:CARD8 FORMAT) ; (XLIB:CARD32 LENGTH) ; (PROGN ; (ECASE FORMAT ; (8 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD8 :START XLIB::START ; :END XLIB::END :TRANSFORM XLIB::TRANSFORM)) ; (16 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD16 :START ; XLIB::START :END XLIB::END :TRANSFORM ; XLIB::TRANSFORM)) ; (32 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD32 :START ; XLIB::START :END XLIB::END :TRANSFORM ; XLIB::TRANSFORM))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DELETE-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-DELETEPROPERTY+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GET-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETPROPERTY+ NIL ; :SIZES (8 32)) ; (((XLIB::DATA BOOLEAN) XLIB::DELETE-P) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID) ; ((OR NULL XLIB:RESOURCE-ID) XLIB::TYPE-ID) (XLIB:CARD32 XLIB::START) ; (XLIB:CARD32 (XLIB::INDEX- (OR XLIB::END 64000) XLIB::START))) ; (LET ((XLIB::REPLY-FORMAT (XLIB::CARD8-GET 1)) ; (XLIB::REPLY-TYPE (XLIB::CARD32-GET 8)) ; (XLIB::BYTES-AFTER (XLIB::CARD32-GET 12)) ; (XLIB::NITEMS (XLIB::CARD32-GET 16))) ; (VALUES XLIB::REPLY-FORMAT XLIB::REPLY-TYPE XLIB::BYTES-AFTER ; (AND (PLUSP XLIB::NITEMS) (ECASE XLIB::REPLY-FORMAT # # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ROTATE-PROPERTIES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-ROTATEPROPERTIES+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 LENGTH) ; (XLIB:INT16 (- XLIB::DELTA)) ; ((SEQUENCE :END LENGTH) SEQUENCE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-SELECTION-OWNER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETSELECTIONOWNER+) ; ((OR NULL XLIB:WINDOW) XLIB::OWNER) ; (XLIB:RESOURCE-ID XLIB::SELECTION-ID) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CONVERT-SELECTION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CONVERTSELECTION+) ; (XLIB:WINDOW XLIB::REQUESTOR) ; (XLIB:RESOURCE-ID XLIB::SELECTION-ID XLIB::TYPE-ID) ; ((OR NULL XLIB:RESOURCE-ID) XLIB::PROPERTY-ID) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SEND-EVENT ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE) ; XLIB:DISPLAY XLIB::ARGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SENDEVENT+) ; ((XLIB::DATA BOOLEAN) XLIB::PROPAGATE-P) ; (LENGTH 11) ; ((OR (MEMBER :POINTER-WINDOW :INPUT-FOCUS) XLIB:WINDOW) XLIB:WINDOW) ; (XLIB:CARD32 (XLIB::ENCODE-EVENT-MASK XLIB:EVENT-MASK)) ; (XLIB:CARD8 XLIB::EXTERNAL-EVENT-CODE) ; (PROGN ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE) ; XLIB:DISPLAY XLIB::ARGS) ; (SETF (XLIB::BUFFER-BOFFSET XLIB:DISPLAY) ; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 44)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-POINTER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GRABPOINTER+ NIL ; :SIZES 8) ; (((XLIB::DATA BOOLEAN) XLIB::OWNER-P) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK)) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P)) ; ((OR NULL XLIB:WINDOW) XLIB::CONFINE-TO) ; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ((OR NULL XLIB:CARD32) TIME)) ; (VALUES ; (XLIB::MEMBER8-GET 1 :SUCCESS :ALREADY-GRABBED :INVALID-TIME :NOT-VIEWABLE ; :FROZEN))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-POINTER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-UNGRABPOINTER+) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-BUTTON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-GRABBUTTON+) ; ((XLIB::DATA BOOLEAN) XLIB::OWNER-P) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK)) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P)) ; ((OR NULL XLIB:WINDOW) XLIB::CONFINE-TO) ; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ; (XLIB:CARD8 ; (IF (EQ XLIB::BUTTON :ANY) ; 0 ; XLIB::BUTTON)) ; (XLIB::PAD8 1) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-BUTTON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNGRABBUTTON+) ; (XLIB::DATA ; (IF (EQ XLIB::BUTTON :ANY) ; 0 ; XLIB::BUTTON)) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-ACTIVE-POINTER-GRAB ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEACTIVEPOINTERGRAB+) ; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-KEYBOARD ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GRABKEYBOARD+ NIL ; :SIZES 8) ; (((XLIB::DATA BOOLEAN) XLIB::OWNER-P) (XLIB:WINDOW XLIB:WINDOW) ; ((OR NULL XLIB:CARD32) TIME) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P))) ; (VALUES ; (XLIB::MEMBER8-GET 1 :SUCCESS :ALREADY-GRABBED :INVALID-TIME :NOT-VIEWABLE ; :FROZEN))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-KEYBOARD ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-UNGRABKEYBOARD+) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-KEY ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-GRABKEY+) ; ((XLIB::DATA BOOLEAN) XLIB::OWNER-P) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS)) ; (XLIB:CARD8 ; (IF (EQ XLIB::KEY :ANY) ; 0 ; XLIB::KEY)) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-KEY ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNGRABKEY+) ; (XLIB::DATA ; (IF (EQ XLIB::KEY :ANY) ; 0 ; XLIB::KEY)) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-SERVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-GRABSERVER+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-SERVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-UNGRABSERVER+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MOTION-EVENTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETMOTIONEVENTS+ ; NIL :SIZES 32) ; ((XLIB:WINDOW XLIB:WINDOW) ((OR NULL XLIB:CARD32) XLIB::START XLIB::STOP)) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; (XLIB::INDEX* (XLIB::CARD32-GET 8) 3) :INDEX ; XLIB::+REPLYSIZE+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN TRANSLATE-COORDINATES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-TRANSLATECOORDS+ ; 16 :SIZES (8 16 32)) ; ((XLIB:WINDOW XLIB::SRC XLIB::DST) (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y)) ; (AND (XLIB::BOOLEAN-GET 1) ; (VALUES (XLIB::INT16-GET 12) (XLIB::INT16-GET 14) ; (XLIB::OR-GET 8 NULL XLIB:WINDOW)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WARP-POINTER ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::DST) ; XLIB::+X-WARPPOINTER+) ; (XLIB:RESOURCE-ID 0) ; (XLIB:WINDOW XLIB::DST) ; (XLIB:INT16 0 0) ; (XLIB:CARD16 0 0) ; (XLIB:INT16 XLIB::DST-X XLIB::DST-Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WARP-POINTER-RELATIVE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-WARPPOINTER+) ; (XLIB:RESOURCE-ID 0) ; (XLIB:RESOURCE-ID 0) ; (XLIB:INT16 0 0) ; (XLIB:CARD16 0 0) ; (XLIB:INT16 XLIB::X-OFF XLIB::Y-OFF)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WARP-POINTER-IF-INSIDE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::DST) ; XLIB::+X-WARPPOINTER+) ; (XLIB:WINDOW XLIB::SRC XLIB::DST) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y) ; (XLIB:CARD16 (OR XLIB::SRC-WIDTH 0) (OR XLIB::SRC-HEIGHT 0)) ; (XLIB:INT16 XLIB::DST-X XLIB::DST-Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WARP-POINTER-RELATIVE-IF-INSIDE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::SRC) ; XLIB::+X-WARPPOINTER+) ; (XLIB:WINDOW XLIB::SRC) ; (XLIB:RESOURCE-ID 0) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y) ; (XLIB:CARD16 (OR XLIB::SRC-WIDTH 0) (OR XLIB::SRC-HEIGHT 0)) ; (XLIB:INT16 XLIB::X-OFF XLIB::Y-OFF)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-PIXMAP ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:PIXMAP 'XLIB:PIXMAP) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEPIXMAP+) ; (XLIB::DATA XLIB::DEPTH) ; (XLIB:RESOURCE-ID XLIB::PID) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-PIXMAP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEPIXMAP+) ; (XLIB:PIXMAP XLIB:PIXMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CLEAR-AREA ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CLEARTOBACKGROUND+) ; ((XLIB::DATA BOOLEAN) XLIB::EXPOSURES-P) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 (OR XLIB::WIDTH 0) (OR XLIB::HEIGHT 0))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-AREA ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB::SRC) ; XLIB::+X-COPYAREA+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB::SRC XLIB::DST) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y XLIB::DST-X XLIB::DST-Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-PLANE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB::SRC) ; XLIB::+X-COPYPLANE+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB::SRC XLIB::DST) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y XLIB::DST-X XLIB::DST-Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) ; (XLIB:CARD32 XLIB::PLANE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-COLORMAP ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:COLORMAP 'XLIB:COLORMAP) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATECOLORMAP+) ; ((XLIB::DATA BOOLEAN) XLIB::ALLOC-P) ; (XLIB:CARD29 XLIB::ID) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD29 (XLIB:VISUAL-INFO-ID XLIB:VISUAL-INFO))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-COLORMAP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREECOLORMAP+) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-COLORMAP-AND-FREE ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB::NEW-COLORMAP 'XLIB:COLORMAP) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYCOLORMAPANDFREE+) ; (XLIB:RESOURCE-ID XLIB::ID) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN INSTALL-COLORMAP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-INSTALLCOLORMAP+) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNINSTALL-COLORMAP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-UNINSTALLCOLORMAP+) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALLOC-COLOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCNAMEDCOLOR+ ; 24 :SIZES (16 32)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (XLIB:CARD16 LENGTH) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::CARD32-GET 8) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 18) :GREEN ; (XLIB::RGB-VAL-GET 20) :BLUE ; (XLIB::RGB-VAL-GET 22)) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 12) :GREEN ; (XLIB::RGB-VAL-GET 14) :BLUE ; (XLIB::RGB-VAL-GET 16)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLOR+ 20 ; :SIZES (16 32)) ; ((XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB:COLOR) (XLIB:COLOR-GREEN XLIB:COLOR) ; (XLIB:COLOR-BLUE XLIB:COLOR)) ; (XLIB::PAD16 NIL)) ; (VALUES (XLIB::CARD32-GET 16) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 8) :GREEN ; (XLIB::RGB-VAL-GET 10) :BLUE ; (XLIB::RGB-VAL-GET 12)) ; XLIB:COLOR)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALLOC-COLOR-CELLS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLORCELLS+ ; NIL :SIZES 16) ; (((XLIB::DATA BOOLEAN) XLIB::CONTIGUOUS-P) (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD16 XLIB::COLORS XLIB::PLANES)) ; (LET ((XLIB::PIXEL-LENGTH (XLIB::CARD16-GET 8)) ; (XLIB::MASK-LENGTH (XLIB::CARD16-GET 10))) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::PIXEL-LENGTH :INDEX XLIB::+REPLYSIZE+) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::MASK-LENGTH :INDEX ; (XLIB::INDEX+ XLIB::+REPLYSIZE+ #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALLOC-COLOR-PLANES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLORPLANES+ ; NIL :SIZES (16 32)) ; (((XLIB::DATA BOOLEAN) XLIB::CONTIGUOUS-P) (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD16 XLIB::COLORS XLIB::REDS XLIB::GREENS XLIB::BLUES)) ; (LET ((XLIB::RED-MASK (XLIB::CARD32-GET 12)) ; (XLIB::GREEN-MASK (XLIB::CARD32-GET 16)) ; (XLIB::BLUE-MASK (XLIB::CARD32-GET 20))) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; (XLIB::CARD16-GET 8) :INDEX XLIB::+REPLYSIZE+) ; XLIB::RED-MASK XLIB::GREEN-MASK XLIB::BLUE-MASK))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-COLORS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-FREECOLORS+) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB::PLANE-MASK) ; (SEQUENCE XLIB::PIXELS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::PIXELS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN STORE-COLOR ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORENAMEDCOLOR+) ; ((XLIB::DATA XLIB:CARD8) XLIB::FLAGS) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB:PIXEL) ; (XLIB:CARD16 LENGTH) ; (XLIB::PAD16 NIL) ; (STRING STRING)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORECOLORS+) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB:PIXEL) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::SPEC) (XLIB:COLOR-GREEN XLIB::SPEC) ; (XLIB:COLOR-BLUE XLIB::SPEC)) ; (XLIB:CARD8 XLIB::FLAGS) ; (XLIB::PAD8 NIL)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORENAMEDCOLOR+) ; ((XLIB::DATA XLIB:CARD8) XLIB::FLAGS) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB:PIXEL) ; (XLIB:CARD16 LENGTH) ; (XLIB::PAD16 NIL) ; (STRING STRING)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-COLORS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYCOLORS+ NIL ; :SIZES (8 16)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (SEQUENCE XLIB::PIXELS)) ; (LET ((SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE #))) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+) ; (DOTIMES (XLIB::I (LENGTH SEQUENCE) SEQUENCE) ; (SETF # #) ; (XLIB::ADVANCE-BUFFER-OFFSET 8)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::PIXELS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (SETF (ELT SEQUENCE XLIB::I) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 0) :GREEN ; (XLIB::RGB-VAL-GET 2) :BLUE (XLIB::RGB-VAL-GET 4))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYCOLORS+ NIL ; :SIZES (8 16)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (SEQUENCE XLIB::PIXELS)) ; (LET ((SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE #))) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+) ; (DOTIMES (XLIB::I (LENGTH SEQUENCE) SEQUENCE) ; (SETF # #) ; (XLIB::ADVANCE-BUFFER-OFFSET 8)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN LOOKUP-COLOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LOOKUPCOLOR+ 20 ; :SIZES 16) ; ((XLIB:COLORMAP XLIB:COLORMAP) (XLIB:CARD16 LENGTH) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 14) :GREEN (XLIB::RGB-VAL-GET 16) ; :BLUE (XLIB::RGB-VAL-GET 18)) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 8) :GREEN (XLIB::RGB-VAL-GET 10) ; :BLUE (XLIB::RGB-VAL-GET 12)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-CURSOR ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATECURSOR+) ; (XLIB:RESOURCE-ID XLIB::CID) ; (XLIB:PIXMAP XLIB::SOURCE) ; ((OR NULL XLIB:PIXMAP) XLIB::MASK) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND) ; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND)) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND) ; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND)) ; (XLIB:CARD16 XLIB::X XLIB::Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-GLYPH-CURSOR ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEGLYPHCURSOR+) ; (XLIB:RESOURCE-ID XLIB::CID XLIB::SOURCE-FONT-ID XLIB::MASK-FONT-ID) ; (XLIB:CARD16 XLIB::SOURCE-CHAR) ; (XLIB:CARD16 XLIB::MASK-CHAR) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND) ; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND)) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND) ; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-CURSOR ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREECURSOR+) ; (XLIB:CURSOR XLIB:CURSOR)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RECOLOR-CURSOR ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:CURSOR-DISPLAY XLIB:CURSOR) ; XLIB::+X-RECOLORCURSOR+) ; (XLIB:CURSOR XLIB:CURSOR) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND) ; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND)) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND) ; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-BEST-CURSOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12 ; :SIZES 16) ; ((XLIB::DATA 0) (XLIB:WINDOW XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-BEST-TILE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12 ; :SIZES 16) ; ((XLIB::DATA 1) (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-BEST-STIPPLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12 ; :SIZES 16) ; ((XLIB::DATA 2) (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-EXTENSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYEXTENSION+ ; 12 :SIZES 8) ; ((XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) (STRING STRING)) ; (AND (XLIB::BOOLEAN-GET 8) ; (VALUES (XLIB::CARD8-GET 9) (XLIB::CARD8-GET 10) ; (XLIB::CARD8-GET 11)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-KEYBOARD-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEKEYBOARDCONTROL+ ; :SIZES (32)) ; (XLIB::MASK ; (INTEGER XLIB::KEY-CLICK-PERCENT XLIB::BELL-PERCENT XLIB::BELL-PITCH ; XLIB::BELL-DURATION) ; (XLIB:CARD32 XLIB::LED) ((MEMBER :OFF :ON) XLIB::LED-MODE) ; (XLIB:CARD32 XLIB::KEY) ; ((MEMBER :OFF :ON :DEFAULT) XLIB::AUTO-REPEAT-MODE))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-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 #:%BUFFER46)) ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN BELL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-BELL+) ; (XLIB::DATA (XLIB::INT8->CARD8 XLIB::PERCENT-FROM-NORMAL))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-POINTER-MAPPING ; (LENGTH MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-SETPOINTERMAPPING+ 2 :SIZES 8) ; ((XLIB::DATA (LENGTH MAP)) ((SEQUENCE :FORMAT XLIB:CARD8) MAP)) ; (VALUES (XLIB::BOOLEAN-GET 1))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-POINTER-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEPOINTERCONTROL+) ; (XLIB:INT16 NUMERATOR DENOMINATOR XLIB::THRESHOLD) ; (XLIB:CARD8 XLIB::ACCELERATION-P XLIB::THRESHOLD-P)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETSCREENSAVER+) ; (XLIB:INT16 XLIB::TIMEOUT XLIB::INTERVAL) ; ((XLIB::MEMBER8 :ON :OFF :DEFAULT) XLIB::BLANKING XLIB::EXPOSURES)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ACTIVATE-SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FORCESCREENSAVER+) ; (XLIB::DATA 1)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RESET-SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FORCESCREENSAVER+) ; (XLIB::DATA 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-ACCESS-HOST ; (LENGTH XLIB::ADDRESS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEHOSTS+) ; ((XLIB::DATA BOOLEAN) XLIB::REMOVE-P) ; (XLIB:CARD8 ; (XLIB::ENCODE-TYPE (OR NULL (MEMBER :INTERNET :DECNET :CHAOS) XLIB:CARD32) ; XLIB::FAMILY)) ; (XLIB:CARD16 (LENGTH XLIB::ADDRESS)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::ADDRESS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::ADDRESS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ACCESS-HOSTS ; (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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SETF (ELT SEQUENCE XLIB::I) ; (CONS ; (IF (< XLIB::FAMILY 3) ; (SVREF '# XLIB::FAMILY) ; XLIB::FAMILY) ; (XLIB::SEQUENCE-GET :LENGTH XLIB::LEN :FORMAT XLIB:CARD8 ; :RESULT-TYPE 'LIST :INDEX ; (+ XLIB::BUFFER-BOFFSET 4)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ACCESS-CONTROL ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LISTHOSTS+ 2 ; :SIZES 8) ; NIL ; (XLIB::BOOLEAN-GET 1)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-ACCESS-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEACCESSCONTROL+) ; ((XLIB::DATA BOOLEAN) XLIB::ENABLED-P)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN KILL-CLIENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-KILLCLIENT+) ; (XLIB:RESOURCE-ID XLIB:RESOURCE-ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN KILL-TEMPORARY-CLIENTS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-KILLCLIENT+) ; (XLIB:RESOURCE-ID 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN NO-OPERATION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-NOOPERATION+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/requests-tmp2K9J0HSR.fasl ; compilation finished in 0:00:01.412 ; compiling file "/usr/share/common-lisp/source/clx/fonts.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-OPENFONT+) ; (XLIB:RESOURCE-ID XLIB:FONT-ID) ; (XLIB:CARD16 (LENGTH XLIB::NAME-STRING)) ; (XLIB::PAD16 NIL) ; (STRING XLIB::NAME-STRING)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN OPEN-FONT-INTERNAL ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:FONT 'XLIB:FONT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (LENGTH XLIB::NAME-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-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. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CLOSE-FONT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CLOSEFONT+) ; (XLIB:RESOURCE-ID XLIB::ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN LIST-FONT-NAMES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LISTFONTS+ ; XLIB::SIZE :SIZES (8 16)) ; ((XLIB:CARD16 XLIB::MAX-FONTS (LENGTH STRING)) (STRING STRING)) ; (VALUES ; (XLIB::READ-SEQUENCE-STRING XLIB::BUFFER-BBUF ; (XLIB::INDEX- XLIB::SIZE XLIB::+REPLYSIZE+) ; (XLIB::CARD16-GET 8) XLIB::RESULT-TYPE ; XLIB::+REPLYSIZE+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN LIST-FONTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-LISTFONTSWITHINFO+ 60 :SIZES ; (8 16) :MULTIPLE-REPLY T) ; ((XLIB:CARD16 XLIB::MAX-FONTS (LENGTH STRING)) (STRING STRING)) ; (COND ((ZEROP (XLIB::CARD8-GET 1)) T) ; (T ; (LET* (# # # # # # # # #) ; (SETF #) ; (PUSH XLIB:FONT XLIB::RESULT)) ; NIL))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-FONT-PATH ; (ELT XLIB::PATHS XLIB::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (STRING (ELT XLIB::PATHS XLIB::I)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING ; SYMBOL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (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)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CEILING XLIB::REQUEST-LENGTH 4) ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; 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)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/fonts-tmpP44I4E0Y.fasl ; compilation finished in 0:00:00.120 ; compiling file "/usr/share/common-lisp/source/clx/graphics.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 ; ==> ; (= (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-POINTS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYPOINT+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-LINE ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 ; ==> ; (= (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-LINES ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYLINE+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FILL-POLYGON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-FILLPOLY+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((XLIB::MEMBER8 :COMPLEX :NON-CONVEX :CONVEX) XLIB::SHAPE) ; (BOOLEAN XLIB::RELATIVE-P) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-SEGMENTS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYSEGMENT+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::SEGMENTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::SEGMENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-RECTANGLE ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 ; ==> ; (= (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-RECTANGLES ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; (IF XLIB::FILL-P ; XLIB::+X-POLYFILLRECTANGLE+ ; XLIB::+X-POLYRECTANGLE+) ; :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::RECTANGLES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-ARC ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 ; ==> ; (= (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-ARCS-LIST ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::REQUEST :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (PROGN ; (XLIB::CARD16-PUT 2 (XLIB::INDEX+ (XLIB::INDEX-ASH LENGTH -1) 3)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)) ; (DO ((XLIB::ARC XLIB::ARCS)) ; ((ENDP XLIB::ARC) (SETF #)) ; (WHEN (XLIB::INDEX>= XLIB::BUFFER-BOFFSET XLIB::LIMIT) ; (SETF #) ; (XLIB::BUFFER-FLUSH XLIB:DISPLAY) ; (XLIB::SET-BUFFER-OFFSET #)) ; (XLIB::INT16-PUT 0 (POP XLIB::ARC)) ; (XLIB::INT16-PUT 2 (POP XLIB::ARC)) ; (XLIB::CARD16-PUT 4 (POP XLIB::ARC)) ; (XLIB::CARD16-PUT 6 (POP XLIB::ARC)) ; (XLIB::ANGLE-PUT 8 (POP XLIB::ARC)) ; (XLIB::ANGLE-PUT 10 (POP XLIB::ARC)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-ARCS-VECTOR ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 0)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 1)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 2)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 3)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 4)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 5)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::REQUEST :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (PROGN ; (XLIB::CARD16-PUT 2 (XLIB::INDEX+ (XLIB::INDEX-ASH LENGTH -1) 3)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)) ; (DO ((XLIB::N 0 #) ; (LENGTH #)) ; ((XLIB::INDEX>= XLIB::N LENGTH) (SETF #)) ; (WHEN (XLIB::INDEX>= XLIB::BUFFER-BOFFSET XLIB::LIMIT) ; (SETF #) ; (XLIB::BUFFER-FLUSH XLIB:DISPLAY) ; (XLIB::SET-BUFFER-OFFSET #)) ; (XLIB::INT16-PUT 0 (AREF XLIB::ARCS #)) ; (XLIB::INT16-PUT 2 (AREF XLIB::ARCS #)) ; (XLIB::CARD16-PUT 4 (AREF XLIB::ARCS #)) ; (XLIB::CARD16-PUT 6 (AREF XLIB::ARCS #)) ; (XLIB::ANGLE-PUT 8 (AREF XLIB::ARCS #)) ; (XLIB::ANGLE-PUT 10 (AREF XLIB::ARCS #)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN PUT-RAW-IMAGE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-PUTIMAGE+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA (MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP)) FORMAT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 XLIB::LEFT-PAD XLIB::DEPTH) ; (XLIB::PAD16 NIL) ; ((SEQUENCE :FORMAT XLIB:CARD8 :START XLIB::START) XLIB::DATA)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::DATA) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GET-RAW-IMAGE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETIMAGE+ NIL ; :SIZES (8 32)) ; (((XLIB::DATA (MEMBER ERROR :XY-PIXMAP :Z-PIXMAP)) FORMAT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) (XLIB:CARD32 XLIB::PLANE-MASK)) ; (LET ((XLIB::DEPTH (XLIB::CARD8-GET 1)) ; (LENGTH (* 4 #)) ; (XLIB::VISUAL (XLIB::RESOURCE-ID-GET 8))) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :FORMAT XLIB:CARD8 ; :LENGTH LENGTH :START XLIB::START :DATA XLIB::DATA ; :INDEX ...) ; XLIB::DEPTH (XLIB:VISUAL-INFO XLIB:DISPLAY XLIB::VISUAL)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/graphics-tmp63LQ7EX6.fasl ; compilation finished in 0:00:00.340 ; compiling file "/usr/share/common-lisp/source/clx/text.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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 ; 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))) ; --> THE ; ==> ; (+ ; (IF (OR (XLIB::FONT-CHAR-INFOS-INTERNAL XLIB:FONT) ; (XLIB::FONT-LOCAL-ONLY-P XLIB:FONT)) ; (XLIB::TEXT-EXTENTS-LOCAL XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END ; :WIDTH-ONLY) ; (XLIB::TEXT-WIDTH-SERVER XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END)) ; XLIB::WIDTH) ; ; note: forced to do 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) ; &OPTIONAL). ; etc. ; in: DEFUN TEXT-EXTENTS-SERVER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYTEXTEXTENTS+ ; 28 :SIZES (8 16 32)) ; (((XLIB::DATA BOOLEAN) (ODDP LENGTH)) ; (LENGTH (XLIB::INDEX+ (XLIB::INDEX-CEILING LENGTH 2) 2)) ; (XLIB:RESOURCE-ID XLIB:FONT-ID) ; ((SEQUENCE :FORMAT XLIB::CHAR2B :START XLIB::START :END XLIB::END ; :APPENDING T) ; SEQUENCE)) ; (VALUES (XLIB::INTEGER-GET 16) (XLIB::INT16-GET 12) (XLIB::INT16-GET 14) ; (XLIB::INTEGER-GET 20) (XLIB::INTEGER-GET 24) (XLIB::INT16-GET 8) ; (XLIB::INT16-GET 10) ; (XLIB::MEMBER8-GET 1 :LEFT-TO-RIGHT :RIGHT-TO-LEFT))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN TEXT-WIDTH-SERVER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYTEXTEXTENTS+ ; 28 :SIZES 32) ; (((XLIB::DATA BOOLEAN) (ODDP LENGTH)) ; (LENGTH (XLIB::INDEX+ (XLIB::INDEX-CEILING LENGTH 2) 2)) ; (XLIB:RESOURCE-ID XLIB:FONT-ID) ; ((SEQUENCE :FORMAT XLIB::CHAR2B :START XLIB::START :END XLIB::END ; :APPENDING T) ; SEQUENCE)) ; (VALUES (XLIB::INTEGER-GET 16))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-GLYPH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 1 0) ; (XLIB:CARD8 (LDB (BYTE 8 0) ELT)) ; (XLIB:CARD8 (LDB (BYTE 8 8) ELT))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF XLIB::OVERALL-WIDTH XLIB::TRANSLATED-WIDTH) ; --> THE ; ==> ; (+ XLIB::TRANSLATED-WIDTH XLIB::OVERALL-WIDTH) ; ; 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) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT8+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (DO* (# ; # ; # ; # ; # ; #) ; (# # # # # #) ; (DECLARE # ; # ; #) ; (SETQ #) ; (MULTIPLE-VALUE-BIND # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 # # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF XLIB::OVERALL-WIDTH XLIB::TRANSLATED-WIDTH) ; --> THE ; ==> ; (+ XLIB::TRANSLATED-WIDTH XLIB::OVERALL-WIDTH) ; ; 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) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT16+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (DO* (# ; # ; # ; # ; # ; #) ; (# # # # # #) ; (DECLARE # ; # ; #) ; (SETQ #) ; (MULTIPLE-VALUE-BIND # # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-IMAGE-GLYPH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB::DATA 1) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 (LDB (BYTE 8 0) ELT)) ; (XLIB:CARD8 (LDB (BYTE 8 8) ELT))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-IMAGE-GLYPHS8 ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-IMAGETEXT8+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (MULTIPLE-VALUE-SETQ (XLIB::NEW-START XLIB:FONT XLIB::TRANSLATED-WIDTH) ; (FUNCALL # SEQUENCE XLIB::START XLIB::END XLIB:FONT XLIB::BUFFER-BBUF ; #)) ; (SETQ XLIB::CHUNK #) ; (WHEN (AND # #) (SETQ #) (RETURN-FROM XLIB::CHANGE-FONT)) ; (WHEN (XLIB::INDEX-ZEROP XLIB::CHUNK) ; (RETURN-FROM XLIB::DRAW-IMAGE-GLYPHS8 XLIB::NEW-START)) ; (XLIB::DATA-PUT 1 XLIB::CHUNK) ; (LET (#) ; (XLIB::LENGTH-PUT 2 #) ; (SETF #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-IMAGE-GLYPHS16 ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-IMAGETEXT16+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (MULTIPLE-VALUE-SETQ (XLIB::NEW-START XLIB:FONT XLIB::TRANSLATED-WIDTH) ; (FUNCALL # SEQUENCE XLIB::START XLIB::END XLIB:FONT XLIB::BUFFER 0)) ; (SETQ XLIB::CHUNK #) ; (WHEN (AND # #) (SETQ #) (RETURN-FROM XLIB::CHANGE-FONT)) ; (WHEN (XLIB::INDEX-ZEROP XLIB::CHUNK) ; (RETURN-FROM XLIB::DRAW-IMAGE-GLYPHS16 XLIB::NEW-START)) ; (XLIB::WRITE-SEQUENCE-CHAR2B XLIB:DISPLAY ; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16) ; XLIB::BUFFER 0 XLIB::CHUNK) ; (XLIB::DATA-PUT 1 XLIB::CHUNK) ; (LET (#) ; (XLIB::LENGTH-PUT 2 #) ; (SETF #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-KEYBOARD-MAPPING ; (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))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (AREF XLIB::KEYSYMS XLIB::I XLIB::J) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (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))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN KEYBOARD-MAPPING ; (1+ XLIB::I) ; ; 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-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 # #)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SETF (AREF XLIB::RESULT XLIB::I XLIB::J) (XLIB::CARD29-GET (* XLIB::J 4))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (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 # #)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/text-tmp86F1A8FB.fasl ; compilation finished in 0:00:00.444 ; compiling file "/usr/share/common-lisp/source/clx/attributes.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-DRAWABLE-GEOMETRY ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-CONFIGUREWINDOW+) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 (ASH 1 NUMBER)) ; (XLIB:CARD29 XLIB::VALUE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> UNWIND-PROTECT FLET BLOCK 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> UNWIND-PROTECT FLET BLOCK 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN PUT-WINDOW-ATTRIBUTE-CHANGES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEWINDOWATTRIBUTES+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::MASK) ; (PROGN ; (DO ((XLIB::BITS XLIB::MASK #) ; (XLIB::REQUEST-SIZE 2) ; (XLIB::I 1 #)) ; ((ZEROP XLIB::BITS) (XLIB::CARD16-PUT 2 #) (XLIB::INDEX-INCF # #)) ; (DECLARE (TYPE XLIB:MASK32 XLIB::BITS) ; (TYPE XLIB:ARRAY-INDEX XLIB::I XLIB::REQUEST-SIZE)) ; (WHEN (ODDP XLIB::BITS) (XLIB::CARD32-PUT # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN PUT-DRAWABLE-GEOMETRY-CHANGES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CONFIGUREWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 XLIB::MASK) ; (PROGN ; (DO ((XLIB::BITS XLIB::MASK #) ; (XLIB::REQUEST-SIZE 2) ; (XLIB::I 1 #)) ; ((ZEROP XLIB::BITS) (XLIB::CARD16-PUT 2 #) (XLIB::INDEX-INCF # #)) ; (DECLARE (TYPE XLIB:MASK16 XLIB::BITS) ; (TYPE FIXNUM XLIB::REQUEST-SIZE) ; (TYPE XLIB:ARRAY-INDEX XLIB::I)) ; (WHEN (ODDP XLIB::BITS) (XLIB::CARD29-PUT # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/attributes-tmpH7D4HL98.fasl ; compilation finished in 0:00:00.244 ; compiling file "/usr/share/common-lisp/source/clx/translate.lisp" (written 27 DEC 2022 07:29:08 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/translate-tmpCDM7YXYI.fasl ; compilation finished in 0:00:00.216 ; compiling file "/usr/share/common-lisp/source/clx/keysyms.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/keysyms-tmpLM57P5P.fasl ; compilation finished in 0:00:00.016 ; compiling file "/usr/share/common-lisp/source/clx/manager.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/manager-tmpZE69DN33.fasl ; compilation finished in 0:00:00.572 ; compiling file "/usr/share/common-lisp/source/clx/image.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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 LIST 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN PUT-IMAGE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-PUTIMAGE+ :GC-FORCE ; XLIB:GCONTEXT) ; ((XLIB::DATA (MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP)) ; (COND ((OR # XLIB::BITMAP-P) :BITMAP) ((PLUSP XLIB::LEFT-PAD) :XY-PIXMAP) ; (T FORMAT))) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 XLIB::WIDTH XLIB::REQUEST-HEIGHT) ; (XLIB:INT16 XLIB::X XLIB::REQUEST-Y) ; (XLIB:CARD8 XLIB::LEFT-PAD XLIB::DEPTH) ; (XLIB::PAD16 NIL) ; (PROGN ; (XLIB::LENGTH-PUT 2 XLIB::REQUEST-LENGTH) ; (SETF (XLIB::BUFFER-BOFFSET XLIB:DISPLAY) ; (XLIB::ADVANCE-BUFFER-OFFSET 24)) ; (ETYPECASE XLIB:IMAGE ; (XLIB:IMAGE-X (ECASE # # #)) ; (XLIB:IMAGE-XY ; (XLIB::WRITE-IMAGE-XY XLIB:DISPLAY XLIB:IMAGE XLIB::LEFT-PADDED-SRC-X ; XLIB::REQUEST-SRC-Y XLIB::LEFT-PADDED-WIDTH XLIB::REQUEST-HEIGHT ; XLIB::PADDED-BYTES-PER-LINE XLIB::UNIT XLIB::BYTE-LSB-FIRST-P ; XLIB::BIT-LSB-FIRST-P)) ; (XLIB:IMAGE-Z ; (XLIB::WRITE-IMAGE-Z XLIB:DISPLAY XLIB:IMAGE XLIB::LEFT-PADDED-SRC-X ; XLIB::REQUEST-SRC-Y XLIB::LEFT-PADDED-WIDTH XLIB::REQUEST-HEIGHT ; XLIB::PADDED-BYTES-PER-LINE XLIB::UNIT XLIB::BYTE-LSB-FIRST-P ; XLIB::BIT-LSB-FIRST-P))) ; (XLIB::BUFFER-PAD-REQUEST XLIB:DISPLAY ; (XLIB::INDEX- ; (XLIB::INDEX* XLIB::REQUEST-WORDS 4) ; XLIB::REQUEST-BYTES)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/image-tmpG8099TO3.fasl ; compilation finished in 0:00:01.032 ; compiling file "/usr/share/common-lisp/source/clx/resource.lisp" (written 27 DEC 2022 07:29:08 AM): ; file: /usr/share/common-lisp/source/clx/resource.lisp ; in: DEFUN DELETE-RESOURCE-INTERNAL ; (SETQ XLIB::LOOSE-P NIL) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/resource-tmpTASQCYAW.fasl ; compilation finished in 0:00:00.236 ; compiling file "/usr/share/common-lisp/source/clx/extensions/shape.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SHAPE-RECTANGLES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 1) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-RECTANGLE-ORDERING XLIB::ORDERING)) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::RECTANGLES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SHAPE-COMBINE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 3) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::SOURCE-KIND)) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET) ; (XLIB:WINDOW XLIB::SOURCE-WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SHAPE-OFFSET ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 4) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 0) ; (XLIB:CARD8 0) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/shape-tmp35U57IV6.fasl ; compilation finished in 0:00:00.216 ; compiling file "/usr/share/common-lisp/source/clx/extensions/big-requests.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/big-requests-tmpTZOONXRW.fasl ; compilation finished in 0:00:00.016 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xvidmode.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SET-CLIENT-VERSION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SET-CLIENT-VERSION+) ; (XLIB:CARD16 XLIB::+XF86VIDMODE-MAJOR-VERSION+) ; (XLIB:CARD16 XLIB::+XF86VIDMODE-MINOR-VERSION+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-PERMISSIONS ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-PERMISIONS+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-MOD-MODE-LINE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+MOD-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; ((SEQUENCE :FORMAT XLIB:CARD16 :START 2) XLIB::V)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+MOD-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; ((SEQUENCE :FORMAT XLIB:CARD16 :START 2) XLIB::V)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-MODE-LINE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MODE-LINE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0)) ; (LET ((XLIB::MODE-INFO ; (XLIB::MAKE-MODE-INFO :DOTCLOCK # :HDISPLAY # :HSYNCSTART # ; :HSYNCEND # :HTOTAL # :HSKEW ...)) ; (XLIB::SIZE (XLIB::CARD32-GET #))) ; (DECLARE (TYPE XLIB:CARD32 XLIB::SIZE)) ; (INCF XLIB::OFFSET 4) ; (SETF (XLIB::MODE-INFO-PRIVSIZE XLIB::MODE-INFO) XLIB::SIZE ; (XLIB::MODE-INFO-PRIVATE XLIB::MODE-INFO) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :INDEX XLIB::OFFSET ; :LENGTH XLIB::SIZE :RESULT-TYPE 'LIST)) ; XLIB::MODE-INFO)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MODE-LINE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0)) ; (LET ((XLIB::MODE-INFO ; (XLIB::MAKE-MODE-INFO :DOTCLOCK # :HDISPLAY # :HSYNCSTART # ; :HSYNCEND # :HTOTAL # :HSKEW ...)) ; (XLIB::SIZE (XLIB::CARD32-GET #))) ; (DECLARE (TYPE XLIB:CARD32 XLIB::SIZE)) ; (INCF XLIB::OFFSET 4) ; (SETF (XLIB::MODE-INFO-PRIVSIZE XLIB::MODE-INFO) XLIB::SIZE ; (XLIB::MODE-INFO-PRIVATE XLIB::MODE-INFO) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :INDEX XLIB::OFFSET ; :LENGTH XLIB::SIZE :RESULT-TYPE 'LIST)) ; XLIB::MODE-INFO)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-ALL-MODE-LINES ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::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 ...))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-ADD-MODE-LINE ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-DELETE-MODE-LINE ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-VALIDATE-MODE-LINE ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+VALIDATE-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V)) ; (LET ((XLIB::STATUS (XLIB::INTEGER-GET 8))) ; (DECLARE (TYPE XLIB:INT32 XLIB::STATUS)) ; (WHEN XLIB::STATUS (XLIB::DECODE-STATUS-MODE XLIB::STATUS)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0) (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0) ; (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0)) ; (VALUES (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0) (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0) ; (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0)) ; (VALUES (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SET-GAMMA ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+SET-GAMMA+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 0) ; (XLIB:CARD32 (TRUNCATE (* XLIB::RED 10000))) ; (XLIB:CARD32 (TRUNCATE (* XLIB::GREEN 10000))) ; (XLIB:CARD32 (TRUNCATE (* XLIB::BLUE 10000))) ; (XLIB:CARD32 0) ; (XLIB:CARD32 0) ; (XLIB:CARD32 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE)) ; (LET ((XLIB::REP-SIZE (* # 2))) ; (DECLARE (TYPE FIXNUM XLIB::REP-SIZE)) ; (UNLESS (ZEROP XLIB::REP-SIZE) ; (LET* (# #) ; (DECLARE #) ; (VALUES # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE)) ; (LET ((XLIB::REP-SIZE (* # 2))) ; (DECLARE (TYPE FIXNUM XLIB::REP-SIZE)) ; (UNLESS (ZEROP XLIB::REP-SIZE) ; (LET* (# #) ; (DECLARE #) ; (VALUES # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SET-GAMMA-RAMP ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+SET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE) ; ((SEQUENCE :FORMAT XLIB:CARD16) ; (IF (ZEROP (MOD XLIB::SIZE 2)) ; (CONCATENATE 'VECTOR XLIB::RED XLIB::GREEN XLIB::BLUE) ; (CONCATENATE 'VECTOR XLIB::RED '#(0) XLIB::GREEN '#(0) XLIB::BLUE ; '#(0))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP-SIZE ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA-RAMP-SIZE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (XLIB::CARD16-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-LOCK-MODE-SWITCH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+LOCK-MODE-SWITCH+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 ; (IF XLIB::LOCK-P ; 1 ; 0))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+LOCK-MODE-SWITCH+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 ; (IF XLIB::LOCK-P ; 1 ; 0))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SWITCH-TO-MODE ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-TO-MODE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SWITCH-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 XLIB::ZOOM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 XLIB::ZOOM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SELECT-NEXT-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 1)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 1)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SELECT-PREV-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 65535)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 65535)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-MONITOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MONITOR+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (LET* ((XLIB::VENDOR-NAME-LENGTH (XLIB::CARD8-GET 8)) ; (XLIB::MODEL-NAME-LENGTH (XLIB::CARD8-GET 9)) ; (XLIB::PAD (- 4 #)) ; (XLIB::NHSYNC (XLIB::CARD8-GET 10)) ; (XLIB::NVSYNC (XLIB::CARD8-GET 11)) ; (XLIB::VINDEX (+ 32 #)) ; (XLIB::MINDEX (+ XLIB::VINDEX XLIB::VENDOR-NAME-LENGTH XLIB::PAD)) ; (XLIB::HSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NHSYNC :INDEX 32 :RESULT-TYPE ; 'LIST)) ; (XLIB::VSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NVSYNC :INDEX # :RESULT-TYPE ; 'LIST))) ; (DECLARE ; (TYPE XLIB:CARD8 XLIB::NHSYNC XLIB::NVSYNC XLIB::VENDOR-NAME-LENGTH ; XLIB::MODEL-NAME-LENGTH) ; (TYPE FIXNUM XLIB::PAD XLIB::VINDEX XLIB::MINDEX)) ; (VALUES ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::HSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::VSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (XLIB::STRING-GET XLIB::VENDOR-NAME-LENGTH XLIB::VINDEX) ; (XLIB::STRING-GET XLIB::MODEL-NAME-LENGTH XLIB::MINDEX)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MONITOR+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (LET* ((XLIB::VENDOR-NAME-LENGTH (XLIB::CARD8-GET 8)) ; (XLIB::MODEL-NAME-LENGTH (XLIB::CARD8-GET 9)) ; (XLIB::PAD (- 4 #)) ; (XLIB::NHSYNC (XLIB::CARD8-GET 10)) ; (XLIB::NVSYNC (XLIB::CARD8-GET 11)) ; (XLIB::VINDEX (+ 32 #)) ; (XLIB::MINDEX (+ XLIB::VINDEX XLIB::VENDOR-NAME-LENGTH XLIB::PAD)) ; (XLIB::HSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NHSYNC :INDEX 32 :RESULT-TYPE ; 'LIST)) ; (XLIB::VSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NVSYNC :INDEX # :RESULT-TYPE ; 'LIST))) ; (DECLARE ; (TYPE XLIB:CARD8 XLIB::NHSYNC XLIB::NVSYNC XLIB::VENDOR-NAME-LENGTH ; XLIB::MODEL-NAME-LENGTH) ; (TYPE FIXNUM XLIB::PAD XLIB::VINDEX XLIB::MINDEX)) ; (VALUES ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::HSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::VSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (XLIB::STRING-GET XLIB::VENDOR-NAME-LENGTH XLIB::VINDEX) ; (XLIB::STRING-GET XLIB::MODEL-NAME-LENGTH XLIB::MINDEX)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-VIEWPORT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-VIEWPORT+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-VIEWPORT+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SET-VIEWPORT ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-DOTCLOCKS ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-DOT-CLOCKS+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 16) ; (XLIB::SEQUENCE-GET :LENGTH (XLIB::CARD32-GET 12) :FORMAT ; XLIB:CARD32 :INDEX 32 :RESULT-TYPE 'LIST))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xvidmode-tmpWN0UKDSV.fasl ; compilation finished in 0:00:00.684 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xrender.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xrender-tmpBF3HHBTQ.fasl ; compilation finished in 0:00:00.860 ; compiling file "/usr/share/common-lisp/source/clx/extensions/glx.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/glx.lisp ; in: DEFUN QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+QUERY-VERSION+) (XLIB:CARD32 1) (XLIB:CARD32 3)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+QUERY-SERVER-STRING+) ; (XLIB:CARD32 (OR (POSITION XLIB:SCREEN # :TEST #'EQ) 0)) ; (XLIB:CARD32 XLIB/GLX::NAME)) ; (LET* ((LENGTH (XLIB::CARD32-GET 12)) ; (XLIB/GLX::BYTES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD8 :RESULT-TYPE '# :INDEX 32 ; :LENGTH LENGTH))) ; (DECLARE (TYPE (SIMPLE-ARRAY XLIB:CARD8 #) XLIB/GLX::BYTES) ; (TYPE FIXNUM LENGTH)) ; (MAP-INTO (MAKE-STRING (1- LENGTH)) #'CODE-CHAR XLIB/GLX::BYTES))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CLIENT-INFO ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+CLIENT-INFO+) ; (XLIB:CARD32 4) ; (XLIB:CARD32 1) ; (XLIB:CARD32 3) ; (XLIB:CARD32 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MAKE-CONTEXT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB/GLX::CTX 'XLIB/GLX::CONTEXT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN CREATE-CONTEXT ; (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 LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+CREATE-CONTEXT+) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX)) ; (XLIB:RESOURCE-ID XLIB/GLX::VISUAL) ; (XLIB:CARD32 ; (OR (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY) :TEST #'EQ) 0)) ; (XLIB:RESOURCE-ID XLIB/GLX::SHARE-LIST) ; (BOOLEAN XLIB/GLX:IS-DIRECT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DESTROY-CONTEXT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+DESTROY-CONTEXT+) ; (XLIB:RESOURCE-ID XLIB/GLX::ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN IS-DIRECT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+IS-DIRECT+) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX))) ; (XLIB::CARD8-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-CONTEXT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+QUERY-CONTEXT+) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX))) ; (LET ((XLIB/GLX::NUM-ATTRIBUTES (XLIB::CARD32-GET 8))) ; (DECLARE (TYPE FIXNUM XLIB/GLX::NUM-ATTRIBUTES)) ; (LOOP XLIB/GLX::REPEAT XLIB/GLX::NUM-ATTRIBUTES ; XLIB/GLX::FOR XLIB/GLX::I FIXNUM XLIB/GLX::UPFROM 32 XLIB/GLX::BY 8 ; XLIB/GLX::COLLECTING (CONS (XLIB::CARD32-GET XLIB/GLX::I) ; (XLIB::CARD32-GET #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GET-DRAWABLE-ATTRIBUTES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+GET-DRAWABLE-ATTRIBUTES+) ; (XLIB:DRAWABLE XLIB:DRAWABLE)) ; (LET ((XLIB/GLX::NUM-ATTRIBUTES (XLIB::CARD32-GET 8))) ; (DECLARE (TYPE FIXNUM XLIB/GLX::NUM-ATTRIBUTES)) ; (LOOP XLIB/GLX::REPEAT XLIB/GLX::NUM-ATTRIBUTES ; XLIB/GLX::FOR XLIB/GLX::I FIXNUM XLIB/GLX::UPFROM 32 XLIB/GLX::BY 8 ; XLIB/GLX::COLLECTING (CONS (XLIB::CARD32-GET XLIB/GLX::I) ; (XLIB::CARD32-GET #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MAKE-CURRENT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+MAKE-CURRENT+) ; (XLIB:RESOURCE-ID (XLIB:DRAWABLE-ID XLIB:DRAWABLE)) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX)) ; (XLIB:CARD32 XLIB/GLX::OLD-TAG)) ; (LET ((XLIB/GLX::NEW-TAG (XLIB::CARD32-GET 8))) ; (SETF (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX) XLIB/GLX::NEW-TAG ; (XLIB/GLX::CONTEXT-DRAWABLE XLIB/GLX::CTX) XLIB:DRAWABLE ; (XLIB/GLX::CONTEXT-DISPLAY XLIB/GLX::CTX) XLIB:DISPLAY ; XLIB/GLX::*CURRENT-CONTEXT* XLIB/GLX::CTX))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 LIST VECTOR). ; (LOOP XLIB/GLX::REPEAT (/ (- XLIB/GLX::NUM-PROPERTIES XLIB/GLX::NUM-ORDERED) ; 2) ; XLIB/GLX::COLLECTING (CONS (XLIB::CARD32-GET (INCF XLIB/GLX::INDEX 4)) ; (XLIB::CARD32-GET (INCF XLIB/GLX::INDEX 4)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+GET-VISUAL-CONFIGS+) ; (XLIB:CARD32 (OR (POSITION XLIB:SCREEN # :TEST #'EQ) 0))) ; (LET* ((XLIB/GLX::NUM-VISUALS (XLIB::CARD32-GET 8)) ; (XLIB/GLX::NUM-PROPERTIES (XLIB::CARD32-GET 12)) ; (XLIB/GLX::NUM-ORDERED ; (LENGTH XLIB/GLX::*VISUAL-CONFIG-PROPERTIES*))) ; (DECLARE ; (TYPE FIXNUM XLIB/GLX::NUM-ORDERED XLIB/GLX::NUM-VISUALS ; XLIB/GLX::NUM-PROPERTIES)) ; (LOOP XLIB/GLX::WITH XLIB/GLX::INDEX FIXNUM = 28 ; XLIB/GLX::REPEAT XLIB/GLX::NUM-VISUALS ; XLIB/GLX::COLLECTING (XLIB/GLX::MAKE-VISUAL (NCONC # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SWAP-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+SWAP-BUFFERS+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX)) ; (XLIB:RESOURCE-ID ; (XLIB:DRAWABLE-ID (XLIB/GLX::CONTEXT-DRAWABLE XLIB/GLX::CTX)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WAIT-GL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+WAIT-GL+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WAIT-X ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+WAIT-X+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/glx-tmpGYUNPZCY.fasl ; compilation finished in 0:00:00.292 ; compiling file "/usr/share/common-lisp/source/clx/extensions/gl.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/gl.lisp ; in: DEFINE-SEQUENCE-SETTER INT8 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT8) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER INT16 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT16) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER INT32 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT32) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER BOOL ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::BOOL) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER CARD8 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD8) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER CARD16 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD16) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER CARD32 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD32) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER FLOAT32 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::FLOAT32) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER FLOAT64 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::FLOAT64) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN GET-STRING ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+GET-STRING+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (XLIB:CARD32 XLIB/GL::NAME)) ; (LET* ((LENGTH (XLIB::CARD32-GET 12)) ; (XLIB/GL::BYTES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD8 :RESULT-TYPE '# :INDEX 32 ; :LENGTH LENGTH))) ; (DECLARE (TYPE (SIMPLE-ARRAY XLIB:CARD8 #) XLIB/GL::BYTES) ; (TYPE FIXNUM LENGTH)) ; (MAP-INTO (MAKE-STRING (1- LENGTH)) #'CODE-CHAR XLIB/GL::BYTES))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN NEW-LIST ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GL::+NEW-LIST+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (XLIB:CARD32 LIST) ; (XLIB:CARD32 XLIB/GL::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GEN-LISTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+GEN-LISTS+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (INTEGER XLIB/GL::RANGE)) ; (XLIB::CARD32-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN END-LIST ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GL::+END-LIST+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ENABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+ENABLE+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (XLIB:CARD32 XLIB/GL::CAP))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FLUSH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GL::+FLUSH+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FINISH ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+FINISH+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/gl-tmpD68Q8WCA.fasl ; compilation finished in 0:00:01.200 ; compiling file "/usr/share/common-lisp/source/clx/extensions/dpms.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/dpms.lisp ; in: DEFUN DPMS-GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+GET-VERSION+) ; (XLIB:CARD16 XLIB/DPMS::MAJOR-VERSION) ; (XLIB:CARD16 XLIB/DPMS::MINOR-VERSION)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-CAPABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+CAPABLE+)) ; (XLIB::BOOLEAN-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-GET-TIMEOUTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+GET-TIMEOUTS+)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10) (XLIB::CARD16-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-SET-TIMEOUTS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/DPMS::+SET-TIMEOUTS+) ; (XLIB:CARD16 XLIB/DPMS::STANDBY) ; (XLIB:CARD16 XLIB/DPMS::SUSPEND) ; (XLIB:CARD16 XLIB/DPMS::OFF) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-ENABLE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/DPMS::+ENABLE+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-DISABLE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; ((XLIB::DATA XLIB/DPMS::+DISABLE+))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-FORCE-LEVEL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/DPMS::+FORCE-LEVEL+) ; (XLIB:CARD16 ; (ECASE XLIB/DPMS::POWER-LEVEL ; (:DPMS-MODE-ON 0) ; (:DPMS-MODE-STANDBY 1) ; (:DPMS-MODE-SUSPEND 2) ; (:DPMS-MODE-OFF 3))) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+INFO+)) ; (LET ((XLIB/DPMS::STATE ; (IF # ; :DPMS-ENABLED ; :DPMS-DISABLED))) ; (VALUES (UNLESS (EQ XLIB/DPMS::STATE :DPMS-DISABLED) (ECASE # # # # #)) ; XLIB/DPMS::STATE))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/dpms-tmp7MK9KM9C.fasl ; compilation finished in 0:00:00.052 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xtest.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/xtest.lisp ; in: DEFUN GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/XTEST::OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB/XTEST::+GET-VERSION+) (XLIB:CARD8 XLIB/XTEST::MAJOR) ; (XLIB:CARD16 XLIB/XTEST::MINOR)) ; (VALUES (XLIB::CARD8-GET 1) (XLIB::CARD16-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPARE-CURSOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/XTEST::OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB/XTEST::+COMPARE-CURSOR+) ; (XLIB:RESOURCE-ID (XLIB:WINDOW-ID XLIB:WINDOW)) ; (XLIB:RESOURCE-ID XLIB:CURSOR-ID)) ; (VALUES (XLIB::CARD8-GET 1))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FAKE-MOTION-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 XLIB/XTEST::+FAKE-MOTION-NOTIFY+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::RELATIVE ; 1 ; 0)) ; (XLIB/XTEST::PAD16 0) ; (XLIB:CARD32 XLIB/XTEST::DELAY) ; (XLIB:CARD32 XLIB/XTEST::ROOT-WINDOW-ID) ; (XLIB/XTEST::PAD32 0 0) ; (XLIB:CARD16 XLIB/XTEST::X) ; (XLIB:CARD16 XLIB/XTEST::Y) ; (XLIB/XTEST::PAD32 0 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FAKE-BUTTON-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::PRESSED ; XLIB/XTEST::+FAKE-BUTTON-PRESS+ ; XLIB/XTEST::+FAKE-BUTTON-RELEASE+)) ; (XLIB:CARD8 XLIB/XTEST::BUTTON) ; (XLIB/XTEST::PAD16 0) ; (XLIB:CARD32 XLIB/XTEST::DELAY) ; (XLIB/XTEST::PAD32 0 0 0 0 0 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FAKE-KEY-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::PRESSED ; XLIB/XTEST::+FAKE-KEY-PRESS+ ; XLIB/XTEST::+FAKE-KEY-RELEASE+)) ; (XLIB:CARD8 XLIB/XTEST::KEYCODE) ; (XLIB/XTEST::PAD16 0) ; (XLIB:CARD32 XLIB/XTEST::DELAY) ; (XLIB/XTEST::PAD32 0 0 0 0 0 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+GRAB-CONTROL+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::GRAB? ; 1 ; 0)) ; (XLIB/XTEST::PAD8 0) ; (XLIB/XTEST::PAD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xtest-tmpJJ71X849.fasl ; compilation finished in 0:00:00.052 ; compiling file "/usr/share/common-lisp/source/clx/extensions/screensaver.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/screensaver.lisp ; in: DEFUN SCREEN-SAVER-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "MIT-SCREEN-SAVER") ; NIL) ; ((XLIB::DATA 0) (XLIB:CARD8 1) (XLIB:CARD8 0) (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/screensaver-tmp1VUK6SR2.fasl ; compilation finished in 0:00:00.016 ; compiling file "/usr/share/common-lisp/source/clx/extensions/randr.lisp" (written 27 DEC 2022 07:29:08 AM): ; file: /usr/share/common-lisp/source/clx/extensions/randr.lisp ; in: DEFUN RR-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (32)) ; ((XLIB::DATA XLIB::+RR-QUERYVERSION+) (XLIB:CARD32 XLIB::+RR-MAJOR+) ; (XLIB:CARD32 XLIB::+RR-MINOR+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-SCREEN-CONFIG ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (16 32)) ; ((XLIB::DATA XLIB::+RR-SETSCREENCONFIG+) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB:TIMESTAMP) (XLIB:CARD32 XLIB::CONF-TIMESTAMP) ; (XLIB:CARD16 XLIB::SIZE-ID) (XLIB:CARD16 XLIB::ROT-MASK) ; (XLIB:CARD16 XLIB::REFRESH) (XLIB::PAD16)) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) (XLIB::WINDOW-GET 16) ; (XLIB::MEMBER16-VECTOR-GET 20 XLIB::+RENDER-SUBPIXEL-ORDER+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SELECT-INPUT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SELECTINPUT+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 XLIB::SELECT-MASK) ; (XLIB::PAD16)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-SCREEN-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETSCREENINFO+) (XLIB:WINDOW XLIB:WINDOW)) ; (LET ((XLIB::NUM-SCREENS (XLIB::CARD16-GET 20)) ; (XLIB::NUM-RATES (XLIB::CARD16-GET 28)) ; (XLIB::RATES-LOCATION 0)) ; (DECLARE (TYPE FIXNUM XLIB::RATES-LOCATION XLIB::NUM-RATES)) ; (VALUES (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 1)) ; (XLIB::WINDOW-GET 8) (XLIB::CARD32-GET 12) (XLIB::CARD32-GET 16) ; (XLIB::CARD16-GET 22) ; (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 24)) ; (XLIB::CARD16-GET 26) ; (LOOP :FOR XLIB::X FIXNUM :FROM 1 :TO XLIB::NUM-SCREENS ; :FOR XLIB::OFFSET FIXNUM := ...) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH XLIB::NUM-RATES ; :INDEX XLIB::RATES-LOCATION :RESULT-TYPE ; XLIB::RESULT-TYPE)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-SCREEN-SIZE-RANGE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (16)) ; ((XLIB::DATA XLIB::+RR-GETSCREENSIZERANGE+) (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH 4 :INDEX 8 :RESULT-TYPE ; XLIB::RESULT-TYPE))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-SCREEN-SIZE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETSCREENSIZE+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 XLIB::WIDTH) ; (XLIB:CARD16 XLIB::HEIGHT) ; (XLIB:CARD32 XLIB::WIDTH-MM) ; (XLIB:CARD32 XLIB::HEIGHT-MM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-SCREEN-RESOURCES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETSCREENRESOURCES+) (XLIB:WINDOW XLIB:WINDOW)) ; (LET* ((XLIB::NUM-CRTCS (XLIB::CARD16-GET 16)) ; (XLIB::NUM-OUTPUTS (XLIB::CARD16-GET 18)) ; (XLIB::OUTPUT-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #)) ; (XLIB::NUM-MODEINFOS (XLIB::CARD16-GET 20)) ; (XLIB::NAME-BYTES (XLIB::CARD16-GET 22)) ; (XLIB::MODE-START (XLIB::INDEX+ XLIB::OUTPUT-START #)) ; (XLIB::NAME-START (XLIB::INDEX+ XLIB::MODE-START #))) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX 32 :LENGTH ; XLIB::NUM-CRTCS) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX XLIB::OUTPUT-START ; :LENGTH XLIB::NUM-OUTPUTS) ; (LOOP :FOR XLIB::I FIXNUM :FROM 1 :TO XLIB::NUM-MODEINFOS ; :FOR XLIB::OFFSET FIXNUM := ...) ; (XLIB::STRING-GET XLIB::NAME-BYTES XLIB::NAME-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-OUTPUT-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETOUTPUTINFO+) (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; (LET* ((XLIB::NUM-CRTCS (XLIB::CARD16-GET 26)) ; (XLIB::NUM-MODES (XLIB::CARD16-GET 28)) ; (XLIB::NUM-CLONES (XLIB::CARD16-GET 32)) ; (XLIB::NAME-LENGTH (XLIB::CARD16-GET 34)) ; (XLIB::CRTC-START 26) ; (XLIB::MODE-START (XLIB::INDEX+ XLIB::CRTC-START #)) ; (XLIB::CLONE-START (XLIB::INDEX+ XLIB::MODE-START #)) ; (XLIB::NAME-START (XLIB::INDEX+ XLIB::CLONE-START #))) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) (XLIB::CARD32-GET 16) ; (XLIB::CARD32-GET 20) ; (XLIB::MEMBER8-VECTOR-GET 24 XLIB::+RR-CONNECTION+) ; (XLIB::MEMBER8-VECTOR-GET 25 XLIB::+RENDER-SUBPIXEL-ORDER+) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::NUM-CRTCS :INDEX 26) ; (XLIB::CARD16-GET 30) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::NUM-MODES :INDEX XLIB::MODE-START) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::NUM-CLONES :INDEX XLIB::CLONE-START) ; ...))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-LIST-OUTPUT-PROPERTIES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-LISTOUTPUTPROPERTIES+) (XLIB:CARD32 XLIB::OUTPUT)) ; (LET ((XLIB::NUM-ATOMS (XLIB::CARD16-GET 8))) ; (VALUES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE XLIB::RESULT-TYPE ; :LENGTH XLIB::NUM-ATOMS :INDEX XLIB::+REPLYSIZE+ ; :TRANSFORM #'(LAMBDA # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-QUERY-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-QUERYOUTPUTPROPERTY+) (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM)) ; (VALUES (XLIB::BOOLEAN-GET 8) (XLIB::BOOLEAN-GET 9) (XLIB::BOOLEAN-GET 10) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :INDEX ; XLIB::+REPLYSIZE+ :LENGTH ; (XLIB::CARD32-GET 4)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-CONFIGURE-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-CONFIGUREOUTPUTPROPERTY+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM) ; (BOOLEAN XLIB::PENDING XLIB::RANGE) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-CHANGE-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-CHANGEOUTPUTPROPERTY+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM) ; (XLIB:CARD32 XLIB::ATOM-TYPE) ; (XLIB:CARD8 32) ; (XLIB:CARD8 XLIB::MODE) ; (XLIB::PAD16) ; (XLIB:CARD32 XLIB::DATA-LENGTH) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-DELETE-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-DELETEOUTPUTPROPERTY+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETOUTPUTPROPERTY+) (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM) (XLIB:CARD32 TYPE) (XLIB:CARD32 0) (XLIB:CARD32 0) ; (XLIB:CARD8 DELETE) (XLIB:CARD8 XLIB::PENDING) (XLIB::PAD16)) ; (LET* ((XLIB::BYTES-AFTER (XLIB::CARD32-GET 12)) ; (XLIB::VALUE-LENGTH (XLIB::CARD32-GET 16)) ; (XLIB::BYTE-FORMAT (UNLESS # #))) ; (VALUES (XLIB::CARD32-GET 8) XLIB::VALUE-LENGTH ; (WHEN (NOT #) (CASE XLIB::BYTE-FORMAT # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-CREATE-MODE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-CREATEMODE+) (XLIB:WINDOW XLIB:WINDOW) ; (PROGN ; (XLIB::RR-MODE-INFO-PUT 8 XLIB:MODE-INFO) ; (XLIB::STRING-PUT 40 XLIB::NAME))) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-DESTROY-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-DESTROYMODE+) ; (XLIB:CARD32 XLIB::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-ADD-OUTPUT-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-ADDOUTPUTMODE+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 XLIB::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-DELETE-OUTPUT-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-DELETEOUTPUTMODE+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 XLIB::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-CRTC-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCINFO+) (XLIB:CARD32 XLIB::CRTC) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; (LET* ((XLIB::NUM-OUTPUTS (XLIB::CARD16-GET 28)) ; (XLIB::POS-OUTPUTS (XLIB::CARD16-GET 30)) ; (XLIB::POS-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #))) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8) (XLIB::INT16-GET 12) (XLIB::INT16-GET 14) ; (XLIB::CARD16-GET 16) (XLIB::CARD16-GET 18) (XLIB::CARD32-GET 20) ; (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 24)) ; (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 26)) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :INDEX ; XLIB::+REPLYSIZE+ :LENGTH XLIB::NUM-OUTPUTS) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :INDEX ; XLIB::POS-START :LENGTH XLIB::POS-OUTPUTS)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-CRTC-CONFIG ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-SETCRTCCONFIG+) (XLIB:CARD32 XLIB::CRTC) ; (XLIB:CARD32 XLIB:TIMESTAMP) (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP) ; (XLIB:CARD16 XLIB::X) (XLIB:CARD16 XLIB::Y) (XLIB:CARD32 XLIB::MODE) ; (XLIB:CARD16 XLIB::ROT-MASK) (XLIB::PAD16) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-CRTC-GAMMA-SIZE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCGAMMASIZE+) (XLIB:CARD32 XLIB::CRTC)) ; (VALUES (XLIB::CARD16-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-CRTC-GAMMA ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCGAMMA+) (XLIB:CARD32 XLIB::CRTC)) ; (LET* ((XLIB::SIZE (XLIB::CARD16-GET 8)) ; (XLIB::GREEN-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #)) ; (XLIB::BLUE-START (XLIB::INDEX+ XLIB::GREEN-START #))) ; (VALUES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH XLIB::SIZE :INDEX ; XLIB::+REPLYSIZE+ :RESULT-TYPE XLIB::RESULT-TYPE) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH XLIB::SIZE :INDEX ; XLIB::GREEN-START :RESULT-TYPE XLIB::RESULT-TYPE) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH XLIB::SIZE :INDEX ; XLIB::BLUE-START :RESULT-TYPE XLIB::RESULT-TYPE)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-CRTC-GAMMA ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETCRTCGAMMA+) ; (XLIB:CARD32 XLIB::CRTC) ; (XLIB:CARD16 XLIB::SIZE) ; (XLIB::PAD16) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-SCREEN-RESOURCES-CURRENT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETSCREENRESOURCESCURRENT+) ; (XLIB:WINDOW XLIB:WINDOW)) ; (LET* ((XLIB::NUM-CRTCS (XLIB::CARD16-GET 16)) ; (XLIB::NUM-OUTPUTS (XLIB::CARD16-GET 18)) ; (XLIB::OUTPUT-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #)) ; (XLIB::NUM-MODEINFOS (XLIB::CARD16-GET 20)) ; (XLIB::NAME-BYTES (XLIB::CARD16-GET 22)) ; (XLIB::MODE-START (XLIB::INDEX+ XLIB::OUTPUT-START #)) ; (XLIB::NAME-START (XLIB::INDEX+ XLIB::MODE-START #))) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX 32 :LENGTH ; XLIB::NUM-CRTCS) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX XLIB::OUTPUT-START ; :LENGTH XLIB::NUM-OUTPUTS) ; (LOOP :FOR XLIB::I FIXNUM :FROM 1 :TO XLIB::NUM-MODEINFOS ; :FOR XLIB::OFFSET FIXNUM := ...) ; (XLIB::STRING-GET XLIB::NAME-BYTES XLIB::NAME-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-CRTC-TRANSFORM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCTRANSFORM+) (XLIB:CARD32 XLIB::CRTC)) ; (LET* ((XLIB::PEND-NAME (XLIB::CARD16-GET 88)) ; (XLIB::PEND-NUM-PARAMS (XLIB::CARD16-GET 90)) ; (XLIB::PAD-PEND (- 4 #)) ; (XLIB::PAD-PEND-START ; (XLIB::INDEX+ 96 XLIB::PEND-NAME XLIB::PAD-PEND)) ; (XLIB::CUR-NAME (XLIB::CARD16-GET 92)) ; (XLIB::CUR-NUM-PARAMS (XLIB::CARD16-GET 94)) ; (XLIB::PAD-CUR (- 4 #)) ; (XLIB::CUR-NAME-START (XLIB::INDEX+ XLIB::PAD-PEND-START #)) ; (XLIB::CUR-PARAM-START ; (XLIB::INDEX+ XLIB::CUR-NAME-START XLIB::CUR-NAME XLIB::PAD-CUR))) ; (DECLARE (TYPE XLIB:CARD16 XLIB::PEND-NAME XLIB::CUR-NAME)) ; (VALUES (XLIB::RR-TRANSFORM-GET 8) (XLIB::CARD8-GET 44) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH 9 ; :INDEX 48) ; (XLIB::STRING-GET XLIB::PEND-NAME 96) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::PEND-NUM-PARAMS :INDEX ; XLIB::PAD-PEND-START) ; (XLIB::STRING-GET XLIB::CUR-NAME XLIB::CUR-NAME-START) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::CUR-NUM-PARAMS :INDEX ; XLIB::CUR-PARAM-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-OUTPUT-PRIMARY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETOUTPUTPRIMARY+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::OUTPUT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-OUTPUT-PRIMARY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETOUTPUTPRIMARY+) (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-PROVIDERS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETPROVIDERS+) (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD16-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-PROVIDER-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETPROVIDERINFO+) (XLIB:CARD32 XLIB::PROVIDER) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) (XLIB::CARD16-GET 16) ; (XLIB::CARD16-GET 18) (XLIB::CARD16-GET 20) ; (XLIB::STRING-GET (XLIB::CARD16-GET 22) 56))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-PROVIDER-OUTPUT-SOURCE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETPROVIDEROUTPUTSOURCE+) ; (XLIB:CARD32 XLIB::PROVIDER) ; (XLIB:CARD32 XLIB::SOURCE-PROVIDER) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-PROVIDER-OFFLOAD-SINK ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETPROVIDEROFFLOADSINK+) ; (XLIB:CARD32 XLIB::PROVIDER) ; (XLIB:CARD32 XLIB::SINK-PROVIDER) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-LIST-PROVIDER-PROPERTIES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-LISTPROVIDERPROPERTIES+) ; (XLIB:CARD32 XLIB::PROVIDER)) ; (VALUES (XLIB::CARD32-GET 4) (XLIB::CARD16-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/randr-tmpR2FIHSUG.fasl ; compilation finished in 0:00:00.428 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xinerama.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 ...))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xinerama-tmp8PYELRKX.fasl ; compilation finished in 0:00:00.104 ; compiling file "/usr/share/common-lisp/source/clx/extensions/dbe.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/dbe.lisp ; in: DEFUN CREATE-BACK-BUFFER ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB::BB 'XLIB::BACK-BUFFER) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN DBE-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER") ; NIL) ; ((XLIB::DATA XLIB::+QUERY-VERSION+) (XLIB:CARD8 XLIB::+DBE-MAJOR+) ; (XLIB:CARD8 XLIB::+DBE-MINOR+)) ; (VALUES (XLIB::CARD8-GET 8) (XLIB::CARD8-GET 9))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-ALLOCATE-BACK-BUFFER-NAME ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+ALLOCATE-BACK-BUFFER-NAME+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:DRAWABLE XLIB::BACK-BUFFER) ; (XLIB:CARD8 XLIB::SWAP-HINT) ; (XLIB::PAD8) ; (XLIB::PAD16)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-DEALLOCATE-BACK-BUFFER-NAME ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+DEALLOCATE-BACK-BUFFER-NAME+) ; (XLIB:DRAWABLE XLIB::BACK-BUFFER)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-SWAP-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+SWAP-BUFFERS+) ; (XLIB:CARD32 XLIB::NUM) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-BEGIN-IDIOM ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+BEGIN-IDIOM+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-END-IDIOM ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+END-IDIOM+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-GET-VISUAL-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER") ; NIL :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-VISUAL-INFO+) (XLIB:CARD32 XLIB::NUM) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::WL)) ; (VALUES ; (LET ((XLIB::NUM #) (XLIB::NEXT 32) (XLIB::RESULT-LIST NIL)) ; (DECLARE (TYPE FIXNUM XLIB::NUM XLIB::NEXT)) ; (DOTIMES (XLIB::I XLIB::NUM #) (PUSH # XLIB::RESULT-LIST))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-GET-BACK-BUFFER-ATTRIBUTES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER") ; NIL :SIZES 32) ; ((XLIB::DATA XLIB::+GET-BACK-BUFFER-ATTRIBUTES+) ; (XLIB:DRAWABLE XLIB::BACK-BUFFER)) ; (VALUES (XLIB::OR-GET 8 NULL XLIB:WINDOW))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/dbe-tmpEHTOKYT0.fasl ; compilation finished in 0:00:00.080 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xc-misc.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/xc-misc.lisp ; in: DEFUN XC-GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::XC-OPCODE XLIB:DISPLAY) NIL ; :SIZES (16)) ; ((XLIB::DATA XLIB::+XC-GET-VERSION+) (XLIB:CARD16 XLIB::+XC-MAJOR+) ; (XLIB:CARD16 XLIB::+XC-MINOR+)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XC-GET-XID-RANGE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::XC-OPCODE XLIB:DISPLAY) NIL ; :SIZES (32)) ; ((XLIB::DATA XLIB::+XC-GET-XID-RANGE+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XC-GET-XID-LIST ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::XC-OPCODE XLIB:DISPLAY) NIL ; :SIZES (32)) ; ((XLIB::DATA XLIB::+XC-GET-XID-LIST+) (XLIB:CARD32 COUNT)) ; (LET ((XLIB::NUM (XLIB::CARD32-GET 8))) ; (VALUES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE XLIB::RESULT-TYPE ; :LENGTH XLIB::NUM :INDEX 32)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xc-misc-tmpS6U1VHI9.fasl ; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/clx/extensions/dri2.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/dri2.lisp ; in: DEFUN DRI2-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-QUERY-VERSION+) (XLIB:CARD32 XLIB::+DRI-MAJOR+) ; (XLIB:CARD32 XLIB::+DRI-MINOR+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-CONNECT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-CONNECT+) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::DRIVER-TYPE)) ; (LET* ((XLIB::DRIVER-NAME-LENGTH (XLIB::CARD32-GET 8)) ; (XLIB::DEVICE-NAME-LENGTH (XLIB::CARD32-GET 12)) ; (XLIB::DEVICE-START (+ 32 #))) ; (VALUES (XLIB::STRING-GET XLIB::DRIVER-NAME-LENGTH 32) ; (XLIB::STRING-GET XLIB::DEVICE-NAME-LENGTH XLIB::DEVICE-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-AUTHENTICATE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-AUTHENTICATE+) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::TOKEN)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-CREATE-DRAWABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-CREATE-DRAWABLE+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-DESTROY-DRAWABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; NIL ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-GET-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-BUFFERS+) (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD32 XLIB::LEN) ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; (VALUES (XLIB::CARD32-GET 16) (XLIB::CARD32-GET 12) (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-COPY-REGION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-COPY-REGION+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-GET-BUFFERS-WITH-FORMAT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-BUFFERS-WITH-FORMAT+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-SWAP-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-SWAP-BUFFERS+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-GET-MSC ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-MSC+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-WAIT-MSC ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-WAIT-MSC+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-SWAP-INTERVAL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::DRI2-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+DRI2-SWAP-INTERVAL+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-GET-PARAM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-PARAM+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/dri2-tmpVTFK6ZJW.fasl ; compilation finished in 0:00:00.072 ; compiling file "/usr/share/common-lisp/source/clx/extensions/composite.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/composite.lisp ; in: DEFUN COMPOSITE-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY) ; NIL :SIZES (32)) ; ((XLIB::DATA XLIB::+COMPOSITE-QUERYVERSION+) ; (XLIB:CARD32 XLIB::+COMPOSITE-MAJOR+) ; (XLIB:CARD32 XLIB::+COMPOSITE-MINOR+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-REDIRECT-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-REDIRECTWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD8 XLIB::UPDATE-TYPE) ; (XLIB:CARD8 0) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-REDIRECT-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-REDIRECTSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD8 XLIB::UPDATE-TYPE) ; (XLIB:CARD8 0) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-UNREDIRECT-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-UNREDIRECTWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-UNREDIRECT-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-UNREDIRECTSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-CREATE-REGION-FROM-BORDER-CLIP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-CREATEREGIONFROMBORDERCLIP+) ; (XLIB:CARD32 XLIB::REGION) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-NAME-WINDOW-PIXMAP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-NAMEWINDOWPIXMAP+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:DRAWABLE XLIB:DRAWABLE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-GET-OVERLAY-WINDOW ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY) ; NIL :SIZES (32)) ; ((XLIB::DATA XLIB::+COMPOSITE-GETOVERLAYWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-RELEASE-OVERLAY-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-RELEASEOVERLAYWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/composite-tmp75WVSJEW.fasl ; compilation finished in 0:00:00.184 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/package.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/package-tmpBU5UM3S4.fasl ; compilation finished in 0:00:00.004 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/dynamic-mixins.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/dynamic-mixins-tmpOBHVA3CD.fasl ; compilation finished in 0:00:00.040 ; compiling file "/build/reproducible-path/stumpwm-22.11/package.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/package-tmpJ6ELVFLF.fasl ; compilation finished in 0:00:00.000 ; compiling file "/build/reproducible-path/stumpwm-22.11/debug.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/debug-tmpULDB0RG.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/primitives.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/primitives-tmpUTZ0UUTE.fasl ; compilation finished in 0:00:00.304 ; compiling file "/build/reproducible-path/stumpwm-22.11/wrappers.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/wrappers-tmpOOSRA8PZ.fasl ; compilation finished in 0:00:00.084 ; compiling file "/build/reproducible-path/stumpwm-22.11/pathnames.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/pathnames-tmpDMIL0RVK.fasl ; compilation finished in 0:00:00.004 ; compiling file "/build/reproducible-path/stumpwm-22.11/font-rendering.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/font-rendering-tmp8MR9IMIO.fasl ; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/keysyms.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/keysyms-tmpJQDKAVAY.fasl ; compilation finished in 0:00:00.112 ; compiling file "/build/reproducible-path/stumpwm-22.11/keytrans.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/keytrans-tmp3I8CEEQY.fasl ; compilation finished in 0:00:00.012 ; compiling file "/build/reproducible-path/stumpwm-22.11/kmap.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/kmap-tmpA3RHFLWZ.fasl ; compilation finished in 0:00:00.080 ; compiling file "/build/reproducible-path/stumpwm-22.11/input.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/input-tmpYZIB7VXO.fasl ; compilation finished in 0:00:00.344 ; compiling file "/build/reproducible-path/stumpwm-22.11/core.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/core-tmpR8PK79V8.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/command.lisp" (written 22 NOV 2022 12:13:18 AM): ; file: /build/reproducible-path/stumpwm-22.11/command.lisp ; in: DEFUN ARGUMENT-POP ; (LOOP STUMPWM::FOR STUMPWM::I STUMPWM::FROM STUMPWM::START STUMPWM::BELOW (LENGTH ; STUMPWM::INPUT) ; STUMPWM::FOR CHAR = (CHAR STUMPWM::INPUT STUMPWM::I) ; DO ...) ; --> LET LET TAGBODY ; ==> ; NIL ; ; caught STYLE-WARNING: ; The binding of I is not a REAL: ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/command-tmpN1ZVB1HZ.fasl ; compilation finished in 0:00:00.236 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/build/reproducible-path/stumpwm-22.11/menu-declarations.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/menu-declarations-tmpZGRRPISB.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/menu-definitions.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/menu-definitions-tmpFNKDE5XP.fasl ; compilation finished in 0:00:00.084 ; compiling file "/build/reproducible-path/stumpwm-22.11/screen.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/screen-tmpRJTU435C.fasl ; compilation finished in 0:00:00.104 ; compiling file "/build/reproducible-path/stumpwm-22.11/head.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/head-tmpI9WG87JK.fasl ; compilation finished in 0:00:00.024 ; compiling file "/build/reproducible-path/stumpwm-22.11/group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/group-tmpYDE6I9E6.fasl ; compilation finished in 0:00:00.084 ; compiling file "/build/reproducible-path/stumpwm-22.11/bindings.lisp" (written 27 MAR 2026 11:19:33 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/bindings-tmp319UV2V8.fasl ; compilation finished in 0:00:00.024 ; compiling file "/build/reproducible-path/stumpwm-22.11/events.lisp" (written 22 NOV 2022 12:13:18 AM): ; file: /build/reproducible-path/stumpwm-22.11/events.lisp ; in: DEFUN SCROLL-BUTTON-KEYWORD-P ; (EQ STUMPWM::BUTTON :WHEEL-RIGHT) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/events-tmpLYQINFYS.fasl ; compilation finished in 0:00:00.168 ; compiling file "/build/reproducible-path/stumpwm-22.11/window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/window-tmpGA31XWNO.fasl ; compilation finished in 0:00:00.204 ; compiling file "/build/reproducible-path/stumpwm-22.11/floating-group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/floating-group-tmp5HT23M6C.fasl ; compilation finished in 0:00:00.172 ; compiling file "/build/reproducible-path/stumpwm-22.11/tile-window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tile-window-tmpA60KLDKY.fasl ; compilation finished in 0:00:00.068 ; compiling file "/build/reproducible-path/stumpwm-22.11/tile-group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tile-group-tmpD801X3GJ.fasl ; compilation finished in 0:00:00.440 WARNING: redefining STUMPWM::ORPHANED-FRAMES in DEFUN ; compiling file "/build/reproducible-path/stumpwm-22.11/window-placement.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/window-placement-tmpGOW1GC70.fasl ; compilation finished in 0:00:00.132 ; compiling file "/build/reproducible-path/stumpwm-22.11/message-window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/message-window-tmpPQ1X28TL.fasl ; compilation finished in 0:00:00.056 ; compiling file "/build/reproducible-path/stumpwm-22.11/selection.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/selection-tmpE92ECU7O.fasl ; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/module.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/module-tmp8S0II570.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/ioloop.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/ioloop-tmpJE88A12F.fasl ; compilation finished in 0:00:00.168 ; compiling file "/build/reproducible-path/stumpwm-22.11/timers.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/timers-tmpA5FNLPLT.fasl ; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/stumpwm.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/stumpwm-tmpHKCV9TP8.fasl ; compilation finished in 0:00:00.068 ; compiling file "/build/reproducible-path/stumpwm-22.11/user.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/user-tmpZ18MA7XE.fasl ; compilation finished in 0:00:00.116 ; compiling file "/build/reproducible-path/stumpwm-22.11/interactive-keymap.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/interactive-keymap-tmp6LQJ9T0C.fasl ; compilation finished in 0:00:00.012 ; compiling file "/build/reproducible-path/stumpwm-22.11/iresize.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/iresize-tmpTX7OA81T.fasl ; compilation finished in 0:00:00.012 ; compiling file "/build/reproducible-path/stumpwm-22.11/help.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/help-tmpWOTC3PB7.fasl ; compilation finished in 0:00:00.224 ; compiling file "/build/reproducible-path/stumpwm-22.11/fdump.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/fdump-tmpHQE95SAC.fasl ; compilation finished in 0:00:00.112 ; compiling file "/build/reproducible-path/stumpwm-22.11/time.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/time-tmpO87FP9NR.fasl ; compilation finished in 0:00:00.048 ; compiling file "/build/reproducible-path/stumpwm-22.11/mode-line.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/mode-line-tmpP6A3E92I.fasl ; compilation finished in 0:00:00.068 ; compiling file "/build/reproducible-path/stumpwm-22.11/mode-line-formatters.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/mode-line-formatters-tmpUSHT8RIL.fasl ; compilation finished in 0:00:00.060 ; compiling file "/build/reproducible-path/stumpwm-22.11/color.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/color-tmp7YCPD44Y.fasl ; compilation finished in 0:00:00.080 ; compiling file "/build/reproducible-path/stumpwm-22.11/wse.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/wse-tmpQXR7SNXD.fasl ; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-window-tmp6FLI1OC3.fasl ; compilation finished in 0:00:00.008 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-group-tmpWBK8JTS9.fasl ; compilation finished in 0:00:00.364 ; compiling file "/build/reproducible-path/stumpwm-22.11/remap-keys.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/remap-keys-tmpUVEUD2ZN.fasl ; compilation finished in 0:00:00.012 ; compiling file "/build/reproducible-path/stumpwm-22.11/manual.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/manual-tmpOWNJOEU.fasl ; compilation finished in 0:00:00.028 ; compiling file "/build/reproducible-path/stumpwm-22.11/minor-modes.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/minor-modes-tmpVT5BMTA5.fasl ; compilation finished in 0:00:00.296 ; compiling file "/build/reproducible-path/stumpwm-22.11/replace-class.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/replace-class-tmpN3CFVWZF.fasl ; compilation finished in 0:00:00.020 WARNING: redefining DYNAMIC-MIXINS:REPLACE-CLASS in DEFGENERIC ; compiling file "/build/reproducible-path/stumpwm-22.11/version.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/version-tmpNK27C0R1.fasl ; compilation finished in 0:00:00.004 ; ; compilation unit finished ; caught 8 STYLE-WARNING conditions ; printed 1501 notes test "makeinfo" = "no" || makeinfo stumpwm.texi make[2]: Leaving directory '/build/reproducible-path/stumpwm-22.11' make[1]: Leaving directory '/build/reproducible-path/stumpwm-22.11' dh_auto_test make -j12 test "TESTSUITEFLAGS=-j12 --verbose" VERBOSE=1 make[1]: Entering directory '/build/reproducible-path/stumpwm-22.11' /usr/bin/sbcl --non-interactive --eval "(setf sb-impl::*default-external-format* :UTF-8)" --load "load-stumpwm.lisp" --eval "(asdf:load-system :stumpwm-tests)" --eval "(if (fiasco:all-tests) (uiop:quit 0) (uiop:quit 1))" This is SBCL 2.5.0.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 01 DEC 2024 12:56:31 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-asdf/build/asdf-tmpGHU3ALSV.fasl ; compilation finished in 0:00:06.228 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/package.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/package-tmpAAURSO1.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/definitions.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/definitions-tmp5GEXGEG5.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/binding.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/binding-tmpAR3FSGEY.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/strings.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/strings-tmpJAIDFZTC.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/conditions.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/conditions-tmp8V3J6PE9.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/symbols.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/symbols-tmp9V47YWQF.fasl ; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/macros.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/macros-tmp9BN22RMA.fasl ; compilation finished in 0:00:00.072 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/functions.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/functions-tmp1CXFJSK9.fasl ; compilation finished in 0:00:00.032 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/lists.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/lists-tmpX4BRKI0R.fasl ; compilation finished in 0:00:00.172 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/types.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/types-tmpQ371UGST.fasl ; compilation finished in 0:00:00.076 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/io.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/io-tmp2OWI3Q7U.fasl ; compilation finished in 0:00:00.112 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables-tmp9KKTJMYV.fasl ; compilation finished in 0:00:00.048 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/control-flow.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/control-flow-tmpJU0JWO19.fasl ; compilation finished in 0:00:00.040 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/arrays.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/arrays-tmpZX2WN8N4.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/sequences.lisp" (written 25 JAN 2024 05:37:54 PM): ; file: /usr/share/common-lisp/source/alexandria/alexandria-1/sequences.lisp ; in: DEFUN LENGTH= ; (LENGTH FIRST) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/sequences-tmpOU81XRV0.fasl ; compilation finished in 0:00:00.112 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/numbers.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/numbers-tmpY2ML9CFA.fasl ; compilation finished in 0:00:00.108 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/features.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/features-tmpX2JYJDQE.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/package.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/package-tmpOPCILR65.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/arrays.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/arrays-tmpRV9F8A9A.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow-tmpK2ZAJT4I.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/sequences.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/sequences-tmpUX5S4ADN.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/lists.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/lists-tmp10401X32.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/packages.lisp" (written 27 APR 2024 01:06:11 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/packages-tmpZ7CBRM0G.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/specials.lisp" (written 27 APR 2024 01:06:11 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/specials-tmp9OZEQ0G2.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/util.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a (OR SIMPLE-BASE-STRING NULL). ; 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/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/util-tmpB2JTL1W9.fasl ; compilation finished in 0:00:00.028 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/errors.lisp" (written 27 APR 2024 01:06:11 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/errors-tmpP3BI68WQ.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/charset.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp ; in: DEFUN MIX ; (+ CL-PPCRE::CODE CL-PPCRE::HASH) ; ; 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFUN COMPUTE-INDEX ; (LENGTH VECTOR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL (-35184372088830) ; (35184372088830))), not a RATIONAL. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR FLOAT ; (RATIONAL (-35184372088830) (35184372088830))), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT (RATIONAL (-35184372088829) (35184372088831))) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (OR FLOAT ; (RATIONAL (-35184372088830) (35184372088830))), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR FLOAT (RATIONAL (-35184372088829) (35184372088831))) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFUN %ADD-TO-CHARSET/EXPAND ; (>= CL-PPCRE::NEW-SIZE 371370) ; ; note: forced to do <-INTEGER-FIXNUM (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; (* 2 CL-PPCRE::NEW-SIZE) ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN MAP-CHARSET ; (DECF CL-PPCRE::N) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM. ; The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER * 4611686018427387903), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; 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 T, 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 T, not a DOUBLE-FLOAT. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/charset-tmpQDARA81Z.fasl ; compilation finished in 0:00:00.036 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/charmap.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 ; in: DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LIM16) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; 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 T, 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 T, 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LIM16) ; ; 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/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/charmap-tmpYEMMM7SE.fasl ; compilation finished in 0:00:00.060 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/chartest.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/chartest.lisp ; in: DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; 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 T, 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 T, not a DOUBLE-FLOAT. ; in: DEFUN CREATE-OPTIMIZED-TEST-FUNCTION ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (<= (CL-PPCRE::CHARSET-COUNT CL-PPCRE::CHARSET) ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)) ; ; note: forced to do >-FIXNUM-INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (<= (HASH-TABLE-COUNT HASH-TABLE) ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)) ; ; note: forced to do >-FIXNUM-INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/chartest-tmp73HU0RPK.fasl ; compilation finished in 0:00:00.024 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/lexer.lisp" (written 27 APR 2024 01:06:11 AM): ; 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.") ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN GET-NUMBER ; (IF (< CL-PPCRE::END-POS CL-PPCRE::LEXER-LEN) ; CL-PPCRE::END-POS ; CL-PPCRE::LEXER-LEN) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN UNESCAPE-CHAR ; (CHAR-UPCASE CL-PPCRE::NEXT-CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/lexer-tmpIO5N7K88.fasl ; compilation finished in 0:00:00.176 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/parser.lisp" (written 27 APR 2024 01:06:11 AM): ; 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.") ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN SEQ ; (VECTOR-PUSH-EXTEND CL-PPCRE::QUANT (CAR CL-PPCRE::LAST-CDR)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/parser-tmpCM21U60Z.fasl ; compilation finished in 0:00:00.032 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; (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/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/regex-class-tmp9DT7SEFG.fasl ; compilation finished in 0:00:00.036 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD EVERYTHINGP (SEQ) ; (LENGTH CL-PPCRE::CLEANED-ELEMENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (ALTERNATION) ; (LENGTH CL-PPCRE::CHOICES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (REPETITION) ; (= 1 CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX ; SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX ; DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to 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 (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; in: DEFMETHOD REGEX-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-LENGTH ; CL-PPCRE::SUB-REGEX) ; IF (NOT CL-PPCRE::LEN) ; DO ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM6 CL-PPCRE::LEN) ; ; 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-LENGTH (ALTERNATION) ; (/= CL-PPCRE::LEN CL-PPCRE::OLD-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to 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. ; 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; in: DEFMETHOD REGEX-LENGTH (REPETITION) ; (EQL CL-PPCRE::MINIMUM 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. ; ; 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; (* CL-PPCRE::MINIMUM 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::SUM CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM6 CL-PPCRE::LEN) ; ; 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (ALTERNATION) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::MINIMIZE CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF ; ==> ; (< #:MINMAXTMP10 #:MINMAX9) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: 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. ; in: DEFMETHOD REGEX-MIN-LENGTH (BRANCH) ; (MIN (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH)) ; (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: 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 T, 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 T, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (REPETITION) ; (* (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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (ALTERNATION T) ; (/= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to 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. ; 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (REPETITION T) ; (* CL-PPCRE::MINIMUM 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (CHAR-CLASS T) ; (1+ CL-PPCRE::START-POS) ; ; note: unable to ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (EVERYTHING T) ; (1+ CL-PPCRE::START-POS) ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (STR T) ; (+ CL-PPCRE::START-POS (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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (FILTER T) ; (+ CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/regex-class-util-tmp8065ESJT.fasl ; compilation finished in 0:00:00.096 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/convert.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 ; in: DEFUN MAYBE-SPLIT-REPETITION ; (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN MAYBE-ACCUMULATE ; (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; (CL-PPCRE::STR CL-PPCRE::STR) ; (CL-PPCRE::SKIP CL-PPCRE::STR) T) ; --> SETF LET* ; ==> ; (REPLACE #:SEQUENCE #:NEW3 :START1 #:START :END1 NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; The second argument is a SEQUENCE, not a (OR NULL ; (SIMPLE-ARRAY CHARACTER (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR NULL ; (SIMPLE-ARRAY CHARACTER (*))). ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; (MAKE-ARRAY (CL-PPCRE::LEN CL-PPCRE::STR) :INITIAL-CONTENTS ; (CL-PPCRE::STR CL-PPCRE::STR) :ELEMENT-TYPE 'CHARACTER ; :FILL-POINTER T :ADJUSTABLE T) ; ; 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 second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; (SETF (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; --> FUNCALL ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20) ; (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; (CL-PPCRE::STR CL-PPCRE::STR) ; (CL-PPCRE::SKIP CL-PPCRE::STR) T) ; --> SETF LET* ; ==> ; (REPLACE #:SEQUENCE #:NEW3 :START1 #:START :END1 NIL) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BRANCH) T) ; (LENGTH (CL-PPCRE::CHOICES CL-PPCRE::ALTERNATIONS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :GREEDY-REPETITION) T) ; (ZEROP LENGTH) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :NAMED-REGISTER) T) ; (COPY-SEQ (SECOND CL-PPCRE::PARSE-TREE)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BACK-REFERENCE) T) ; (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a (SIMPLE-ARRAY CHARACTER (*)). ; (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 &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::NAME CL-PPCRE::IN CL-PPCRE::REG-NAMES ; CL-PPCRE::FOR CL-PPCRE::REG-INDEX CL-PPCRE::FROM 0 ; WHEN (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; CL-PPCRE::COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE 1+ ; ==> ; 1 ; ; note: forced to do 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CONVERT ; (COERCE (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) 'SIMPLE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/convert-tmp7S8Z6FGF.fasl ; compilation finished in 0:00:00.176 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/optimize.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a VECTOR, not a (OR SIMPLE-BASE-STRING NULL). ; (INCF CL-PPCRE::COLLECTOR-LENGTH (CL-PPCRE::LEN CL-PPCRE::ELEMENT)) ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFMETHOD START-ANCHORED-P (REPETITION) ; (PLUSP (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: 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. ; in: DEFMETHOD START-ANCHORED-P (REGEX) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::REGEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD END-STRING-AUX (SEQ) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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 SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; (CHAR CL-PPCRE::STR CL-PPCRE::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFMETHOD COMPUTE-MIN-REST (ALTERNATION T) ; (LOOP CL-PPCRE::FOR CL-PPCRE::CHOICE CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::MINIMIZE (CL-PPCRE::COMPUTE-MIN-REST CL-PPCRE::CHOICE ; CL-PPCRE::CURRENT-MIN-REST)) ; --> LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF ; ==> ; (< #:MINMAXTMP11 #:MINMAX10) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: 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. ; in: DEFMETHOD COMPUTE-MIN-REST (BRANCH T) ; (MIN ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST) ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: 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 T, 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 T, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (STR T) ; (+ CL-PPCRE::CURRENT-MIN-REST (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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (FILTER T) ; (+ CL-PPCRE::CURRENT-MIN-REST (OR (CL-PPCRE::LEN CL-PPCRE::FILTER) 0)) ; ; note: 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (REPETITION T) ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ CL-PPCRE::CURRENT-MIN-REST ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (LOOKBEHIND T) ; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::LOOKBEHIND)) ; ; note: 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (REGEX T) ; (1+ CL-PPCRE::CURRENT-MIN-REST) ; ; note: unable to ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/optimize-tmpSIT3QPKP.fasl ; compilation finished in 0:00:00.204 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/closures.lisp" (written 27 APR 2024 01:06:11 AM): ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; 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) ; in: DEFMETHOD CREATE-MATCHER-AUX (CHAR-CLASS T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::CHAR-CLASS ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::START-POS)) ; (LAMBDA (CL-PPCRE::START-POS) ; (DECLARE (FIXNUM CL-PPCRE::START-POS)) ; (AND (< CL-PPCRE::START-POS CL-PPCRE::*END-POS*) ; (CL-PPCRE::CHAR-CLASS-TEST) ; (FUNCALL CL-PPCRE::NEXT-FN (1+ CL-PPCRE::START-POS))))) ; --> LET LAMBDA FUNCTION AND IF IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFMETHOD CREATE-MATCHER-AUX (STR T) ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::START-POS ; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS) CL-PPCRE::CHR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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) ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-MATCHER-AUX (FILTER T) ; (FUNCALL CL-PPCRE::FN CL-PPCRE::START-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (FUNCALL CL-PPCRE::NEXT-FN CL-PPCRE::NEXT-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; NEXT-FN is not known to be a function ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/closures-tmpE0PA0714.fasl ; compilation finished in 0:00:00.144 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET BLOCK ; --> TAGBODY WHEN IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), 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)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; 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)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-GREEDY-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), 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)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-NON-GREEDY-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: ; DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS)))) ; --> LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA FUNCTION ; --> LET AND IF IF LOOP BLOCK LET TAGBODY UNLESS IF AND IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (AREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (ZEROP (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-MATCHER-AUX (REPETITION T) ; (ZEROP CL-PPCRE::MAXIMUM) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (EQL CL-PPCRE::MINIMUM 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. ; ; 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. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (PLUSP CL-PPCRE::LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; 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 T, 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 T, not a DOUBLE-FLOAT. ; (EQL CL-PPCRE::MINIMUM 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, 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 T, not a FIXNUM. ; The second 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). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; (PLUSP 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. ; (PLUSP 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. ; (PLUSP 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/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/repetition-closures-tmpJRWHHVG0.fasl ; compilation finished in 0:00:00.308 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/scanner.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/scanner.lisp ; in: DEFUN CREATE-BMH-MATCHER ; (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION IF LOOP BLOCK LET TAGBODY LOOP BLOCK LET LET TAGBODY UNLESS IF ; --> AND IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (LENGTH CL-PPCRE::PATTERN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CHAR-UPCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-DOWNCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (SEARCH CL-PPCRE::PATTERN CL-PPCRE::*STRING* :START2 CL-PPCRE::START-POS ; :END2 CL-PPCRE::*END-POS* :TEST CL-PPCRE::TEST) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN CREATE-CHAR-SEARCHER ; (CL-PPCRE::CHAR-SEARCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION AND IF LOOP BLOCK LET LET TAGBODY WHEN IF SETQ THE AND IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFUN CREATE-SCANNER-AUX ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (FUNCALL CL-PPCRE::END-STRING-TEST CL-PPCRE::TRY-POS) ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/scanner-tmp4WZVROCX.fasl ; compilation finished in 0:00:00.508 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/api.lisp" (written 27 APR 2024 01:06:11 AM): ; 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. ; in: DEFMETHOD CREATE-SCANNER (T) ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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. ; in: DEFMETHOD SCAN (STRING T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::REGEX-STRING) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; in: DEFMETHOD SCAN #'T ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; in: DEFMETHOD SCAN (T T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::PARSE-TREE) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; in: DEFUN SCAN-TO-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MAP 'VECTOR ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (IF CL-PPCRE::REG-START ; (FUNCALL CL-PPCRE::SUBSTR-FN CL-PPCRE::TARGET-STRING ; CL-PPCRE::REG-START CL-PPCRE::REG-END) ; NIL)) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMACRO DO-SCANS ; (DEFMACRO CL-PPCRE:DO-SCANS ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY &ENVIRONMENT CL-PPCRE::ENV) ; #<(SIMPLE-ARRAY CHARACTER ; (495)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START, MATCH-END, REG-STARTS, and ; REG-ENDS bound to the four return values of each match in turn. ... {1002D1E6FF}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::%START CL-PPCRE::%END ; CL-PPCRE::%REGEX CL-PPCRE::SCANNER) ; (DECLARE (IGNORABLE CL-PPCRE::%REGEX CL-PPCRE::SCANNER)) ; `(BLOCK NIL ; (LET* # ; # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END ; REG-STARTS REG-ENDS REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) ; in: DEFMACRO DO-MATCHES ; (DEFMACRO CL-PPCRE:DO-MATCHES ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (477)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START and MATCH-END bound to the ; start/end positions of each match in turn. After the last match, ; ... {100312A43F}> ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; `(CL-PPCRE:DO-SCANS (,CL-PPCRE::MATCH-START ,CL-PPCRE::MATCH-END ; ,CL-PPCRE::REG-STARTS ,CL-PPCRE::REG-ENDS ; ,CL-PPCRE::REGEX ,CL-PPCRE::TARGET-STRING ; ,CL-PPCRE::RESULT-FORM :START ,CL-PPCRE::START :END ; ,CL-PPCRE::END) ; ,@CL-PPCRE::BODY))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) ; in: DEFMACRO DO-MATCHES-AS-STRINGS ; (DEFMACRO CL-PPCRE:DO-MATCHES-AS-STRINGS ; ( ; (CL-PPCRE::MATCH-VAR ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (569)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-VAR bound to the substring of ; TARGET-STRING corresponding to each match in turn. After the last ; ma... {10032B6F7F}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::SUBSTR-FN) ; `(LET (#) ; (CL-PPCRE:DO-MATCHES # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-VAR REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END ; SHAREDP) ; in: DEFMACRO DO-REGISTER-GROUPS ; (DEFMACRO CL-PPCRE:DO-REGISTER-GROUPS ; (CL-PPCRE::VAR-LIST ; (CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (820)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with the variables in VAR-LIST bound to the ; corresponding register groups for each match in turn, i.e. each ; va... {1003485D7F}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::SUBSTR-FN CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS CL-PPCRE::START-INDEX) ; `(LET (#) ; (CL-PPCRE:DO-SCANS # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX TARGET-STRING ; &OPTIONAL RESULT-FORM ; &KEY START END SHAREDP) ; in: DEFUN COUNT-MATCHES ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::S CL-PPCRE::E CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING COUNT :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (INCF COUNT)) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::S CL-PPCRE::E) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF COUNT) ; --> THE ; ==> ; (+ 1 COUNT) ; ; note: forced to do 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::S CL-PPCRE::E CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING COUNT :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (INCF COUNT)) ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::S CL-PPCRE::E) ; ; note: forced to do 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. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALL-MATCHES ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::RESULT-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::RESULT-LIST)) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do 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. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALL-MATCHES-AS-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES-AS-STRINGS (CL-PPCRE::MATCH CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START ; CL-PPCRE::START :END CL-PPCRE::END :SHAREDP ; CL-PPCRE::SHAREDP) ; (PUSH CL-PPCRE::MATCH CL-PPCRE::RESULT-LIST)) ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING7) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE ; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: forced to do 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. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; 1 ; ; note: forced to do 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SPLIT ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP CL-PPCRE::LIMIT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...) ; --> LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET LET ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE AREF ; ==> ; 1 ; ; 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 VECTOR, not a SIMPLE-ARRAY. ; ; 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 VECTOR, not a SIMPLE-ARRAY. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (= 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 NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a 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) ; --> 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do 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. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; 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. ; in: DEFUN STRING-CASE-MODIFIER ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::FROM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::TO) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; 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 ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (< 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 (NOT NULL), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The second argument is a (NOT NULL), 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 NULL INTEGER), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (OR NULL INTEGER), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (< CL-PPCRE::TOKEN 0) ; ; note: forced to do <-INTEGER-FIXNUM (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; in: DEFUN BUILD-REPLACEMENT ; (ARRAY-DIMENSION CL-PPCRE::REG-STARTS 0) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; (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: ; TOKEN is not known to be a function ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; 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: ; TOKEN is not known to be a function ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (>= CL-PPCRE::TOKEN CL-PPCRE::REG-BOUND) ; ; note: forced to do <-INTEGER-FIXNUM (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; (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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; ; 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFUN REGEX-REPLACE ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFUN REGEX-REPLACE-ALL ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do 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. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN REGEX-APROPOS-LIST ; (DEFUN CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; #<(SIMPLE-ARRAY CHARACTER ; (221)) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {1002A8E7BF}> ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (221)) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {1002A8E7BF}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS-LIST ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; in: DEFUN REGEX-APROPOS ; (DEFUN CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {100300C4BF}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES)) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {100300C4BF}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/api-tmpA0I3UKX8.fasl ; compilation finished in 0:00:00.416 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/clx/package.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/package-tmp267Y2N80.fasl ; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/clx/depdefs.lisp" (written 27 DEC 2022 07:29:08 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/depdefs-tmpOUPE5FSJ.fasl ; compilation finished in 0:00:00.136 ; compiling file "/usr/share/common-lisp/source/clx/clx.lisp" (written 27 DEC 2022 07:29:08 AM): ; file: /usr/share/common-lisp/source/clx/clx.lisp ; in: DEFUN ENCODE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:EVENT-MASK 'XLIB:EVENT-MASK) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-DEVICE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:DEVICE-EVENT-MASK 'XLIB:DEVICE-EVENT-MASK) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-MODIFIER-MASK ; (XLIB::X-TYPE-ERROR XLIB:MODIFIER-MASK 'XLIB:MODIFIER-MASK) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-STATE-MASK ; (XLIB::X-TYPE-ERROR XLIB::STATE-MASK ; '(OR XLIB:MASK16 (XLIB::CLX-LIST XLIB:STATE-MASK-KEY))) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-POINTER-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:POINTER-EVENT-MASK 'XLIB:POINTER-EVENT-MASK) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/clx-tmpIGHCU6ZA.fasl ; compilation finished in 0:00:00.260 ; compiling file "/usr/share/common-lisp/source/clx/dependent.lisp" (written 27 DEC 2022 07:29:08 AM): ; 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) ; in: DEFMACRO READ-IMAGE-LOAD-BYTE ; (SETQ POSITION (- 7 POSITION)) ; ; note: deleting unreachable code ; in: DEFMACRO READ-IMAGE-ASSEMBLE-BYTES ; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES)) ; ; note: deleting unreachable code ; in: DEFMACRO WRITE-IMAGE-LOAD-BYTE ; (- XLIB::INTEGER-SIZE 8 POSITION) ; ; note: deleting unreachable code ; in: DEFMACRO WRITE-IMAGE-ASSEMBLE-BYTES ; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES)) ; ; note: deleting unreachable code ; in: DEFUN COPY-BIT-RECT ; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::SDATA XLIB::SOURCE) (XLIB::SSTART) ; (XLIB::SEND)) ; (DECLARE (IGNORE XLIB::SEND)) ; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::DDATA XLIB::DEST) (XLIB::DSTART) ; (XLIB::DEND)) ; (DECLARE (IGNORE XLIB::DEND)) ; (ASSERT (AND (ZEROP XLIB::SSTART) (ZEROP XLIB::DSTART))) ; (DO ((XLIB::SRC-IDX # #) ; (XLIB::DEST-IDX # #) ; (COUNT XLIB::HEIGHT #)) ; ((ZEROP COUNT)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-IDX XLIB::DEST-IDX COUNT)) ; (SB-KERNEL:UB1-BASH-COPY XLIB::SDATA XLIB::SRC-IDX XLIB::DDATA ; XLIB::DEST-IDX XLIB::WIDTH)))) ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND IF THE ; ==> ; (SB-KERNEL:%WITH-ARRAY-DATA #:N-ARRAY0 #:N-SVALUE1 #:N-EVALUE2) ; ; note: unable to ; inline non-SIMPLE-vector-handling logic ; due to type uncertainty: ; The first argument is a (AND ARRAY (NOT (SIMPLE-ARRAY * (*)))), not a (OR ; VECTOR ; SIMPLE-ARRAY). ; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::DDATA XLIB::DEST) (XLIB::DSTART) ; (XLIB::DEND)) ; (DECLARE (IGNORE XLIB::DEND)) ; (ASSERT (AND (ZEROP XLIB::SSTART) (ZEROP XLIB::DSTART))) ; (DO ((XLIB::SRC-IDX (XLIB::INDEX+ # XLIB::SX #) ; (XLIB::INDEX+ XLIB::SRC-IDX XLIB::SOURCE-WIDTH)) ; (XLIB::DEST-IDX (XLIB::INDEX+ # XLIB::DX #) ; (XLIB::INDEX+ XLIB::DEST-IDX XLIB::DEST-WIDTH)) ; (COUNT XLIB::HEIGHT (1- COUNT))) ; ((ZEROP COUNT)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-IDX XLIB::DEST-IDX COUNT)) ; (SB-KERNEL:UB1-BASH-COPY XLIB::SDATA XLIB::SRC-IDX XLIB::DDATA ; XLIB::DEST-IDX XLIB::WIDTH))) ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND IF THE ; ==> ; (SB-KERNEL:%WITH-ARRAY-DATA #:N-ARRAY5 #:N-SVALUE6 #:N-EVALUE7) ; ; note: unable to ; inline non-SIMPLE-vector-handling logic ; due to type uncertainty: ; The first argument is a (AND ARRAY (NOT (SIMPLE-ARRAY * (*)))), not a (OR ; VECTOR ; SIMPLE-ARRAY). ; in: DEFUN FAST-READ-PIXARRAY ; (XLIB::READ-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X ; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE ; XLIB::BITS-PER-PIXEL FUNCTION XLIB::UNIT ...) ; ; note: deleting unreachable code ; in: DEFUN FAST-WRITE-PIXARRAY-USING-BITBLT ; (ARRAY-DIMENSION XLIB:PIXARRAY 1) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; in: DEFUN FAST-WRITE-PIXARRAY ; (XLIB::WRITE-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X ; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE ; XLIB::BITS-PER-PIXEL FUNCTION XLIB::+IMAGE-UNIT+ ...) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/dependent-tmpBO0TUGLK.fasl ; compilation finished in 0:00:00.272 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/clx/macros.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/macros.lisp ; in: DEFMACRO DEFINE-ACCESSOR ; (THIRD XLIB::GET-PUT-MACROS) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/macros-tmpIIXPIQNW.fasl ; compilation finished in 0:00:00.388 ; compiling file "/usr/share/common-lisp/source/clx/bufmac.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/bufmac-tmpOHM494YR.fasl ; compilation finished in 0:00:00.028 ; compiling file "/usr/share/common-lisp/source/clx/buffer.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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)) ; --> LET XLIB::HOLDING-LOCK IF HANDLER-CASE SB-INT:DX-FLET FLET #:FORM-FUN-3 ; --> 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: 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. ; in: DEFUN READ-VECTOR-CARD8 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD8 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD8 XLIB::INDEX))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD16 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD16 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD16 XLIB::INDEX))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD32 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD32 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD32 XLIB::INDEX))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD8 ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD16 ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-INT16 ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD32 ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CHAR2B ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/buffer-tmpOVFB07XF.fasl ; compilation finished in 0:00:00.812 ; compiling file "/usr/share/common-lisp/source/clx/display.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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. ; in: DEFUN DISPLAY-FINISH-OUTPUT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETINPUTFOCUS+ 16 ; :SIZES (8 32)) ; NIL) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/display-tmpG6VFGMYP.fasl ; compilation finished in 0:00:00.132 ; compiling file "/usr/share/common-lisp/source/clx/gcontext.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN SET-GCONTEXT-DASHES ; (VECTOR) ; ; note: deleting unreachable code ; in: DEFUN FORCE-GCONTEXT-CHANGES-INTERNAL ; (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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))) ; --> 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. ; --> 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (LENGTH XLIB::LOCAL-DASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETDASHES+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-DASH-OFFSET XLIB::LOCAL-STATE) 0) ; (LENGTH XLIB::LOCAL-DASH)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::LOCAL-DASH)) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::LOCAL-DASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (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))))) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; 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))) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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)) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-GCONTEXT-LOCAL-STATE ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) ; --> XLIB::WITH-BUFFER PROGN FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::TEMP-MASK))) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (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-CREATEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:DRAWABLE (XLIB::GCONTEXT-DRAWABLE XLIB:GCONTEXT)) ; (XLIB:CARD29 0)) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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))) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (ASH BIT -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) 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) ; &OPTIONAL). ; etc. ; in: DEFUN RESTORE-GCONTEXT-TEMP-STATE ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC)) ; --> 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (FUNCALL XLIB::COPY-FUNCTION XLIB::TEMP-GC XLIB:GCONTEXT ; (SVREF XLIB::LOCAL-STATE XLIB::I)) ; ; 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))) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (ASH BIT -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) 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) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC)) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-GCONTEXT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEGC+) ; (XLIB:RESOURCE-ID XLIB::GCONTEXTID) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (PROGN ; (DO* ((XLIB::I 0 #) ; (BIT 1 #) ; (XLIB::NBYTE 16) ; (XLIB::MASK 0) ; (XLIB::LOCAL # #)) ; ((XLIB::INDEX>= XLIB::I XLIB::+GCONTEXT-FAST-CHANGE-LENGTH+) ; (XLIB::CARD29-PUT 12 XLIB::MASK) ; (XLIB::CARD16-PUT 2 #) ; (XLIB::INDEX-INCF # XLIB::NBYTE)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::I XLIB::NBYTE) ; (TYPE XLIB::XGCMASK BIT) ; (TYPE XLIB::GCMASK XLIB::MASK) ; (TYPE # XLIB::LOCAL)) ; (UNLESS (EQL XLIB::LOCAL #) ; (SETF #) ; (XLIB::CARD32-PUT XLIB::NBYTE XLIB::LOCAL) ; (SETQ #) ; (XLIB::INDEX-INCF XLIB::NBYTE 4))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-GCONTEXT-COMPONENTS ; (FIND XLIB::KEY XLIB::*GCONTEXT-EXTENSIONS* :KEY ; #'XLIB::GCONTEXT-EXTENSION-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (FUNCALL (XLIB::GCONTEXT-EXTENSION-COPY-FUNCTION XLIB::EXTENSION) XLIB::SRC ; XLIB::DST ; (SVREF (XLIB::GCONTEXT-LOCAL-STATE XLIB::SRC) ; (XLIB::INDEX+ ; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) ; XLIB::*GCONTEXT-DATA-LENGTH*))) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+) ; (XLIB:GCONTEXT XLIB::SRC XLIB::DST) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::MASK))) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-GCONTEXT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/gcontext-tmp4QIPRMOF.fasl ; compilation finished in 0:00:00.820 ; compiling file "/usr/share/common-lisp/source/clx/input.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DEFUN READ-INPUT ; (CONS NIL NIL) ; ; note: deleting unreachable code ; in: DEFUN QUEUE-EVENT ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::EVENT-CODE) XLIB:DISPLAY ; XLIB::ARGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DECLARE-EVENT :CLIENT-MESSAGE ; (XLIB:DECLARE-EVENT :CLIENT-MESSAGE ; (XLIB::DATA FORMAT) ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (KEYWORD TYPE) ; ((XLIB::CLIENT-MESSAGE-SEQUENCE FORMAT) XLIB::DATA)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::READING-EVENT XLIB::WITH-BUFFER-INPUT LET LET* ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; --> 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 COND IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD8 MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ; --> ECASE COND IF IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD16 MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ; --> ECASE COND IF IF IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD32 MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN MAKE-ERROR ; (FUNCALL XLIB::ERROR-DECODE-FUNCTION XLIB:DISPLAY XLIB::EVENT) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/input-tmpGW0QV22K.fasl ; compilation finished in 0:00:01.424 ; compiling file "/usr/share/common-lisp/source/clx/requests.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEWINDOW+) ; (XLIB::DATA XLIB::DEPTH) ; (XLIB:RESOURCE-ID XLIB::WID) ; (XLIB:WINDOW XLIB::PARENT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH) ; ((XLIB::MEMBER16 :COPY :INPUT-OUTPUT :INPUT-ONLY) CLASS) ; (XLIB:RESOURCE-ID ; (COND ((EQ XLIB::VISUAL :COPY) 0) ; ((TYPEP XLIB::VISUAL 'XLIB:RESOURCE-ID) XLIB::VISUAL) ; (T (XLIB:VISUAL-INFO-ID XLIB::VISUAL)))) ; (XLIB::MASK ; (XLIB:CARD32 XLIB::BACK-PIXMAP XLIB::BACK-PIXEL XLIB::BORDER-PIXMAP ; XLIB::BORDER-PIXEL) ; ((XLIB::MEMBER-VECTOR XLIB::+BIT-GRAVITY-VECTOR+) XLIB:BIT-GRAVITY) ; ((XLIB::MEMBER-VECTOR XLIB::+WIN-GRAVITY-VECTOR+) XLIB::GRAVITY) ; ((MEMBER :NOT-USEFUL :WHEN-MAPPED :ALWAYS) XLIB::BACKING-STORE) ; (XLIB:CARD32 XLIB::BACKING-PLANES XLIB::BACKING-PIXEL) ; ((MEMBER :OFF :ON) XLIB::OVERRIDE-REDIRECT XLIB::SAVE-UNDER) ; (XLIB:CARD32 XLIB:EVENT-MASK XLIB::DO-NOT-PROPAGATE-MASK) ; ((OR (MEMBER :COPY) XLIB:COLORMAP) XLIB:COLORMAP) ; ((OR (MEMBER :NONE) XLIB:CURSOR) XLIB:CURSOR))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN SETQ THE ; ==> ; (LOGIOR XLIB::%MASK 4096) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 4096)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 4096)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 8192)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 8192)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET INCF LET* ; ==> ; (+ XLIB::%INDEX (XLIB::BUFFER-BOFFSET #:%BUFFER104)) ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DESTROY-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-DESTROYWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DESTROY-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-DESTROYSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN REPARENT-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-REPARENTWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW XLIB::PARENT) ; (XLIB:INT16 XLIB::X XLIB::Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MAP-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-MAPWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MAP-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-MAPSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNMAP-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNMAPWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNMAP-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNMAPSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CIRCULATE-WINDOW-UP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CIRCULATEWINDOW+) ; (XLIB::DATA 0) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CIRCULATE-WINDOW-DOWN ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CIRCULATEWINDOW+) ; (XLIB::DATA 1) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN INTERN-ATOM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-INTERNATOM+ 12 ; :SIZES 32) ; ((XLIB::DATA 0) (XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::RESOURCE-ID-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FIND-ATOM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-INTERNATOM+ 12 ; :SIZES 32) ; ((XLIB::DATA 1) (XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::OR-GET 8 NULL XLIB:RESOURCE-ID))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEPROPERTY+) ; ((XLIB::DATA (MEMBER :REPLACE :PREPEND :APPEND)) XLIB::MODE) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID XLIB::TYPE-ID) ; (XLIB:CARD8 FORMAT) ; (XLIB:CARD32 LENGTH) ; (PROGN ; (ECASE FORMAT ; (8 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD8 :START XLIB::START ; :END XLIB::END :TRANSFORM XLIB::TRANSFORM)) ; (16 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD16 :START ; XLIB::START :END XLIB::END :TRANSFORM ; XLIB::TRANSFORM)) ; (32 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD32 :START ; XLIB::START :END XLIB::END :TRANSFORM ; XLIB::TRANSFORM))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DELETE-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-DELETEPROPERTY+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GET-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETPROPERTY+ NIL ; :SIZES (8 32)) ; (((XLIB::DATA BOOLEAN) XLIB::DELETE-P) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID) ; ((OR NULL XLIB:RESOURCE-ID) XLIB::TYPE-ID) (XLIB:CARD32 XLIB::START) ; (XLIB:CARD32 (XLIB::INDEX- (OR XLIB::END 64000) XLIB::START))) ; (LET ((XLIB::REPLY-FORMAT (XLIB::CARD8-GET 1)) ; (XLIB::REPLY-TYPE (XLIB::CARD32-GET 8)) ; (XLIB::BYTES-AFTER (XLIB::CARD32-GET 12)) ; (XLIB::NITEMS (XLIB::CARD32-GET 16))) ; (VALUES XLIB::REPLY-FORMAT XLIB::REPLY-TYPE XLIB::BYTES-AFTER ; (AND (PLUSP XLIB::NITEMS) (ECASE XLIB::REPLY-FORMAT # # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ROTATE-PROPERTIES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-ROTATEPROPERTIES+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 LENGTH) ; (XLIB:INT16 (- XLIB::DELTA)) ; ((SEQUENCE :END LENGTH) SEQUENCE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-SELECTION-OWNER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETSELECTIONOWNER+) ; ((OR NULL XLIB:WINDOW) XLIB::OWNER) ; (XLIB:RESOURCE-ID XLIB::SELECTION-ID) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CONVERT-SELECTION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CONVERTSELECTION+) ; (XLIB:WINDOW XLIB::REQUESTOR) ; (XLIB:RESOURCE-ID XLIB::SELECTION-ID XLIB::TYPE-ID) ; ((OR NULL XLIB:RESOURCE-ID) XLIB::PROPERTY-ID) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SEND-EVENT ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE) ; XLIB:DISPLAY XLIB::ARGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SENDEVENT+) ; ((XLIB::DATA BOOLEAN) XLIB::PROPAGATE-P) ; (LENGTH 11) ; ((OR (MEMBER :POINTER-WINDOW :INPUT-FOCUS) XLIB:WINDOW) XLIB:WINDOW) ; (XLIB:CARD32 (XLIB::ENCODE-EVENT-MASK XLIB:EVENT-MASK)) ; (XLIB:CARD8 XLIB::EXTERNAL-EVENT-CODE) ; (PROGN ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE) ; XLIB:DISPLAY XLIB::ARGS) ; (SETF (XLIB::BUFFER-BOFFSET XLIB:DISPLAY) ; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 44)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-POINTER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GRABPOINTER+ NIL ; :SIZES 8) ; (((XLIB::DATA BOOLEAN) XLIB::OWNER-P) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK)) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P)) ; ((OR NULL XLIB:WINDOW) XLIB::CONFINE-TO) ; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ((OR NULL XLIB:CARD32) TIME)) ; (VALUES ; (XLIB::MEMBER8-GET 1 :SUCCESS :ALREADY-GRABBED :INVALID-TIME :NOT-VIEWABLE ; :FROZEN))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-POINTER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-UNGRABPOINTER+) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-BUTTON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-GRABBUTTON+) ; ((XLIB::DATA BOOLEAN) XLIB::OWNER-P) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK)) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P)) ; ((OR NULL XLIB:WINDOW) XLIB::CONFINE-TO) ; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ; (XLIB:CARD8 ; (IF (EQ XLIB::BUTTON :ANY) ; 0 ; XLIB::BUTTON)) ; (XLIB::PAD8 1) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-BUTTON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNGRABBUTTON+) ; (XLIB::DATA ; (IF (EQ XLIB::BUTTON :ANY) ; 0 ; XLIB::BUTTON)) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-ACTIVE-POINTER-GRAB ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEACTIVEPOINTERGRAB+) ; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-KEYBOARD ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GRABKEYBOARD+ NIL ; :SIZES 8) ; (((XLIB::DATA BOOLEAN) XLIB::OWNER-P) (XLIB:WINDOW XLIB:WINDOW) ; ((OR NULL XLIB:CARD32) TIME) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P))) ; (VALUES ; (XLIB::MEMBER8-GET 1 :SUCCESS :ALREADY-GRABBED :INVALID-TIME :NOT-VIEWABLE ; :FROZEN))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-KEYBOARD ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-UNGRABKEYBOARD+) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-KEY ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-GRABKEY+) ; ((XLIB::DATA BOOLEAN) XLIB::OWNER-P) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS)) ; (XLIB:CARD8 ; (IF (EQ XLIB::KEY :ANY) ; 0 ; XLIB::KEY)) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-KEY ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNGRABKEY+) ; (XLIB::DATA ; (IF (EQ XLIB::KEY :ANY) ; 0 ; XLIB::KEY)) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-SERVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-GRABSERVER+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-SERVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-UNGRABSERVER+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MOTION-EVENTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETMOTIONEVENTS+ ; NIL :SIZES 32) ; ((XLIB:WINDOW XLIB:WINDOW) ((OR NULL XLIB:CARD32) XLIB::START XLIB::STOP)) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; (XLIB::INDEX* (XLIB::CARD32-GET 8) 3) :INDEX ; XLIB::+REPLYSIZE+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN TRANSLATE-COORDINATES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-TRANSLATECOORDS+ ; 16 :SIZES (8 16 32)) ; ((XLIB:WINDOW XLIB::SRC XLIB::DST) (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y)) ; (AND (XLIB::BOOLEAN-GET 1) ; (VALUES (XLIB::INT16-GET 12) (XLIB::INT16-GET 14) ; (XLIB::OR-GET 8 NULL XLIB:WINDOW)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WARP-POINTER ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::DST) ; XLIB::+X-WARPPOINTER+) ; (XLIB:RESOURCE-ID 0) ; (XLIB:WINDOW XLIB::DST) ; (XLIB:INT16 0 0) ; (XLIB:CARD16 0 0) ; (XLIB:INT16 XLIB::DST-X XLIB::DST-Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WARP-POINTER-RELATIVE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-WARPPOINTER+) ; (XLIB:RESOURCE-ID 0) ; (XLIB:RESOURCE-ID 0) ; (XLIB:INT16 0 0) ; (XLIB:CARD16 0 0) ; (XLIB:INT16 XLIB::X-OFF XLIB::Y-OFF)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WARP-POINTER-IF-INSIDE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::DST) ; XLIB::+X-WARPPOINTER+) ; (XLIB:WINDOW XLIB::SRC XLIB::DST) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y) ; (XLIB:CARD16 (OR XLIB::SRC-WIDTH 0) (OR XLIB::SRC-HEIGHT 0)) ; (XLIB:INT16 XLIB::DST-X XLIB::DST-Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WARP-POINTER-RELATIVE-IF-INSIDE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::SRC) ; XLIB::+X-WARPPOINTER+) ; (XLIB:WINDOW XLIB::SRC) ; (XLIB:RESOURCE-ID 0) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y) ; (XLIB:CARD16 (OR XLIB::SRC-WIDTH 0) (OR XLIB::SRC-HEIGHT 0)) ; (XLIB:INT16 XLIB::X-OFF XLIB::Y-OFF)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-PIXMAP ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:PIXMAP 'XLIB:PIXMAP) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEPIXMAP+) ; (XLIB::DATA XLIB::DEPTH) ; (XLIB:RESOURCE-ID XLIB::PID) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-PIXMAP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEPIXMAP+) ; (XLIB:PIXMAP XLIB:PIXMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CLEAR-AREA ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CLEARTOBACKGROUND+) ; ((XLIB::DATA BOOLEAN) XLIB::EXPOSURES-P) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 (OR XLIB::WIDTH 0) (OR XLIB::HEIGHT 0))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-AREA ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB::SRC) ; XLIB::+X-COPYAREA+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB::SRC XLIB::DST) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y XLIB::DST-X XLIB::DST-Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-PLANE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB::SRC) ; XLIB::+X-COPYPLANE+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB::SRC XLIB::DST) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y XLIB::DST-X XLIB::DST-Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) ; (XLIB:CARD32 XLIB::PLANE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-COLORMAP ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:COLORMAP 'XLIB:COLORMAP) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATECOLORMAP+) ; ((XLIB::DATA BOOLEAN) XLIB::ALLOC-P) ; (XLIB:CARD29 XLIB::ID) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD29 (XLIB:VISUAL-INFO-ID XLIB:VISUAL-INFO))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-COLORMAP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREECOLORMAP+) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-COLORMAP-AND-FREE ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB::NEW-COLORMAP 'XLIB:COLORMAP) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYCOLORMAPANDFREE+) ; (XLIB:RESOURCE-ID XLIB::ID) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN INSTALL-COLORMAP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-INSTALLCOLORMAP+) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNINSTALL-COLORMAP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-UNINSTALLCOLORMAP+) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALLOC-COLOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCNAMEDCOLOR+ ; 24 :SIZES (16 32)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (XLIB:CARD16 LENGTH) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::CARD32-GET 8) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 18) :GREEN ; (XLIB::RGB-VAL-GET 20) :BLUE ; (XLIB::RGB-VAL-GET 22)) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 12) :GREEN ; (XLIB::RGB-VAL-GET 14) :BLUE ; (XLIB::RGB-VAL-GET 16)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLOR+ 20 ; :SIZES (16 32)) ; ((XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB:COLOR) (XLIB:COLOR-GREEN XLIB:COLOR) ; (XLIB:COLOR-BLUE XLIB:COLOR)) ; (XLIB::PAD16 NIL)) ; (VALUES (XLIB::CARD32-GET 16) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 8) :GREEN ; (XLIB::RGB-VAL-GET 10) :BLUE ; (XLIB::RGB-VAL-GET 12)) ; XLIB:COLOR)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALLOC-COLOR-CELLS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLORCELLS+ ; NIL :SIZES 16) ; (((XLIB::DATA BOOLEAN) XLIB::CONTIGUOUS-P) (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD16 XLIB::COLORS XLIB::PLANES)) ; (LET ((XLIB::PIXEL-LENGTH (XLIB::CARD16-GET 8)) ; (XLIB::MASK-LENGTH (XLIB::CARD16-GET 10))) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::PIXEL-LENGTH :INDEX XLIB::+REPLYSIZE+) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::MASK-LENGTH :INDEX ; (XLIB::INDEX+ XLIB::+REPLYSIZE+ #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALLOC-COLOR-PLANES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLORPLANES+ ; NIL :SIZES (16 32)) ; (((XLIB::DATA BOOLEAN) XLIB::CONTIGUOUS-P) (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD16 XLIB::COLORS XLIB::REDS XLIB::GREENS XLIB::BLUES)) ; (LET ((XLIB::RED-MASK (XLIB::CARD32-GET 12)) ; (XLIB::GREEN-MASK (XLIB::CARD32-GET 16)) ; (XLIB::BLUE-MASK (XLIB::CARD32-GET 20))) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; (XLIB::CARD16-GET 8) :INDEX XLIB::+REPLYSIZE+) ; XLIB::RED-MASK XLIB::GREEN-MASK XLIB::BLUE-MASK))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-COLORS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-FREECOLORS+) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB::PLANE-MASK) ; (SEQUENCE XLIB::PIXELS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::PIXELS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN STORE-COLOR ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORENAMEDCOLOR+) ; ((XLIB::DATA XLIB:CARD8) XLIB::FLAGS) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB:PIXEL) ; (XLIB:CARD16 LENGTH) ; (XLIB::PAD16 NIL) ; (STRING STRING)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORECOLORS+) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB:PIXEL) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::SPEC) (XLIB:COLOR-GREEN XLIB::SPEC) ; (XLIB:COLOR-BLUE XLIB::SPEC)) ; (XLIB:CARD8 XLIB::FLAGS) ; (XLIB::PAD8 NIL)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORENAMEDCOLOR+) ; ((XLIB::DATA XLIB:CARD8) XLIB::FLAGS) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB:PIXEL) ; (XLIB:CARD16 LENGTH) ; (XLIB::PAD16 NIL) ; (STRING STRING)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-COLORS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYCOLORS+ NIL ; :SIZES (8 16)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (SEQUENCE XLIB::PIXELS)) ; (LET ((SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE #))) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+) ; (DOTIMES (XLIB::I (LENGTH SEQUENCE) SEQUENCE) ; (SETF # #) ; (XLIB::ADVANCE-BUFFER-OFFSET 8)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::PIXELS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (SETF (ELT SEQUENCE XLIB::I) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 0) :GREEN ; (XLIB::RGB-VAL-GET 2) :BLUE (XLIB::RGB-VAL-GET 4))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYCOLORS+ NIL ; :SIZES (8 16)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (SEQUENCE XLIB::PIXELS)) ; (LET ((SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE #))) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+) ; (DOTIMES (XLIB::I (LENGTH SEQUENCE) SEQUENCE) ; (SETF # #) ; (XLIB::ADVANCE-BUFFER-OFFSET 8)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN LOOKUP-COLOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LOOKUPCOLOR+ 20 ; :SIZES 16) ; ((XLIB:COLORMAP XLIB:COLORMAP) (XLIB:CARD16 LENGTH) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 14) :GREEN (XLIB::RGB-VAL-GET 16) ; :BLUE (XLIB::RGB-VAL-GET 18)) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 8) :GREEN (XLIB::RGB-VAL-GET 10) ; :BLUE (XLIB::RGB-VAL-GET 12)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-CURSOR ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATECURSOR+) ; (XLIB:RESOURCE-ID XLIB::CID) ; (XLIB:PIXMAP XLIB::SOURCE) ; ((OR NULL XLIB:PIXMAP) XLIB::MASK) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND) ; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND)) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND) ; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND)) ; (XLIB:CARD16 XLIB::X XLIB::Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-GLYPH-CURSOR ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEGLYPHCURSOR+) ; (XLIB:RESOURCE-ID XLIB::CID XLIB::SOURCE-FONT-ID XLIB::MASK-FONT-ID) ; (XLIB:CARD16 XLIB::SOURCE-CHAR) ; (XLIB:CARD16 XLIB::MASK-CHAR) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND) ; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND)) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND) ; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-CURSOR ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREECURSOR+) ; (XLIB:CURSOR XLIB:CURSOR)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RECOLOR-CURSOR ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:CURSOR-DISPLAY XLIB:CURSOR) ; XLIB::+X-RECOLORCURSOR+) ; (XLIB:CURSOR XLIB:CURSOR) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND) ; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND)) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND) ; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-BEST-CURSOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12 ; :SIZES 16) ; ((XLIB::DATA 0) (XLIB:WINDOW XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-BEST-TILE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12 ; :SIZES 16) ; ((XLIB::DATA 1) (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-BEST-STIPPLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12 ; :SIZES 16) ; ((XLIB::DATA 2) (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-EXTENSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYEXTENSION+ ; 12 :SIZES 8) ; ((XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) (STRING STRING)) ; (AND (XLIB::BOOLEAN-GET 8) ; (VALUES (XLIB::CARD8-GET 9) (XLIB::CARD8-GET 10) ; (XLIB::CARD8-GET 11)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-KEYBOARD-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEKEYBOARDCONTROL+ ; :SIZES (32)) ; (XLIB::MASK ; (INTEGER XLIB::KEY-CLICK-PERCENT XLIB::BELL-PERCENT XLIB::BELL-PITCH ; XLIB::BELL-DURATION) ; (XLIB:CARD32 XLIB::LED) ((MEMBER :OFF :ON) XLIB::LED-MODE) ; (XLIB:CARD32 XLIB::KEY) ; ((MEMBER :OFF :ON :DEFAULT) XLIB::AUTO-REPEAT-MODE))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-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 #:%BUFFER46)) ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN BELL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-BELL+) ; (XLIB::DATA (XLIB::INT8->CARD8 XLIB::PERCENT-FROM-NORMAL))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-POINTER-MAPPING ; (LENGTH MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-SETPOINTERMAPPING+ 2 :SIZES 8) ; ((XLIB::DATA (LENGTH MAP)) ((SEQUENCE :FORMAT XLIB:CARD8) MAP)) ; (VALUES (XLIB::BOOLEAN-GET 1))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-POINTER-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEPOINTERCONTROL+) ; (XLIB:INT16 NUMERATOR DENOMINATOR XLIB::THRESHOLD) ; (XLIB:CARD8 XLIB::ACCELERATION-P XLIB::THRESHOLD-P)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETSCREENSAVER+) ; (XLIB:INT16 XLIB::TIMEOUT XLIB::INTERVAL) ; ((XLIB::MEMBER8 :ON :OFF :DEFAULT) XLIB::BLANKING XLIB::EXPOSURES)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ACTIVATE-SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FORCESCREENSAVER+) ; (XLIB::DATA 1)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RESET-SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FORCESCREENSAVER+) ; (XLIB::DATA 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-ACCESS-HOST ; (LENGTH XLIB::ADDRESS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEHOSTS+) ; ((XLIB::DATA BOOLEAN) XLIB::REMOVE-P) ; (XLIB:CARD8 ; (XLIB::ENCODE-TYPE (OR NULL (MEMBER :INTERNET :DECNET :CHAOS) XLIB:CARD32) ; XLIB::FAMILY)) ; (XLIB:CARD16 (LENGTH XLIB::ADDRESS)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::ADDRESS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::ADDRESS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ACCESS-HOSTS ; (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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SETF (ELT SEQUENCE XLIB::I) ; (CONS ; (IF (< XLIB::FAMILY 3) ; (SVREF '# XLIB::FAMILY) ; XLIB::FAMILY) ; (XLIB::SEQUENCE-GET :LENGTH XLIB::LEN :FORMAT XLIB:CARD8 ; :RESULT-TYPE 'LIST :INDEX ; (+ XLIB::BUFFER-BOFFSET 4)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ACCESS-CONTROL ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LISTHOSTS+ 2 ; :SIZES 8) ; NIL ; (XLIB::BOOLEAN-GET 1)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-ACCESS-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEACCESSCONTROL+) ; ((XLIB::DATA BOOLEAN) XLIB::ENABLED-P)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN KILL-CLIENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-KILLCLIENT+) ; (XLIB:RESOURCE-ID XLIB:RESOURCE-ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN KILL-TEMPORARY-CLIENTS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-KILLCLIENT+) ; (XLIB:RESOURCE-ID 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN NO-OPERATION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-NOOPERATION+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/requests-tmp2K9J0HSR.fasl ; compilation finished in 0:00:01.452 ; compiling file "/usr/share/common-lisp/source/clx/fonts.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-OPENFONT+) ; (XLIB:RESOURCE-ID XLIB:FONT-ID) ; (XLIB:CARD16 (LENGTH XLIB::NAME-STRING)) ; (XLIB::PAD16 NIL) ; (STRING XLIB::NAME-STRING)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN OPEN-FONT-INTERNAL ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:FONT 'XLIB:FONT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (LENGTH XLIB::NAME-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-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. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CLOSE-FONT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CLOSEFONT+) ; (XLIB:RESOURCE-ID XLIB::ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN LIST-FONT-NAMES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LISTFONTS+ ; XLIB::SIZE :SIZES (8 16)) ; ((XLIB:CARD16 XLIB::MAX-FONTS (LENGTH STRING)) (STRING STRING)) ; (VALUES ; (XLIB::READ-SEQUENCE-STRING XLIB::BUFFER-BBUF ; (XLIB::INDEX- XLIB::SIZE XLIB::+REPLYSIZE+) ; (XLIB::CARD16-GET 8) XLIB::RESULT-TYPE ; XLIB::+REPLYSIZE+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN LIST-FONTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-LISTFONTSWITHINFO+ 60 :SIZES ; (8 16) :MULTIPLE-REPLY T) ; ((XLIB:CARD16 XLIB::MAX-FONTS (LENGTH STRING)) (STRING STRING)) ; (COND ((ZEROP (XLIB::CARD8-GET 1)) T) ; (T ; (LET* (# # # # # # # # #) ; (SETF #) ; (PUSH XLIB:FONT XLIB::RESULT)) ; NIL))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-FONT-PATH ; (ELT XLIB::PATHS XLIB::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (STRING (ELT XLIB::PATHS XLIB::I)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING ; SYMBOL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (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)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CEILING XLIB::REQUEST-LENGTH 4) ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; 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)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/fonts-tmpP44I4E0Y.fasl ; compilation finished in 0:00:00.260 ; compiling file "/usr/share/common-lisp/source/clx/graphics.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 ; ==> ; (= (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-POINTS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYPOINT+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-LINE ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 ; ==> ; (= (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-LINES ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYLINE+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FILL-POLYGON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-FILLPOLY+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((XLIB::MEMBER8 :COMPLEX :NON-CONVEX :CONVEX) XLIB::SHAPE) ; (BOOLEAN XLIB::RELATIVE-P) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-SEGMENTS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYSEGMENT+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::SEGMENTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::SEGMENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-RECTANGLE ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 ; ==> ; (= (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-RECTANGLES ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; (IF XLIB::FILL-P ; XLIB::+X-POLYFILLRECTANGLE+ ; XLIB::+X-POLYRECTANGLE+) ; :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::RECTANGLES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-ARC ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 ; ==> ; (= (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-ARCS-LIST ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::REQUEST :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (PROGN ; (XLIB::CARD16-PUT 2 (XLIB::INDEX+ (XLIB::INDEX-ASH LENGTH -1) 3)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)) ; (DO ((XLIB::ARC XLIB::ARCS)) ; ((ENDP XLIB::ARC) (SETF #)) ; (WHEN (XLIB::INDEX>= XLIB::BUFFER-BOFFSET XLIB::LIMIT) ; (SETF #) ; (XLIB::BUFFER-FLUSH XLIB:DISPLAY) ; (XLIB::SET-BUFFER-OFFSET #)) ; (XLIB::INT16-PUT 0 (POP XLIB::ARC)) ; (XLIB::INT16-PUT 2 (POP XLIB::ARC)) ; (XLIB::CARD16-PUT 4 (POP XLIB::ARC)) ; (XLIB::CARD16-PUT 6 (POP XLIB::ARC)) ; (XLIB::ANGLE-PUT 8 (POP XLIB::ARC)) ; (XLIB::ANGLE-PUT 10 (POP XLIB::ARC)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-ARCS-VECTOR ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 0)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 1)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 2)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 3)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 4)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 5)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::REQUEST :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (PROGN ; (XLIB::CARD16-PUT 2 (XLIB::INDEX+ (XLIB::INDEX-ASH LENGTH -1) 3)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)) ; (DO ((XLIB::N 0 #) ; (LENGTH #)) ; ((XLIB::INDEX>= XLIB::N LENGTH) (SETF #)) ; (WHEN (XLIB::INDEX>= XLIB::BUFFER-BOFFSET XLIB::LIMIT) ; (SETF #) ; (XLIB::BUFFER-FLUSH XLIB:DISPLAY) ; (XLIB::SET-BUFFER-OFFSET #)) ; (XLIB::INT16-PUT 0 (AREF XLIB::ARCS #)) ; (XLIB::INT16-PUT 2 (AREF XLIB::ARCS #)) ; (XLIB::CARD16-PUT 4 (AREF XLIB::ARCS #)) ; (XLIB::CARD16-PUT 6 (AREF XLIB::ARCS #)) ; (XLIB::ANGLE-PUT 8 (AREF XLIB::ARCS #)) ; (XLIB::ANGLE-PUT 10 (AREF XLIB::ARCS #)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN PUT-RAW-IMAGE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-PUTIMAGE+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA (MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP)) FORMAT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 XLIB::LEFT-PAD XLIB::DEPTH) ; (XLIB::PAD16 NIL) ; ((SEQUENCE :FORMAT XLIB:CARD8 :START XLIB::START) XLIB::DATA)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::DATA) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GET-RAW-IMAGE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETIMAGE+ NIL ; :SIZES (8 32)) ; (((XLIB::DATA (MEMBER ERROR :XY-PIXMAP :Z-PIXMAP)) FORMAT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) (XLIB:CARD32 XLIB::PLANE-MASK)) ; (LET ((XLIB::DEPTH (XLIB::CARD8-GET 1)) ; (LENGTH (* 4 #)) ; (XLIB::VISUAL (XLIB::RESOURCE-ID-GET 8))) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :FORMAT XLIB:CARD8 ; :LENGTH LENGTH :START XLIB::START :DATA XLIB::DATA ; :INDEX ...) ; XLIB::DEPTH (XLIB:VISUAL-INFO XLIB:DISPLAY XLIB::VISUAL)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/graphics-tmp63LQ7EX6.fasl ; compilation finished in 0:00:00.276 ; compiling file "/usr/share/common-lisp/source/clx/text.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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 ; 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))) ; --> THE ; ==> ; (+ ; (IF (OR (XLIB::FONT-CHAR-INFOS-INTERNAL XLIB:FONT) ; (XLIB::FONT-LOCAL-ONLY-P XLIB:FONT)) ; (XLIB::TEXT-EXTENTS-LOCAL XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END ; :WIDTH-ONLY) ; (XLIB::TEXT-WIDTH-SERVER XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END)) ; XLIB::WIDTH) ; ; note: forced to do 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) ; &OPTIONAL). ; etc. ; in: DEFUN TEXT-EXTENTS-SERVER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYTEXTEXTENTS+ ; 28 :SIZES (8 16 32)) ; (((XLIB::DATA BOOLEAN) (ODDP LENGTH)) ; (LENGTH (XLIB::INDEX+ (XLIB::INDEX-CEILING LENGTH 2) 2)) ; (XLIB:RESOURCE-ID XLIB:FONT-ID) ; ((SEQUENCE :FORMAT XLIB::CHAR2B :START XLIB::START :END XLIB::END ; :APPENDING T) ; SEQUENCE)) ; (VALUES (XLIB::INTEGER-GET 16) (XLIB::INT16-GET 12) (XLIB::INT16-GET 14) ; (XLIB::INTEGER-GET 20) (XLIB::INTEGER-GET 24) (XLIB::INT16-GET 8) ; (XLIB::INT16-GET 10) ; (XLIB::MEMBER8-GET 1 :LEFT-TO-RIGHT :RIGHT-TO-LEFT))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN TEXT-WIDTH-SERVER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYTEXTEXTENTS+ ; 28 :SIZES 32) ; (((XLIB::DATA BOOLEAN) (ODDP LENGTH)) ; (LENGTH (XLIB::INDEX+ (XLIB::INDEX-CEILING LENGTH 2) 2)) ; (XLIB:RESOURCE-ID XLIB:FONT-ID) ; ((SEQUENCE :FORMAT XLIB::CHAR2B :START XLIB::START :END XLIB::END ; :APPENDING T) ; SEQUENCE)) ; (VALUES (XLIB::INTEGER-GET 16))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-GLYPH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 1 0) ; (XLIB:CARD8 (LDB (BYTE 8 0) ELT)) ; (XLIB:CARD8 (LDB (BYTE 8 8) ELT))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF XLIB::OVERALL-WIDTH XLIB::TRANSLATED-WIDTH) ; --> THE ; ==> ; (+ XLIB::TRANSLATED-WIDTH XLIB::OVERALL-WIDTH) ; ; 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) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT8+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (DO* (# ; # ; # ; # ; # ; #) ; (# # # # # #) ; (DECLARE # ; # ; #) ; (SETQ #) ; (MULTIPLE-VALUE-BIND # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 # # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF XLIB::OVERALL-WIDTH XLIB::TRANSLATED-WIDTH) ; --> THE ; ==> ; (+ XLIB::TRANSLATED-WIDTH XLIB::OVERALL-WIDTH) ; ; 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) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT16+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (DO* (# ; # ; # ; # ; # ; #) ; (# # # # # #) ; (DECLARE # ; # ; #) ; (SETQ #) ; (MULTIPLE-VALUE-BIND # # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-IMAGE-GLYPH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB::DATA 1) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 (LDB (BYTE 8 0) ELT)) ; (XLIB:CARD8 (LDB (BYTE 8 8) ELT))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-IMAGE-GLYPHS8 ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-IMAGETEXT8+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (MULTIPLE-VALUE-SETQ (XLIB::NEW-START XLIB:FONT XLIB::TRANSLATED-WIDTH) ; (FUNCALL # SEQUENCE XLIB::START XLIB::END XLIB:FONT XLIB::BUFFER-BBUF ; #)) ; (SETQ XLIB::CHUNK #) ; (WHEN (AND # #) (SETQ #) (RETURN-FROM XLIB::CHANGE-FONT)) ; (WHEN (XLIB::INDEX-ZEROP XLIB::CHUNK) ; (RETURN-FROM XLIB::DRAW-IMAGE-GLYPHS8 XLIB::NEW-START)) ; (XLIB::DATA-PUT 1 XLIB::CHUNK) ; (LET (#) ; (XLIB::LENGTH-PUT 2 #) ; (SETF #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-IMAGE-GLYPHS16 ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-IMAGETEXT16+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (MULTIPLE-VALUE-SETQ (XLIB::NEW-START XLIB:FONT XLIB::TRANSLATED-WIDTH) ; (FUNCALL # SEQUENCE XLIB::START XLIB::END XLIB:FONT XLIB::BUFFER 0)) ; (SETQ XLIB::CHUNK #) ; (WHEN (AND # #) (SETQ #) (RETURN-FROM XLIB::CHANGE-FONT)) ; (WHEN (XLIB::INDEX-ZEROP XLIB::CHUNK) ; (RETURN-FROM XLIB::DRAW-IMAGE-GLYPHS16 XLIB::NEW-START)) ; (XLIB::WRITE-SEQUENCE-CHAR2B XLIB:DISPLAY ; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16) ; XLIB::BUFFER 0 XLIB::CHUNK) ; (XLIB::DATA-PUT 1 XLIB::CHUNK) ; (LET (#) ; (XLIB::LENGTH-PUT 2 #) ; (SETF #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-KEYBOARD-MAPPING ; (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))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (AREF XLIB::KEYSYMS XLIB::I XLIB::J) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (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))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN KEYBOARD-MAPPING ; (1+ XLIB::I) ; ; 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-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 # #)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SETF (AREF XLIB::RESULT XLIB::I XLIB::J) (XLIB::CARD29-GET (* XLIB::J 4))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (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 # #)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/text-tmp86F1A8FB.fasl ; compilation finished in 0:00:00.416 ; compiling file "/usr/share/common-lisp/source/clx/attributes.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-DRAWABLE-GEOMETRY ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-CONFIGUREWINDOW+) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 (ASH 1 NUMBER)) ; (XLIB:CARD29 XLIB::VALUE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> UNWIND-PROTECT FLET BLOCK 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> UNWIND-PROTECT FLET BLOCK 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN PUT-WINDOW-ATTRIBUTE-CHANGES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEWINDOWATTRIBUTES+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::MASK) ; (PROGN ; (DO ((XLIB::BITS XLIB::MASK #) ; (XLIB::REQUEST-SIZE 2) ; (XLIB::I 1 #)) ; ((ZEROP XLIB::BITS) (XLIB::CARD16-PUT 2 #) (XLIB::INDEX-INCF # #)) ; (DECLARE (TYPE XLIB:MASK32 XLIB::BITS) ; (TYPE XLIB:ARRAY-INDEX XLIB::I XLIB::REQUEST-SIZE)) ; (WHEN (ODDP XLIB::BITS) (XLIB::CARD32-PUT # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN PUT-DRAWABLE-GEOMETRY-CHANGES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CONFIGUREWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 XLIB::MASK) ; (PROGN ; (DO ((XLIB::BITS XLIB::MASK #) ; (XLIB::REQUEST-SIZE 2) ; (XLIB::I 1 #)) ; ((ZEROP XLIB::BITS) (XLIB::CARD16-PUT 2 #) (XLIB::INDEX-INCF # #)) ; (DECLARE (TYPE XLIB:MASK16 XLIB::BITS) ; (TYPE FIXNUM XLIB::REQUEST-SIZE) ; (TYPE XLIB:ARRAY-INDEX XLIB::I)) ; (WHEN (ODDP XLIB::BITS) (XLIB::CARD29-PUT # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/attributes-tmpH7D4HL98.fasl ; compilation finished in 0:00:00.256 ; compiling file "/usr/share/common-lisp/source/clx/translate.lisp" (written 27 DEC 2022 07:29:08 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/translate-tmpCDM7YXYI.fasl ; compilation finished in 0:00:00.228 ; compiling file "/usr/share/common-lisp/source/clx/keysyms.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/keysyms-tmpLM57P5P.fasl ; compilation finished in 0:00:00.016 ; compiling file "/usr/share/common-lisp/source/clx/manager.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/manager-tmpZE69DN33.fasl ; compilation finished in 0:00:00.588 ; compiling file "/usr/share/common-lisp/source/clx/image.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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 LIST 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN PUT-IMAGE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-PUTIMAGE+ :GC-FORCE ; XLIB:GCONTEXT) ; ((XLIB::DATA (MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP)) ; (COND ((OR # XLIB::BITMAP-P) :BITMAP) ((PLUSP XLIB::LEFT-PAD) :XY-PIXMAP) ; (T FORMAT))) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 XLIB::WIDTH XLIB::REQUEST-HEIGHT) ; (XLIB:INT16 XLIB::X XLIB::REQUEST-Y) ; (XLIB:CARD8 XLIB::LEFT-PAD XLIB::DEPTH) ; (XLIB::PAD16 NIL) ; (PROGN ; (XLIB::LENGTH-PUT 2 XLIB::REQUEST-LENGTH) ; (SETF (XLIB::BUFFER-BOFFSET XLIB:DISPLAY) ; (XLIB::ADVANCE-BUFFER-OFFSET 24)) ; (ETYPECASE XLIB:IMAGE ; (XLIB:IMAGE-X (ECASE # # #)) ; (XLIB:IMAGE-XY ; (XLIB::WRITE-IMAGE-XY XLIB:DISPLAY XLIB:IMAGE XLIB::LEFT-PADDED-SRC-X ; XLIB::REQUEST-SRC-Y XLIB::LEFT-PADDED-WIDTH XLIB::REQUEST-HEIGHT ; XLIB::PADDED-BYTES-PER-LINE XLIB::UNIT XLIB::BYTE-LSB-FIRST-P ; XLIB::BIT-LSB-FIRST-P)) ; (XLIB:IMAGE-Z ; (XLIB::WRITE-IMAGE-Z XLIB:DISPLAY XLIB:IMAGE XLIB::LEFT-PADDED-SRC-X ; XLIB::REQUEST-SRC-Y XLIB::LEFT-PADDED-WIDTH XLIB::REQUEST-HEIGHT ; XLIB::PADDED-BYTES-PER-LINE XLIB::UNIT XLIB::BYTE-LSB-FIRST-P ; XLIB::BIT-LSB-FIRST-P))) ; (XLIB::BUFFER-PAD-REQUEST XLIB:DISPLAY ; (XLIB::INDEX- ; (XLIB::INDEX* XLIB::REQUEST-WORDS 4) ; XLIB::REQUEST-BYTES)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/image-tmpG8099TO3.fasl ; compilation finished in 0:00:01.060 ; compiling file "/usr/share/common-lisp/source/clx/resource.lisp" (written 27 DEC 2022 07:29:08 AM): ; file: /usr/share/common-lisp/source/clx/resource.lisp ; in: DEFUN DELETE-RESOURCE-INTERNAL ; (SETQ XLIB::LOOSE-P NIL) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/resource-tmpTASQCYAW.fasl ; compilation finished in 0:00:00.240 ; compiling file "/usr/share/common-lisp/source/clx/extensions/shape.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SHAPE-RECTANGLES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 1) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-RECTANGLE-ORDERING XLIB::ORDERING)) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::RECTANGLES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SHAPE-COMBINE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 3) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::SOURCE-KIND)) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET) ; (XLIB:WINDOW XLIB::SOURCE-WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SHAPE-OFFSET ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 4) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 0) ; (XLIB:CARD8 0) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/shape-tmp35U57IV6.fasl ; compilation finished in 0:00:00.216 ; compiling file "/usr/share/common-lisp/source/clx/extensions/big-requests.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/big-requests-tmpTZOONXRW.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xvidmode.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SET-CLIENT-VERSION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SET-CLIENT-VERSION+) ; (XLIB:CARD16 XLIB::+XF86VIDMODE-MAJOR-VERSION+) ; (XLIB:CARD16 XLIB::+XF86VIDMODE-MINOR-VERSION+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-PERMISSIONS ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-PERMISIONS+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-MOD-MODE-LINE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+MOD-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; ((SEQUENCE :FORMAT XLIB:CARD16 :START 2) XLIB::V)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+MOD-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; ((SEQUENCE :FORMAT XLIB:CARD16 :START 2) XLIB::V)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-MODE-LINE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MODE-LINE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0)) ; (LET ((XLIB::MODE-INFO ; (XLIB::MAKE-MODE-INFO :DOTCLOCK # :HDISPLAY # :HSYNCSTART # ; :HSYNCEND # :HTOTAL # :HSKEW ...)) ; (XLIB::SIZE (XLIB::CARD32-GET #))) ; (DECLARE (TYPE XLIB:CARD32 XLIB::SIZE)) ; (INCF XLIB::OFFSET 4) ; (SETF (XLIB::MODE-INFO-PRIVSIZE XLIB::MODE-INFO) XLIB::SIZE ; (XLIB::MODE-INFO-PRIVATE XLIB::MODE-INFO) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :INDEX XLIB::OFFSET ; :LENGTH XLIB::SIZE :RESULT-TYPE 'LIST)) ; XLIB::MODE-INFO)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MODE-LINE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0)) ; (LET ((XLIB::MODE-INFO ; (XLIB::MAKE-MODE-INFO :DOTCLOCK # :HDISPLAY # :HSYNCSTART # ; :HSYNCEND # :HTOTAL # :HSKEW ...)) ; (XLIB::SIZE (XLIB::CARD32-GET #))) ; (DECLARE (TYPE XLIB:CARD32 XLIB::SIZE)) ; (INCF XLIB::OFFSET 4) ; (SETF (XLIB::MODE-INFO-PRIVSIZE XLIB::MODE-INFO) XLIB::SIZE ; (XLIB::MODE-INFO-PRIVATE XLIB::MODE-INFO) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :INDEX XLIB::OFFSET ; :LENGTH XLIB::SIZE :RESULT-TYPE 'LIST)) ; XLIB::MODE-INFO)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-ALL-MODE-LINES ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::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 ...))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-ADD-MODE-LINE ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-DELETE-MODE-LINE ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-VALIDATE-MODE-LINE ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+VALIDATE-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V)) ; (LET ((XLIB::STATUS (XLIB::INTEGER-GET 8))) ; (DECLARE (TYPE XLIB:INT32 XLIB::STATUS)) ; (WHEN XLIB::STATUS (XLIB::DECODE-STATUS-MODE XLIB::STATUS)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0) (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0) ; (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0)) ; (VALUES (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0) (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0) ; (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0)) ; (VALUES (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SET-GAMMA ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+SET-GAMMA+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 0) ; (XLIB:CARD32 (TRUNCATE (* XLIB::RED 10000))) ; (XLIB:CARD32 (TRUNCATE (* XLIB::GREEN 10000))) ; (XLIB:CARD32 (TRUNCATE (* XLIB::BLUE 10000))) ; (XLIB:CARD32 0) ; (XLIB:CARD32 0) ; (XLIB:CARD32 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE)) ; (LET ((XLIB::REP-SIZE (* # 2))) ; (DECLARE (TYPE FIXNUM XLIB::REP-SIZE)) ; (UNLESS (ZEROP XLIB::REP-SIZE) ; (LET* (# #) ; (DECLARE #) ; (VALUES # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE)) ; (LET ((XLIB::REP-SIZE (* # 2))) ; (DECLARE (TYPE FIXNUM XLIB::REP-SIZE)) ; (UNLESS (ZEROP XLIB::REP-SIZE) ; (LET* (# #) ; (DECLARE #) ; (VALUES # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SET-GAMMA-RAMP ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+SET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE) ; ((SEQUENCE :FORMAT XLIB:CARD16) ; (IF (ZEROP (MOD XLIB::SIZE 2)) ; (CONCATENATE 'VECTOR XLIB::RED XLIB::GREEN XLIB::BLUE) ; (CONCATENATE 'VECTOR XLIB::RED '#(0) XLIB::GREEN '#(0) XLIB::BLUE ; '#(0))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP-SIZE ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA-RAMP-SIZE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (XLIB::CARD16-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-LOCK-MODE-SWITCH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+LOCK-MODE-SWITCH+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 ; (IF XLIB::LOCK-P ; 1 ; 0))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+LOCK-MODE-SWITCH+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 ; (IF XLIB::LOCK-P ; 1 ; 0))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SWITCH-TO-MODE ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-TO-MODE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SWITCH-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 XLIB::ZOOM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 XLIB::ZOOM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SELECT-NEXT-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 1)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 1)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SELECT-PREV-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 65535)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 65535)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-MONITOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MONITOR+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (LET* ((XLIB::VENDOR-NAME-LENGTH (XLIB::CARD8-GET 8)) ; (XLIB::MODEL-NAME-LENGTH (XLIB::CARD8-GET 9)) ; (XLIB::PAD (- 4 #)) ; (XLIB::NHSYNC (XLIB::CARD8-GET 10)) ; (XLIB::NVSYNC (XLIB::CARD8-GET 11)) ; (XLIB::VINDEX (+ 32 #)) ; (XLIB::MINDEX (+ XLIB::VINDEX XLIB::VENDOR-NAME-LENGTH XLIB::PAD)) ; (XLIB::HSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NHSYNC :INDEX 32 :RESULT-TYPE ; 'LIST)) ; (XLIB::VSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NVSYNC :INDEX # :RESULT-TYPE ; 'LIST))) ; (DECLARE ; (TYPE XLIB:CARD8 XLIB::NHSYNC XLIB::NVSYNC XLIB::VENDOR-NAME-LENGTH ; XLIB::MODEL-NAME-LENGTH) ; (TYPE FIXNUM XLIB::PAD XLIB::VINDEX XLIB::MINDEX)) ; (VALUES ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::HSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::VSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (XLIB::STRING-GET XLIB::VENDOR-NAME-LENGTH XLIB::VINDEX) ; (XLIB::STRING-GET XLIB::MODEL-NAME-LENGTH XLIB::MINDEX)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MONITOR+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (LET* ((XLIB::VENDOR-NAME-LENGTH (XLIB::CARD8-GET 8)) ; (XLIB::MODEL-NAME-LENGTH (XLIB::CARD8-GET 9)) ; (XLIB::PAD (- 4 #)) ; (XLIB::NHSYNC (XLIB::CARD8-GET 10)) ; (XLIB::NVSYNC (XLIB::CARD8-GET 11)) ; (XLIB::VINDEX (+ 32 #)) ; (XLIB::MINDEX (+ XLIB::VINDEX XLIB::VENDOR-NAME-LENGTH XLIB::PAD)) ; (XLIB::HSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NHSYNC :INDEX 32 :RESULT-TYPE ; 'LIST)) ; (XLIB::VSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NVSYNC :INDEX # :RESULT-TYPE ; 'LIST))) ; (DECLARE ; (TYPE XLIB:CARD8 XLIB::NHSYNC XLIB::NVSYNC XLIB::VENDOR-NAME-LENGTH ; XLIB::MODEL-NAME-LENGTH) ; (TYPE FIXNUM XLIB::PAD XLIB::VINDEX XLIB::MINDEX)) ; (VALUES ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::HSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::VSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (XLIB::STRING-GET XLIB::VENDOR-NAME-LENGTH XLIB::VINDEX) ; (XLIB::STRING-GET XLIB::MODEL-NAME-LENGTH XLIB::MINDEX)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-VIEWPORT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-VIEWPORT+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-VIEWPORT+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SET-VIEWPORT ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-DOTCLOCKS ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-DOT-CLOCKS+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 16) ; (XLIB::SEQUENCE-GET :LENGTH (XLIB::CARD32-GET 12) :FORMAT ; XLIB:CARD32 :INDEX 32 :RESULT-TYPE 'LIST))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xvidmode-tmpWN0UKDSV.fasl ; compilation finished in 0:00:00.700 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xrender.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xrender-tmpBF3HHBTQ.fasl ; compilation finished in 0:00:00.876 ; compiling file "/usr/share/common-lisp/source/clx/extensions/glx.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/glx.lisp ; in: DEFUN QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+QUERY-VERSION+) (XLIB:CARD32 1) (XLIB:CARD32 3)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+QUERY-SERVER-STRING+) ; (XLIB:CARD32 (OR (POSITION XLIB:SCREEN # :TEST #'EQ) 0)) ; (XLIB:CARD32 XLIB/GLX::NAME)) ; (LET* ((LENGTH (XLIB::CARD32-GET 12)) ; (XLIB/GLX::BYTES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD8 :RESULT-TYPE '# :INDEX 32 ; :LENGTH LENGTH))) ; (DECLARE (TYPE (SIMPLE-ARRAY XLIB:CARD8 #) XLIB/GLX::BYTES) ; (TYPE FIXNUM LENGTH)) ; (MAP-INTO (MAKE-STRING (1- LENGTH)) #'CODE-CHAR XLIB/GLX::BYTES))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CLIENT-INFO ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+CLIENT-INFO+) ; (XLIB:CARD32 4) ; (XLIB:CARD32 1) ; (XLIB:CARD32 3) ; (XLIB:CARD32 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MAKE-CONTEXT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB/GLX::CTX 'XLIB/GLX::CONTEXT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN CREATE-CONTEXT ; (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 LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+CREATE-CONTEXT+) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX)) ; (XLIB:RESOURCE-ID XLIB/GLX::VISUAL) ; (XLIB:CARD32 ; (OR (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY) :TEST #'EQ) 0)) ; (XLIB:RESOURCE-ID XLIB/GLX::SHARE-LIST) ; (BOOLEAN XLIB/GLX:IS-DIRECT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DESTROY-CONTEXT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+DESTROY-CONTEXT+) ; (XLIB:RESOURCE-ID XLIB/GLX::ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN IS-DIRECT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+IS-DIRECT+) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX))) ; (XLIB::CARD8-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-CONTEXT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+QUERY-CONTEXT+) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX))) ; (LET ((XLIB/GLX::NUM-ATTRIBUTES (XLIB::CARD32-GET 8))) ; (DECLARE (TYPE FIXNUM XLIB/GLX::NUM-ATTRIBUTES)) ; (LOOP XLIB/GLX::REPEAT XLIB/GLX::NUM-ATTRIBUTES ; XLIB/GLX::FOR XLIB/GLX::I FIXNUM XLIB/GLX::UPFROM 32 XLIB/GLX::BY 8 ; XLIB/GLX::COLLECTING (CONS (XLIB::CARD32-GET XLIB/GLX::I) ; (XLIB::CARD32-GET #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GET-DRAWABLE-ATTRIBUTES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+GET-DRAWABLE-ATTRIBUTES+) ; (XLIB:DRAWABLE XLIB:DRAWABLE)) ; (LET ((XLIB/GLX::NUM-ATTRIBUTES (XLIB::CARD32-GET 8))) ; (DECLARE (TYPE FIXNUM XLIB/GLX::NUM-ATTRIBUTES)) ; (LOOP XLIB/GLX::REPEAT XLIB/GLX::NUM-ATTRIBUTES ; XLIB/GLX::FOR XLIB/GLX::I FIXNUM XLIB/GLX::UPFROM 32 XLIB/GLX::BY 8 ; XLIB/GLX::COLLECTING (CONS (XLIB::CARD32-GET XLIB/GLX::I) ; (XLIB::CARD32-GET #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MAKE-CURRENT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+MAKE-CURRENT+) ; (XLIB:RESOURCE-ID (XLIB:DRAWABLE-ID XLIB:DRAWABLE)) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX)) ; (XLIB:CARD32 XLIB/GLX::OLD-TAG)) ; (LET ((XLIB/GLX::NEW-TAG (XLIB::CARD32-GET 8))) ; (SETF (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX) XLIB/GLX::NEW-TAG ; (XLIB/GLX::CONTEXT-DRAWABLE XLIB/GLX::CTX) XLIB:DRAWABLE ; (XLIB/GLX::CONTEXT-DISPLAY XLIB/GLX::CTX) XLIB:DISPLAY ; XLIB/GLX::*CURRENT-CONTEXT* XLIB/GLX::CTX))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 LIST VECTOR). ; (LOOP XLIB/GLX::REPEAT (/ (- XLIB/GLX::NUM-PROPERTIES XLIB/GLX::NUM-ORDERED) ; 2) ; XLIB/GLX::COLLECTING (CONS (XLIB::CARD32-GET (INCF XLIB/GLX::INDEX 4)) ; (XLIB::CARD32-GET (INCF XLIB/GLX::INDEX 4)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+GET-VISUAL-CONFIGS+) ; (XLIB:CARD32 (OR (POSITION XLIB:SCREEN # :TEST #'EQ) 0))) ; (LET* ((XLIB/GLX::NUM-VISUALS (XLIB::CARD32-GET 8)) ; (XLIB/GLX::NUM-PROPERTIES (XLIB::CARD32-GET 12)) ; (XLIB/GLX::NUM-ORDERED ; (LENGTH XLIB/GLX::*VISUAL-CONFIG-PROPERTIES*))) ; (DECLARE ; (TYPE FIXNUM XLIB/GLX::NUM-ORDERED XLIB/GLX::NUM-VISUALS ; XLIB/GLX::NUM-PROPERTIES)) ; (LOOP XLIB/GLX::WITH XLIB/GLX::INDEX FIXNUM = 28 ; XLIB/GLX::REPEAT XLIB/GLX::NUM-VISUALS ; XLIB/GLX::COLLECTING (XLIB/GLX::MAKE-VISUAL (NCONC # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SWAP-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+SWAP-BUFFERS+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX)) ; (XLIB:RESOURCE-ID ; (XLIB:DRAWABLE-ID (XLIB/GLX::CONTEXT-DRAWABLE XLIB/GLX::CTX)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WAIT-GL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+WAIT-GL+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WAIT-X ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+WAIT-X+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/glx-tmpGYUNPZCY.fasl ; compilation finished in 0:00:00.288 ; compiling file "/usr/share/common-lisp/source/clx/extensions/gl.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/gl.lisp ; in: DEFINE-SEQUENCE-SETTER INT8 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT8) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER INT16 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT16) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER INT32 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT32) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER BOOL ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::BOOL) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER CARD8 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD8) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER CARD16 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD16) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER CARD32 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD32) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER FLOAT32 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::FLOAT32) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER FLOAT64 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::FLOAT64) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN GET-STRING ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+GET-STRING+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (XLIB:CARD32 XLIB/GL::NAME)) ; (LET* ((LENGTH (XLIB::CARD32-GET 12)) ; (XLIB/GL::BYTES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD8 :RESULT-TYPE '# :INDEX 32 ; :LENGTH LENGTH))) ; (DECLARE (TYPE (SIMPLE-ARRAY XLIB:CARD8 #) XLIB/GL::BYTES) ; (TYPE FIXNUM LENGTH)) ; (MAP-INTO (MAKE-STRING (1- LENGTH)) #'CODE-CHAR XLIB/GL::BYTES))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN NEW-LIST ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GL::+NEW-LIST+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (XLIB:CARD32 LIST) ; (XLIB:CARD32 XLIB/GL::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GEN-LISTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+GEN-LISTS+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (INTEGER XLIB/GL::RANGE)) ; (XLIB::CARD32-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN END-LIST ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GL::+END-LIST+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ENABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+ENABLE+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (XLIB:CARD32 XLIB/GL::CAP))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FLUSH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GL::+FLUSH+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FINISH ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+FINISH+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/gl-tmpD68Q8WCA.fasl ; compilation finished in 0:00:01.228 ; compiling file "/usr/share/common-lisp/source/clx/extensions/dpms.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/dpms.lisp ; in: DEFUN DPMS-GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+GET-VERSION+) ; (XLIB:CARD16 XLIB/DPMS::MAJOR-VERSION) ; (XLIB:CARD16 XLIB/DPMS::MINOR-VERSION)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-CAPABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+CAPABLE+)) ; (XLIB::BOOLEAN-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-GET-TIMEOUTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+GET-TIMEOUTS+)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10) (XLIB::CARD16-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-SET-TIMEOUTS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/DPMS::+SET-TIMEOUTS+) ; (XLIB:CARD16 XLIB/DPMS::STANDBY) ; (XLIB:CARD16 XLIB/DPMS::SUSPEND) ; (XLIB:CARD16 XLIB/DPMS::OFF) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-ENABLE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/DPMS::+ENABLE+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-DISABLE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; ((XLIB::DATA XLIB/DPMS::+DISABLE+))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-FORCE-LEVEL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/DPMS::+FORCE-LEVEL+) ; (XLIB:CARD16 ; (ECASE XLIB/DPMS::POWER-LEVEL ; (:DPMS-MODE-ON 0) ; (:DPMS-MODE-STANDBY 1) ; (:DPMS-MODE-SUSPEND 2) ; (:DPMS-MODE-OFF 3))) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+INFO+)) ; (LET ((XLIB/DPMS::STATE ; (IF # ; :DPMS-ENABLED ; :DPMS-DISABLED))) ; (VALUES (UNLESS (EQ XLIB/DPMS::STATE :DPMS-DISABLED) (ECASE # # # # #)) ; XLIB/DPMS::STATE))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/dpms-tmp7MK9KM9C.fasl ; compilation finished in 0:00:00.052 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xtest.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/xtest.lisp ; in: DEFUN GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/XTEST::OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB/XTEST::+GET-VERSION+) (XLIB:CARD8 XLIB/XTEST::MAJOR) ; (XLIB:CARD16 XLIB/XTEST::MINOR)) ; (VALUES (XLIB::CARD8-GET 1) (XLIB::CARD16-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPARE-CURSOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/XTEST::OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB/XTEST::+COMPARE-CURSOR+) ; (XLIB:RESOURCE-ID (XLIB:WINDOW-ID XLIB:WINDOW)) ; (XLIB:RESOURCE-ID XLIB:CURSOR-ID)) ; (VALUES (XLIB::CARD8-GET 1))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FAKE-MOTION-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 XLIB/XTEST::+FAKE-MOTION-NOTIFY+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::RELATIVE ; 1 ; 0)) ; (XLIB/XTEST::PAD16 0) ; (XLIB:CARD32 XLIB/XTEST::DELAY) ; (XLIB:CARD32 XLIB/XTEST::ROOT-WINDOW-ID) ; (XLIB/XTEST::PAD32 0 0) ; (XLIB:CARD16 XLIB/XTEST::X) ; (XLIB:CARD16 XLIB/XTEST::Y) ; (XLIB/XTEST::PAD32 0 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FAKE-BUTTON-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::PRESSED ; XLIB/XTEST::+FAKE-BUTTON-PRESS+ ; XLIB/XTEST::+FAKE-BUTTON-RELEASE+)) ; (XLIB:CARD8 XLIB/XTEST::BUTTON) ; (XLIB/XTEST::PAD16 0) ; (XLIB:CARD32 XLIB/XTEST::DELAY) ; (XLIB/XTEST::PAD32 0 0 0 0 0 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FAKE-KEY-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::PRESSED ; XLIB/XTEST::+FAKE-KEY-PRESS+ ; XLIB/XTEST::+FAKE-KEY-RELEASE+)) ; (XLIB:CARD8 XLIB/XTEST::KEYCODE) ; (XLIB/XTEST::PAD16 0) ; (XLIB:CARD32 XLIB/XTEST::DELAY) ; (XLIB/XTEST::PAD32 0 0 0 0 0 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+GRAB-CONTROL+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::GRAB? ; 1 ; 0)) ; (XLIB/XTEST::PAD8 0) ; (XLIB/XTEST::PAD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xtest-tmpJJ71X849.fasl ; compilation finished in 0:00:00.052 ; compiling file "/usr/share/common-lisp/source/clx/extensions/screensaver.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/screensaver.lisp ; in: DEFUN SCREEN-SAVER-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "MIT-SCREEN-SAVER") ; NIL) ; ((XLIB::DATA 0) (XLIB:CARD8 1) (XLIB:CARD8 0) (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/screensaver-tmp1VUK6SR2.fasl ; compilation finished in 0:00:00.016 ; compiling file "/usr/share/common-lisp/source/clx/extensions/randr.lisp" (written 27 DEC 2022 07:29:08 AM): ; file: /usr/share/common-lisp/source/clx/extensions/randr.lisp ; in: DEFUN RR-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (32)) ; ((XLIB::DATA XLIB::+RR-QUERYVERSION+) (XLIB:CARD32 XLIB::+RR-MAJOR+) ; (XLIB:CARD32 XLIB::+RR-MINOR+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-SCREEN-CONFIG ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (16 32)) ; ((XLIB::DATA XLIB::+RR-SETSCREENCONFIG+) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB:TIMESTAMP) (XLIB:CARD32 XLIB::CONF-TIMESTAMP) ; (XLIB:CARD16 XLIB::SIZE-ID) (XLIB:CARD16 XLIB::ROT-MASK) ; (XLIB:CARD16 XLIB::REFRESH) (XLIB::PAD16)) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) (XLIB::WINDOW-GET 16) ; (XLIB::MEMBER16-VECTOR-GET 20 XLIB::+RENDER-SUBPIXEL-ORDER+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SELECT-INPUT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SELECTINPUT+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 XLIB::SELECT-MASK) ; (XLIB::PAD16)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-SCREEN-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETSCREENINFO+) (XLIB:WINDOW XLIB:WINDOW)) ; (LET ((XLIB::NUM-SCREENS (XLIB::CARD16-GET 20)) ; (XLIB::NUM-RATES (XLIB::CARD16-GET 28)) ; (XLIB::RATES-LOCATION 0)) ; (DECLARE (TYPE FIXNUM XLIB::RATES-LOCATION XLIB::NUM-RATES)) ; (VALUES (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 1)) ; (XLIB::WINDOW-GET 8) (XLIB::CARD32-GET 12) (XLIB::CARD32-GET 16) ; (XLIB::CARD16-GET 22) ; (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 24)) ; (XLIB::CARD16-GET 26) ; (LOOP :FOR XLIB::X FIXNUM :FROM 1 :TO XLIB::NUM-SCREENS ; :FOR XLIB::OFFSET FIXNUM := ...) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH XLIB::NUM-RATES ; :INDEX XLIB::RATES-LOCATION :RESULT-TYPE ; XLIB::RESULT-TYPE)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-SCREEN-SIZE-RANGE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (16)) ; ((XLIB::DATA XLIB::+RR-GETSCREENSIZERANGE+) (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH 4 :INDEX 8 :RESULT-TYPE ; XLIB::RESULT-TYPE))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-SCREEN-SIZE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETSCREENSIZE+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 XLIB::WIDTH) ; (XLIB:CARD16 XLIB::HEIGHT) ; (XLIB:CARD32 XLIB::WIDTH-MM) ; (XLIB:CARD32 XLIB::HEIGHT-MM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-SCREEN-RESOURCES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETSCREENRESOURCES+) (XLIB:WINDOW XLIB:WINDOW)) ; (LET* ((XLIB::NUM-CRTCS (XLIB::CARD16-GET 16)) ; (XLIB::NUM-OUTPUTS (XLIB::CARD16-GET 18)) ; (XLIB::OUTPUT-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #)) ; (XLIB::NUM-MODEINFOS (XLIB::CARD16-GET 20)) ; (XLIB::NAME-BYTES (XLIB::CARD16-GET 22)) ; (XLIB::MODE-START (XLIB::INDEX+ XLIB::OUTPUT-START #)) ; (XLIB::NAME-START (XLIB::INDEX+ XLIB::MODE-START #))) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX 32 :LENGTH ; XLIB::NUM-CRTCS) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX XLIB::OUTPUT-START ; :LENGTH XLIB::NUM-OUTPUTS) ; (LOOP :FOR XLIB::I FIXNUM :FROM 1 :TO XLIB::NUM-MODEINFOS ; :FOR XLIB::OFFSET FIXNUM := ...) ; (XLIB::STRING-GET XLIB::NAME-BYTES XLIB::NAME-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-OUTPUT-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETOUTPUTINFO+) (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; (LET* ((XLIB::NUM-CRTCS (XLIB::CARD16-GET 26)) ; (XLIB::NUM-MODES (XLIB::CARD16-GET 28)) ; (XLIB::NUM-CLONES (XLIB::CARD16-GET 32)) ; (XLIB::NAME-LENGTH (XLIB::CARD16-GET 34)) ; (XLIB::CRTC-START 26) ; (XLIB::MODE-START (XLIB::INDEX+ XLIB::CRTC-START #)) ; (XLIB::CLONE-START (XLIB::INDEX+ XLIB::MODE-START #)) ; (XLIB::NAME-START (XLIB::INDEX+ XLIB::CLONE-START #))) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) (XLIB::CARD32-GET 16) ; (XLIB::CARD32-GET 20) ; (XLIB::MEMBER8-VECTOR-GET 24 XLIB::+RR-CONNECTION+) ; (XLIB::MEMBER8-VECTOR-GET 25 XLIB::+RENDER-SUBPIXEL-ORDER+) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::NUM-CRTCS :INDEX 26) ; (XLIB::CARD16-GET 30) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::NUM-MODES :INDEX XLIB::MODE-START) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::NUM-CLONES :INDEX XLIB::CLONE-START) ; ...))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-LIST-OUTPUT-PROPERTIES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-LISTOUTPUTPROPERTIES+) (XLIB:CARD32 XLIB::OUTPUT)) ; (LET ((XLIB::NUM-ATOMS (XLIB::CARD16-GET 8))) ; (VALUES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE XLIB::RESULT-TYPE ; :LENGTH XLIB::NUM-ATOMS :INDEX XLIB::+REPLYSIZE+ ; :TRANSFORM #'(LAMBDA # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-QUERY-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-QUERYOUTPUTPROPERTY+) (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM)) ; (VALUES (XLIB::BOOLEAN-GET 8) (XLIB::BOOLEAN-GET 9) (XLIB::BOOLEAN-GET 10) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :INDEX ; XLIB::+REPLYSIZE+ :LENGTH ; (XLIB::CARD32-GET 4)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-CONFIGURE-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-CONFIGUREOUTPUTPROPERTY+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM) ; (BOOLEAN XLIB::PENDING XLIB::RANGE) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-CHANGE-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-CHANGEOUTPUTPROPERTY+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM) ; (XLIB:CARD32 XLIB::ATOM-TYPE) ; (XLIB:CARD8 32) ; (XLIB:CARD8 XLIB::MODE) ; (XLIB::PAD16) ; (XLIB:CARD32 XLIB::DATA-LENGTH) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-DELETE-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-DELETEOUTPUTPROPERTY+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETOUTPUTPROPERTY+) (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM) (XLIB:CARD32 TYPE) (XLIB:CARD32 0) (XLIB:CARD32 0) ; (XLIB:CARD8 DELETE) (XLIB:CARD8 XLIB::PENDING) (XLIB::PAD16)) ; (LET* ((XLIB::BYTES-AFTER (XLIB::CARD32-GET 12)) ; (XLIB::VALUE-LENGTH (XLIB::CARD32-GET 16)) ; (XLIB::BYTE-FORMAT (UNLESS # #))) ; (VALUES (XLIB::CARD32-GET 8) XLIB::VALUE-LENGTH ; (WHEN (NOT #) (CASE XLIB::BYTE-FORMAT # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-CREATE-MODE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-CREATEMODE+) (XLIB:WINDOW XLIB:WINDOW) ; (PROGN ; (XLIB::RR-MODE-INFO-PUT 8 XLIB:MODE-INFO) ; (XLIB::STRING-PUT 40 XLIB::NAME))) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-DESTROY-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-DESTROYMODE+) ; (XLIB:CARD32 XLIB::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-ADD-OUTPUT-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-ADDOUTPUTMODE+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 XLIB::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-DELETE-OUTPUT-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-DELETEOUTPUTMODE+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 XLIB::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-CRTC-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCINFO+) (XLIB:CARD32 XLIB::CRTC) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; (LET* ((XLIB::NUM-OUTPUTS (XLIB::CARD16-GET 28)) ; (XLIB::POS-OUTPUTS (XLIB::CARD16-GET 30)) ; (XLIB::POS-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #))) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8) (XLIB::INT16-GET 12) (XLIB::INT16-GET 14) ; (XLIB::CARD16-GET 16) (XLIB::CARD16-GET 18) (XLIB::CARD32-GET 20) ; (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 24)) ; (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 26)) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :INDEX ; XLIB::+REPLYSIZE+ :LENGTH XLIB::NUM-OUTPUTS) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :INDEX ; XLIB::POS-START :LENGTH XLIB::POS-OUTPUTS)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-CRTC-CONFIG ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-SETCRTCCONFIG+) (XLIB:CARD32 XLIB::CRTC) ; (XLIB:CARD32 XLIB:TIMESTAMP) (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP) ; (XLIB:CARD16 XLIB::X) (XLIB:CARD16 XLIB::Y) (XLIB:CARD32 XLIB::MODE) ; (XLIB:CARD16 XLIB::ROT-MASK) (XLIB::PAD16) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-CRTC-GAMMA-SIZE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCGAMMASIZE+) (XLIB:CARD32 XLIB::CRTC)) ; (VALUES (XLIB::CARD16-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-CRTC-GAMMA ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCGAMMA+) (XLIB:CARD32 XLIB::CRTC)) ; (LET* ((XLIB::SIZE (XLIB::CARD16-GET 8)) ; (XLIB::GREEN-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #)) ; (XLIB::BLUE-START (XLIB::INDEX+ XLIB::GREEN-START #))) ; (VALUES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH XLIB::SIZE :INDEX ; XLIB::+REPLYSIZE+ :RESULT-TYPE XLIB::RESULT-TYPE) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH XLIB::SIZE :INDEX ; XLIB::GREEN-START :RESULT-TYPE XLIB::RESULT-TYPE) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH XLIB::SIZE :INDEX ; XLIB::BLUE-START :RESULT-TYPE XLIB::RESULT-TYPE)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-CRTC-GAMMA ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETCRTCGAMMA+) ; (XLIB:CARD32 XLIB::CRTC) ; (XLIB:CARD16 XLIB::SIZE) ; (XLIB::PAD16) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-SCREEN-RESOURCES-CURRENT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETSCREENRESOURCESCURRENT+) ; (XLIB:WINDOW XLIB:WINDOW)) ; (LET* ((XLIB::NUM-CRTCS (XLIB::CARD16-GET 16)) ; (XLIB::NUM-OUTPUTS (XLIB::CARD16-GET 18)) ; (XLIB::OUTPUT-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #)) ; (XLIB::NUM-MODEINFOS (XLIB::CARD16-GET 20)) ; (XLIB::NAME-BYTES (XLIB::CARD16-GET 22)) ; (XLIB::MODE-START (XLIB::INDEX+ XLIB::OUTPUT-START #)) ; (XLIB::NAME-START (XLIB::INDEX+ XLIB::MODE-START #))) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX 32 :LENGTH ; XLIB::NUM-CRTCS) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX XLIB::OUTPUT-START ; :LENGTH XLIB::NUM-OUTPUTS) ; (LOOP :FOR XLIB::I FIXNUM :FROM 1 :TO XLIB::NUM-MODEINFOS ; :FOR XLIB::OFFSET FIXNUM := ...) ; (XLIB::STRING-GET XLIB::NAME-BYTES XLIB::NAME-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-CRTC-TRANSFORM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCTRANSFORM+) (XLIB:CARD32 XLIB::CRTC)) ; (LET* ((XLIB::PEND-NAME (XLIB::CARD16-GET 88)) ; (XLIB::PEND-NUM-PARAMS (XLIB::CARD16-GET 90)) ; (XLIB::PAD-PEND (- 4 #)) ; (XLIB::PAD-PEND-START ; (XLIB::INDEX+ 96 XLIB::PEND-NAME XLIB::PAD-PEND)) ; (XLIB::CUR-NAME (XLIB::CARD16-GET 92)) ; (XLIB::CUR-NUM-PARAMS (XLIB::CARD16-GET 94)) ; (XLIB::PAD-CUR (- 4 #)) ; (XLIB::CUR-NAME-START (XLIB::INDEX+ XLIB::PAD-PEND-START #)) ; (XLIB::CUR-PARAM-START ; (XLIB::INDEX+ XLIB::CUR-NAME-START XLIB::CUR-NAME XLIB::PAD-CUR))) ; (DECLARE (TYPE XLIB:CARD16 XLIB::PEND-NAME XLIB::CUR-NAME)) ; (VALUES (XLIB::RR-TRANSFORM-GET 8) (XLIB::CARD8-GET 44) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH 9 ; :INDEX 48) ; (XLIB::STRING-GET XLIB::PEND-NAME 96) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::PEND-NUM-PARAMS :INDEX ; XLIB::PAD-PEND-START) ; (XLIB::STRING-GET XLIB::CUR-NAME XLIB::CUR-NAME-START) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::CUR-NUM-PARAMS :INDEX ; XLIB::CUR-PARAM-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-OUTPUT-PRIMARY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETOUTPUTPRIMARY+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::OUTPUT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-OUTPUT-PRIMARY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETOUTPUTPRIMARY+) (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-PROVIDERS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETPROVIDERS+) (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD16-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-PROVIDER-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETPROVIDERINFO+) (XLIB:CARD32 XLIB::PROVIDER) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) (XLIB::CARD16-GET 16) ; (XLIB::CARD16-GET 18) (XLIB::CARD16-GET 20) ; (XLIB::STRING-GET (XLIB::CARD16-GET 22) 56))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-PROVIDER-OUTPUT-SOURCE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETPROVIDEROUTPUTSOURCE+) ; (XLIB:CARD32 XLIB::PROVIDER) ; (XLIB:CARD32 XLIB::SOURCE-PROVIDER) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-PROVIDER-OFFLOAD-SINK ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETPROVIDEROFFLOADSINK+) ; (XLIB:CARD32 XLIB::PROVIDER) ; (XLIB:CARD32 XLIB::SINK-PROVIDER) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-LIST-PROVIDER-PROPERTIES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-LISTPROVIDERPROPERTIES+) ; (XLIB:CARD32 XLIB::PROVIDER)) ; (VALUES (XLIB::CARD32-GET 4) (XLIB::CARD16-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/randr-tmpR2FIHSUG.fasl ; compilation finished in 0:00:00.448 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xinerama.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 ...))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xinerama-tmp8PYELRKX.fasl ; compilation finished in 0:00:00.100 ; compiling file "/usr/share/common-lisp/source/clx/extensions/dbe.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/dbe.lisp ; in: DEFUN CREATE-BACK-BUFFER ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB::BB 'XLIB::BACK-BUFFER) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN DBE-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER") ; NIL) ; ((XLIB::DATA XLIB::+QUERY-VERSION+) (XLIB:CARD8 XLIB::+DBE-MAJOR+) ; (XLIB:CARD8 XLIB::+DBE-MINOR+)) ; (VALUES (XLIB::CARD8-GET 8) (XLIB::CARD8-GET 9))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-ALLOCATE-BACK-BUFFER-NAME ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+ALLOCATE-BACK-BUFFER-NAME+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:DRAWABLE XLIB::BACK-BUFFER) ; (XLIB:CARD8 XLIB::SWAP-HINT) ; (XLIB::PAD8) ; (XLIB::PAD16)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-DEALLOCATE-BACK-BUFFER-NAME ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+DEALLOCATE-BACK-BUFFER-NAME+) ; (XLIB:DRAWABLE XLIB::BACK-BUFFER)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-SWAP-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+SWAP-BUFFERS+) ; (XLIB:CARD32 XLIB::NUM) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-BEGIN-IDIOM ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+BEGIN-IDIOM+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-END-IDIOM ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+END-IDIOM+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-GET-VISUAL-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER") ; NIL :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-VISUAL-INFO+) (XLIB:CARD32 XLIB::NUM) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::WL)) ; (VALUES ; (LET ((XLIB::NUM #) (XLIB::NEXT 32) (XLIB::RESULT-LIST NIL)) ; (DECLARE (TYPE FIXNUM XLIB::NUM XLIB::NEXT)) ; (DOTIMES (XLIB::I XLIB::NUM #) (PUSH # XLIB::RESULT-LIST))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-GET-BACK-BUFFER-ATTRIBUTES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER") ; NIL :SIZES 32) ; ((XLIB::DATA XLIB::+GET-BACK-BUFFER-ATTRIBUTES+) ; (XLIB:DRAWABLE XLIB::BACK-BUFFER)) ; (VALUES (XLIB::OR-GET 8 NULL XLIB:WINDOW))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/dbe-tmpEHTOKYT0.fasl ; compilation finished in 0:00:00.080 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xc-misc.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/xc-misc.lisp ; in: DEFUN XC-GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::XC-OPCODE XLIB:DISPLAY) NIL ; :SIZES (16)) ; ((XLIB::DATA XLIB::+XC-GET-VERSION+) (XLIB:CARD16 XLIB::+XC-MAJOR+) ; (XLIB:CARD16 XLIB::+XC-MINOR+)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XC-GET-XID-RANGE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::XC-OPCODE XLIB:DISPLAY) NIL ; :SIZES (32)) ; ((XLIB::DATA XLIB::+XC-GET-XID-RANGE+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XC-GET-XID-LIST ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::XC-OPCODE XLIB:DISPLAY) NIL ; :SIZES (32)) ; ((XLIB::DATA XLIB::+XC-GET-XID-LIST+) (XLIB:CARD32 COUNT)) ; (LET ((XLIB::NUM (XLIB::CARD32-GET 8))) ; (VALUES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE XLIB::RESULT-TYPE ; :LENGTH XLIB::NUM :INDEX 32)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xc-misc-tmpS6U1VHI9.fasl ; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/clx/extensions/dri2.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/dri2.lisp ; in: DEFUN DRI2-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-QUERY-VERSION+) (XLIB:CARD32 XLIB::+DRI-MAJOR+) ; (XLIB:CARD32 XLIB::+DRI-MINOR+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-CONNECT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-CONNECT+) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::DRIVER-TYPE)) ; (LET* ((XLIB::DRIVER-NAME-LENGTH (XLIB::CARD32-GET 8)) ; (XLIB::DEVICE-NAME-LENGTH (XLIB::CARD32-GET 12)) ; (XLIB::DEVICE-START (+ 32 #))) ; (VALUES (XLIB::STRING-GET XLIB::DRIVER-NAME-LENGTH 32) ; (XLIB::STRING-GET XLIB::DEVICE-NAME-LENGTH XLIB::DEVICE-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-AUTHENTICATE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-AUTHENTICATE+) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::TOKEN)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-CREATE-DRAWABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-CREATE-DRAWABLE+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-DESTROY-DRAWABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; NIL ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-GET-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-BUFFERS+) (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD32 XLIB::LEN) ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; (VALUES (XLIB::CARD32-GET 16) (XLIB::CARD32-GET 12) (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-COPY-REGION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-COPY-REGION+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-GET-BUFFERS-WITH-FORMAT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-BUFFERS-WITH-FORMAT+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-SWAP-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-SWAP-BUFFERS+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-GET-MSC ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-MSC+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-WAIT-MSC ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-WAIT-MSC+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-SWAP-INTERVAL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::DRI2-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+DRI2-SWAP-INTERVAL+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-GET-PARAM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-PARAM+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/dri2-tmpVTFK6ZJW.fasl ; compilation finished in 0:00:00.228 ; compiling file "/usr/share/common-lisp/source/clx/extensions/composite.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/composite.lisp ; in: DEFUN COMPOSITE-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY) ; NIL :SIZES (32)) ; ((XLIB::DATA XLIB::+COMPOSITE-QUERYVERSION+) ; (XLIB:CARD32 XLIB::+COMPOSITE-MAJOR+) ; (XLIB:CARD32 XLIB::+COMPOSITE-MINOR+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-REDIRECT-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-REDIRECTWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD8 XLIB::UPDATE-TYPE) ; (XLIB:CARD8 0) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-REDIRECT-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-REDIRECTSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD8 XLIB::UPDATE-TYPE) ; (XLIB:CARD8 0) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-UNREDIRECT-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-UNREDIRECTWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-UNREDIRECT-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-UNREDIRECTSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-CREATE-REGION-FROM-BORDER-CLIP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-CREATEREGIONFROMBORDERCLIP+) ; (XLIB:CARD32 XLIB::REGION) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-NAME-WINDOW-PIXMAP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-NAMEWINDOWPIXMAP+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:DRAWABLE XLIB:DRAWABLE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-GET-OVERLAY-WINDOW ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY) ; NIL :SIZES (32)) ; ((XLIB::DATA XLIB::+COMPOSITE-GETOVERLAYWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-RELEASE-OVERLAY-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-RELEASEOVERLAYWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/composite-tmp75WVSJEW.fasl ; compilation finished in 0:00:00.076 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/package.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/package-tmpBU5UM3S4.fasl ; compilation finished in 0:00:00.000 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/dynamic-mixins.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/dynamic-mixins-tmpOBHVA3CD.fasl ; compilation finished in 0:00:00.040 ; compiling file "/build/reproducible-path/stumpwm-22.11/package.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/package-tmpJ6ELVFLF.fasl ; compilation finished in 0:00:00.004 ; compiling file "/build/reproducible-path/stumpwm-22.11/debug.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/debug-tmpULDB0RG.fasl ; compilation finished in 0:00:00.012 ; compiling file "/build/reproducible-path/stumpwm-22.11/primitives.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/primitives-tmpUTZ0UUTE.fasl ; compilation finished in 0:00:00.284 ; compiling file "/build/reproducible-path/stumpwm-22.11/wrappers.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/wrappers-tmpOOSRA8PZ.fasl ; compilation finished in 0:00:00.072 ; compiling file "/build/reproducible-path/stumpwm-22.11/pathnames.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/pathnames-tmpDMIL0RVK.fasl ; compilation finished in 0:00:00.004 ; compiling file "/build/reproducible-path/stumpwm-22.11/font-rendering.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/font-rendering-tmp8MR9IMIO.fasl ; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/keysyms.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/keysyms-tmpJQDKAVAY.fasl ; compilation finished in 0:00:00.112 ; compiling file "/build/reproducible-path/stumpwm-22.11/keytrans.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/keytrans-tmp3I8CEEQY.fasl ; compilation finished in 0:00:00.008 ; compiling file "/build/reproducible-path/stumpwm-22.11/kmap.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/kmap-tmpA3RHFLWZ.fasl ; compilation finished in 0:00:00.080 ; compiling file "/build/reproducible-path/stumpwm-22.11/input.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/input-tmpYZIB7VXO.fasl ; compilation finished in 0:00:00.364 ; compiling file "/build/reproducible-path/stumpwm-22.11/core.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/core-tmpR8PK79V8.fasl ; compilation finished in 0:00:00.012 ; compiling file "/build/reproducible-path/stumpwm-22.11/command.lisp" (written 22 NOV 2022 12:13:18 AM): ; file: /build/reproducible-path/stumpwm-22.11/command.lisp ; in: DEFUN ARGUMENT-POP ; (LOOP STUMPWM::FOR STUMPWM::I STUMPWM::FROM STUMPWM::START STUMPWM::BELOW (LENGTH ; STUMPWM::INPUT) ; STUMPWM::FOR CHAR = (CHAR STUMPWM::INPUT STUMPWM::I) ; DO ...) ; --> LET LET TAGBODY ; ==> ; NIL ; ; caught STYLE-WARNING: ; The binding of I is not a REAL: ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/command-tmpN1ZVB1HZ.fasl ; compilation finished in 0:00:00.232 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/build/reproducible-path/stumpwm-22.11/menu-declarations.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/menu-declarations-tmpZGRRPISB.fasl ; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/menu-definitions.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/menu-definitions-tmpFNKDE5XP.fasl ; compilation finished in 0:00:00.088 ; compiling file "/build/reproducible-path/stumpwm-22.11/screen.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/screen-tmpRJTU435C.fasl ; compilation finished in 0:00:00.104 ; compiling file "/build/reproducible-path/stumpwm-22.11/head.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/head-tmpI9WG87JK.fasl ; compilation finished in 0:00:00.024 ; compiling file "/build/reproducible-path/stumpwm-22.11/group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/group-tmpYDE6I9E6.fasl ; compilation finished in 0:00:00.084 ; compiling file "/build/reproducible-path/stumpwm-22.11/bindings.lisp" (written 27 MAR 2026 11:19:33 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/bindings-tmp319UV2V8.fasl ; compilation finished in 0:00:00.024 ; compiling file "/build/reproducible-path/stumpwm-22.11/events.lisp" (written 22 NOV 2022 12:13:18 AM): ; file: /build/reproducible-path/stumpwm-22.11/events.lisp ; in: DEFUN SCROLL-BUTTON-KEYWORD-P ; (EQ STUMPWM::BUTTON :WHEEL-RIGHT) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/events-tmpLYQINFYS.fasl ; compilation finished in 0:00:00.164 ; compiling file "/build/reproducible-path/stumpwm-22.11/window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/window-tmpGA31XWNO.fasl ; compilation finished in 0:00:00.208 ; compiling file "/build/reproducible-path/stumpwm-22.11/floating-group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/floating-group-tmp5HT23M6C.fasl ; compilation finished in 0:00:00.176 ; compiling file "/build/reproducible-path/stumpwm-22.11/tile-window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tile-window-tmpA60KLDKY.fasl ; compilation finished in 0:00:00.072 ; compiling file "/build/reproducible-path/stumpwm-22.11/tile-group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tile-group-tmpD801X3GJ.fasl ; compilation finished in 0:00:00.432 WARNING: redefining STUMPWM::ORPHANED-FRAMES in DEFUN ; compiling file "/build/reproducible-path/stumpwm-22.11/window-placement.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/window-placement-tmpGOW1GC70.fasl ; compilation finished in 0:00:00.132 ; compiling file "/build/reproducible-path/stumpwm-22.11/message-window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/message-window-tmpPQ1X28TL.fasl ; compilation finished in 0:00:00.056 ; compiling file "/build/reproducible-path/stumpwm-22.11/selection.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/selection-tmpE92ECU7O.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/module.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/module-tmp8S0II570.fasl ; compilation finished in 0:00:00.012 ; compiling file "/build/reproducible-path/stumpwm-22.11/ioloop.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/ioloop-tmpJE88A12F.fasl ; compilation finished in 0:00:00.168 ; compiling file "/build/reproducible-path/stumpwm-22.11/timers.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/timers-tmpA5FNLPLT.fasl ; compilation finished in 0:00:00.024 ; compiling file "/build/reproducible-path/stumpwm-22.11/stumpwm.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/stumpwm-tmpHKCV9TP8.fasl ; compilation finished in 0:00:00.072 ; compiling file "/build/reproducible-path/stumpwm-22.11/user.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/user-tmpZ18MA7XE.fasl ; compilation finished in 0:00:00.112 ; compiling file "/build/reproducible-path/stumpwm-22.11/interactive-keymap.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/interactive-keymap-tmp6LQJ9T0C.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/iresize.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/iresize-tmpTX7OA81T.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/help.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/help-tmpWOTC3PB7.fasl ; compilation finished in 0:00:00.224 ; compiling file "/build/reproducible-path/stumpwm-22.11/fdump.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/fdump-tmpHQE95SAC.fasl ; compilation finished in 0:00:00.112 ; compiling file "/build/reproducible-path/stumpwm-22.11/time.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/time-tmpO87FP9NR.fasl ; compilation finished in 0:00:00.044 ; compiling file "/build/reproducible-path/stumpwm-22.11/mode-line.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/mode-line-tmpP6A3E92I.fasl ; compilation finished in 0:00:00.072 ; compiling file "/build/reproducible-path/stumpwm-22.11/mode-line-formatters.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/mode-line-formatters-tmpUSHT8RIL.fasl ; compilation finished in 0:00:00.056 ; compiling file "/build/reproducible-path/stumpwm-22.11/color.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/color-tmp7YCPD44Y.fasl ; compilation finished in 0:00:00.084 ; compiling file "/build/reproducible-path/stumpwm-22.11/wse.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/wse-tmpQXR7SNXD.fasl ; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-window-tmp6FLI1OC3.fasl ; compilation finished in 0:00:00.008 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-group-tmpWBK8JTS9.fasl ; compilation finished in 0:00:00.372 ; compiling file "/build/reproducible-path/stumpwm-22.11/remap-keys.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/remap-keys-tmpUVEUD2ZN.fasl ; compilation finished in 0:00:00.012 ; compiling file "/build/reproducible-path/stumpwm-22.11/manual.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/manual-tmpOWNJOEU.fasl ; compilation finished in 0:00:00.028 ; compiling file "/build/reproducible-path/stumpwm-22.11/minor-modes.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/minor-modes-tmpVT5BMTA5.fasl ; compilation finished in 0:00:00.304 ; compiling file "/build/reproducible-path/stumpwm-22.11/replace-class.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/replace-class-tmpN3CFVWZF.fasl ; compilation finished in 0:00:00.020 WARNING: redefining DYNAMIC-MIXINS:REPLACE-CLASS in DEFGENERIC ; compiling file "/build/reproducible-path/stumpwm-22.11/version.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/version-tmpNK27C0R1.fasl ; compilation finished in 0:00:00.000 ; ; compilation unit finished ; caught 8 STYLE-WARNING conditions ; printed 1501 notes WARNING: System definition file #P"/usr/share/common-lisp/source/fiasco/fiasco.asd" contains definition for system "fiasco-self-tests". Please only define "fiasco" and secondary systems with a name starting with "fiasco/" (e.g. "fiasco/test") in that file. ; compiling file "/usr/share/common-lisp/source/cl-trivial-gray-streams/package.lisp" (written 17 FEB 2024 06:10:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-trivial-gray-streams/package-tmp3BPE71HR.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/cl-trivial-gray-streams/streams.lisp" (written 17 FEB 2024 06:10:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-trivial-gray-streams/streams-tmp758YUXMV.fasl ; compilation finished in 0:00:00.024 ; compiling file "/usr/share/common-lisp/source/fiasco/src/package.lisp" (written 14 MAY 2020 04:10:55 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/fiasco/src/package-tmpGMQXK1HK.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/fiasco/src/streams.lisp" (written 14 MAY 2020 04:10:55 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/fiasco/src/streams-tmp49Q238TW.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/fiasco/src/infrastructure.lisp" (written 14 MAY 2020 04:10:55 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/fiasco/src/infrastructure-tmpMXPMJ5KG.fasl ; compilation finished in 0:00:00.252 ; compiling file "/usr/share/common-lisp/source/fiasco/src/asserts.lisp" (written 14 MAY 2020 04:10:55 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/fiasco/src/asserts-tmpB69313KI.fasl ; compilation finished in 0:00:00.032 ; compiling file "/usr/share/common-lisp/source/fiasco/src/test.lisp" (written 14 MAY 2020 04:10:55 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/fiasco/src/test-tmp9ZT99EEA.fasl ; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/fiasco/src/suite.lisp" (written 14 MAY 2020 04:10:55 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/fiasco/src/suite-tmpW045U8V2.fasl ; compilation finished in 0:00:00.112 ; compiling file "/build/reproducible-path/stumpwm-22.11/tests/package.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tests/package-tmp6XOIRI3N.fasl ; compilation finished in 0:00:00.024 ; compiling file "/build/reproducible-path/stumpwm-22.11/tests/kmap.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tests/kmap-tmp9ZHTLHSG.fasl ; compilation finished in 0:00:00.024 ; compiling file "/build/reproducible-path/stumpwm-22.11/tests/pathnames.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tests/pathnames-tmpRW73Q691.fasl ; compilation finished in 0:00:00.036 ALL-TESTS (Suite) STUMPWM-TESTS (Suite) TEST-PARSE-KEY........................................................[ OK ] TEST-DIRECTORY-PATHNAME-P.............................................[ OK ] TEST-ENSURE-DIRECTORY-PATHNAME........................................[ OK ] make[1]: Leaving directory '/build/reproducible-path/stumpwm-22.11' create-stamp debian/debhelper-build-stamp dh_prep debian/rules override_dh_install make[1]: Entering directory '/build/reproducible-path/stumpwm-22.11' # 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 cp -f debian/stumpwm.bin stumpwm dh_install -Xmake-image.lisp -Xsample-stumpwmrc.lisp -Xdynamic-mixins/README.md make[1]: Leaving directory '/build/reproducible-path/stumpwm-22.11' 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_22.11-3_all.deb'. dpkg-genbuildinfo --build=binary -O../stumpwm_22.11-3_arm64.buildinfo dpkg-genchanges --build=binary -O../stumpwm_22.11-3_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: not including original 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/2988947 and its subdirectories I: Current time: Thu Mar 26 23:20:53 -12 2026 I: pbuilder-time-stamp: 1774610453 Sat Feb 22 04:57:55 UTC 2025 I: 1st build successful. Starting 2nd build on remote node codethink04-arm64.debian.net. Sat Feb 22 04:57:55 UTC 2025 I: Preparing to do remote build '2' on codethink04-arm64.debian.net. Sat Feb 22 04:57:55 UTC 2025 - checking /var/lib/jenkins/offline_nodes if codethink04-arm64.debian.net is marked as down. Sat Feb 22 04:57:55 UTC 2025 - checking via ssh if codethink04-arm64.debian.net is up. removed '/tmp/read-only-fs-test-Vb38VG' ==================================================================================== Sat Feb 22 04:57:56 UTC 2025 - running /srv/jenkins/bin/reproducible_build.sh (for job /srv/jenkins/bin/reproducible_build.sh) on codethink04-arm64, called using "2 stumpwm unstable /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9 2:22.11-3" as arguments. Sat Feb 22 04:57:56 UTC 2025 - actually running "reproducible_build.sh" (md5sum 68e686e434c9ab7bc3ec047d8b309cbc) as "/tmp/jenkins-script-zMOmcrEl" $ git clone https://salsa.debian.org/qa/jenkins.debian.net.git ; more CONTRIBUTING Sat Feb 22 04:57:56 UTC 2025 I: Downloading source for unstable/stumpwm=2:22.11-3 Reading package lists... NOTICE: 'stumpwm' packaging is maintained in the 'Git' version control system at: https://salsa.debian.org/common-lisp-team/stumpwm.git Please use: git clone https://salsa.debian.org/common-lisp-team/stumpwm.git to retrieve the latest (possibly unreleased) updates to the package. Need to get 295 kB of source archives. Get:1 http://deb.debian.org/debian unstable/main stumpwm 2:22.11-3 (dsc) [2137 B] Get:2 http://deb.debian.org/debian unstable/main stumpwm 2:22.11-3 (tar) [280 kB] Get:3 http://deb.debian.org/debian unstable/main stumpwm 2:22.11-3 (diff) [12.6 kB] Fetched 295 kB in 0s (15.1 MB/s) Download complete and in download only mode Reading package lists... NOTICE: 'stumpwm' packaging is maintained in the 'Git' version control system at: https://salsa.debian.org/common-lisp-team/stumpwm.git Please use: git clone https://salsa.debian.org/common-lisp-team/stumpwm.git to retrieve the latest (possibly unreleased) updates to the package. Need to get 295 kB of source archives. Get:1 http://deb.debian.org/debian unstable/main stumpwm 2:22.11-3 (dsc) [2137 B] Get:2 http://deb.debian.org/debian unstable/main stumpwm 2:22.11-3 (tar) [280 kB] Get:3 http://deb.debian.org/debian unstable/main stumpwm 2:22.11-3 (diff) [12.6 kB] Fetched 295 kB in 0s (15.1 MB/s) Download complete and in download only mode ============================================================================= Re-Building stumpwm in unstable on arm64 on codethink04-arm64 now. Date: Sat Feb 22 04:57:57 GMT 2025 Date UTC: Sat Feb 22 04:57:57 UTC 2025 ============================================================================= ++ mktemp -t pbuilderrc_XXXX --tmpdir=/srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9 + local TMPCFG=/srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/pbuilderrc_LcBL + case ${ARCH} in + case $ARCH in + locale=nl_BE + language=nl + case "${SUITE}" in + reproducible_buildflags=+all + extra_deb_build_options= + case "${SRCPACKAGE}" in + cat + echo BUILDDIR=/build/reproducible-path + '[' stumpwm = debian-installer -o stumpwm = debian-installer-netboot-images ']' + pbuilder_options=() + local pbuilder_options + DEBBUILDOPTS=-b + BINARYTARGET= + '[' stumpwm = u-boot ']' + case "${SRCPACKAGE}" in + PBUILDERTIMEOUT=24 + local PRESULT=0 + sudo timeout -k 24.1h 24h /usr/bin/ionice -c 3 /usr/bin/nice -n 11 /usr/bin/unshare --uts -- /usr/sbin/pbuilder --build --configfile /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/pbuilderrc_LcBL --distribution unstable --hookdir /etc/pbuilder/rebuild-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/unstable-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/b2 --logfile b2/build.log stumpwm_22.11-3.dsc W: /root/.pbuilderrc does not exist I: Logging to b2/build.log I: pbuilder: network access will be disabled during build I: Current time: Sat Feb 22 18:57:57 +14 2025 I: pbuilder-time-stamp: 1740200277 I: Building the build Environment I: extracting base tarball [/var/cache/pbuilder/unstable-reproducible-base.tgz] I: copying local configuration W: --override-config is not set; not updating apt.conf Read the manpage for details. 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_22.11-3.dsc] I: copying [./stumpwm_22.11.orig.tar.gz] I: copying [./stumpwm_22.11-3.debian.tar.xz] I: Extracting source dpkg-source: warning: cannot verify inline signature for ./stumpwm_22.11-3.dsc: unsupported subcommand dpkg-source: info: extracting stumpwm in stumpwm-22.11 dpkg-source: info: unpacking stumpwm_22.11.orig.tar.gz dpkg-source: info: unpacking stumpwm_22.11-3.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 0003-Evaluate-require-and-asdf-separately.patch I: Not using root during the build. I: Installing the build-deps I: user script /srv/workspace/pbuilder/2362652/tmp/hooks/D01_modify_environment starting debug: Running on codethink04-arm64. I: Changing host+domainname to test build reproducibility I: Adding a custom variable just for the fun of it... I: Changing /bin/sh to bash '/bin/sh' -> '/bin/bash' lrwxrwxrwx 1 root root 9 Feb 22 04:58 /bin/sh -> /bin/bash I: Setting pbuilder2's login shell to /bin/bash I: Setting pbuilder2's GECOS to second user,second room,second work-phone,second home-phone,second other I: user script /srv/workspace/pbuilder/2362652/tmp/hooks/D01_modify_environment finished I: user script /srv/workspace/pbuilder/2362652/tmp/hooks/D02_print_environment starting I: set BASH=/bin/sh BASHOPTS=checkwinsize:cmdhist:complete_fullquote:extquote:force_fignore:globasciiranges:globskipdots:hostcomplete:interactive_comments:patsub_replacement:progcomp:promptvars:sourcepath BASH_ALIASES=() BASH_ARGC=() BASH_ARGV=() BASH_CMDS=() BASH_LINENO=([0]="12" [1]="0") BASH_LOADABLES_PATH=/usr/local/lib/bash:/usr/lib/bash:/opt/local/lib/bash:/usr/pkg/lib/bash:/opt/pkg/lib/bash:. BASH_SOURCE=([0]="/tmp/hooks/D02_print_environment" [1]="/tmp/hooks/D02_print_environment") BASH_VERSINFO=([0]="5" [1]="2" [2]="37" [3]="1" [4]="release" [5]="aarch64-unknown-linux-gnu") BASH_VERSION='5.2.37(1)-release' BUILDDIR=/build/reproducible-path BUILDUSERGECOS='second user,second room,second work-phone,second home-phone,second other' BUILDUSERNAME=pbuilder2 BUILD_ARCH=arm64 DEBIAN_FRONTEND=noninteractive DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all parallel=12 ' DIRSTACK=() DISTRIBUTION=unstable EUID=0 FUNCNAME=([0]="Echo" [1]="main") GROUPS=() HOME=/root HOSTNAME=i-capture-the-hostname HOSTTYPE=aarch64 HOST_ARCH=arm64 IFS=' ' INVOCATION_ID=881304142731434c8457b414379121c4 LANG=C LANGUAGE=nl_BE:nl LC_ALL=C MACHTYPE=aarch64-unknown-linux-gnu MAIL=/var/mail/root OPTERR=1 OPTIND=1 OSTYPE=linux-gnu PATH=/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path PBCURRENTCOMMANDLINEOPERATION=build PBUILDER_OPERATION=build PBUILDER_PKGDATADIR=/usr/share/pbuilder PBUILDER_PKGLIBDIR=/usr/lib/pbuilder PBUILDER_SYSCONFDIR=/etc PIPESTATUS=([0]="0") POSIXLY_CORRECT=y PPID=2362652 PS4='+ ' PWD=/ SHELL=/bin/bash SHELLOPTS=braceexpand:errexit:hashall:interactive-comments:posix SHLVL=3 SUDO_COMMAND='/usr/bin/timeout -k 24.1h 24h /usr/bin/ionice -c 3 /usr/bin/nice -n 11 /usr/bin/unshare --uts -- /usr/sbin/pbuilder --build --configfile /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/pbuilderrc_LcBL --distribution unstable --hookdir /etc/pbuilder/rebuild-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/unstable-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/b2 --logfile b2/build.log stumpwm_22.11-3.dsc' SUDO_GID=109 SUDO_UID=104 SUDO_USER=jenkins TERM=unknown TZ=/usr/share/zoneinfo/Etc/GMT-14 UID=0 USER=root _='I: set' http_proxy=http://192.168.101.4:3128 I: uname -a Linux i-capture-the-hostname 6.1.0-31-cloud-arm64 #1 SMP Debian 6.1.128-1 (2025-02-07) aarch64 GNU/Linux I: ls -l /bin lrwxrwxrwx 1 root root 7 Nov 22 14:40 /bin -> usr/bin I: user script /srv/workspace/pbuilder/2362652/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-compat (= 13), autoconf, cl-alexandria, cl-clx-sbcl (>= 0.7.5), cl-fiasco, cl-ppcre, sbcl (>= 2.2.7), 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 ... 19889 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-compat (= 13); however: Package debhelper-compat is not installed. pbuilder-satisfydepends-dummy depends on autoconf; however: Package autoconf is not installed. pbuilder-satisfydepends-dummy depends on cl-alexandria; however: Package cl-alexandria is not installed. pbuilder-satisfydepends-dummy depends on cl-clx-sbcl (>= 0.7.5); however: Package cl-clx-sbcl is not installed. pbuilder-satisfydepends-dummy depends on cl-fiasco; however: Package cl-fiasco is not installed. pbuilder-satisfydepends-dummy depends on cl-ppcre; however: Package cl-ppcre is not installed. pbuilder-satisfydepends-dummy depends on sbcl (>= 2.2.7); 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-alexandria{a} cl-asdf{a} cl-clx-sbcl{a} cl-fiasco{a} cl-ppcre{a} cl-trivial-gray-streams{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} libelf1t64{a} libfile-stripnondeterminism-perl{a} libicu72{a} libmagic-mgc{a} libmagic1t64{a} libpipeline1{a} libproc2-0{a} libtext-charwidth-perl{a} libtext-unidecode-perl{a} libtext-wrapi18n-perl{a} libtool{a} libuchardet0{a} libunistring5{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} procps{a} sbcl{a} sensible-utils{a} tex-common{a} texinfo{a} texinfo-lib{a} ucf{a} The following packages are RECOMMENDED but will NOT be installed: binfmt-support cl-flexi-streams cl-rt curl libarchive-cpio-perl libltdl-dev libmail-sendmail-perl libwww-perl libxml-sax-expat-perl linux-sysctl-defaults lynx psmisc systemd wget 0 packages upgraded, 50 newly installed, 0 to remove and 0 not upgraded. Need to get 34.4 MB of archives. After unpacking 146 MB will be used. Writing extended state information... Get: 1 http://deb.debian.org/debian unstable/main arm64 libproc2-0 arm64 2:4.0.4-7 [62.4 kB] Get: 2 http://deb.debian.org/debian unstable/main arm64 procps arm64 2:4.0.4-7 [868 kB] Get: 3 http://deb.debian.org/debian unstable/main arm64 sensible-utils all 0.0.24 [24.8 kB] Get: 4 http://deb.debian.org/debian unstable/main arm64 libmagic-mgc arm64 1:5.45-3+b1 [314 kB] Get: 5 http://deb.debian.org/debian unstable/main arm64 libmagic1t64 arm64 1:5.45-3+b1 [102 kB] Get: 6 http://deb.debian.org/debian unstable/main arm64 file arm64 1:5.45-3+b1 [43.4 kB] Get: 7 http://deb.debian.org/debian unstable/main arm64 gettext-base arm64 0.23.1-1 [241 kB] Get: 8 http://deb.debian.org/debian unstable/main arm64 libuchardet0 arm64 0.0.8-1+b2 [69.2 kB] Get: 9 http://deb.debian.org/debian unstable/main arm64 groff-base arm64 1.23.0-7 [1129 kB] Get: 10 http://deb.debian.org/debian unstable/main arm64 bsdextrautils arm64 2.40.4-4 [92.1 kB] Get: 11 http://deb.debian.org/debian unstable/main arm64 libpipeline1 arm64 1.5.8-1 [40.2 kB] Get: 12 http://deb.debian.org/debian unstable/main arm64 man-db arm64 2.13.0-1 [1404 kB] Get: 13 http://deb.debian.org/debian unstable/main arm64 libtext-charwidth-perl arm64 0.04-11+b4 [9652 B] Get: 14 http://deb.debian.org/debian unstable/main arm64 libtext-wrapi18n-perl all 0.06-10 [8808 B] Get: 15 http://deb.debian.org/debian unstable/main arm64 ucf all 3.0050 [42.7 kB] Get: 16 http://deb.debian.org/debian unstable/main arm64 m4 arm64 1.4.19-5 [284 kB] Get: 17 http://deb.debian.org/debian unstable/main arm64 autoconf all 2.72-3 [493 kB] Get: 18 http://deb.debian.org/debian unstable/main arm64 autotools-dev all 20220109.1 [51.6 kB] Get: 19 http://deb.debian.org/debian unstable/main arm64 automake all 1:1.17-3 [862 kB] Get: 20 http://deb.debian.org/debian unstable/main arm64 autopoint all 0.23.1-1 [770 kB] Get: 21 http://deb.debian.org/debian unstable/main arm64 cl-alexandria all 20240125.git8514d8e-1 [203 kB] Get: 22 http://deb.debian.org/debian unstable/main arm64 cl-asdf all 2:3.3.7.2-1 [1263 kB] Get: 23 http://deb.debian.org/debian unstable/main arm64 cl-clx-sbcl arm64 0.7.5-1 [375 kB] Get: 24 http://deb.debian.org/debian unstable/main arm64 cl-trivial-gray-streams all 20240217.gita7ead68-1 [9776 B] Get: 25 http://deb.debian.org/debian unstable/main arm64 cl-fiasco all 0.0~git20200514.bb47d2f-3 [15.5 kB] Get: 26 http://deb.debian.org/debian unstable/main arm64 cl-ppcre all 20240427.git80fb19d-1 [110 kB] Get: 27 http://deb.debian.org/debian unstable/main arm64 libdebhelper-perl all 13.24.1 [90.9 kB] Get: 28 http://deb.debian.org/debian unstable/main arm64 libtool all 2.5.4-3 [539 kB] Get: 29 http://deb.debian.org/debian unstable/main arm64 dh-autoreconf all 20 [17.1 kB] Get: 30 http://deb.debian.org/debian unstable/main arm64 libarchive-zip-perl all 1.68-1 [104 kB] Get: 31 http://deb.debian.org/debian unstable/main arm64 libfile-stripnondeterminism-perl all 1.14.1-2 [19.7 kB] Get: 32 http://deb.debian.org/debian unstable/main arm64 dh-strip-nondeterminism all 1.14.1-2 [8620 B] Get: 33 http://deb.debian.org/debian unstable/main arm64 libelf1t64 arm64 0.192-4 [189 kB] Get: 34 http://deb.debian.org/debian unstable/main arm64 dwz arm64 0.15-1+b1 [102 kB] Get: 35 http://deb.debian.org/debian unstable/main arm64 libunistring5 arm64 1.3-1 [449 kB] Get: 36 http://deb.debian.org/debian unstable/main arm64 libicu72 arm64 72.1-6 [9239 kB] Get: 37 http://deb.debian.org/debian unstable/main arm64 libxml2 arm64 2.12.7+dfsg+really2.9.14-0.2+b1 [630 kB] Get: 38 http://deb.debian.org/debian unstable/main arm64 gettext arm64 0.23.1-1 [1610 kB] Get: 39 http://deb.debian.org/debian unstable/main arm64 intltool-debian all 0.35.0+20060710.6 [22.9 kB] Get: 40 http://deb.debian.org/debian unstable/main arm64 po-debconf all 1.0.21+nmu1 [248 kB] Get: 41 http://deb.debian.org/debian unstable/main arm64 debhelper all 13.24.1 [920 kB] Get: 42 http://deb.debian.org/debian unstable/main arm64 libtext-unidecode-perl all 1.30-3 [101 kB] Get: 43 http://deb.debian.org/debian unstable/main arm64 libxml-namespacesupport-perl all 1.12-2 [15.1 kB] Get: 44 http://deb.debian.org/debian unstable/main arm64 libxml-sax-base-perl all 1.09-3 [20.6 kB] Get: 45 http://deb.debian.org/debian unstable/main arm64 libxml-sax-perl all 1.02+dfsg-4 [53.4 kB] Get: 46 http://deb.debian.org/debian unstable/main arm64 libxml-libxml-perl arm64 2.0207+dfsg+really+2.0134-5+b1 [300 kB] Get: 47 http://deb.debian.org/debian unstable/main arm64 sbcl arm64 2:2.5.0-1 [8829 kB] Get: 48 http://deb.debian.org/debian unstable/main arm64 tex-common all 6.18 [32.5 kB] Get: 49 http://deb.debian.org/debian unstable/main arm64 texinfo-lib arm64 7.1.1-1+b1 [220 kB] Get: 50 http://deb.debian.org/debian unstable/main arm64 texinfo all 7.1.1-1 [1753 kB] Fetched 34.4 MB in 0s (183 MB/s) Preconfiguring packages ... Selecting previously unselected package libproc2-0:arm64. (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 ... 19889 files and directories currently installed.) Preparing to unpack .../00-libproc2-0_2%3a4.0.4-7_arm64.deb ... Unpacking libproc2-0:arm64 (2:4.0.4-7) ... Selecting previously unselected package procps. Preparing to unpack .../01-procps_2%3a4.0.4-7_arm64.deb ... Unpacking procps (2:4.0.4-7) ... Selecting previously unselected package sensible-utils. Preparing to unpack .../02-sensible-utils_0.0.24_all.deb ... Unpacking sensible-utils (0.0.24) ... Selecting previously unselected package libmagic-mgc. Preparing to unpack .../03-libmagic-mgc_1%3a5.45-3+b1_arm64.deb ... Unpacking libmagic-mgc (1:5.45-3+b1) ... Selecting previously unselected package libmagic1t64:arm64. Preparing to unpack .../04-libmagic1t64_1%3a5.45-3+b1_arm64.deb ... Unpacking libmagic1t64:arm64 (1:5.45-3+b1) ... Selecting previously unselected package file. Preparing to unpack .../05-file_1%3a5.45-3+b1_arm64.deb ... Unpacking file (1:5.45-3+b1) ... Selecting previously unselected package gettext-base. Preparing to unpack .../06-gettext-base_0.23.1-1_arm64.deb ... Unpacking gettext-base (0.23.1-1) ... Selecting previously unselected package libuchardet0:arm64. Preparing to unpack .../07-libuchardet0_0.0.8-1+b2_arm64.deb ... Unpacking libuchardet0:arm64 (0.0.8-1+b2) ... Selecting previously unselected package groff-base. Preparing to unpack .../08-groff-base_1.23.0-7_arm64.deb ... Unpacking groff-base (1.23.0-7) ... Selecting previously unselected package bsdextrautils. Preparing to unpack .../09-bsdextrautils_2.40.4-4_arm64.deb ... Unpacking bsdextrautils (2.40.4-4) ... Selecting previously unselected package libpipeline1:arm64. Preparing to unpack .../10-libpipeline1_1.5.8-1_arm64.deb ... Unpacking libpipeline1:arm64 (1.5.8-1) ... Selecting previously unselected package man-db. Preparing to unpack .../11-man-db_2.13.0-1_arm64.deb ... Unpacking man-db (2.13.0-1) ... Selecting previously unselected package libtext-charwidth-perl:arm64. Preparing to unpack .../12-libtext-charwidth-perl_0.04-11+b4_arm64.deb ... Unpacking libtext-charwidth-perl:arm64 (0.04-11+b4) ... Selecting previously unselected package libtext-wrapi18n-perl. Preparing to unpack .../13-libtext-wrapi18n-perl_0.06-10_all.deb ... Unpacking libtext-wrapi18n-perl (0.06-10) ... Selecting previously unselected package ucf. Preparing to unpack .../14-ucf_3.0050_all.deb ... Moving old data out of the way Unpacking ucf (3.0050) ... Selecting previously unselected package m4. Preparing to unpack .../15-m4_1.4.19-5_arm64.deb ... Unpacking m4 (1.4.19-5) ... Selecting previously unselected package autoconf. Preparing to unpack .../16-autoconf_2.72-3_all.deb ... Unpacking autoconf (2.72-3) ... Selecting previously unselected package autotools-dev. Preparing to unpack .../17-autotools-dev_20220109.1_all.deb ... Unpacking autotools-dev (20220109.1) ... Selecting previously unselected package automake. Preparing to unpack .../18-automake_1%3a1.17-3_all.deb ... Unpacking automake (1:1.17-3) ... Selecting previously unselected package autopoint. Preparing to unpack .../19-autopoint_0.23.1-1_all.deb ... Unpacking autopoint (0.23.1-1) ... Selecting previously unselected package cl-alexandria. Preparing to unpack .../20-cl-alexandria_20240125.git8514d8e-1_all.deb ... Unpacking cl-alexandria (20240125.git8514d8e-1) ... Selecting previously unselected package cl-asdf. Preparing to unpack .../21-cl-asdf_2%3a3.3.7.2-1_all.deb ... Unpacking cl-asdf (2:3.3.7.2-1) ... Selecting previously unselected package cl-clx-sbcl. Preparing to unpack .../22-cl-clx-sbcl_0.7.5-1_arm64.deb ... Unpacking cl-clx-sbcl (0.7.5-1) ... Selecting previously unselected package cl-trivial-gray-streams. Preparing to unpack .../23-cl-trivial-gray-streams_20240217.gita7ead68-1_all.deb ... Unpacking cl-trivial-gray-streams (20240217.gita7ead68-1) ... Selecting previously unselected package cl-fiasco. Preparing to unpack .../24-cl-fiasco_0.0~git20200514.bb47d2f-3_all.deb ... Unpacking cl-fiasco (0.0~git20200514.bb47d2f-3) ... Selecting previously unselected package cl-ppcre. Preparing to unpack .../25-cl-ppcre_20240427.git80fb19d-1_all.deb ... Unpacking cl-ppcre (20240427.git80fb19d-1) ... Selecting previously unselected package libdebhelper-perl. Preparing to unpack .../26-libdebhelper-perl_13.24.1_all.deb ... Unpacking libdebhelper-perl (13.24.1) ... Selecting previously unselected package libtool. Preparing to unpack .../27-libtool_2.5.4-3_all.deb ... Unpacking libtool (2.5.4-3) ... Selecting previously unselected package dh-autoreconf. Preparing to unpack .../28-dh-autoreconf_20_all.deb ... Unpacking dh-autoreconf (20) ... Selecting previously unselected package libarchive-zip-perl. Preparing to unpack .../29-libarchive-zip-perl_1.68-1_all.deb ... Unpacking libarchive-zip-perl (1.68-1) ... Selecting previously unselected package libfile-stripnondeterminism-perl. Preparing to unpack .../30-libfile-stripnondeterminism-perl_1.14.1-2_all.deb ... Unpacking libfile-stripnondeterminism-perl (1.14.1-2) ... Selecting previously unselected package dh-strip-nondeterminism. Preparing to unpack .../31-dh-strip-nondeterminism_1.14.1-2_all.deb ... Unpacking dh-strip-nondeterminism (1.14.1-2) ... Selecting previously unselected package libelf1t64:arm64. Preparing to unpack .../32-libelf1t64_0.192-4_arm64.deb ... Unpacking libelf1t64:arm64 (0.192-4) ... Selecting previously unselected package dwz. Preparing to unpack .../33-dwz_0.15-1+b1_arm64.deb ... Unpacking dwz (0.15-1+b1) ... Selecting previously unselected package libunistring5:arm64. Preparing to unpack .../34-libunistring5_1.3-1_arm64.deb ... Unpacking libunistring5:arm64 (1.3-1) ... Selecting previously unselected package libicu72:arm64. Preparing to unpack .../35-libicu72_72.1-6_arm64.deb ... Unpacking libicu72:arm64 (72.1-6) ... Selecting previously unselected package libxml2:arm64. Preparing to unpack .../36-libxml2_2.12.7+dfsg+really2.9.14-0.2+b1_arm64.deb ... Unpacking libxml2:arm64 (2.12.7+dfsg+really2.9.14-0.2+b1) ... Selecting previously unselected package gettext. Preparing to unpack .../37-gettext_0.23.1-1_arm64.deb ... Unpacking gettext (0.23.1-1) ... Selecting previously unselected package intltool-debian. Preparing to unpack .../38-intltool-debian_0.35.0+20060710.6_all.deb ... Unpacking intltool-debian (0.35.0+20060710.6) ... Selecting previously unselected package po-debconf. Preparing to unpack .../39-po-debconf_1.0.21+nmu1_all.deb ... Unpacking po-debconf (1.0.21+nmu1) ... Selecting previously unselected package debhelper. Preparing to unpack .../40-debhelper_13.24.1_all.deb ... Unpacking debhelper (13.24.1) ... Selecting previously unselected package libtext-unidecode-perl. Preparing to unpack .../41-libtext-unidecode-perl_1.30-3_all.deb ... Unpacking libtext-unidecode-perl (1.30-3) ... Selecting previously unselected package libxml-namespacesupport-perl. Preparing to unpack .../42-libxml-namespacesupport-perl_1.12-2_all.deb ... Unpacking libxml-namespacesupport-perl (1.12-2) ... Selecting previously unselected package libxml-sax-base-perl. Preparing to unpack .../43-libxml-sax-base-perl_1.09-3_all.deb ... Unpacking libxml-sax-base-perl (1.09-3) ... Selecting previously unselected package libxml-sax-perl. Preparing to unpack .../44-libxml-sax-perl_1.02+dfsg-4_all.deb ... Unpacking libxml-sax-perl (1.02+dfsg-4) ... Selecting previously unselected package libxml-libxml-perl. Preparing to unpack .../45-libxml-libxml-perl_2.0207+dfsg+really+2.0134-5+b1_arm64.deb ... Unpacking libxml-libxml-perl (2.0207+dfsg+really+2.0134-5+b1) ... Selecting previously unselected package sbcl. Preparing to unpack .../46-sbcl_2%3a2.5.0-1_arm64.deb ... Unpacking sbcl (2:2.5.0-1) ... Selecting previously unselected package tex-common. Preparing to unpack .../47-tex-common_6.18_all.deb ... Unpacking tex-common (6.18) ... Selecting previously unselected package texinfo-lib. Preparing to unpack .../48-texinfo-lib_7.1.1-1+b1_arm64.deb ... Unpacking texinfo-lib (7.1.1-1+b1) ... Selecting previously unselected package texinfo. Preparing to unpack .../49-texinfo_7.1.1-1_all.deb ... Unpacking texinfo (7.1.1-1) ... Setting up libpipeline1:arm64 (1.5.8-1) ... Setting up libtext-charwidth-perl:arm64 (0.04-11+b4) ... Setting up libicu72:arm64 (72.1-6) ... Setting up bsdextrautils (2.40.4-4) ... Setting up libmagic-mgc (1:5.45-3+b1) ... Setting up cl-asdf (2:3.3.7.2-1) ... Setting up libarchive-zip-perl (1.68-1) ... Setting up libdebhelper-perl (13.24.1) ... Setting up libmagic1t64:arm64 (1:5.45-3+b1) ... Setting up libxml-namespacesupport-perl (1.12-2) ... Setting up gettext-base (0.23.1-1) ... Setting up m4 (1.4.19-5) ... Setting up file (1:5.45-3+b1) ... Setting up texinfo-lib (7.1.1-1+b1) ... Setting up libtext-wrapi18n-perl (0.06-10) ... Setting up libelf1t64:arm64 (0.192-4) ... Setting up cl-trivial-gray-streams (20240217.gita7ead68-1) ... Setting up libxml-sax-base-perl (1.09-3) ... Setting up autotools-dev (20220109.1) ... Setting up libproc2-0:arm64 (2:4.0.4-7) ... Setting up libunistring5:arm64 (1.3-1) ... Setting up autopoint (0.23.1-1) ... Setting up autoconf (2.72-3) ... Setting up cl-clx-sbcl (0.7.5-1) ... Setting up sbcl (2:2.5.0-1) ... Setting up dwz (0.15-1+b1) ... Setting up sensible-utils (0.0.24) ... Setting up libuchardet0:arm64 (0.0.8-1+b2) ... Setting up procps (2:4.0.4-7) ... Setting up cl-alexandria (20240125.git8514d8e-1) ... Setting up cl-ppcre (20240427.git80fb19d-1) ... Setting up libtext-unidecode-perl (1.30-3) ... Setting up libxml2:arm64 (2.12.7+dfsg+really2.9.14-0.2+b1) ... Setting up automake (1:1.17-3) ... update-alternatives: using /usr/bin/automake-1.17 to provide /usr/bin/automake (automake) in auto mode Setting up libfile-stripnondeterminism-perl (1.14.1-2) ... Setting up gettext (0.23.1-1) ... Setting up libtool (2.5.4-3) ... Setting up cl-fiasco (0.0~git20200514.bb47d2f-3) ... Setting up intltool-debian (0.35.0+20060710.6) ... Setting up dh-autoreconf (20) ... Setting up ucf (3.0050) ... Setting up dh-strip-nondeterminism (1.14.1-2) ... Setting up groff-base (1.23.0-7) ... Setting up po-debconf (1.0.21+nmu1) ... Setting up man-db (2.13.0-1) ... Not building database; man-db/auto-update is not 'true'. Setting up libxml-sax-perl (1.02+dfsg-4) ... 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 tex-common (6.18) ... update-language: texlive-base not installed and configured, doing nothing! Setting up libxml-libxml-perl (2.0207+dfsg+really+2.0134-5+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.24.1) ... Setting up texinfo (7.1.1-1) ... Processing triggers for libc-bin (2.40-7) ... 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 I: Building the package I: user script /srv/workspace/pbuilder/2362652/tmp/hooks/A99_set_merged_usr starting Not re-configuring usrmerge for unstable I: user script /srv/workspace/pbuilder/2362652/tmp/hooks/A99_set_merged_usr finished hostname: Name or service not known I: Running cd /build/reproducible-path/stumpwm-22.11/ && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path" HOME="/nonexistent/second-build" dpkg-buildpackage -us -uc -b && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path" HOME="/nonexistent/second-build" dpkg-genchanges -S > ../stumpwm_22.11-3_source.changes dpkg-buildpackage: info: source package stumpwm dpkg-buildpackage: info: source version 2:22.11-3 dpkg-buildpackage: info: source distribution unstable dpkg-buildpackage: info: source changed by Benda Xu dpkg-source --before-build . dpkg-buildpackage: info: host architecture arm64 debian/rules clean dh clean debian/rules override_dh_auto_clean make[1]: Entering directory '/build/reproducible-path/stumpwm-22.11' 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/reproducible-path/stumpwm-22.11' dh_clean debian/rules binary dh binary dh_update_autotools_config dh_autoreconf configure.ac:60: warning: AC_OUTPUT should be used without arguments. configure.ac:60: You should run autoupdate. configure.ac:61: warning: AC_OUTPUT should be used without arguments. configure.ac:61: You should run autoupdate. configure.ac:62: warning: AC_OUTPUT should be used without arguments. configure.ac:62: You should run autoupdate. debian/rules override_dh_auto_configure make[1]: Entering directory '/build/reproducible-path/stumpwm-22.11' 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 --runstatedir=/run --disable-maintainer-mode --disable-dependency-tracking --with-lisp=sbcl checking for sbcl... /usr/bin/sbcl configure: WARNING: SBCL_HOME must be defined to use asdf/quicklisp (it should be where your sbcl.core resides) configure: Using sbcl at /usr/bin/sbcl checking for makeinfo... yes configure: creating ./config.status config.status: creating Makefile configure: creating ./config.status config.status: creating Makefile config.status: creating make-image.lisp configure: creating ./config.status config.status: creating Makefile config.status: creating make-image.lisp config.status: creating load-stumpwm.lisp make[1]: Leaving directory '/build/reproducible-path/stumpwm-22.11' debian/rules override_dh_auto_build-indep make[1]: Entering directory '/build/reproducible-path/stumpwm-22.11' XDG_CACHE_HOME=/build/reproducible-path/stumpwm-22.11/.cache /usr/bin/make stumpwm.info make[2]: Entering directory '/build/reproducible-path/stumpwm-22.11' /usr/bin/sbcl --non-interactive --eval "(setf sb-impl::*default-external-format* :UTF-8)" --eval "(progn (load \"load-stumpwm.lisp\") (load \"manual.lisp\"))" --eval "(progn (stumpwm::generate-manual) (sb-ext:quit))" This is SBCL 2.5.0.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 01 DEC 2024 12:56:31 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-asdf/build/asdf-tmpGHU3ALSV.fasl ; compilation finished in 0:00:06.312 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/package.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/package-tmpAAURSO1.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/definitions.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/definitions-tmp5GEXGEG5.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/binding.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/binding-tmpAR3FSGEY.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/strings.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/strings-tmpJAIDFZTC.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/conditions.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/conditions-tmp8V3J6PE9.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/symbols.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/symbols-tmp9V47YWQF.fasl ; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/macros.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/macros-tmp9BN22RMA.fasl ; compilation finished in 0:00:00.071 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/functions.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/functions-tmp1CXFJSK9.fasl ; compilation finished in 0:00:00.032 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/lists.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/lists-tmpX4BRKI0R.fasl ; compilation finished in 0:00:00.176 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/types.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/types-tmpQ371UGST.fasl ; compilation finished in 0:00:00.076 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/io.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/io-tmp2OWI3Q7U.fasl ; compilation finished in 0:00:00.112 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables-tmp9KKTJMYV.fasl ; compilation finished in 0:00:00.048 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/control-flow.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/control-flow-tmpJU0JWO19.fasl ; compilation finished in 0:00:00.044 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/arrays.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/arrays-tmpZX2WN8N4.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/sequences.lisp" (written 25 JAN 2024 05:37:54 PM): ; file: /usr/share/common-lisp/source/alexandria/alexandria-1/sequences.lisp ; in: DEFUN LENGTH= ; (LENGTH FIRST) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/sequences-tmpOU81XRV0.fasl ; compilation finished in 0:00:00.112 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/numbers.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/numbers-tmpY2ML9CFA.fasl ; compilation finished in 0:00:00.112 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/features.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/features-tmpX2JYJDQE.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/package.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/package-tmpOPCILR65.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/arrays.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/arrays-tmpRV9F8A9A.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow-tmpK2ZAJT4I.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/sequences.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/sequences-tmpUX5S4ADN.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/lists.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/lists-tmp10401X32.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/packages.lisp" (written 27 APR 2024 01:06:11 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/packages-tmpZ7CBRM0G.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/specials.lisp" (written 27 APR 2024 01:06:11 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/specials-tmp9OZEQ0G2.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/util.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a (OR SIMPLE-BASE-STRING NULL). ; 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/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/util-tmpB2JTL1W9.fasl ; compilation finished in 0:00:00.028 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/errors.lisp" (written 27 APR 2024 01:06:11 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/errors-tmpP3BI68WQ.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/charset.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp ; in: DEFUN MIX ; (+ CL-PPCRE::CODE CL-PPCRE::HASH) ; ; 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFUN COMPUTE-INDEX ; (LENGTH VECTOR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL (-35184372088830) ; (35184372088830))), not a RATIONAL. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR FLOAT ; (RATIONAL (-35184372088830) (35184372088830))), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT (RATIONAL (-35184372088829) (35184372088831))) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (OR FLOAT ; (RATIONAL (-35184372088830) (35184372088830))), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR FLOAT (RATIONAL (-35184372088829) (35184372088831))) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFUN %ADD-TO-CHARSET/EXPAND ; (>= CL-PPCRE::NEW-SIZE 371370) ; ; note: forced to do <-INTEGER-FIXNUM (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; (* 2 CL-PPCRE::NEW-SIZE) ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN MAP-CHARSET ; (DECF CL-PPCRE::N) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM. ; The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER * 4611686018427387903), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; 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 T, 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 T, not a DOUBLE-FLOAT. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/charset-tmpQDARA81Z.fasl ; compilation finished in 0:00:00.032 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/charmap.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 ; in: DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LIM16) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; 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 T, 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 T, 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LIM16) ; ; 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/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/charmap-tmpYEMMM7SE.fasl ; compilation finished in 0:00:00.060 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/chartest.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/chartest.lisp ; in: DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; 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 T, 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 T, not a DOUBLE-FLOAT. ; in: DEFUN CREATE-OPTIMIZED-TEST-FUNCTION ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (<= (CL-PPCRE::CHARSET-COUNT CL-PPCRE::CHARSET) ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)) ; ; note: forced to do >-FIXNUM-INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (<= (HASH-TABLE-COUNT HASH-TABLE) ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)) ; ; note: forced to do >-FIXNUM-INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/chartest-tmp73HU0RPK.fasl ; compilation finished in 0:00:00.024 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/lexer.lisp" (written 27 APR 2024 01:06:11 AM): ; 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.") ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN GET-NUMBER ; (IF (< CL-PPCRE::END-POS CL-PPCRE::LEXER-LEN) ; CL-PPCRE::END-POS ; CL-PPCRE::LEXER-LEN) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN UNESCAPE-CHAR ; (CHAR-UPCASE CL-PPCRE::NEXT-CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/lexer-tmpIO5N7K88.fasl ; compilation finished in 0:00:00.172 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/parser.lisp" (written 27 APR 2024 01:06:11 AM): ; 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.") ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN SEQ ; (VECTOR-PUSH-EXTEND CL-PPCRE::QUANT (CAR CL-PPCRE::LAST-CDR)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/parser-tmpCM21U60Z.fasl ; compilation finished in 0:00:00.028 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; (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/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/regex-class-tmp9DT7SEFG.fasl ; compilation finished in 0:00:00.040 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD EVERYTHINGP (SEQ) ; (LENGTH CL-PPCRE::CLEANED-ELEMENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (ALTERNATION) ; (LENGTH CL-PPCRE::CHOICES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (REPETITION) ; (= 1 CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX ; SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX ; DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to 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 (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; in: DEFMETHOD REGEX-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-LENGTH ; CL-PPCRE::SUB-REGEX) ; IF (NOT CL-PPCRE::LEN) ; DO ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM6 CL-PPCRE::LEN) ; ; 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-LENGTH (ALTERNATION) ; (/= CL-PPCRE::LEN CL-PPCRE::OLD-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to 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. ; 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; in: DEFMETHOD REGEX-LENGTH (REPETITION) ; (EQL CL-PPCRE::MINIMUM 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. ; ; 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; (* CL-PPCRE::MINIMUM 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::SUM CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM6 CL-PPCRE::LEN) ; ; 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (ALTERNATION) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::MINIMIZE CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF ; ==> ; (< #:MINMAXTMP10 #:MINMAX9) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: 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. ; in: DEFMETHOD REGEX-MIN-LENGTH (BRANCH) ; (MIN (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH)) ; (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: 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 T, 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 T, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (REPETITION) ; (* (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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (ALTERNATION T) ; (/= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to 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. ; 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (REPETITION T) ; (* CL-PPCRE::MINIMUM 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (CHAR-CLASS T) ; (1+ CL-PPCRE::START-POS) ; ; note: unable to ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (EVERYTHING T) ; (1+ CL-PPCRE::START-POS) ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (STR T) ; (+ CL-PPCRE::START-POS (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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (FILTER T) ; (+ CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/regex-class-util-tmp8065ESJT.fasl ; compilation finished in 0:00:00.096 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/convert.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 ; in: DEFUN MAYBE-SPLIT-REPETITION ; (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN MAYBE-ACCUMULATE ; (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; (CL-PPCRE::STR CL-PPCRE::STR) ; (CL-PPCRE::SKIP CL-PPCRE::STR) T) ; --> SETF LET* ; ==> ; (REPLACE #:SEQUENCE #:NEW3 :START1 #:START :END1 NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; The second argument is a SEQUENCE, not a (OR NULL ; (SIMPLE-ARRAY CHARACTER (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR NULL ; (SIMPLE-ARRAY CHARACTER (*))). ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; (MAKE-ARRAY (CL-PPCRE::LEN CL-PPCRE::STR) :INITIAL-CONTENTS ; (CL-PPCRE::STR CL-PPCRE::STR) :ELEMENT-TYPE 'CHARACTER ; :FILL-POINTER T :ADJUSTABLE T) ; ; 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 second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; (SETF (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; --> FUNCALL ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20) ; (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; (CL-PPCRE::STR CL-PPCRE::STR) ; (CL-PPCRE::SKIP CL-PPCRE::STR) T) ; --> SETF LET* ; ==> ; (REPLACE #:SEQUENCE #:NEW3 :START1 #:START :END1 NIL) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BRANCH) T) ; (LENGTH (CL-PPCRE::CHOICES CL-PPCRE::ALTERNATIONS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :GREEDY-REPETITION) T) ; (ZEROP LENGTH) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :NAMED-REGISTER) T) ; (COPY-SEQ (SECOND CL-PPCRE::PARSE-TREE)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BACK-REFERENCE) T) ; (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a (SIMPLE-ARRAY CHARACTER (*)). ; (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 &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::NAME CL-PPCRE::IN CL-PPCRE::REG-NAMES ; CL-PPCRE::FOR CL-PPCRE::REG-INDEX CL-PPCRE::FROM 0 ; WHEN (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; CL-PPCRE::COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE 1+ ; ==> ; 1 ; ; note: forced to do 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CONVERT ; (COERCE (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) 'SIMPLE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/convert-tmp7S8Z6FGF.fasl ; compilation finished in 0:00:00.180 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/optimize.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a VECTOR, not a (OR SIMPLE-BASE-STRING NULL). ; (INCF CL-PPCRE::COLLECTOR-LENGTH (CL-PPCRE::LEN CL-PPCRE::ELEMENT)) ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFMETHOD START-ANCHORED-P (REPETITION) ; (PLUSP (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: 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. ; in: DEFMETHOD START-ANCHORED-P (REGEX) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::REGEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD END-STRING-AUX (SEQ) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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 SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; (CHAR CL-PPCRE::STR CL-PPCRE::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFMETHOD COMPUTE-MIN-REST (ALTERNATION T) ; (LOOP CL-PPCRE::FOR CL-PPCRE::CHOICE CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::MINIMIZE (CL-PPCRE::COMPUTE-MIN-REST CL-PPCRE::CHOICE ; CL-PPCRE::CURRENT-MIN-REST)) ; --> LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF ; ==> ; (< #:MINMAXTMP11 #:MINMAX10) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: 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. ; in: DEFMETHOD COMPUTE-MIN-REST (BRANCH T) ; (MIN ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST) ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: 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 T, 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 T, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (STR T) ; (+ CL-PPCRE::CURRENT-MIN-REST (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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (FILTER T) ; (+ CL-PPCRE::CURRENT-MIN-REST (OR (CL-PPCRE::LEN CL-PPCRE::FILTER) 0)) ; ; note: 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (REPETITION T) ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ CL-PPCRE::CURRENT-MIN-REST ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (LOOKBEHIND T) ; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::LOOKBEHIND)) ; ; note: 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (REGEX T) ; (1+ CL-PPCRE::CURRENT-MIN-REST) ; ; note: unable to ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/optimize-tmpSIT3QPKP.fasl ; compilation finished in 0:00:00.072 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/closures.lisp" (written 27 APR 2024 01:06:11 AM): ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; 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) ; in: DEFMETHOD CREATE-MATCHER-AUX (CHAR-CLASS T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::CHAR-CLASS ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::START-POS)) ; (LAMBDA (CL-PPCRE::START-POS) ; (DECLARE (FIXNUM CL-PPCRE::START-POS)) ; (AND (< CL-PPCRE::START-POS CL-PPCRE::*END-POS*) ; (CL-PPCRE::CHAR-CLASS-TEST) ; (FUNCALL CL-PPCRE::NEXT-FN (1+ CL-PPCRE::START-POS))))) ; --> LET LAMBDA FUNCTION AND IF IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFMETHOD CREATE-MATCHER-AUX (STR T) ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::START-POS ; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS) CL-PPCRE::CHR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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) ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-MATCHER-AUX (FILTER T) ; (FUNCALL CL-PPCRE::FN CL-PPCRE::START-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (FUNCALL CL-PPCRE::NEXT-FN CL-PPCRE::NEXT-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; NEXT-FN is not known to be a function ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/closures-tmpE0PA0714.fasl ; compilation finished in 0:00:00.144 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET BLOCK ; --> TAGBODY WHEN IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), 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)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; 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)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-GREEDY-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), 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)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-NON-GREEDY-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: ; DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS)))) ; --> LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA FUNCTION ; --> LET AND IF IF LOOP BLOCK LET TAGBODY UNLESS IF AND IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (AREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (ZEROP (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-MATCHER-AUX (REPETITION T) ; (ZEROP CL-PPCRE::MAXIMUM) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (EQL CL-PPCRE::MINIMUM 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. ; ; 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. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (PLUSP CL-PPCRE::LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; 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 T, 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 T, not a DOUBLE-FLOAT. ; (EQL CL-PPCRE::MINIMUM 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, 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 T, not a FIXNUM. ; The second 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). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; (PLUSP 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. ; (PLUSP 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. ; (PLUSP 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/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/repetition-closures-tmpJRWHHVG0.fasl ; compilation finished in 0:00:00.252 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/scanner.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/scanner.lisp ; in: DEFUN CREATE-BMH-MATCHER ; (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION IF LOOP BLOCK LET TAGBODY LOOP BLOCK LET LET TAGBODY UNLESS IF ; --> AND IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (LENGTH CL-PPCRE::PATTERN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CHAR-UPCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-DOWNCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (SEARCH CL-PPCRE::PATTERN CL-PPCRE::*STRING* :START2 CL-PPCRE::START-POS ; :END2 CL-PPCRE::*END-POS* :TEST CL-PPCRE::TEST) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN CREATE-CHAR-SEARCHER ; (CL-PPCRE::CHAR-SEARCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION AND IF LOOP BLOCK LET LET TAGBODY WHEN IF SETQ THE AND IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFUN CREATE-SCANNER-AUX ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (FUNCALL CL-PPCRE::END-STRING-TEST CL-PPCRE::TRY-POS) ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/scanner-tmp4WZVROCX.fasl ; compilation finished in 0:00:00.488 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/api.lisp" (written 27 APR 2024 01:06:11 AM): ; 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. ; in: DEFMETHOD CREATE-SCANNER (T) ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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. ; in: DEFMETHOD SCAN (STRING T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::REGEX-STRING) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; in: DEFMETHOD SCAN #'T ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; in: DEFMETHOD SCAN (T T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::PARSE-TREE) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; in: DEFUN SCAN-TO-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MAP 'VECTOR ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (IF CL-PPCRE::REG-START ; (FUNCALL CL-PPCRE::SUBSTR-FN CL-PPCRE::TARGET-STRING ; CL-PPCRE::REG-START CL-PPCRE::REG-END) ; NIL)) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMACRO DO-SCANS ; (DEFMACRO CL-PPCRE:DO-SCANS ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY &ENVIRONMENT CL-PPCRE::ENV) ; #<(SIMPLE-ARRAY CHARACTER ; (495)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START, MATCH-END, REG-STARTS, and ; REG-ENDS bound to the four return values of each match in turn. ... {100252992F}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::%START CL-PPCRE::%END ; CL-PPCRE::%REGEX CL-PPCRE::SCANNER) ; (DECLARE (IGNORABLE CL-PPCRE::%REGEX CL-PPCRE::SCANNER)) ; `(BLOCK NIL ; (LET* # ; # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END ; REG-STARTS REG-ENDS REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) ; in: DEFMACRO DO-MATCHES ; (DEFMACRO CL-PPCRE:DO-MATCHES ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (477)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START and MATCH-END bound to the ; start/end positions of each match in turn. After the last match, ; ... {100292588F}> ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; `(CL-PPCRE:DO-SCANS (,CL-PPCRE::MATCH-START ,CL-PPCRE::MATCH-END ; ,CL-PPCRE::REG-STARTS ,CL-PPCRE::REG-ENDS ; ,CL-PPCRE::REGEX ,CL-PPCRE::TARGET-STRING ; ,CL-PPCRE::RESULT-FORM :START ,CL-PPCRE::START :END ; ,CL-PPCRE::END) ; ,@CL-PPCRE::BODY))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) ; in: DEFMACRO DO-MATCHES-AS-STRINGS ; (DEFMACRO CL-PPCRE:DO-MATCHES-AS-STRINGS ; ( ; (CL-PPCRE::MATCH-VAR ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (569)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-VAR bound to the substring of ; TARGET-STRING corresponding to each match in turn. After the last ; ma... {1002AB243F}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::SUBSTR-FN) ; `(LET (#) ; (CL-PPCRE:DO-MATCHES # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-VAR REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END ; SHAREDP) ; in: DEFMACRO DO-REGISTER-GROUPS ; (DEFMACRO CL-PPCRE:DO-REGISTER-GROUPS ; (CL-PPCRE::VAR-LIST ; (CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (820)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with the variables in VAR-LIST bound to the ; corresponding register groups for each match in turn, i.e. each ; va... {1002C90DAF}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::SUBSTR-FN CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS CL-PPCRE::START-INDEX) ; `(LET (#) ; (CL-PPCRE:DO-SCANS # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX TARGET-STRING ; &OPTIONAL RESULT-FORM ; &KEY START END SHAREDP) ; in: DEFUN COUNT-MATCHES ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::S CL-PPCRE::E CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING COUNT :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (INCF COUNT)) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::S CL-PPCRE::E) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF COUNT) ; --> THE ; ==> ; (+ 1 COUNT) ; ; note: forced to do 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::S CL-PPCRE::E CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING COUNT :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (INCF COUNT)) ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::S CL-PPCRE::E) ; ; note: forced to do 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. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALL-MATCHES ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::RESULT-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::RESULT-LIST)) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do 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. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALL-MATCHES-AS-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES-AS-STRINGS (CL-PPCRE::MATCH CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START ; CL-PPCRE::START :END CL-PPCRE::END :SHAREDP ; CL-PPCRE::SHAREDP) ; (PUSH CL-PPCRE::MATCH CL-PPCRE::RESULT-LIST)) ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING7) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE ; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: forced to do 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. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; 1 ; ; note: forced to do 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SPLIT ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP CL-PPCRE::LIMIT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...) ; --> LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET LET ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE AREF ; ==> ; 1 ; ; 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 VECTOR, not a SIMPLE-ARRAY. ; ; 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 VECTOR, not a SIMPLE-ARRAY. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (= 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 NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a 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) ; --> 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do 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. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; 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. ; in: DEFUN STRING-CASE-MODIFIER ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::FROM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::TO) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; 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 ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (< 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 (NOT NULL), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The second argument is a (NOT NULL), 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 NULL INTEGER), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (OR NULL INTEGER), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (< CL-PPCRE::TOKEN 0) ; ; note: forced to do <-INTEGER-FIXNUM (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; in: DEFUN BUILD-REPLACEMENT ; (ARRAY-DIMENSION CL-PPCRE::REG-STARTS 0) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; (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: ; TOKEN is not known to be a function ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; 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: ; TOKEN is not known to be a function ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (>= CL-PPCRE::TOKEN CL-PPCRE::REG-BOUND) ; ; note: forced to do <-INTEGER-FIXNUM (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; (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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; ; 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFUN REGEX-REPLACE ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFUN REGEX-REPLACE-ALL ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do 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. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN REGEX-APROPOS-LIST ; (DEFUN CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; #<(SIMPLE-ARRAY CHARACTER ; (221)) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {100228A26F}> ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (221)) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {100228A26F}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS-LIST ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; in: DEFUN REGEX-APROPOS ; (DEFUN CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {10028089BF}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES)) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {10028089BF}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/api-tmpA0I3UKX8.fasl ; compilation finished in 0:00:00.420 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/clx/package.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/package-tmp267Y2N80.fasl ; compilation finished in 0:00:00.016 ; compiling file "/usr/share/common-lisp/source/clx/depdefs.lisp" (written 27 DEC 2022 07:29:08 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/depdefs-tmpOUPE5FSJ.fasl ; compilation finished in 0:00:00.136 ; compiling file "/usr/share/common-lisp/source/clx/clx.lisp" (written 27 DEC 2022 07:29:08 AM): ; file: /usr/share/common-lisp/source/clx/clx.lisp ; in: DEFUN ENCODE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:EVENT-MASK 'XLIB:EVENT-MASK) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-DEVICE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:DEVICE-EVENT-MASK 'XLIB:DEVICE-EVENT-MASK) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-MODIFIER-MASK ; (XLIB::X-TYPE-ERROR XLIB:MODIFIER-MASK 'XLIB:MODIFIER-MASK) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-STATE-MASK ; (XLIB::X-TYPE-ERROR XLIB::STATE-MASK ; '(OR XLIB:MASK16 (XLIB::CLX-LIST XLIB:STATE-MASK-KEY))) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-POINTER-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:POINTER-EVENT-MASK 'XLIB:POINTER-EVENT-MASK) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/clx-tmpIGHCU6ZA.fasl ; compilation finished in 0:00:00.252 ; compiling file "/usr/share/common-lisp/source/clx/dependent.lisp" (written 27 DEC 2022 07:29:08 AM): ; 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) ; in: DEFMACRO READ-IMAGE-LOAD-BYTE ; (SETQ POSITION (- 7 POSITION)) ; ; note: deleting unreachable code ; in: DEFMACRO READ-IMAGE-ASSEMBLE-BYTES ; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES)) ; ; note: deleting unreachable code ; in: DEFMACRO WRITE-IMAGE-LOAD-BYTE ; (- XLIB::INTEGER-SIZE 8 POSITION) ; ; note: deleting unreachable code ; in: DEFMACRO WRITE-IMAGE-ASSEMBLE-BYTES ; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES)) ; ; note: deleting unreachable code ; in: DEFUN COPY-BIT-RECT ; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::SDATA XLIB::SOURCE) (XLIB::SSTART) ; (XLIB::SEND)) ; (DECLARE (IGNORE XLIB::SEND)) ; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::DDATA XLIB::DEST) (XLIB::DSTART) ; (XLIB::DEND)) ; (DECLARE (IGNORE XLIB::DEND)) ; (ASSERT (AND (ZEROP XLIB::SSTART) (ZEROP XLIB::DSTART))) ; (DO ((XLIB::SRC-IDX # #) ; (XLIB::DEST-IDX # #) ; (COUNT XLIB::HEIGHT #)) ; ((ZEROP COUNT)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-IDX XLIB::DEST-IDX COUNT)) ; (SB-KERNEL:UB1-BASH-COPY XLIB::SDATA XLIB::SRC-IDX XLIB::DDATA ; XLIB::DEST-IDX XLIB::WIDTH)))) ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND IF THE ; ==> ; (SB-KERNEL:%WITH-ARRAY-DATA #:N-ARRAY0 #:N-SVALUE1 #:N-EVALUE2) ; ; note: unable to ; inline non-SIMPLE-vector-handling logic ; due to type uncertainty: ; The first argument is a (AND ARRAY (NOT (SIMPLE-ARRAY * (*)))), not a (OR ; VECTOR ; SIMPLE-ARRAY). ; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::DDATA XLIB::DEST) (XLIB::DSTART) ; (XLIB::DEND)) ; (DECLARE (IGNORE XLIB::DEND)) ; (ASSERT (AND (ZEROP XLIB::SSTART) (ZEROP XLIB::DSTART))) ; (DO ((XLIB::SRC-IDX (XLIB::INDEX+ # XLIB::SX #) ; (XLIB::INDEX+ XLIB::SRC-IDX XLIB::SOURCE-WIDTH)) ; (XLIB::DEST-IDX (XLIB::INDEX+ # XLIB::DX #) ; (XLIB::INDEX+ XLIB::DEST-IDX XLIB::DEST-WIDTH)) ; (COUNT XLIB::HEIGHT (1- COUNT))) ; ((ZEROP COUNT)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-IDX XLIB::DEST-IDX COUNT)) ; (SB-KERNEL:UB1-BASH-COPY XLIB::SDATA XLIB::SRC-IDX XLIB::DDATA ; XLIB::DEST-IDX XLIB::WIDTH))) ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND IF THE ; ==> ; (SB-KERNEL:%WITH-ARRAY-DATA #:N-ARRAY5 #:N-SVALUE6 #:N-EVALUE7) ; ; note: unable to ; inline non-SIMPLE-vector-handling logic ; due to type uncertainty: ; The first argument is a (AND ARRAY (NOT (SIMPLE-ARRAY * (*)))), not a (OR ; VECTOR ; SIMPLE-ARRAY). ; in: DEFUN FAST-READ-PIXARRAY ; (XLIB::READ-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X ; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE ; XLIB::BITS-PER-PIXEL FUNCTION XLIB::UNIT ...) ; ; note: deleting unreachable code ; in: DEFUN FAST-WRITE-PIXARRAY-USING-BITBLT ; (ARRAY-DIMENSION XLIB:PIXARRAY 1) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; in: DEFUN FAST-WRITE-PIXARRAY ; (XLIB::WRITE-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X ; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE ; XLIB::BITS-PER-PIXEL FUNCTION XLIB::+IMAGE-UNIT+ ...) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/dependent-tmpBO0TUGLK.fasl ; compilation finished in 0:00:00.280 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/clx/macros.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/macros.lisp ; in: DEFMACRO DEFINE-ACCESSOR ; (THIRD XLIB::GET-PUT-MACROS) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/macros-tmpIIXPIQNW.fasl ; compilation finished in 0:00:00.380 ; compiling file "/usr/share/common-lisp/source/clx/bufmac.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/bufmac-tmpOHM494YR.fasl ; compilation finished in 0:00:00.028 ; compiling file "/usr/share/common-lisp/source/clx/buffer.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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)) ; --> LET XLIB::HOLDING-LOCK IF HANDLER-CASE SB-INT:DX-FLET FLET #:FORM-FUN-3 ; --> 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: 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. ; in: DEFUN READ-VECTOR-CARD8 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD8 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD8 XLIB::INDEX))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD16 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD16 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD16 XLIB::INDEX))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD32 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD32 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD32 XLIB::INDEX))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD8 ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD16 ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-INT16 ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD32 ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CHAR2B ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/buffer-tmpOVFB07XF.fasl ; compilation finished in 0:00:00.776 ; compiling file "/usr/share/common-lisp/source/clx/display.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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. ; in: DEFUN DISPLAY-FINISH-OUTPUT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETINPUTFOCUS+ 16 ; :SIZES (8 32)) ; NIL) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/display-tmpG6VFGMYP.fasl ; compilation finished in 0:00:00.124 ; compiling file "/usr/share/common-lisp/source/clx/gcontext.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN SET-GCONTEXT-DASHES ; (VECTOR) ; ; note: deleting unreachable code ; in: DEFUN FORCE-GCONTEXT-CHANGES-INTERNAL ; (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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))) ; --> 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. ; --> 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (LENGTH XLIB::LOCAL-DASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETDASHES+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-DASH-OFFSET XLIB::LOCAL-STATE) 0) ; (LENGTH XLIB::LOCAL-DASH)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::LOCAL-DASH)) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::LOCAL-DASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (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))))) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; 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))) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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)) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-GCONTEXT-LOCAL-STATE ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) ; --> XLIB::WITH-BUFFER PROGN FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::TEMP-MASK))) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (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-CREATEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:DRAWABLE (XLIB::GCONTEXT-DRAWABLE XLIB:GCONTEXT)) ; (XLIB:CARD29 0)) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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))) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (ASH BIT -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) 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) ; &OPTIONAL). ; etc. ; in: DEFUN RESTORE-GCONTEXT-TEMP-STATE ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC)) ; --> 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (FUNCALL XLIB::COPY-FUNCTION XLIB::TEMP-GC XLIB:GCONTEXT ; (SVREF XLIB::LOCAL-STATE XLIB::I)) ; ; 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))) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (ASH BIT -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) 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) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC)) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-GCONTEXT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEGC+) ; (XLIB:RESOURCE-ID XLIB::GCONTEXTID) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (PROGN ; (DO* ((XLIB::I 0 #) ; (BIT 1 #) ; (XLIB::NBYTE 16) ; (XLIB::MASK 0) ; (XLIB::LOCAL # #)) ; ((XLIB::INDEX>= XLIB::I XLIB::+GCONTEXT-FAST-CHANGE-LENGTH+) ; (XLIB::CARD29-PUT 12 XLIB::MASK) ; (XLIB::CARD16-PUT 2 #) ; (XLIB::INDEX-INCF # XLIB::NBYTE)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::I XLIB::NBYTE) ; (TYPE XLIB::XGCMASK BIT) ; (TYPE XLIB::GCMASK XLIB::MASK) ; (TYPE # XLIB::LOCAL)) ; (UNLESS (EQL XLIB::LOCAL #) ; (SETF #) ; (XLIB::CARD32-PUT XLIB::NBYTE XLIB::LOCAL) ; (SETQ #) ; (XLIB::INDEX-INCF XLIB::NBYTE 4))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-GCONTEXT-COMPONENTS ; (FIND XLIB::KEY XLIB::*GCONTEXT-EXTENSIONS* :KEY ; #'XLIB::GCONTEXT-EXTENSION-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (FUNCALL (XLIB::GCONTEXT-EXTENSION-COPY-FUNCTION XLIB::EXTENSION) XLIB::SRC ; XLIB::DST ; (SVREF (XLIB::GCONTEXT-LOCAL-STATE XLIB::SRC) ; (XLIB::INDEX+ ; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) ; XLIB::*GCONTEXT-DATA-LENGTH*))) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+) ; (XLIB:GCONTEXT XLIB::SRC XLIB::DST) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::MASK))) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-GCONTEXT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/gcontext-tmp4QIPRMOF.fasl ; compilation finished in 0:00:00.808 ; compiling file "/usr/share/common-lisp/source/clx/input.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DEFUN READ-INPUT ; (CONS NIL NIL) ; ; note: deleting unreachable code ; in: DEFUN QUEUE-EVENT ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::EVENT-CODE) XLIB:DISPLAY ; XLIB::ARGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DECLARE-EVENT :CLIENT-MESSAGE ; (XLIB:DECLARE-EVENT :CLIENT-MESSAGE ; (XLIB::DATA FORMAT) ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (KEYWORD TYPE) ; ((XLIB::CLIENT-MESSAGE-SEQUENCE FORMAT) XLIB::DATA)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::READING-EVENT XLIB::WITH-BUFFER-INPUT LET LET* ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; --> 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 COND IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD8 MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ; --> ECASE COND IF IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD16 MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ; --> ECASE COND IF IF IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD32 MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN MAKE-ERROR ; (FUNCALL XLIB::ERROR-DECODE-FUNCTION XLIB:DISPLAY XLIB::EVENT) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/input-tmpGW0QV22K.fasl ; compilation finished in 0:00:01.392 ; compiling file "/usr/share/common-lisp/source/clx/requests.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEWINDOW+) ; (XLIB::DATA XLIB::DEPTH) ; (XLIB:RESOURCE-ID XLIB::WID) ; (XLIB:WINDOW XLIB::PARENT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH) ; ((XLIB::MEMBER16 :COPY :INPUT-OUTPUT :INPUT-ONLY) CLASS) ; (XLIB:RESOURCE-ID ; (COND ((EQ XLIB::VISUAL :COPY) 0) ; ((TYPEP XLIB::VISUAL 'XLIB:RESOURCE-ID) XLIB::VISUAL) ; (T (XLIB:VISUAL-INFO-ID XLIB::VISUAL)))) ; (XLIB::MASK ; (XLIB:CARD32 XLIB::BACK-PIXMAP XLIB::BACK-PIXEL XLIB::BORDER-PIXMAP ; XLIB::BORDER-PIXEL) ; ((XLIB::MEMBER-VECTOR XLIB::+BIT-GRAVITY-VECTOR+) XLIB:BIT-GRAVITY) ; ((XLIB::MEMBER-VECTOR XLIB::+WIN-GRAVITY-VECTOR+) XLIB::GRAVITY) ; ((MEMBER :NOT-USEFUL :WHEN-MAPPED :ALWAYS) XLIB::BACKING-STORE) ; (XLIB:CARD32 XLIB::BACKING-PLANES XLIB::BACKING-PIXEL) ; ((MEMBER :OFF :ON) XLIB::OVERRIDE-REDIRECT XLIB::SAVE-UNDER) ; (XLIB:CARD32 XLIB:EVENT-MASK XLIB::DO-NOT-PROPAGATE-MASK) ; ((OR (MEMBER :COPY) XLIB:COLORMAP) XLIB:COLORMAP) ; ((OR (MEMBER :NONE) XLIB:CURSOR) XLIB:CURSOR))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN SETQ THE ; ==> ; (LOGIOR XLIB::%MASK 4096) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 4096)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 4096)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 8192)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 8192)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET INCF LET* ; ==> ; (+ XLIB::%INDEX (XLIB::BUFFER-BOFFSET #:%BUFFER104)) ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DESTROY-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-DESTROYWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DESTROY-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-DESTROYSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN REPARENT-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-REPARENTWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW XLIB::PARENT) ; (XLIB:INT16 XLIB::X XLIB::Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MAP-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-MAPWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MAP-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-MAPSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNMAP-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNMAPWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNMAP-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNMAPSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CIRCULATE-WINDOW-UP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CIRCULATEWINDOW+) ; (XLIB::DATA 0) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CIRCULATE-WINDOW-DOWN ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CIRCULATEWINDOW+) ; (XLIB::DATA 1) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN INTERN-ATOM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-INTERNATOM+ 12 ; :SIZES 32) ; ((XLIB::DATA 0) (XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::RESOURCE-ID-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FIND-ATOM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-INTERNATOM+ 12 ; :SIZES 32) ; ((XLIB::DATA 1) (XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::OR-GET 8 NULL XLIB:RESOURCE-ID))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEPROPERTY+) ; ((XLIB::DATA (MEMBER :REPLACE :PREPEND :APPEND)) XLIB::MODE) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID XLIB::TYPE-ID) ; (XLIB:CARD8 FORMAT) ; (XLIB:CARD32 LENGTH) ; (PROGN ; (ECASE FORMAT ; (8 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD8 :START XLIB::START ; :END XLIB::END :TRANSFORM XLIB::TRANSFORM)) ; (16 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD16 :START ; XLIB::START :END XLIB::END :TRANSFORM ; XLIB::TRANSFORM)) ; (32 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD32 :START ; XLIB::START :END XLIB::END :TRANSFORM ; XLIB::TRANSFORM))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DELETE-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-DELETEPROPERTY+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GET-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETPROPERTY+ NIL ; :SIZES (8 32)) ; (((XLIB::DATA BOOLEAN) XLIB::DELETE-P) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID) ; ((OR NULL XLIB:RESOURCE-ID) XLIB::TYPE-ID) (XLIB:CARD32 XLIB::START) ; (XLIB:CARD32 (XLIB::INDEX- (OR XLIB::END 64000) XLIB::START))) ; (LET ((XLIB::REPLY-FORMAT (XLIB::CARD8-GET 1)) ; (XLIB::REPLY-TYPE (XLIB::CARD32-GET 8)) ; (XLIB::BYTES-AFTER (XLIB::CARD32-GET 12)) ; (XLIB::NITEMS (XLIB::CARD32-GET 16))) ; (VALUES XLIB::REPLY-FORMAT XLIB::REPLY-TYPE XLIB::BYTES-AFTER ; (AND (PLUSP XLIB::NITEMS) (ECASE XLIB::REPLY-FORMAT # # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ROTATE-PROPERTIES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-ROTATEPROPERTIES+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 LENGTH) ; (XLIB:INT16 (- XLIB::DELTA)) ; ((SEQUENCE :END LENGTH) SEQUENCE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-SELECTION-OWNER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETSELECTIONOWNER+) ; ((OR NULL XLIB:WINDOW) XLIB::OWNER) ; (XLIB:RESOURCE-ID XLIB::SELECTION-ID) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CONVERT-SELECTION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CONVERTSELECTION+) ; (XLIB:WINDOW XLIB::REQUESTOR) ; (XLIB:RESOURCE-ID XLIB::SELECTION-ID XLIB::TYPE-ID) ; ((OR NULL XLIB:RESOURCE-ID) XLIB::PROPERTY-ID) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SEND-EVENT ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE) ; XLIB:DISPLAY XLIB::ARGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SENDEVENT+) ; ((XLIB::DATA BOOLEAN) XLIB::PROPAGATE-P) ; (LENGTH 11) ; ((OR (MEMBER :POINTER-WINDOW :INPUT-FOCUS) XLIB:WINDOW) XLIB:WINDOW) ; (XLIB:CARD32 (XLIB::ENCODE-EVENT-MASK XLIB:EVENT-MASK)) ; (XLIB:CARD8 XLIB::EXTERNAL-EVENT-CODE) ; (PROGN ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE) ; XLIB:DISPLAY XLIB::ARGS) ; (SETF (XLIB::BUFFER-BOFFSET XLIB:DISPLAY) ; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 44)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-POINTER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GRABPOINTER+ NIL ; :SIZES 8) ; (((XLIB::DATA BOOLEAN) XLIB::OWNER-P) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK)) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P)) ; ((OR NULL XLIB:WINDOW) XLIB::CONFINE-TO) ; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ((OR NULL XLIB:CARD32) TIME)) ; (VALUES ; (XLIB::MEMBER8-GET 1 :SUCCESS :ALREADY-GRABBED :INVALID-TIME :NOT-VIEWABLE ; :FROZEN))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-POINTER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-UNGRABPOINTER+) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-BUTTON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-GRABBUTTON+) ; ((XLIB::DATA BOOLEAN) XLIB::OWNER-P) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK)) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P)) ; ((OR NULL XLIB:WINDOW) XLIB::CONFINE-TO) ; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ; (XLIB:CARD8 ; (IF (EQ XLIB::BUTTON :ANY) ; 0 ; XLIB::BUTTON)) ; (XLIB::PAD8 1) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-BUTTON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNGRABBUTTON+) ; (XLIB::DATA ; (IF (EQ XLIB::BUTTON :ANY) ; 0 ; XLIB::BUTTON)) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-ACTIVE-POINTER-GRAB ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEACTIVEPOINTERGRAB+) ; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-KEYBOARD ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GRABKEYBOARD+ NIL ; :SIZES 8) ; (((XLIB::DATA BOOLEAN) XLIB::OWNER-P) (XLIB:WINDOW XLIB:WINDOW) ; ((OR NULL XLIB:CARD32) TIME) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P))) ; (VALUES ; (XLIB::MEMBER8-GET 1 :SUCCESS :ALREADY-GRABBED :INVALID-TIME :NOT-VIEWABLE ; :FROZEN))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-KEYBOARD ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-UNGRABKEYBOARD+) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-KEY ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-GRABKEY+) ; ((XLIB::DATA BOOLEAN) XLIB::OWNER-P) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS)) ; (XLIB:CARD8 ; (IF (EQ XLIB::KEY :ANY) ; 0 ; XLIB::KEY)) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-KEY ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNGRABKEY+) ; (XLIB::DATA ; (IF (EQ XLIB::KEY :ANY) ; 0 ; XLIB::KEY)) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-SERVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-GRABSERVER+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-SERVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-UNGRABSERVER+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MOTION-EVENTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETMOTIONEVENTS+ ; NIL :SIZES 32) ; ((XLIB:WINDOW XLIB:WINDOW) ((OR NULL XLIB:CARD32) XLIB::START XLIB::STOP)) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; (XLIB::INDEX* (XLIB::CARD32-GET 8) 3) :INDEX ; XLIB::+REPLYSIZE+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN TRANSLATE-COORDINATES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-TRANSLATECOORDS+ ; 16 :SIZES (8 16 32)) ; ((XLIB:WINDOW XLIB::SRC XLIB::DST) (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y)) ; (AND (XLIB::BOOLEAN-GET 1) ; (VALUES (XLIB::INT16-GET 12) (XLIB::INT16-GET 14) ; (XLIB::OR-GET 8 NULL XLIB:WINDOW)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WARP-POINTER ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::DST) ; XLIB::+X-WARPPOINTER+) ; (XLIB:RESOURCE-ID 0) ; (XLIB:WINDOW XLIB::DST) ; (XLIB:INT16 0 0) ; (XLIB:CARD16 0 0) ; (XLIB:INT16 XLIB::DST-X XLIB::DST-Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WARP-POINTER-RELATIVE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-WARPPOINTER+) ; (XLIB:RESOURCE-ID 0) ; (XLIB:RESOURCE-ID 0) ; (XLIB:INT16 0 0) ; (XLIB:CARD16 0 0) ; (XLIB:INT16 XLIB::X-OFF XLIB::Y-OFF)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WARP-POINTER-IF-INSIDE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::DST) ; XLIB::+X-WARPPOINTER+) ; (XLIB:WINDOW XLIB::SRC XLIB::DST) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y) ; (XLIB:CARD16 (OR XLIB::SRC-WIDTH 0) (OR XLIB::SRC-HEIGHT 0)) ; (XLIB:INT16 XLIB::DST-X XLIB::DST-Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WARP-POINTER-RELATIVE-IF-INSIDE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::SRC) ; XLIB::+X-WARPPOINTER+) ; (XLIB:WINDOW XLIB::SRC) ; (XLIB:RESOURCE-ID 0) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y) ; (XLIB:CARD16 (OR XLIB::SRC-WIDTH 0) (OR XLIB::SRC-HEIGHT 0)) ; (XLIB:INT16 XLIB::X-OFF XLIB::Y-OFF)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-PIXMAP ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:PIXMAP 'XLIB:PIXMAP) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEPIXMAP+) ; (XLIB::DATA XLIB::DEPTH) ; (XLIB:RESOURCE-ID XLIB::PID) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-PIXMAP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEPIXMAP+) ; (XLIB:PIXMAP XLIB:PIXMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CLEAR-AREA ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CLEARTOBACKGROUND+) ; ((XLIB::DATA BOOLEAN) XLIB::EXPOSURES-P) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 (OR XLIB::WIDTH 0) (OR XLIB::HEIGHT 0))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-AREA ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB::SRC) ; XLIB::+X-COPYAREA+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB::SRC XLIB::DST) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y XLIB::DST-X XLIB::DST-Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-PLANE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB::SRC) ; XLIB::+X-COPYPLANE+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB::SRC XLIB::DST) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y XLIB::DST-X XLIB::DST-Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) ; (XLIB:CARD32 XLIB::PLANE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-COLORMAP ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:COLORMAP 'XLIB:COLORMAP) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATECOLORMAP+) ; ((XLIB::DATA BOOLEAN) XLIB::ALLOC-P) ; (XLIB:CARD29 XLIB::ID) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD29 (XLIB:VISUAL-INFO-ID XLIB:VISUAL-INFO))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-COLORMAP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREECOLORMAP+) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-COLORMAP-AND-FREE ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB::NEW-COLORMAP 'XLIB:COLORMAP) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYCOLORMAPANDFREE+) ; (XLIB:RESOURCE-ID XLIB::ID) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN INSTALL-COLORMAP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-INSTALLCOLORMAP+) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNINSTALL-COLORMAP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-UNINSTALLCOLORMAP+) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALLOC-COLOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCNAMEDCOLOR+ ; 24 :SIZES (16 32)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (XLIB:CARD16 LENGTH) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::CARD32-GET 8) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 18) :GREEN ; (XLIB::RGB-VAL-GET 20) :BLUE ; (XLIB::RGB-VAL-GET 22)) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 12) :GREEN ; (XLIB::RGB-VAL-GET 14) :BLUE ; (XLIB::RGB-VAL-GET 16)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLOR+ 20 ; :SIZES (16 32)) ; ((XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB:COLOR) (XLIB:COLOR-GREEN XLIB:COLOR) ; (XLIB:COLOR-BLUE XLIB:COLOR)) ; (XLIB::PAD16 NIL)) ; (VALUES (XLIB::CARD32-GET 16) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 8) :GREEN ; (XLIB::RGB-VAL-GET 10) :BLUE ; (XLIB::RGB-VAL-GET 12)) ; XLIB:COLOR)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALLOC-COLOR-CELLS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLORCELLS+ ; NIL :SIZES 16) ; (((XLIB::DATA BOOLEAN) XLIB::CONTIGUOUS-P) (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD16 XLIB::COLORS XLIB::PLANES)) ; (LET ((XLIB::PIXEL-LENGTH (XLIB::CARD16-GET 8)) ; (XLIB::MASK-LENGTH (XLIB::CARD16-GET 10))) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::PIXEL-LENGTH :INDEX XLIB::+REPLYSIZE+) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::MASK-LENGTH :INDEX ; (XLIB::INDEX+ XLIB::+REPLYSIZE+ #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALLOC-COLOR-PLANES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLORPLANES+ ; NIL :SIZES (16 32)) ; (((XLIB::DATA BOOLEAN) XLIB::CONTIGUOUS-P) (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD16 XLIB::COLORS XLIB::REDS XLIB::GREENS XLIB::BLUES)) ; (LET ((XLIB::RED-MASK (XLIB::CARD32-GET 12)) ; (XLIB::GREEN-MASK (XLIB::CARD32-GET 16)) ; (XLIB::BLUE-MASK (XLIB::CARD32-GET 20))) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; (XLIB::CARD16-GET 8) :INDEX XLIB::+REPLYSIZE+) ; XLIB::RED-MASK XLIB::GREEN-MASK XLIB::BLUE-MASK))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-COLORS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-FREECOLORS+) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB::PLANE-MASK) ; (SEQUENCE XLIB::PIXELS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::PIXELS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN STORE-COLOR ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORENAMEDCOLOR+) ; ((XLIB::DATA XLIB:CARD8) XLIB::FLAGS) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB:PIXEL) ; (XLIB:CARD16 LENGTH) ; (XLIB::PAD16 NIL) ; (STRING STRING)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORECOLORS+) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB:PIXEL) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::SPEC) (XLIB:COLOR-GREEN XLIB::SPEC) ; (XLIB:COLOR-BLUE XLIB::SPEC)) ; (XLIB:CARD8 XLIB::FLAGS) ; (XLIB::PAD8 NIL)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORENAMEDCOLOR+) ; ((XLIB::DATA XLIB:CARD8) XLIB::FLAGS) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB:PIXEL) ; (XLIB:CARD16 LENGTH) ; (XLIB::PAD16 NIL) ; (STRING STRING)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-COLORS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYCOLORS+ NIL ; :SIZES (8 16)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (SEQUENCE XLIB::PIXELS)) ; (LET ((SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE #))) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+) ; (DOTIMES (XLIB::I (LENGTH SEQUENCE) SEQUENCE) ; (SETF # #) ; (XLIB::ADVANCE-BUFFER-OFFSET 8)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::PIXELS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (SETF (ELT SEQUENCE XLIB::I) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 0) :GREEN ; (XLIB::RGB-VAL-GET 2) :BLUE (XLIB::RGB-VAL-GET 4))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYCOLORS+ NIL ; :SIZES (8 16)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (SEQUENCE XLIB::PIXELS)) ; (LET ((SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE #))) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+) ; (DOTIMES (XLIB::I (LENGTH SEQUENCE) SEQUENCE) ; (SETF # #) ; (XLIB::ADVANCE-BUFFER-OFFSET 8)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN LOOKUP-COLOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LOOKUPCOLOR+ 20 ; :SIZES 16) ; ((XLIB:COLORMAP XLIB:COLORMAP) (XLIB:CARD16 LENGTH) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 14) :GREEN (XLIB::RGB-VAL-GET 16) ; :BLUE (XLIB::RGB-VAL-GET 18)) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 8) :GREEN (XLIB::RGB-VAL-GET 10) ; :BLUE (XLIB::RGB-VAL-GET 12)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-CURSOR ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATECURSOR+) ; (XLIB:RESOURCE-ID XLIB::CID) ; (XLIB:PIXMAP XLIB::SOURCE) ; ((OR NULL XLIB:PIXMAP) XLIB::MASK) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND) ; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND)) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND) ; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND)) ; (XLIB:CARD16 XLIB::X XLIB::Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-GLYPH-CURSOR ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEGLYPHCURSOR+) ; (XLIB:RESOURCE-ID XLIB::CID XLIB::SOURCE-FONT-ID XLIB::MASK-FONT-ID) ; (XLIB:CARD16 XLIB::SOURCE-CHAR) ; (XLIB:CARD16 XLIB::MASK-CHAR) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND) ; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND)) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND) ; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-CURSOR ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREECURSOR+) ; (XLIB:CURSOR XLIB:CURSOR)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RECOLOR-CURSOR ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:CURSOR-DISPLAY XLIB:CURSOR) ; XLIB::+X-RECOLORCURSOR+) ; (XLIB:CURSOR XLIB:CURSOR) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND) ; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND)) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND) ; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-BEST-CURSOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12 ; :SIZES 16) ; ((XLIB::DATA 0) (XLIB:WINDOW XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-BEST-TILE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12 ; :SIZES 16) ; ((XLIB::DATA 1) (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-BEST-STIPPLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12 ; :SIZES 16) ; ((XLIB::DATA 2) (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-EXTENSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYEXTENSION+ ; 12 :SIZES 8) ; ((XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) (STRING STRING)) ; (AND (XLIB::BOOLEAN-GET 8) ; (VALUES (XLIB::CARD8-GET 9) (XLIB::CARD8-GET 10) ; (XLIB::CARD8-GET 11)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-KEYBOARD-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEKEYBOARDCONTROL+ ; :SIZES (32)) ; (XLIB::MASK ; (INTEGER XLIB::KEY-CLICK-PERCENT XLIB::BELL-PERCENT XLIB::BELL-PITCH ; XLIB::BELL-DURATION) ; (XLIB:CARD32 XLIB::LED) ((MEMBER :OFF :ON) XLIB::LED-MODE) ; (XLIB:CARD32 XLIB::KEY) ; ((MEMBER :OFF :ON :DEFAULT) XLIB::AUTO-REPEAT-MODE))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-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 #:%BUFFER46)) ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN BELL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-BELL+) ; (XLIB::DATA (XLIB::INT8->CARD8 XLIB::PERCENT-FROM-NORMAL))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-POINTER-MAPPING ; (LENGTH MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-SETPOINTERMAPPING+ 2 :SIZES 8) ; ((XLIB::DATA (LENGTH MAP)) ((SEQUENCE :FORMAT XLIB:CARD8) MAP)) ; (VALUES (XLIB::BOOLEAN-GET 1))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-POINTER-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEPOINTERCONTROL+) ; (XLIB:INT16 NUMERATOR DENOMINATOR XLIB::THRESHOLD) ; (XLIB:CARD8 XLIB::ACCELERATION-P XLIB::THRESHOLD-P)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETSCREENSAVER+) ; (XLIB:INT16 XLIB::TIMEOUT XLIB::INTERVAL) ; ((XLIB::MEMBER8 :ON :OFF :DEFAULT) XLIB::BLANKING XLIB::EXPOSURES)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ACTIVATE-SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FORCESCREENSAVER+) ; (XLIB::DATA 1)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RESET-SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FORCESCREENSAVER+) ; (XLIB::DATA 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-ACCESS-HOST ; (LENGTH XLIB::ADDRESS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEHOSTS+) ; ((XLIB::DATA BOOLEAN) XLIB::REMOVE-P) ; (XLIB:CARD8 ; (XLIB::ENCODE-TYPE (OR NULL (MEMBER :INTERNET :DECNET :CHAOS) XLIB:CARD32) ; XLIB::FAMILY)) ; (XLIB:CARD16 (LENGTH XLIB::ADDRESS)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::ADDRESS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::ADDRESS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ACCESS-HOSTS ; (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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SETF (ELT SEQUENCE XLIB::I) ; (CONS ; (IF (< XLIB::FAMILY 3) ; (SVREF '# XLIB::FAMILY) ; XLIB::FAMILY) ; (XLIB::SEQUENCE-GET :LENGTH XLIB::LEN :FORMAT XLIB:CARD8 ; :RESULT-TYPE 'LIST :INDEX ; (+ XLIB::BUFFER-BOFFSET 4)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ACCESS-CONTROL ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LISTHOSTS+ 2 ; :SIZES 8) ; NIL ; (XLIB::BOOLEAN-GET 1)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-ACCESS-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEACCESSCONTROL+) ; ((XLIB::DATA BOOLEAN) XLIB::ENABLED-P)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN KILL-CLIENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-KILLCLIENT+) ; (XLIB:RESOURCE-ID XLIB:RESOURCE-ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN KILL-TEMPORARY-CLIENTS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-KILLCLIENT+) ; (XLIB:RESOURCE-ID 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN NO-OPERATION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-NOOPERATION+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/requests-tmp2K9J0HSR.fasl ; compilation finished in 0:00:01.472 ; compiling file "/usr/share/common-lisp/source/clx/fonts.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-OPENFONT+) ; (XLIB:RESOURCE-ID XLIB:FONT-ID) ; (XLIB:CARD16 (LENGTH XLIB::NAME-STRING)) ; (XLIB::PAD16 NIL) ; (STRING XLIB::NAME-STRING)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN OPEN-FONT-INTERNAL ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:FONT 'XLIB:FONT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (LENGTH XLIB::NAME-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-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. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CLOSE-FONT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CLOSEFONT+) ; (XLIB:RESOURCE-ID XLIB::ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN LIST-FONT-NAMES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LISTFONTS+ ; XLIB::SIZE :SIZES (8 16)) ; ((XLIB:CARD16 XLIB::MAX-FONTS (LENGTH STRING)) (STRING STRING)) ; (VALUES ; (XLIB::READ-SEQUENCE-STRING XLIB::BUFFER-BBUF ; (XLIB::INDEX- XLIB::SIZE XLIB::+REPLYSIZE+) ; (XLIB::CARD16-GET 8) XLIB::RESULT-TYPE ; XLIB::+REPLYSIZE+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN LIST-FONTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-LISTFONTSWITHINFO+ 60 :SIZES ; (8 16) :MULTIPLE-REPLY T) ; ((XLIB:CARD16 XLIB::MAX-FONTS (LENGTH STRING)) (STRING STRING)) ; (COND ((ZEROP (XLIB::CARD8-GET 1)) T) ; (T ; (LET* (# # # # # # # # #) ; (SETF #) ; (PUSH XLIB:FONT XLIB::RESULT)) ; NIL))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-FONT-PATH ; (ELT XLIB::PATHS XLIB::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (STRING (ELT XLIB::PATHS XLIB::I)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING ; SYMBOL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (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)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CEILING XLIB::REQUEST-LENGTH 4) ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; 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)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/fonts-tmpP44I4E0Y.fasl ; compilation finished in 0:00:00.120 ; compiling file "/usr/share/common-lisp/source/clx/graphics.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 ; ==> ; (= (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-POINTS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYPOINT+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-LINE ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 ; ==> ; (= (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-LINES ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYLINE+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FILL-POLYGON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-FILLPOLY+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((XLIB::MEMBER8 :COMPLEX :NON-CONVEX :CONVEX) XLIB::SHAPE) ; (BOOLEAN XLIB::RELATIVE-P) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-SEGMENTS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYSEGMENT+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::SEGMENTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::SEGMENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-RECTANGLE ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 ; ==> ; (= (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-RECTANGLES ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; (IF XLIB::FILL-P ; XLIB::+X-POLYFILLRECTANGLE+ ; XLIB::+X-POLYRECTANGLE+) ; :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::RECTANGLES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-ARC ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 ; ==> ; (= (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-ARCS-LIST ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::REQUEST :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (PROGN ; (XLIB::CARD16-PUT 2 (XLIB::INDEX+ (XLIB::INDEX-ASH LENGTH -1) 3)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)) ; (DO ((XLIB::ARC XLIB::ARCS)) ; ((ENDP XLIB::ARC) (SETF #)) ; (WHEN (XLIB::INDEX>= XLIB::BUFFER-BOFFSET XLIB::LIMIT) ; (SETF #) ; (XLIB::BUFFER-FLUSH XLIB:DISPLAY) ; (XLIB::SET-BUFFER-OFFSET #)) ; (XLIB::INT16-PUT 0 (POP XLIB::ARC)) ; (XLIB::INT16-PUT 2 (POP XLIB::ARC)) ; (XLIB::CARD16-PUT 4 (POP XLIB::ARC)) ; (XLIB::CARD16-PUT 6 (POP XLIB::ARC)) ; (XLIB::ANGLE-PUT 8 (POP XLIB::ARC)) ; (XLIB::ANGLE-PUT 10 (POP XLIB::ARC)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-ARCS-VECTOR ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 0)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 1)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 2)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 3)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 4)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 5)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::REQUEST :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (PROGN ; (XLIB::CARD16-PUT 2 (XLIB::INDEX+ (XLIB::INDEX-ASH LENGTH -1) 3)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)) ; (DO ((XLIB::N 0 #) ; (LENGTH #)) ; ((XLIB::INDEX>= XLIB::N LENGTH) (SETF #)) ; (WHEN (XLIB::INDEX>= XLIB::BUFFER-BOFFSET XLIB::LIMIT) ; (SETF #) ; (XLIB::BUFFER-FLUSH XLIB:DISPLAY) ; (XLIB::SET-BUFFER-OFFSET #)) ; (XLIB::INT16-PUT 0 (AREF XLIB::ARCS #)) ; (XLIB::INT16-PUT 2 (AREF XLIB::ARCS #)) ; (XLIB::CARD16-PUT 4 (AREF XLIB::ARCS #)) ; (XLIB::CARD16-PUT 6 (AREF XLIB::ARCS #)) ; (XLIB::ANGLE-PUT 8 (AREF XLIB::ARCS #)) ; (XLIB::ANGLE-PUT 10 (AREF XLIB::ARCS #)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN PUT-RAW-IMAGE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-PUTIMAGE+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA (MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP)) FORMAT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 XLIB::LEFT-PAD XLIB::DEPTH) ; (XLIB::PAD16 NIL) ; ((SEQUENCE :FORMAT XLIB:CARD8 :START XLIB::START) XLIB::DATA)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::DATA) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GET-RAW-IMAGE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETIMAGE+ NIL ; :SIZES (8 32)) ; (((XLIB::DATA (MEMBER ERROR :XY-PIXMAP :Z-PIXMAP)) FORMAT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) (XLIB:CARD32 XLIB::PLANE-MASK)) ; (LET ((XLIB::DEPTH (XLIB::CARD8-GET 1)) ; (LENGTH (* 4 #)) ; (XLIB::VISUAL (XLIB::RESOURCE-ID-GET 8))) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :FORMAT XLIB:CARD8 ; :LENGTH LENGTH :START XLIB::START :DATA XLIB::DATA ; :INDEX ...) ; XLIB::DEPTH (XLIB:VISUAL-INFO XLIB:DISPLAY XLIB::VISUAL)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/graphics-tmp63LQ7EX6.fasl ; compilation finished in 0:00:00.356 ; compiling file "/usr/share/common-lisp/source/clx/text.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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 ; 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))) ; --> THE ; ==> ; (+ ; (IF (OR (XLIB::FONT-CHAR-INFOS-INTERNAL XLIB:FONT) ; (XLIB::FONT-LOCAL-ONLY-P XLIB:FONT)) ; (XLIB::TEXT-EXTENTS-LOCAL XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END ; :WIDTH-ONLY) ; (XLIB::TEXT-WIDTH-SERVER XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END)) ; XLIB::WIDTH) ; ; note: forced to do 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) ; &OPTIONAL). ; etc. ; in: DEFUN TEXT-EXTENTS-SERVER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYTEXTEXTENTS+ ; 28 :SIZES (8 16 32)) ; (((XLIB::DATA BOOLEAN) (ODDP LENGTH)) ; (LENGTH (XLIB::INDEX+ (XLIB::INDEX-CEILING LENGTH 2) 2)) ; (XLIB:RESOURCE-ID XLIB:FONT-ID) ; ((SEQUENCE :FORMAT XLIB::CHAR2B :START XLIB::START :END XLIB::END ; :APPENDING T) ; SEQUENCE)) ; (VALUES (XLIB::INTEGER-GET 16) (XLIB::INT16-GET 12) (XLIB::INT16-GET 14) ; (XLIB::INTEGER-GET 20) (XLIB::INTEGER-GET 24) (XLIB::INT16-GET 8) ; (XLIB::INT16-GET 10) ; (XLIB::MEMBER8-GET 1 :LEFT-TO-RIGHT :RIGHT-TO-LEFT))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN TEXT-WIDTH-SERVER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYTEXTEXTENTS+ ; 28 :SIZES 32) ; (((XLIB::DATA BOOLEAN) (ODDP LENGTH)) ; (LENGTH (XLIB::INDEX+ (XLIB::INDEX-CEILING LENGTH 2) 2)) ; (XLIB:RESOURCE-ID XLIB:FONT-ID) ; ((SEQUENCE :FORMAT XLIB::CHAR2B :START XLIB::START :END XLIB::END ; :APPENDING T) ; SEQUENCE)) ; (VALUES (XLIB::INTEGER-GET 16))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-GLYPH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 1 0) ; (XLIB:CARD8 (LDB (BYTE 8 0) ELT)) ; (XLIB:CARD8 (LDB (BYTE 8 8) ELT))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF XLIB::OVERALL-WIDTH XLIB::TRANSLATED-WIDTH) ; --> THE ; ==> ; (+ XLIB::TRANSLATED-WIDTH XLIB::OVERALL-WIDTH) ; ; 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) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT8+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (DO* (# ; # ; # ; # ; # ; #) ; (# # # # # #) ; (DECLARE # ; # ; #) ; (SETQ #) ; (MULTIPLE-VALUE-BIND # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 # # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF XLIB::OVERALL-WIDTH XLIB::TRANSLATED-WIDTH) ; --> THE ; ==> ; (+ XLIB::TRANSLATED-WIDTH XLIB::OVERALL-WIDTH) ; ; 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) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT16+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (DO* (# ; # ; # ; # ; # ; #) ; (# # # # # #) ; (DECLARE # ; # ; #) ; (SETQ #) ; (MULTIPLE-VALUE-BIND # # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-IMAGE-GLYPH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB::DATA 1) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 (LDB (BYTE 8 0) ELT)) ; (XLIB:CARD8 (LDB (BYTE 8 8) ELT))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-IMAGE-GLYPHS8 ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-IMAGETEXT8+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (MULTIPLE-VALUE-SETQ (XLIB::NEW-START XLIB:FONT XLIB::TRANSLATED-WIDTH) ; (FUNCALL # SEQUENCE XLIB::START XLIB::END XLIB:FONT XLIB::BUFFER-BBUF ; #)) ; (SETQ XLIB::CHUNK #) ; (WHEN (AND # #) (SETQ #) (RETURN-FROM XLIB::CHANGE-FONT)) ; (WHEN (XLIB::INDEX-ZEROP XLIB::CHUNK) ; (RETURN-FROM XLIB::DRAW-IMAGE-GLYPHS8 XLIB::NEW-START)) ; (XLIB::DATA-PUT 1 XLIB::CHUNK) ; (LET (#) ; (XLIB::LENGTH-PUT 2 #) ; (SETF #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-IMAGE-GLYPHS16 ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-IMAGETEXT16+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (MULTIPLE-VALUE-SETQ (XLIB::NEW-START XLIB:FONT XLIB::TRANSLATED-WIDTH) ; (FUNCALL # SEQUENCE XLIB::START XLIB::END XLIB:FONT XLIB::BUFFER 0)) ; (SETQ XLIB::CHUNK #) ; (WHEN (AND # #) (SETQ #) (RETURN-FROM XLIB::CHANGE-FONT)) ; (WHEN (XLIB::INDEX-ZEROP XLIB::CHUNK) ; (RETURN-FROM XLIB::DRAW-IMAGE-GLYPHS16 XLIB::NEW-START)) ; (XLIB::WRITE-SEQUENCE-CHAR2B XLIB:DISPLAY ; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16) ; XLIB::BUFFER 0 XLIB::CHUNK) ; (XLIB::DATA-PUT 1 XLIB::CHUNK) ; (LET (#) ; (XLIB::LENGTH-PUT 2 #) ; (SETF #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-KEYBOARD-MAPPING ; (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))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (AREF XLIB::KEYSYMS XLIB::I XLIB::J) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (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))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN KEYBOARD-MAPPING ; (1+ XLIB::I) ; ; 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-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 # #)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SETF (AREF XLIB::RESULT XLIB::I XLIB::J) (XLIB::CARD29-GET (* XLIB::J 4))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (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 # #)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/text-tmp86F1A8FB.fasl ; compilation finished in 0:00:00.456 ; compiling file "/usr/share/common-lisp/source/clx/attributes.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-DRAWABLE-GEOMETRY ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-CONFIGUREWINDOW+) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 (ASH 1 NUMBER)) ; (XLIB:CARD29 XLIB::VALUE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> UNWIND-PROTECT FLET BLOCK 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> UNWIND-PROTECT FLET BLOCK 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN PUT-WINDOW-ATTRIBUTE-CHANGES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEWINDOWATTRIBUTES+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::MASK) ; (PROGN ; (DO ((XLIB::BITS XLIB::MASK #) ; (XLIB::REQUEST-SIZE 2) ; (XLIB::I 1 #)) ; ((ZEROP XLIB::BITS) (XLIB::CARD16-PUT 2 #) (XLIB::INDEX-INCF # #)) ; (DECLARE (TYPE XLIB:MASK32 XLIB::BITS) ; (TYPE XLIB:ARRAY-INDEX XLIB::I XLIB::REQUEST-SIZE)) ; (WHEN (ODDP XLIB::BITS) (XLIB::CARD32-PUT # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN PUT-DRAWABLE-GEOMETRY-CHANGES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CONFIGUREWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 XLIB::MASK) ; (PROGN ; (DO ((XLIB::BITS XLIB::MASK #) ; (XLIB::REQUEST-SIZE 2) ; (XLIB::I 1 #)) ; ((ZEROP XLIB::BITS) (XLIB::CARD16-PUT 2 #) (XLIB::INDEX-INCF # #)) ; (DECLARE (TYPE XLIB:MASK16 XLIB::BITS) ; (TYPE FIXNUM XLIB::REQUEST-SIZE) ; (TYPE XLIB:ARRAY-INDEX XLIB::I)) ; (WHEN (ODDP XLIB::BITS) (XLIB::CARD29-PUT # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/attributes-tmpH7D4HL98.fasl ; compilation finished in 0:00:00.260 ; compiling file "/usr/share/common-lisp/source/clx/translate.lisp" (written 27 DEC 2022 07:29:08 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/translate-tmpCDM7YXYI.fasl ; compilation finished in 0:00:00.232 ; compiling file "/usr/share/common-lisp/source/clx/keysyms.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/keysyms-tmpLM57P5P.fasl ; compilation finished in 0:00:00.016 ; compiling file "/usr/share/common-lisp/source/clx/manager.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/manager-tmpZE69DN33.fasl ; compilation finished in 0:00:00.588 ; compiling file "/usr/share/common-lisp/source/clx/image.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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 LIST 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN PUT-IMAGE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-PUTIMAGE+ :GC-FORCE ; XLIB:GCONTEXT) ; ((XLIB::DATA (MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP)) ; (COND ((OR # XLIB::BITMAP-P) :BITMAP) ((PLUSP XLIB::LEFT-PAD) :XY-PIXMAP) ; (T FORMAT))) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 XLIB::WIDTH XLIB::REQUEST-HEIGHT) ; (XLIB:INT16 XLIB::X XLIB::REQUEST-Y) ; (XLIB:CARD8 XLIB::LEFT-PAD XLIB::DEPTH) ; (XLIB::PAD16 NIL) ; (PROGN ; (XLIB::LENGTH-PUT 2 XLIB::REQUEST-LENGTH) ; (SETF (XLIB::BUFFER-BOFFSET XLIB:DISPLAY) ; (XLIB::ADVANCE-BUFFER-OFFSET 24)) ; (ETYPECASE XLIB:IMAGE ; (XLIB:IMAGE-X (ECASE # # #)) ; (XLIB:IMAGE-XY ; (XLIB::WRITE-IMAGE-XY XLIB:DISPLAY XLIB:IMAGE XLIB::LEFT-PADDED-SRC-X ; XLIB::REQUEST-SRC-Y XLIB::LEFT-PADDED-WIDTH XLIB::REQUEST-HEIGHT ; XLIB::PADDED-BYTES-PER-LINE XLIB::UNIT XLIB::BYTE-LSB-FIRST-P ; XLIB::BIT-LSB-FIRST-P)) ; (XLIB:IMAGE-Z ; (XLIB::WRITE-IMAGE-Z XLIB:DISPLAY XLIB:IMAGE XLIB::LEFT-PADDED-SRC-X ; XLIB::REQUEST-SRC-Y XLIB::LEFT-PADDED-WIDTH XLIB::REQUEST-HEIGHT ; XLIB::PADDED-BYTES-PER-LINE XLIB::UNIT XLIB::BYTE-LSB-FIRST-P ; XLIB::BIT-LSB-FIRST-P))) ; (XLIB::BUFFER-PAD-REQUEST XLIB:DISPLAY ; (XLIB::INDEX- ; (XLIB::INDEX* XLIB::REQUEST-WORDS 4) ; XLIB::REQUEST-BYTES)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/image-tmpG8099TO3.fasl ; compilation finished in 0:00:01.060 ; compiling file "/usr/share/common-lisp/source/clx/resource.lisp" (written 27 DEC 2022 07:29:08 AM): ; file: /usr/share/common-lisp/source/clx/resource.lisp ; in: DEFUN DELETE-RESOURCE-INTERNAL ; (SETQ XLIB::LOOSE-P NIL) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/resource-tmpTASQCYAW.fasl ; compilation finished in 0:00:00.240 ; compiling file "/usr/share/common-lisp/source/clx/extensions/shape.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SHAPE-RECTANGLES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 1) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-RECTANGLE-ORDERING XLIB::ORDERING)) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::RECTANGLES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SHAPE-COMBINE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 3) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::SOURCE-KIND)) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET) ; (XLIB:WINDOW XLIB::SOURCE-WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SHAPE-OFFSET ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 4) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 0) ; (XLIB:CARD8 0) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/shape-tmp35U57IV6.fasl ; compilation finished in 0:00:00.220 ; compiling file "/usr/share/common-lisp/source/clx/extensions/big-requests.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/big-requests-tmpTZOONXRW.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xvidmode.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SET-CLIENT-VERSION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SET-CLIENT-VERSION+) ; (XLIB:CARD16 XLIB::+XF86VIDMODE-MAJOR-VERSION+) ; (XLIB:CARD16 XLIB::+XF86VIDMODE-MINOR-VERSION+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-PERMISSIONS ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-PERMISIONS+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-MOD-MODE-LINE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+MOD-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; ((SEQUENCE :FORMAT XLIB:CARD16 :START 2) XLIB::V)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+MOD-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; ((SEQUENCE :FORMAT XLIB:CARD16 :START 2) XLIB::V)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-MODE-LINE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MODE-LINE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0)) ; (LET ((XLIB::MODE-INFO ; (XLIB::MAKE-MODE-INFO :DOTCLOCK # :HDISPLAY # :HSYNCSTART # ; :HSYNCEND # :HTOTAL # :HSKEW ...)) ; (XLIB::SIZE (XLIB::CARD32-GET #))) ; (DECLARE (TYPE XLIB:CARD32 XLIB::SIZE)) ; (INCF XLIB::OFFSET 4) ; (SETF (XLIB::MODE-INFO-PRIVSIZE XLIB::MODE-INFO) XLIB::SIZE ; (XLIB::MODE-INFO-PRIVATE XLIB::MODE-INFO) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :INDEX XLIB::OFFSET ; :LENGTH XLIB::SIZE :RESULT-TYPE 'LIST)) ; XLIB::MODE-INFO)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MODE-LINE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0)) ; (LET ((XLIB::MODE-INFO ; (XLIB::MAKE-MODE-INFO :DOTCLOCK # :HDISPLAY # :HSYNCSTART # ; :HSYNCEND # :HTOTAL # :HSKEW ...)) ; (XLIB::SIZE (XLIB::CARD32-GET #))) ; (DECLARE (TYPE XLIB:CARD32 XLIB::SIZE)) ; (INCF XLIB::OFFSET 4) ; (SETF (XLIB::MODE-INFO-PRIVSIZE XLIB::MODE-INFO) XLIB::SIZE ; (XLIB::MODE-INFO-PRIVATE XLIB::MODE-INFO) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :INDEX XLIB::OFFSET ; :LENGTH XLIB::SIZE :RESULT-TYPE 'LIST)) ; XLIB::MODE-INFO)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-ALL-MODE-LINES ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::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 ...))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-ADD-MODE-LINE ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-DELETE-MODE-LINE ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-VALIDATE-MODE-LINE ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+VALIDATE-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V)) ; (LET ((XLIB::STATUS (XLIB::INTEGER-GET 8))) ; (DECLARE (TYPE XLIB:INT32 XLIB::STATUS)) ; (WHEN XLIB::STATUS (XLIB::DECODE-STATUS-MODE XLIB::STATUS)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0) (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0) ; (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0)) ; (VALUES (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0) (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0) ; (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0)) ; (VALUES (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SET-GAMMA ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+SET-GAMMA+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 0) ; (XLIB:CARD32 (TRUNCATE (* XLIB::RED 10000))) ; (XLIB:CARD32 (TRUNCATE (* XLIB::GREEN 10000))) ; (XLIB:CARD32 (TRUNCATE (* XLIB::BLUE 10000))) ; (XLIB:CARD32 0) ; (XLIB:CARD32 0) ; (XLIB:CARD32 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE)) ; (LET ((XLIB::REP-SIZE (* # 2))) ; (DECLARE (TYPE FIXNUM XLIB::REP-SIZE)) ; (UNLESS (ZEROP XLIB::REP-SIZE) ; (LET* (# #) ; (DECLARE #) ; (VALUES # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE)) ; (LET ((XLIB::REP-SIZE (* # 2))) ; (DECLARE (TYPE FIXNUM XLIB::REP-SIZE)) ; (UNLESS (ZEROP XLIB::REP-SIZE) ; (LET* (# #) ; (DECLARE #) ; (VALUES # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SET-GAMMA-RAMP ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+SET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE) ; ((SEQUENCE :FORMAT XLIB:CARD16) ; (IF (ZEROP (MOD XLIB::SIZE 2)) ; (CONCATENATE 'VECTOR XLIB::RED XLIB::GREEN XLIB::BLUE) ; (CONCATENATE 'VECTOR XLIB::RED '#(0) XLIB::GREEN '#(0) XLIB::BLUE ; '#(0))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP-SIZE ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA-RAMP-SIZE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (XLIB::CARD16-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-LOCK-MODE-SWITCH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+LOCK-MODE-SWITCH+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 ; (IF XLIB::LOCK-P ; 1 ; 0))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+LOCK-MODE-SWITCH+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 ; (IF XLIB::LOCK-P ; 1 ; 0))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SWITCH-TO-MODE ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-TO-MODE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SWITCH-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 XLIB::ZOOM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 XLIB::ZOOM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SELECT-NEXT-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 1)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 1)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SELECT-PREV-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 65535)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 65535)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-MONITOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MONITOR+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (LET* ((XLIB::VENDOR-NAME-LENGTH (XLIB::CARD8-GET 8)) ; (XLIB::MODEL-NAME-LENGTH (XLIB::CARD8-GET 9)) ; (XLIB::PAD (- 4 #)) ; (XLIB::NHSYNC (XLIB::CARD8-GET 10)) ; (XLIB::NVSYNC (XLIB::CARD8-GET 11)) ; (XLIB::VINDEX (+ 32 #)) ; (XLIB::MINDEX (+ XLIB::VINDEX XLIB::VENDOR-NAME-LENGTH XLIB::PAD)) ; (XLIB::HSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NHSYNC :INDEX 32 :RESULT-TYPE ; 'LIST)) ; (XLIB::VSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NVSYNC :INDEX # :RESULT-TYPE ; 'LIST))) ; (DECLARE ; (TYPE XLIB:CARD8 XLIB::NHSYNC XLIB::NVSYNC XLIB::VENDOR-NAME-LENGTH ; XLIB::MODEL-NAME-LENGTH) ; (TYPE FIXNUM XLIB::PAD XLIB::VINDEX XLIB::MINDEX)) ; (VALUES ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::HSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::VSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (XLIB::STRING-GET XLIB::VENDOR-NAME-LENGTH XLIB::VINDEX) ; (XLIB::STRING-GET XLIB::MODEL-NAME-LENGTH XLIB::MINDEX)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MONITOR+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (LET* ((XLIB::VENDOR-NAME-LENGTH (XLIB::CARD8-GET 8)) ; (XLIB::MODEL-NAME-LENGTH (XLIB::CARD8-GET 9)) ; (XLIB::PAD (- 4 #)) ; (XLIB::NHSYNC (XLIB::CARD8-GET 10)) ; (XLIB::NVSYNC (XLIB::CARD8-GET 11)) ; (XLIB::VINDEX (+ 32 #)) ; (XLIB::MINDEX (+ XLIB::VINDEX XLIB::VENDOR-NAME-LENGTH XLIB::PAD)) ; (XLIB::HSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NHSYNC :INDEX 32 :RESULT-TYPE ; 'LIST)) ; (XLIB::VSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NVSYNC :INDEX # :RESULT-TYPE ; 'LIST))) ; (DECLARE ; (TYPE XLIB:CARD8 XLIB::NHSYNC XLIB::NVSYNC XLIB::VENDOR-NAME-LENGTH ; XLIB::MODEL-NAME-LENGTH) ; (TYPE FIXNUM XLIB::PAD XLIB::VINDEX XLIB::MINDEX)) ; (VALUES ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::HSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::VSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (XLIB::STRING-GET XLIB::VENDOR-NAME-LENGTH XLIB::VINDEX) ; (XLIB::STRING-GET XLIB::MODEL-NAME-LENGTH XLIB::MINDEX)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-VIEWPORT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-VIEWPORT+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-VIEWPORT+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SET-VIEWPORT ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-DOTCLOCKS ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-DOT-CLOCKS+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 16) ; (XLIB::SEQUENCE-GET :LENGTH (XLIB::CARD32-GET 12) :FORMAT ; XLIB:CARD32 :INDEX 32 :RESULT-TYPE 'LIST))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xvidmode-tmpWN0UKDSV.fasl ; compilation finished in 0:00:00.696 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xrender.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xrender-tmpBF3HHBTQ.fasl ; compilation finished in 0:00:00.880 ; compiling file "/usr/share/common-lisp/source/clx/extensions/glx.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/glx.lisp ; in: DEFUN QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+QUERY-VERSION+) (XLIB:CARD32 1) (XLIB:CARD32 3)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+QUERY-SERVER-STRING+) ; (XLIB:CARD32 (OR (POSITION XLIB:SCREEN # :TEST #'EQ) 0)) ; (XLIB:CARD32 XLIB/GLX::NAME)) ; (LET* ((LENGTH (XLIB::CARD32-GET 12)) ; (XLIB/GLX::BYTES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD8 :RESULT-TYPE '# :INDEX 32 ; :LENGTH LENGTH))) ; (DECLARE (TYPE (SIMPLE-ARRAY XLIB:CARD8 #) XLIB/GLX::BYTES) ; (TYPE FIXNUM LENGTH)) ; (MAP-INTO (MAKE-STRING (1- LENGTH)) #'CODE-CHAR XLIB/GLX::BYTES))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CLIENT-INFO ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+CLIENT-INFO+) ; (XLIB:CARD32 4) ; (XLIB:CARD32 1) ; (XLIB:CARD32 3) ; (XLIB:CARD32 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MAKE-CONTEXT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB/GLX::CTX 'XLIB/GLX::CONTEXT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN CREATE-CONTEXT ; (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 LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+CREATE-CONTEXT+) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX)) ; (XLIB:RESOURCE-ID XLIB/GLX::VISUAL) ; (XLIB:CARD32 ; (OR (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY) :TEST #'EQ) 0)) ; (XLIB:RESOURCE-ID XLIB/GLX::SHARE-LIST) ; (BOOLEAN XLIB/GLX:IS-DIRECT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DESTROY-CONTEXT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+DESTROY-CONTEXT+) ; (XLIB:RESOURCE-ID XLIB/GLX::ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN IS-DIRECT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+IS-DIRECT+) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX))) ; (XLIB::CARD8-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-CONTEXT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+QUERY-CONTEXT+) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX))) ; (LET ((XLIB/GLX::NUM-ATTRIBUTES (XLIB::CARD32-GET 8))) ; (DECLARE (TYPE FIXNUM XLIB/GLX::NUM-ATTRIBUTES)) ; (LOOP XLIB/GLX::REPEAT XLIB/GLX::NUM-ATTRIBUTES ; XLIB/GLX::FOR XLIB/GLX::I FIXNUM XLIB/GLX::UPFROM 32 XLIB/GLX::BY 8 ; XLIB/GLX::COLLECTING (CONS (XLIB::CARD32-GET XLIB/GLX::I) ; (XLIB::CARD32-GET #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GET-DRAWABLE-ATTRIBUTES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+GET-DRAWABLE-ATTRIBUTES+) ; (XLIB:DRAWABLE XLIB:DRAWABLE)) ; (LET ((XLIB/GLX::NUM-ATTRIBUTES (XLIB::CARD32-GET 8))) ; (DECLARE (TYPE FIXNUM XLIB/GLX::NUM-ATTRIBUTES)) ; (LOOP XLIB/GLX::REPEAT XLIB/GLX::NUM-ATTRIBUTES ; XLIB/GLX::FOR XLIB/GLX::I FIXNUM XLIB/GLX::UPFROM 32 XLIB/GLX::BY 8 ; XLIB/GLX::COLLECTING (CONS (XLIB::CARD32-GET XLIB/GLX::I) ; (XLIB::CARD32-GET #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MAKE-CURRENT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+MAKE-CURRENT+) ; (XLIB:RESOURCE-ID (XLIB:DRAWABLE-ID XLIB:DRAWABLE)) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX)) ; (XLIB:CARD32 XLIB/GLX::OLD-TAG)) ; (LET ((XLIB/GLX::NEW-TAG (XLIB::CARD32-GET 8))) ; (SETF (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX) XLIB/GLX::NEW-TAG ; (XLIB/GLX::CONTEXT-DRAWABLE XLIB/GLX::CTX) XLIB:DRAWABLE ; (XLIB/GLX::CONTEXT-DISPLAY XLIB/GLX::CTX) XLIB:DISPLAY ; XLIB/GLX::*CURRENT-CONTEXT* XLIB/GLX::CTX))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 LIST VECTOR). ; (LOOP XLIB/GLX::REPEAT (/ (- XLIB/GLX::NUM-PROPERTIES XLIB/GLX::NUM-ORDERED) ; 2) ; XLIB/GLX::COLLECTING (CONS (XLIB::CARD32-GET (INCF XLIB/GLX::INDEX 4)) ; (XLIB::CARD32-GET (INCF XLIB/GLX::INDEX 4)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+GET-VISUAL-CONFIGS+) ; (XLIB:CARD32 (OR (POSITION XLIB:SCREEN # :TEST #'EQ) 0))) ; (LET* ((XLIB/GLX::NUM-VISUALS (XLIB::CARD32-GET 8)) ; (XLIB/GLX::NUM-PROPERTIES (XLIB::CARD32-GET 12)) ; (XLIB/GLX::NUM-ORDERED ; (LENGTH XLIB/GLX::*VISUAL-CONFIG-PROPERTIES*))) ; (DECLARE ; (TYPE FIXNUM XLIB/GLX::NUM-ORDERED XLIB/GLX::NUM-VISUALS ; XLIB/GLX::NUM-PROPERTIES)) ; (LOOP XLIB/GLX::WITH XLIB/GLX::INDEX FIXNUM = 28 ; XLIB/GLX::REPEAT XLIB/GLX::NUM-VISUALS ; XLIB/GLX::COLLECTING (XLIB/GLX::MAKE-VISUAL (NCONC # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SWAP-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+SWAP-BUFFERS+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX)) ; (XLIB:RESOURCE-ID ; (XLIB:DRAWABLE-ID (XLIB/GLX::CONTEXT-DRAWABLE XLIB/GLX::CTX)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WAIT-GL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+WAIT-GL+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WAIT-X ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+WAIT-X+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/glx-tmpGYUNPZCY.fasl ; compilation finished in 0:00:00.280 ; compiling file "/usr/share/common-lisp/source/clx/extensions/gl.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/gl.lisp ; in: DEFINE-SEQUENCE-SETTER INT8 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT8) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER INT16 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT16) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER INT32 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT32) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER BOOL ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::BOOL) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER CARD8 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD8) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER CARD16 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD16) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER CARD32 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD32) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER FLOAT32 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::FLOAT32) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER FLOAT64 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::FLOAT64) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN GET-STRING ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+GET-STRING+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (XLIB:CARD32 XLIB/GL::NAME)) ; (LET* ((LENGTH (XLIB::CARD32-GET 12)) ; (XLIB/GL::BYTES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD8 :RESULT-TYPE '# :INDEX 32 ; :LENGTH LENGTH))) ; (DECLARE (TYPE (SIMPLE-ARRAY XLIB:CARD8 #) XLIB/GL::BYTES) ; (TYPE FIXNUM LENGTH)) ; (MAP-INTO (MAKE-STRING (1- LENGTH)) #'CODE-CHAR XLIB/GL::BYTES))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN NEW-LIST ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GL::+NEW-LIST+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (XLIB:CARD32 LIST) ; (XLIB:CARD32 XLIB/GL::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GEN-LISTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+GEN-LISTS+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (INTEGER XLIB/GL::RANGE)) ; (XLIB::CARD32-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN END-LIST ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GL::+END-LIST+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ENABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+ENABLE+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (XLIB:CARD32 XLIB/GL::CAP))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FLUSH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GL::+FLUSH+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FINISH ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+FINISH+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/gl-tmpD68Q8WCA.fasl ; compilation finished in 0:00:01.228 ; compiling file "/usr/share/common-lisp/source/clx/extensions/dpms.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/dpms.lisp ; in: DEFUN DPMS-GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+GET-VERSION+) ; (XLIB:CARD16 XLIB/DPMS::MAJOR-VERSION) ; (XLIB:CARD16 XLIB/DPMS::MINOR-VERSION)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-CAPABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+CAPABLE+)) ; (XLIB::BOOLEAN-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-GET-TIMEOUTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+GET-TIMEOUTS+)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10) (XLIB::CARD16-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-SET-TIMEOUTS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/DPMS::+SET-TIMEOUTS+) ; (XLIB:CARD16 XLIB/DPMS::STANDBY) ; (XLIB:CARD16 XLIB/DPMS::SUSPEND) ; (XLIB:CARD16 XLIB/DPMS::OFF) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-ENABLE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/DPMS::+ENABLE+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-DISABLE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; ((XLIB::DATA XLIB/DPMS::+DISABLE+))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-FORCE-LEVEL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/DPMS::+FORCE-LEVEL+) ; (XLIB:CARD16 ; (ECASE XLIB/DPMS::POWER-LEVEL ; (:DPMS-MODE-ON 0) ; (:DPMS-MODE-STANDBY 1) ; (:DPMS-MODE-SUSPEND 2) ; (:DPMS-MODE-OFF 3))) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+INFO+)) ; (LET ((XLIB/DPMS::STATE ; (IF # ; :DPMS-ENABLED ; :DPMS-DISABLED))) ; (VALUES (UNLESS (EQ XLIB/DPMS::STATE :DPMS-DISABLED) (ECASE # # # # #)) ; XLIB/DPMS::STATE))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/dpms-tmp7MK9KM9C.fasl ; compilation finished in 0:00:00.052 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xtest.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/xtest.lisp ; in: DEFUN GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/XTEST::OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB/XTEST::+GET-VERSION+) (XLIB:CARD8 XLIB/XTEST::MAJOR) ; (XLIB:CARD16 XLIB/XTEST::MINOR)) ; (VALUES (XLIB::CARD8-GET 1) (XLIB::CARD16-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPARE-CURSOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/XTEST::OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB/XTEST::+COMPARE-CURSOR+) ; (XLIB:RESOURCE-ID (XLIB:WINDOW-ID XLIB:WINDOW)) ; (XLIB:RESOURCE-ID XLIB:CURSOR-ID)) ; (VALUES (XLIB::CARD8-GET 1))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FAKE-MOTION-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 XLIB/XTEST::+FAKE-MOTION-NOTIFY+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::RELATIVE ; 1 ; 0)) ; (XLIB/XTEST::PAD16 0) ; (XLIB:CARD32 XLIB/XTEST::DELAY) ; (XLIB:CARD32 XLIB/XTEST::ROOT-WINDOW-ID) ; (XLIB/XTEST::PAD32 0 0) ; (XLIB:CARD16 XLIB/XTEST::X) ; (XLIB:CARD16 XLIB/XTEST::Y) ; (XLIB/XTEST::PAD32 0 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FAKE-BUTTON-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::PRESSED ; XLIB/XTEST::+FAKE-BUTTON-PRESS+ ; XLIB/XTEST::+FAKE-BUTTON-RELEASE+)) ; (XLIB:CARD8 XLIB/XTEST::BUTTON) ; (XLIB/XTEST::PAD16 0) ; (XLIB:CARD32 XLIB/XTEST::DELAY) ; (XLIB/XTEST::PAD32 0 0 0 0 0 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FAKE-KEY-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::PRESSED ; XLIB/XTEST::+FAKE-KEY-PRESS+ ; XLIB/XTEST::+FAKE-KEY-RELEASE+)) ; (XLIB:CARD8 XLIB/XTEST::KEYCODE) ; (XLIB/XTEST::PAD16 0) ; (XLIB:CARD32 XLIB/XTEST::DELAY) ; (XLIB/XTEST::PAD32 0 0 0 0 0 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+GRAB-CONTROL+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::GRAB? ; 1 ; 0)) ; (XLIB/XTEST::PAD8 0) ; (XLIB/XTEST::PAD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xtest-tmpJJ71X849.fasl ; compilation finished in 0:00:00.052 ; compiling file "/usr/share/common-lisp/source/clx/extensions/screensaver.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/screensaver.lisp ; in: DEFUN SCREEN-SAVER-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "MIT-SCREEN-SAVER") ; NIL) ; ((XLIB::DATA 0) (XLIB:CARD8 1) (XLIB:CARD8 0) (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/screensaver-tmp1VUK6SR2.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/clx/extensions/randr.lisp" (written 27 DEC 2022 07:29:08 AM): ; file: /usr/share/common-lisp/source/clx/extensions/randr.lisp ; in: DEFUN RR-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (32)) ; ((XLIB::DATA XLIB::+RR-QUERYVERSION+) (XLIB:CARD32 XLIB::+RR-MAJOR+) ; (XLIB:CARD32 XLIB::+RR-MINOR+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-SCREEN-CONFIG ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (16 32)) ; ((XLIB::DATA XLIB::+RR-SETSCREENCONFIG+) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB:TIMESTAMP) (XLIB:CARD32 XLIB::CONF-TIMESTAMP) ; (XLIB:CARD16 XLIB::SIZE-ID) (XLIB:CARD16 XLIB::ROT-MASK) ; (XLIB:CARD16 XLIB::REFRESH) (XLIB::PAD16)) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) (XLIB::WINDOW-GET 16) ; (XLIB::MEMBER16-VECTOR-GET 20 XLIB::+RENDER-SUBPIXEL-ORDER+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SELECT-INPUT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SELECTINPUT+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 XLIB::SELECT-MASK) ; (XLIB::PAD16)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-SCREEN-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETSCREENINFO+) (XLIB:WINDOW XLIB:WINDOW)) ; (LET ((XLIB::NUM-SCREENS (XLIB::CARD16-GET 20)) ; (XLIB::NUM-RATES (XLIB::CARD16-GET 28)) ; (XLIB::RATES-LOCATION 0)) ; (DECLARE (TYPE FIXNUM XLIB::RATES-LOCATION XLIB::NUM-RATES)) ; (VALUES (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 1)) ; (XLIB::WINDOW-GET 8) (XLIB::CARD32-GET 12) (XLIB::CARD32-GET 16) ; (XLIB::CARD16-GET 22) ; (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 24)) ; (XLIB::CARD16-GET 26) ; (LOOP :FOR XLIB::X FIXNUM :FROM 1 :TO XLIB::NUM-SCREENS ; :FOR XLIB::OFFSET FIXNUM := ...) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH XLIB::NUM-RATES ; :INDEX XLIB::RATES-LOCATION :RESULT-TYPE ; XLIB::RESULT-TYPE)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-SCREEN-SIZE-RANGE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (16)) ; ((XLIB::DATA XLIB::+RR-GETSCREENSIZERANGE+) (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH 4 :INDEX 8 :RESULT-TYPE ; XLIB::RESULT-TYPE))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-SCREEN-SIZE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETSCREENSIZE+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 XLIB::WIDTH) ; (XLIB:CARD16 XLIB::HEIGHT) ; (XLIB:CARD32 XLIB::WIDTH-MM) ; (XLIB:CARD32 XLIB::HEIGHT-MM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-SCREEN-RESOURCES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETSCREENRESOURCES+) (XLIB:WINDOW XLIB:WINDOW)) ; (LET* ((XLIB::NUM-CRTCS (XLIB::CARD16-GET 16)) ; (XLIB::NUM-OUTPUTS (XLIB::CARD16-GET 18)) ; (XLIB::OUTPUT-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #)) ; (XLIB::NUM-MODEINFOS (XLIB::CARD16-GET 20)) ; (XLIB::NAME-BYTES (XLIB::CARD16-GET 22)) ; (XLIB::MODE-START (XLIB::INDEX+ XLIB::OUTPUT-START #)) ; (XLIB::NAME-START (XLIB::INDEX+ XLIB::MODE-START #))) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX 32 :LENGTH ; XLIB::NUM-CRTCS) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX XLIB::OUTPUT-START ; :LENGTH XLIB::NUM-OUTPUTS) ; (LOOP :FOR XLIB::I FIXNUM :FROM 1 :TO XLIB::NUM-MODEINFOS ; :FOR XLIB::OFFSET FIXNUM := ...) ; (XLIB::STRING-GET XLIB::NAME-BYTES XLIB::NAME-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-OUTPUT-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETOUTPUTINFO+) (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; (LET* ((XLIB::NUM-CRTCS (XLIB::CARD16-GET 26)) ; (XLIB::NUM-MODES (XLIB::CARD16-GET 28)) ; (XLIB::NUM-CLONES (XLIB::CARD16-GET 32)) ; (XLIB::NAME-LENGTH (XLIB::CARD16-GET 34)) ; (XLIB::CRTC-START 26) ; (XLIB::MODE-START (XLIB::INDEX+ XLIB::CRTC-START #)) ; (XLIB::CLONE-START (XLIB::INDEX+ XLIB::MODE-START #)) ; (XLIB::NAME-START (XLIB::INDEX+ XLIB::CLONE-START #))) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) (XLIB::CARD32-GET 16) ; (XLIB::CARD32-GET 20) ; (XLIB::MEMBER8-VECTOR-GET 24 XLIB::+RR-CONNECTION+) ; (XLIB::MEMBER8-VECTOR-GET 25 XLIB::+RENDER-SUBPIXEL-ORDER+) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::NUM-CRTCS :INDEX 26) ; (XLIB::CARD16-GET 30) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::NUM-MODES :INDEX XLIB::MODE-START) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::NUM-CLONES :INDEX XLIB::CLONE-START) ; ...))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-LIST-OUTPUT-PROPERTIES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-LISTOUTPUTPROPERTIES+) (XLIB:CARD32 XLIB::OUTPUT)) ; (LET ((XLIB::NUM-ATOMS (XLIB::CARD16-GET 8))) ; (VALUES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE XLIB::RESULT-TYPE ; :LENGTH XLIB::NUM-ATOMS :INDEX XLIB::+REPLYSIZE+ ; :TRANSFORM #'(LAMBDA # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-QUERY-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-QUERYOUTPUTPROPERTY+) (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM)) ; (VALUES (XLIB::BOOLEAN-GET 8) (XLIB::BOOLEAN-GET 9) (XLIB::BOOLEAN-GET 10) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :INDEX ; XLIB::+REPLYSIZE+ :LENGTH ; (XLIB::CARD32-GET 4)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-CONFIGURE-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-CONFIGUREOUTPUTPROPERTY+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM) ; (BOOLEAN XLIB::PENDING XLIB::RANGE) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-CHANGE-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-CHANGEOUTPUTPROPERTY+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM) ; (XLIB:CARD32 XLIB::ATOM-TYPE) ; (XLIB:CARD8 32) ; (XLIB:CARD8 XLIB::MODE) ; (XLIB::PAD16) ; (XLIB:CARD32 XLIB::DATA-LENGTH) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-DELETE-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-DELETEOUTPUTPROPERTY+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETOUTPUTPROPERTY+) (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM) (XLIB:CARD32 TYPE) (XLIB:CARD32 0) (XLIB:CARD32 0) ; (XLIB:CARD8 DELETE) (XLIB:CARD8 XLIB::PENDING) (XLIB::PAD16)) ; (LET* ((XLIB::BYTES-AFTER (XLIB::CARD32-GET 12)) ; (XLIB::VALUE-LENGTH (XLIB::CARD32-GET 16)) ; (XLIB::BYTE-FORMAT (UNLESS # #))) ; (VALUES (XLIB::CARD32-GET 8) XLIB::VALUE-LENGTH ; (WHEN (NOT #) (CASE XLIB::BYTE-FORMAT # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-CREATE-MODE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-CREATEMODE+) (XLIB:WINDOW XLIB:WINDOW) ; (PROGN ; (XLIB::RR-MODE-INFO-PUT 8 XLIB:MODE-INFO) ; (XLIB::STRING-PUT 40 XLIB::NAME))) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-DESTROY-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-DESTROYMODE+) ; (XLIB:CARD32 XLIB::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-ADD-OUTPUT-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-ADDOUTPUTMODE+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 XLIB::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-DELETE-OUTPUT-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-DELETEOUTPUTMODE+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 XLIB::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-CRTC-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCINFO+) (XLIB:CARD32 XLIB::CRTC) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; (LET* ((XLIB::NUM-OUTPUTS (XLIB::CARD16-GET 28)) ; (XLIB::POS-OUTPUTS (XLIB::CARD16-GET 30)) ; (XLIB::POS-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #))) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8) (XLIB::INT16-GET 12) (XLIB::INT16-GET 14) ; (XLIB::CARD16-GET 16) (XLIB::CARD16-GET 18) (XLIB::CARD32-GET 20) ; (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 24)) ; (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 26)) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :INDEX ; XLIB::+REPLYSIZE+ :LENGTH XLIB::NUM-OUTPUTS) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :INDEX ; XLIB::POS-START :LENGTH XLIB::POS-OUTPUTS)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-CRTC-CONFIG ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-SETCRTCCONFIG+) (XLIB:CARD32 XLIB::CRTC) ; (XLIB:CARD32 XLIB:TIMESTAMP) (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP) ; (XLIB:CARD16 XLIB::X) (XLIB:CARD16 XLIB::Y) (XLIB:CARD32 XLIB::MODE) ; (XLIB:CARD16 XLIB::ROT-MASK) (XLIB::PAD16) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-CRTC-GAMMA-SIZE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCGAMMASIZE+) (XLIB:CARD32 XLIB::CRTC)) ; (VALUES (XLIB::CARD16-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-CRTC-GAMMA ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCGAMMA+) (XLIB:CARD32 XLIB::CRTC)) ; (LET* ((XLIB::SIZE (XLIB::CARD16-GET 8)) ; (XLIB::GREEN-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #)) ; (XLIB::BLUE-START (XLIB::INDEX+ XLIB::GREEN-START #))) ; (VALUES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH XLIB::SIZE :INDEX ; XLIB::+REPLYSIZE+ :RESULT-TYPE XLIB::RESULT-TYPE) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH XLIB::SIZE :INDEX ; XLIB::GREEN-START :RESULT-TYPE XLIB::RESULT-TYPE) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH XLIB::SIZE :INDEX ; XLIB::BLUE-START :RESULT-TYPE XLIB::RESULT-TYPE)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-CRTC-GAMMA ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETCRTCGAMMA+) ; (XLIB:CARD32 XLIB::CRTC) ; (XLIB:CARD16 XLIB::SIZE) ; (XLIB::PAD16) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-SCREEN-RESOURCES-CURRENT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETSCREENRESOURCESCURRENT+) ; (XLIB:WINDOW XLIB:WINDOW)) ; (LET* ((XLIB::NUM-CRTCS (XLIB::CARD16-GET 16)) ; (XLIB::NUM-OUTPUTS (XLIB::CARD16-GET 18)) ; (XLIB::OUTPUT-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #)) ; (XLIB::NUM-MODEINFOS (XLIB::CARD16-GET 20)) ; (XLIB::NAME-BYTES (XLIB::CARD16-GET 22)) ; (XLIB::MODE-START (XLIB::INDEX+ XLIB::OUTPUT-START #)) ; (XLIB::NAME-START (XLIB::INDEX+ XLIB::MODE-START #))) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX 32 :LENGTH ; XLIB::NUM-CRTCS) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX XLIB::OUTPUT-START ; :LENGTH XLIB::NUM-OUTPUTS) ; (LOOP :FOR XLIB::I FIXNUM :FROM 1 :TO XLIB::NUM-MODEINFOS ; :FOR XLIB::OFFSET FIXNUM := ...) ; (XLIB::STRING-GET XLIB::NAME-BYTES XLIB::NAME-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-CRTC-TRANSFORM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCTRANSFORM+) (XLIB:CARD32 XLIB::CRTC)) ; (LET* ((XLIB::PEND-NAME (XLIB::CARD16-GET 88)) ; (XLIB::PEND-NUM-PARAMS (XLIB::CARD16-GET 90)) ; (XLIB::PAD-PEND (- 4 #)) ; (XLIB::PAD-PEND-START ; (XLIB::INDEX+ 96 XLIB::PEND-NAME XLIB::PAD-PEND)) ; (XLIB::CUR-NAME (XLIB::CARD16-GET 92)) ; (XLIB::CUR-NUM-PARAMS (XLIB::CARD16-GET 94)) ; (XLIB::PAD-CUR (- 4 #)) ; (XLIB::CUR-NAME-START (XLIB::INDEX+ XLIB::PAD-PEND-START #)) ; (XLIB::CUR-PARAM-START ; (XLIB::INDEX+ XLIB::CUR-NAME-START XLIB::CUR-NAME XLIB::PAD-CUR))) ; (DECLARE (TYPE XLIB:CARD16 XLIB::PEND-NAME XLIB::CUR-NAME)) ; (VALUES (XLIB::RR-TRANSFORM-GET 8) (XLIB::CARD8-GET 44) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH 9 ; :INDEX 48) ; (XLIB::STRING-GET XLIB::PEND-NAME 96) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::PEND-NUM-PARAMS :INDEX ; XLIB::PAD-PEND-START) ; (XLIB::STRING-GET XLIB::CUR-NAME XLIB::CUR-NAME-START) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::CUR-NUM-PARAMS :INDEX ; XLIB::CUR-PARAM-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-OUTPUT-PRIMARY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETOUTPUTPRIMARY+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::OUTPUT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-OUTPUT-PRIMARY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETOUTPUTPRIMARY+) (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-PROVIDERS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETPROVIDERS+) (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD16-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-PROVIDER-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETPROVIDERINFO+) (XLIB:CARD32 XLIB::PROVIDER) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) (XLIB::CARD16-GET 16) ; (XLIB::CARD16-GET 18) (XLIB::CARD16-GET 20) ; (XLIB::STRING-GET (XLIB::CARD16-GET 22) 56))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-PROVIDER-OUTPUT-SOURCE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETPROVIDEROUTPUTSOURCE+) ; (XLIB:CARD32 XLIB::PROVIDER) ; (XLIB:CARD32 XLIB::SOURCE-PROVIDER) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-PROVIDER-OFFLOAD-SINK ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETPROVIDEROFFLOADSINK+) ; (XLIB:CARD32 XLIB::PROVIDER) ; (XLIB:CARD32 XLIB::SINK-PROVIDER) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-LIST-PROVIDER-PROPERTIES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-LISTPROVIDERPROPERTIES+) ; (XLIB:CARD32 XLIB::PROVIDER)) ; (VALUES (XLIB::CARD32-GET 4) (XLIB::CARD16-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/randr-tmpR2FIHSUG.fasl ; compilation finished in 0:00:00.444 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xinerama.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 ...))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xinerama-tmp8PYELRKX.fasl ; compilation finished in 0:00:00.044 ; compiling file "/usr/share/common-lisp/source/clx/extensions/dbe.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/dbe.lisp ; in: DEFUN CREATE-BACK-BUFFER ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB::BB 'XLIB::BACK-BUFFER) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN DBE-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER") ; NIL) ; ((XLIB::DATA XLIB::+QUERY-VERSION+) (XLIB:CARD8 XLIB::+DBE-MAJOR+) ; (XLIB:CARD8 XLIB::+DBE-MINOR+)) ; (VALUES (XLIB::CARD8-GET 8) (XLIB::CARD8-GET 9))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-ALLOCATE-BACK-BUFFER-NAME ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+ALLOCATE-BACK-BUFFER-NAME+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:DRAWABLE XLIB::BACK-BUFFER) ; (XLIB:CARD8 XLIB::SWAP-HINT) ; (XLIB::PAD8) ; (XLIB::PAD16)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-DEALLOCATE-BACK-BUFFER-NAME ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+DEALLOCATE-BACK-BUFFER-NAME+) ; (XLIB:DRAWABLE XLIB::BACK-BUFFER)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-SWAP-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+SWAP-BUFFERS+) ; (XLIB:CARD32 XLIB::NUM) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-BEGIN-IDIOM ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+BEGIN-IDIOM+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-END-IDIOM ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+END-IDIOM+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-GET-VISUAL-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER") ; NIL :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-VISUAL-INFO+) (XLIB:CARD32 XLIB::NUM) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::WL)) ; (VALUES ; (LET ((XLIB::NUM #) (XLIB::NEXT 32) (XLIB::RESULT-LIST NIL)) ; (DECLARE (TYPE FIXNUM XLIB::NUM XLIB::NEXT)) ; (DOTIMES (XLIB::I XLIB::NUM #) (PUSH # XLIB::RESULT-LIST))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-GET-BACK-BUFFER-ATTRIBUTES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER") ; NIL :SIZES 32) ; ((XLIB::DATA XLIB::+GET-BACK-BUFFER-ATTRIBUTES+) ; (XLIB:DRAWABLE XLIB::BACK-BUFFER)) ; (VALUES (XLIB::OR-GET 8 NULL XLIB:WINDOW))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/dbe-tmpEHTOKYT0.fasl ; compilation finished in 0:00:00.128 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xc-misc.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/xc-misc.lisp ; in: DEFUN XC-GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::XC-OPCODE XLIB:DISPLAY) NIL ; :SIZES (16)) ; ((XLIB::DATA XLIB::+XC-GET-VERSION+) (XLIB:CARD16 XLIB::+XC-MAJOR+) ; (XLIB:CARD16 XLIB::+XC-MINOR+)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XC-GET-XID-RANGE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::XC-OPCODE XLIB:DISPLAY) NIL ; :SIZES (32)) ; ((XLIB::DATA XLIB::+XC-GET-XID-RANGE+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XC-GET-XID-LIST ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::XC-OPCODE XLIB:DISPLAY) NIL ; :SIZES (32)) ; ((XLIB::DATA XLIB::+XC-GET-XID-LIST+) (XLIB:CARD32 COUNT)) ; (LET ((XLIB::NUM (XLIB::CARD32-GET 8))) ; (VALUES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE XLIB::RESULT-TYPE ; :LENGTH XLIB::NUM :INDEX 32)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xc-misc-tmpS6U1VHI9.fasl ; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/clx/extensions/dri2.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/dri2.lisp ; in: DEFUN DRI2-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-QUERY-VERSION+) (XLIB:CARD32 XLIB::+DRI-MAJOR+) ; (XLIB:CARD32 XLIB::+DRI-MINOR+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-CONNECT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-CONNECT+) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::DRIVER-TYPE)) ; (LET* ((XLIB::DRIVER-NAME-LENGTH (XLIB::CARD32-GET 8)) ; (XLIB::DEVICE-NAME-LENGTH (XLIB::CARD32-GET 12)) ; (XLIB::DEVICE-START (+ 32 #))) ; (VALUES (XLIB::STRING-GET XLIB::DRIVER-NAME-LENGTH 32) ; (XLIB::STRING-GET XLIB::DEVICE-NAME-LENGTH XLIB::DEVICE-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-AUTHENTICATE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-AUTHENTICATE+) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::TOKEN)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-CREATE-DRAWABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-CREATE-DRAWABLE+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-DESTROY-DRAWABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; NIL ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-GET-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-BUFFERS+) (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD32 XLIB::LEN) ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; (VALUES (XLIB::CARD32-GET 16) (XLIB::CARD32-GET 12) (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-COPY-REGION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-COPY-REGION+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-GET-BUFFERS-WITH-FORMAT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-BUFFERS-WITH-FORMAT+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-SWAP-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-SWAP-BUFFERS+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-GET-MSC ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-MSC+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-WAIT-MSC ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-WAIT-MSC+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-SWAP-INTERVAL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::DRI2-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+DRI2-SWAP-INTERVAL+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-GET-PARAM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-PARAM+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/dri2-tmpVTFK6ZJW.fasl ; compilation finished in 0:00:00.072 ; compiling file "/usr/share/common-lisp/source/clx/extensions/composite.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/composite.lisp ; in: DEFUN COMPOSITE-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY) ; NIL :SIZES (32)) ; ((XLIB::DATA XLIB::+COMPOSITE-QUERYVERSION+) ; (XLIB:CARD32 XLIB::+COMPOSITE-MAJOR+) ; (XLIB:CARD32 XLIB::+COMPOSITE-MINOR+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-REDIRECT-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-REDIRECTWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD8 XLIB::UPDATE-TYPE) ; (XLIB:CARD8 0) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-REDIRECT-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-REDIRECTSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD8 XLIB::UPDATE-TYPE) ; (XLIB:CARD8 0) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-UNREDIRECT-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-UNREDIRECTWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-UNREDIRECT-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-UNREDIRECTSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-CREATE-REGION-FROM-BORDER-CLIP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-CREATEREGIONFROMBORDERCLIP+) ; (XLIB:CARD32 XLIB::REGION) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-NAME-WINDOW-PIXMAP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-NAMEWINDOWPIXMAP+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:DRAWABLE XLIB:DRAWABLE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-GET-OVERLAY-WINDOW ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY) ; NIL :SIZES (32)) ; ((XLIB::DATA XLIB::+COMPOSITE-GETOVERLAYWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-RELEASE-OVERLAY-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-RELEASEOVERLAYWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/composite-tmp75WVSJEW.fasl ; compilation finished in 0:00:00.184 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/package.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/package-tmpBU5UM3S4.fasl ; compilation finished in 0:00:00.000 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/dynamic-mixins.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/dynamic-mixins-tmpOBHVA3CD.fasl ; compilation finished in 0:00:00.040 ; compiling file "/build/reproducible-path/stumpwm-22.11/package.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/package-tmpJ6ELVFLF.fasl ; compilation finished in 0:00:00.004 ; compiling file "/build/reproducible-path/stumpwm-22.11/debug.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/debug-tmpULDB0RG.fasl ; compilation finished in 0:00:00.012 ; compiling file "/build/reproducible-path/stumpwm-22.11/primitives.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/primitives-tmpUTZ0UUTE.fasl ; compilation finished in 0:00:00.308 ; compiling file "/build/reproducible-path/stumpwm-22.11/wrappers.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/wrappers-tmpOOSRA8PZ.fasl ; compilation finished in 0:00:00.080 ; compiling file "/build/reproducible-path/stumpwm-22.11/pathnames.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/pathnames-tmpDMIL0RVK.fasl ; compilation finished in 0:00:00.004 ; compiling file "/build/reproducible-path/stumpwm-22.11/font-rendering.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/font-rendering-tmp8MR9IMIO.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/keysyms.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/keysyms-tmpJQDKAVAY.fasl ; compilation finished in 0:00:00.112 ; compiling file "/build/reproducible-path/stumpwm-22.11/keytrans.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/keytrans-tmp3I8CEEQY.fasl ; compilation finished in 0:00:00.008 ; compiling file "/build/reproducible-path/stumpwm-22.11/kmap.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/kmap-tmpA3RHFLWZ.fasl ; compilation finished in 0:00:00.080 ; compiling file "/build/reproducible-path/stumpwm-22.11/input.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/input-tmpYZIB7VXO.fasl ; compilation finished in 0:00:00.352 ; compiling file "/build/reproducible-path/stumpwm-22.11/core.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/core-tmpR8PK79V8.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/command.lisp" (written 22 NOV 2022 12:13:18 AM): ; file: /build/reproducible-path/stumpwm-22.11/command.lisp ; in: DEFUN ARGUMENT-POP ; (LOOP STUMPWM::FOR STUMPWM::I STUMPWM::FROM STUMPWM::START STUMPWM::BELOW (LENGTH ; STUMPWM::INPUT) ; STUMPWM::FOR CHAR = (CHAR STUMPWM::INPUT STUMPWM::I) ; DO ...) ; --> LET LET TAGBODY ; ==> ; NIL ; ; caught STYLE-WARNING: ; The binding of I is not a REAL: ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/command-tmpN1ZVB1HZ.fasl ; compilation finished in 0:00:00.236 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/build/reproducible-path/stumpwm-22.11/menu-declarations.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/menu-declarations-tmpZGRRPISB.fasl ; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/menu-definitions.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/menu-definitions-tmpFNKDE5XP.fasl ; compilation finished in 0:00:00.088 ; compiling file "/build/reproducible-path/stumpwm-22.11/screen.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/screen-tmpRJTU435C.fasl ; compilation finished in 0:00:00.099 ; compiling file "/build/reproducible-path/stumpwm-22.11/head.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/head-tmpI9WG87JK.fasl ; compilation finished in 0:00:00.028 ; compiling file "/build/reproducible-path/stumpwm-22.11/group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/group-tmpYDE6I9E6.fasl ; compilation finished in 0:00:00.088 ; compiling file "/build/reproducible-path/stumpwm-22.11/bindings.lisp" (written 22 FEB 2025 04:58:03 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/bindings-tmp319UV2V8.fasl ; compilation finished in 0:00:00.024 ; compiling file "/build/reproducible-path/stumpwm-22.11/events.lisp" (written 22 NOV 2022 12:13:18 AM): ; file: /build/reproducible-path/stumpwm-22.11/events.lisp ; in: DEFUN SCROLL-BUTTON-KEYWORD-P ; (EQ STUMPWM::BUTTON :WHEEL-RIGHT) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/events-tmpLYQINFYS.fasl ; compilation finished in 0:00:00.168 ; compiling file "/build/reproducible-path/stumpwm-22.11/window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/window-tmpGA31XWNO.fasl ; compilation finished in 0:00:00.208 ; compiling file "/build/reproducible-path/stumpwm-22.11/floating-group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/floating-group-tmp5HT23M6C.fasl ; compilation finished in 0:00:00.180 ; compiling file "/build/reproducible-path/stumpwm-22.11/tile-window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tile-window-tmpA60KLDKY.fasl ; compilation finished in 0:00:00.068 ; compiling file "/build/reproducible-path/stumpwm-22.11/tile-group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tile-group-tmpD801X3GJ.fasl ; compilation finished in 0:00:00.436 WARNING: redefining STUMPWM::ORPHANED-FRAMES in DEFUN ; compiling file "/build/reproducible-path/stumpwm-22.11/window-placement.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/window-placement-tmpGOW1GC70.fasl ; compilation finished in 0:00:00.132 ; compiling file "/build/reproducible-path/stumpwm-22.11/message-window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/message-window-tmpPQ1X28TL.fasl ; compilation finished in 0:00:00.060 ; compiling file "/build/reproducible-path/stumpwm-22.11/selection.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/selection-tmpE92ECU7O.fasl ; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/module.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/module-tmp8S0II570.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/ioloop.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/ioloop-tmpJE88A12F.fasl ; compilation finished in 0:00:00.172 ; compiling file "/build/reproducible-path/stumpwm-22.11/timers.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/timers-tmpA5FNLPLT.fasl ; compilation finished in 0:00:00.024 ; compiling file "/build/reproducible-path/stumpwm-22.11/stumpwm.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/stumpwm-tmpHKCV9TP8.fasl ; compilation finished in 0:00:00.068 ; compiling file "/build/reproducible-path/stumpwm-22.11/user.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/user-tmpZ18MA7XE.fasl ; compilation finished in 0:00:00.116 ; compiling file "/build/reproducible-path/stumpwm-22.11/interactive-keymap.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/interactive-keymap-tmp6LQJ9T0C.fasl ; compilation finished in 0:00:00.012 ; compiling file "/build/reproducible-path/stumpwm-22.11/iresize.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/iresize-tmpTX7OA81T.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/help.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/help-tmpWOTC3PB7.fasl ; compilation finished in 0:00:00.232 ; compiling file "/build/reproducible-path/stumpwm-22.11/fdump.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/fdump-tmpHQE95SAC.fasl ; compilation finished in 0:00:00.112 ; compiling file "/build/reproducible-path/stumpwm-22.11/time.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/time-tmpO87FP9NR.fasl ; compilation finished in 0:00:00.048 ; compiling file "/build/reproducible-path/stumpwm-22.11/mode-line.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/mode-line-tmpP6A3E92I.fasl ; compilation finished in 0:00:00.080 ; compiling file "/build/reproducible-path/stumpwm-22.11/mode-line-formatters.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/mode-line-formatters-tmpUSHT8RIL.fasl ; compilation finished in 0:00:00.060 ; compiling file "/build/reproducible-path/stumpwm-22.11/color.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/color-tmp7YCPD44Y.fasl ; compilation finished in 0:00:00.084 ; compiling file "/build/reproducible-path/stumpwm-22.11/wse.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/wse-tmpQXR7SNXD.fasl ; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-window-tmp6FLI1OC3.fasl ; compilation finished in 0:00:00.008 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-group-tmpWBK8JTS9.fasl ; compilation finished in 0:00:00.372 ; compiling file "/build/reproducible-path/stumpwm-22.11/remap-keys.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/remap-keys-tmpUVEUD2ZN.fasl ; compilation finished in 0:00:00.011 ; compiling file "/build/reproducible-path/stumpwm-22.11/manual.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/manual-tmpOWNJOEU.fasl ; compilation finished in 0:00:00.028 ; compiling file "/build/reproducible-path/stumpwm-22.11/minor-modes.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/minor-modes-tmpVT5BMTA5.fasl ; compilation finished in 0:00:00.304 ; compiling file "/build/reproducible-path/stumpwm-22.11/replace-class.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/replace-class-tmpN3CFVWZF.fasl ; compilation finished in 0:00:00.024 WARNING: redefining DYNAMIC-MIXINS:REPLACE-CLASS in DEFGENERIC ; compiling file "/build/reproducible-path/stumpwm-22.11/version.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/version-tmpNK27C0R1.fasl ; compilation finished in 0:00:00.004 ; ; compilation unit finished ; caught 8 STYLE-WARNING conditions ; printed 1501 notes test "makeinfo" = "no" || makeinfo stumpwm.texi make[2]: Leaving directory '/build/reproducible-path/stumpwm-22.11' make[1]: Leaving directory '/build/reproducible-path/stumpwm-22.11' dh_auto_test make -j12 test "TESTSUITEFLAGS=-j12 --verbose" VERBOSE=1 make[1]: Entering directory '/build/reproducible-path/stumpwm-22.11' /usr/bin/sbcl --non-interactive --eval "(setf sb-impl::*default-external-format* :UTF-8)" --load "load-stumpwm.lisp" --eval "(asdf:load-system :stumpwm-tests)" --eval "(if (fiasco:all-tests) (uiop:quit 0) (uiop:quit 1))" This is SBCL 2.5.0.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 01 DEC 2024 12:56:31 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-asdf/build/asdf-tmpGHU3ALSV.fasl ; compilation finished in 0:00:06.316 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/package.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/package-tmpAAURSO1.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/definitions.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/definitions-tmp5GEXGEG5.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/binding.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/binding-tmpAR3FSGEY.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/strings.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/strings-tmpJAIDFZTC.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/conditions.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/conditions-tmp8V3J6PE9.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/symbols.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/symbols-tmp9V47YWQF.fasl ; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/macros.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/macros-tmp9BN22RMA.fasl ; compilation finished in 0:00:00.067 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/functions.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/functions-tmp1CXFJSK9.fasl ; compilation finished in 0:00:00.028 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/lists.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/lists-tmpX4BRKI0R.fasl ; compilation finished in 0:00:00.172 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/types.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/types-tmpQ371UGST.fasl ; compilation finished in 0:00:00.080 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/io.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/io-tmp2OWI3Q7U.fasl ; compilation finished in 0:00:00.116 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables-tmp9KKTJMYV.fasl ; compilation finished in 0:00:00.048 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/control-flow.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/control-flow-tmpJU0JWO19.fasl ; compilation finished in 0:00:00.040 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/arrays.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/arrays-tmpZX2WN8N4.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/sequences.lisp" (written 25 JAN 2024 05:37:54 PM): ; file: /usr/share/common-lisp/source/alexandria/alexandria-1/sequences.lisp ; in: DEFUN LENGTH= ; (LENGTH FIRST) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/sequences-tmpOU81XRV0.fasl ; compilation finished in 0:00:00.108 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/numbers.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/numbers-tmpY2ML9CFA.fasl ; compilation finished in 0:00:00.108 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/features.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/features-tmpX2JYJDQE.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/package.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/package-tmpOPCILR65.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/arrays.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/arrays-tmpRV9F8A9A.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow-tmpK2ZAJT4I.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/sequences.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/sequences-tmpUX5S4ADN.fasl ; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/lists.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/lists-tmp10401X32.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/packages.lisp" (written 27 APR 2024 01:06:11 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/packages-tmpZ7CBRM0G.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/specials.lisp" (written 27 APR 2024 01:06:11 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/specials-tmp9OZEQ0G2.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/util.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a (OR SIMPLE-BASE-STRING NULL). ; 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/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/util-tmpB2JTL1W9.fasl ; compilation finished in 0:00:00.028 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/errors.lisp" (written 27 APR 2024 01:06:11 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/errors-tmpP3BI68WQ.fasl ; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/charset.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp ; in: DEFUN MIX ; (+ CL-PPCRE::CODE CL-PPCRE::HASH) ; ; 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFUN COMPUTE-INDEX ; (LENGTH VECTOR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL (-35184372088830) ; (35184372088830))), not a RATIONAL. ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR FLOAT ; (RATIONAL (-35184372088830) (35184372088830))), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT (RATIONAL (-35184372088829) (35184372088831))) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (OR FLOAT ; (RATIONAL (-35184372088830) (35184372088830))), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR FLOAT (RATIONAL (-35184372088829) (35184372088831))) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFUN %ADD-TO-CHARSET/EXPAND ; (>= CL-PPCRE::NEW-SIZE 371370) ; ; note: forced to do <-INTEGER-FIXNUM (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; (* 2 CL-PPCRE::NEW-SIZE) ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFUN MAP-CHARSET ; (DECF CL-PPCRE::N) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM. ; The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (INTEGER * 4611686018427387903), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; 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 T, 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 T, not a DOUBLE-FLOAT. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/charset-tmpQDARA81Z.fasl ; compilation finished in 0:00:00.036 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/charmap.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 ; in: DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LIM16) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; 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 T, 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 T, 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LIM16) ; ; 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/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/charmap-tmpYEMMM7SE.fasl ; compilation finished in 0:00:00.060 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/chartest.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/chartest.lisp ; in: DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; 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 T, 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 T, not a DOUBLE-FLOAT. ; in: DEFUN CREATE-OPTIMIZED-TEST-FUNCTION ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (<= (CL-PPCRE::CHARSET-COUNT CL-PPCRE::CHARSET) ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)) ; ; note: forced to do >-FIXNUM-INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (<= (HASH-TABLE-COUNT HASH-TABLE) ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)) ; ; note: forced to do >-FIXNUM-INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/chartest-tmp73HU0RPK.fasl ; compilation finished in 0:00:00.024 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/lexer.lisp" (written 27 APR 2024 01:06:11 AM): ; 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.") ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN GET-NUMBER ; (IF (< CL-PPCRE::END-POS CL-PPCRE::LEXER-LEN) ; CL-PPCRE::END-POS ; CL-PPCRE::LEXER-LEN) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN UNESCAPE-CHAR ; (CHAR-UPCASE CL-PPCRE::NEXT-CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/lexer-tmpIO5N7K88.fasl ; compilation finished in 0:00:00.176 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/parser.lisp" (written 27 APR 2024 01:06:11 AM): ; 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.") ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN SEQ ; (VECTOR-PUSH-EXTEND CL-PPCRE::QUANT (CAR CL-PPCRE::LAST-CDR)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/parser-tmpCM21U60Z.fasl ; compilation finished in 0:00:00.032 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; (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/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/regex-class-tmp9DT7SEFG.fasl ; compilation finished in 0:00:00.036 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD EVERYTHINGP (SEQ) ; (LENGTH CL-PPCRE::CLEANED-ELEMENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (ALTERNATION) ; (LENGTH CL-PPCRE::CHOICES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (REPETITION) ; (= 1 CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX ; SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX ; DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to 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 (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; in: DEFMETHOD REGEX-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-LENGTH ; CL-PPCRE::SUB-REGEX) ; IF (NOT CL-PPCRE::LEN) ; DO ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM6 CL-PPCRE::LEN) ; ; 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-LENGTH (ALTERNATION) ; (/= CL-PPCRE::LEN CL-PPCRE::OLD-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to 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. ; 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; in: DEFMETHOD REGEX-LENGTH (REPETITION) ; (EQL CL-PPCRE::MINIMUM 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. ; ; 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; (* CL-PPCRE::MINIMUM 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::SUM CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM6 CL-PPCRE::LEN) ; ; 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (ALTERNATION) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::MINIMIZE CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF ; ==> ; (< #:MINMAXTMP10 #:MINMAX9) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: 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. ; in: DEFMETHOD REGEX-MIN-LENGTH (BRANCH) ; (MIN (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH)) ; (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: 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 T, 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 T, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (REPETITION) ; (* (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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (ALTERNATION T) ; (/= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to 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. ; 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (REPETITION T) ; (* CL-PPCRE::MINIMUM 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (CHAR-CLASS T) ; (1+ CL-PPCRE::START-POS) ; ; note: unable to ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (EVERYTHING T) ; (1+ CL-PPCRE::START-POS) ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (STR T) ; (+ CL-PPCRE::START-POS (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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-OFFSETS (FILTER T) ; (+ CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/regex-class-util-tmp8065ESJT.fasl ; compilation finished in 0:00:00.100 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/convert.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 ; in: DEFUN MAYBE-SPLIT-REPETITION ; (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN MAYBE-ACCUMULATE ; (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; (CL-PPCRE::STR CL-PPCRE::STR) ; (CL-PPCRE::SKIP CL-PPCRE::STR) T) ; --> SETF LET* ; ==> ; (REPLACE #:SEQUENCE #:NEW3 :START1 #:START :END1 NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; The second argument is a SEQUENCE, not a (OR NULL ; (SIMPLE-ARRAY CHARACTER (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR NULL ; (SIMPLE-ARRAY CHARACTER (*))). ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; (MAKE-ARRAY (CL-PPCRE::LEN CL-PPCRE::STR) :INITIAL-CONTENTS ; (CL-PPCRE::STR CL-PPCRE::STR) :ELEMENT-TYPE 'CHARACTER ; :FILL-POINTER T :ADJUSTABLE T) ; ; 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 second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; (SETF (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; --> FUNCALL ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20) ; (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; (CL-PPCRE::STR CL-PPCRE::STR) ; (CL-PPCRE::SKIP CL-PPCRE::STR) T) ; --> SETF LET* ; ==> ; (REPLACE #:SEQUENCE #:NEW3 :START1 #:START :END1 NIL) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BRANCH) T) ; (LENGTH (CL-PPCRE::CHOICES CL-PPCRE::ALTERNATIONS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :GREEDY-REPETITION) T) ; (ZEROP LENGTH) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :NAMED-REGISTER) T) ; (COPY-SEQ (SECOND CL-PPCRE::PARSE-TREE)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BACK-REFERENCE) T) ; (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a (SIMPLE-ARRAY CHARACTER (*)). ; (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 &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::NAME CL-PPCRE::IN CL-PPCRE::REG-NAMES ; CL-PPCRE::FOR CL-PPCRE::REG-INDEX CL-PPCRE::FROM 0 ; WHEN (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; CL-PPCRE::COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE 1+ ; ==> ; 1 ; ; note: forced to do 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CONVERT ; (COERCE (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) 'SIMPLE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/convert-tmp7S8Z6FGF.fasl ; compilation finished in 0:00:00.180 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/optimize.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a VECTOR, not a (OR SIMPLE-BASE-STRING NULL). ; (INCF CL-PPCRE::COLLECTOR-LENGTH (CL-PPCRE::LEN CL-PPCRE::ELEMENT)) ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFMETHOD START-ANCHORED-P (REPETITION) ; (PLUSP (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: 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. ; in: DEFMETHOD START-ANCHORED-P (REGEX) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::REGEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD END-STRING-AUX (SEQ) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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 SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; (CHAR CL-PPCRE::STR CL-PPCRE::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; in: DEFMETHOD COMPUTE-MIN-REST (ALTERNATION T) ; (LOOP CL-PPCRE::FOR CL-PPCRE::CHOICE CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::MINIMIZE (CL-PPCRE::COMPUTE-MIN-REST CL-PPCRE::CHOICE ; CL-PPCRE::CURRENT-MIN-REST)) ; --> LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF ; ==> ; (< #:MINMAXTMP11 #:MINMAX10) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: 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. ; in: DEFMETHOD COMPUTE-MIN-REST (BRANCH T) ; (MIN ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST) ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: 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 T, 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 T, not a DOUBLE-FLOAT. ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (STR T) ; (+ CL-PPCRE::CURRENT-MIN-REST (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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (FILTER T) ; (+ CL-PPCRE::CURRENT-MIN-REST (OR (CL-PPCRE::LEN CL-PPCRE::FILTER) 0)) ; ; note: 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (REPETITION T) ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: 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 &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ CL-PPCRE::CURRENT-MIN-REST ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (LOOKBEHIND T) ; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::LOOKBEHIND)) ; ; note: 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-MIN-REST (REGEX T) ; (1+ CL-PPCRE::CURRENT-MIN-REST) ; ; note: unable to ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/optimize-tmpSIT3QPKP.fasl ; compilation finished in 0:00:00.216 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/closures.lisp" (written 27 APR 2024 01:06:11 AM): ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; 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) ; in: DEFMETHOD CREATE-MATCHER-AUX (CHAR-CLASS T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::CHAR-CLASS ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::START-POS)) ; (LAMBDA (CL-PPCRE::START-POS) ; (DECLARE (FIXNUM CL-PPCRE::START-POS)) ; (AND (< CL-PPCRE::START-POS CL-PPCRE::*END-POS*) ; (CL-PPCRE::CHAR-CLASS-TEST) ; (FUNCALL CL-PPCRE::NEXT-FN (1+ CL-PPCRE::START-POS))))) ; --> LET LAMBDA FUNCTION AND IF IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFMETHOD CREATE-MATCHER-AUX (STR T) ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::START-POS ; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS) CL-PPCRE::CHR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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) ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-MATCHER-AUX (FILTER T) ; (FUNCALL CL-PPCRE::FN CL-PPCRE::START-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (FUNCALL CL-PPCRE::NEXT-FN CL-PPCRE::NEXT-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; NEXT-FN is not known to be a function ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/closures-tmpE0PA0714.fasl ; compilation finished in 0:00:00.144 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp" (written 27 APR 2024 01:06:11 AM): ; 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 CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET BLOCK ; --> TAGBODY WHEN IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), 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)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; 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)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-GREEDY-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), 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)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a (UNSIGNED-BYTE 64). ; etc. ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; 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) &OPTIONAL). ; 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 &OPTIONAL). ; 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) &OPTIONAL). ; etc. ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-NON-GREEDY-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: ; DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS)))) ; --> LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA FUNCTION ; --> LET AND IF IF LOOP BLOCK LET TAGBODY UNLESS IF AND IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; 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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (AREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (ZEROP (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; in: DEFMETHOD CREATE-MATCHER-AUX (REPETITION T) ; (ZEROP CL-PPCRE::MAXIMUM) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (EQL CL-PPCRE::MINIMUM 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. ; ; 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. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (PLUSP CL-PPCRE::LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; 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 T, 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 T, not a DOUBLE-FLOAT. ; (EQL CL-PPCRE::MINIMUM 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, 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 T, not a FIXNUM. ; The second 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). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; etc. ; (PLUSP 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. ; (PLUSP 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. ; (PLUSP 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/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/repetition-closures-tmpJRWHHVG0.fasl ; compilation finished in 0:00:00.252 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/scanner.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/scanner.lisp ; in: DEFUN CREATE-BMH-MATCHER ; (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION IF LOOP BLOCK LET TAGBODY LOOP BLOCK LET LET TAGBODY UNLESS IF ; --> AND IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (LENGTH CL-PPCRE::PATTERN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CHAR-UPCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-DOWNCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (SEARCH CL-PPCRE::PATTERN CL-PPCRE::*STRING* :START2 CL-PPCRE::START-POS ; :END2 CL-PPCRE::*END-POS* :TEST CL-PPCRE::TEST) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN CREATE-CHAR-SEARCHER ; (CL-PPCRE::CHAR-SEARCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION AND IF LOOP BLOCK LET LET TAGBODY WHEN IF SETQ THE AND IF ; ==> ; (CHAR-EQUAL (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. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFUN CREATE-SCANNER-AUX ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do 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. ; --> 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (FUNCALL CL-PPCRE::END-STRING-TEST CL-PPCRE::TRY-POS) ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/scanner-tmp4WZVROCX.fasl ; compilation finished in 0:00:00.500 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/api.lisp" (written 27 APR 2024 01:06:11 AM): ; 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. ; in: DEFMETHOD CREATE-SCANNER (T) ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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. ; in: DEFMETHOD SCAN (STRING T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::REGEX-STRING) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; in: DEFMETHOD SCAN #'T ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; in: DEFMETHOD SCAN (T T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::PARSE-TREE) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; in: DEFUN SCAN-TO-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MAP 'VECTOR ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (IF CL-PPCRE::REG-START ; (FUNCALL CL-PPCRE::SUBSTR-FN CL-PPCRE::TARGET-STRING ; CL-PPCRE::REG-START CL-PPCRE::REG-END) ; NIL)) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMACRO DO-SCANS ; (DEFMACRO CL-PPCRE:DO-SCANS ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY &ENVIRONMENT CL-PPCRE::ENV) ; #<(SIMPLE-ARRAY CHARACTER ; (495)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START, MATCH-END, REG-STARTS, and ; REG-ENDS bound to the four return values of each match in turn. ... {1002D39DAF}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::%START CL-PPCRE::%END ; CL-PPCRE::%REGEX CL-PPCRE::SCANNER) ; (DECLARE (IGNORABLE CL-PPCRE::%REGEX CL-PPCRE::SCANNER)) ; `(BLOCK NIL ; (LET* # ; # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END ; REG-STARTS REG-ENDS REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) ; in: DEFMACRO DO-MATCHES ; (DEFMACRO CL-PPCRE:DO-MATCHES ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (477)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START and MATCH-END bound to the ; start/end positions of each match in turn. After the last match, ; ... {1003135C0F}> ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; `(CL-PPCRE:DO-SCANS (,CL-PPCRE::MATCH-START ,CL-PPCRE::MATCH-END ; ,CL-PPCRE::REG-STARTS ,CL-PPCRE::REG-ENDS ; ,CL-PPCRE::REGEX ,CL-PPCRE::TARGET-STRING ; ,CL-PPCRE::RESULT-FORM :START ,CL-PPCRE::START :END ; ,CL-PPCRE::END) ; ,@CL-PPCRE::BODY))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) ; in: DEFMACRO DO-MATCHES-AS-STRINGS ; (DEFMACRO CL-PPCRE:DO-MATCHES-AS-STRINGS ; ( ; (CL-PPCRE::MATCH-VAR ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (569)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-VAR bound to the substring of ; TARGET-STRING corresponding to each match in turn. After the last ; ma... {10032C28FF}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::SUBSTR-FN) ; `(LET (#) ; (CL-PPCRE:DO-MATCHES # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-VAR REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END ; SHAREDP) ; in: DEFMACRO DO-REGISTER-GROUPS ; (DEFMACRO CL-PPCRE:DO-REGISTER-GROUPS ; (CL-PPCRE::VAR-LIST ; (CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (820)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with the variables in VAR-LIST bound to the ; corresponding register groups for each match in turn, i.e. each ; va... {10034A153F}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::SUBSTR-FN CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS CL-PPCRE::START-INDEX) ; `(LET (#) ; (CL-PPCRE:DO-SCANS # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX TARGET-STRING ; &OPTIONAL RESULT-FORM ; &KEY START END SHAREDP) ; in: DEFUN COUNT-MATCHES ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::S CL-PPCRE::E CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING COUNT :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (INCF COUNT)) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::S CL-PPCRE::E) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF COUNT) ; --> THE ; ==> ; (+ 1 COUNT) ; ; note: forced to do 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::S CL-PPCRE::E CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING COUNT :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (INCF COUNT)) ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::S CL-PPCRE::E) ; ; note: forced to do 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. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALL-MATCHES ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::RESULT-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::RESULT-LIST)) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do 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. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALL-MATCHES-AS-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES-AS-STRINGS (CL-PPCRE::MATCH CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START ; CL-PPCRE::START :END CL-PPCRE::END :SHAREDP ; CL-PPCRE::SHAREDP) ; (PUSH CL-PPCRE::MATCH CL-PPCRE::RESULT-LIST)) ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING7) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE ; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: forced to do 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. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; 1 ; ; note: forced to do 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SPLIT ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP CL-PPCRE::LIMIT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...) ; --> LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET LET ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE AREF ; ==> ; 1 ; ; 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 VECTOR, not a SIMPLE-ARRAY. ; ; 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 VECTOR, not a SIMPLE-ARRAY. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (= 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 NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a 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) ; --> 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do 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. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; 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. ; in: DEFUN STRING-CASE-MODIFIER ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::FROM) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::TO) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; 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 ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (< 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 (NOT NULL), not a FIXNUM. ; unable to do inline (unsigned-byte 64) comparison (cost 6) because: ; The second argument is a (NOT NULL), 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 NULL INTEGER), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 5) because: ; The first argument is a (OR NULL INTEGER), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (< CL-PPCRE::TOKEN 0) ; ; note: forced to do <-INTEGER-FIXNUM (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; in: DEFUN BUILD-REPLACEMENT ; (ARRAY-DIMENSION CL-PPCRE::REG-STARTS 0) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; (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: ; TOKEN is not known to be a function ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; 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: ; TOKEN is not known to be a function ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (>= CL-PPCRE::TOKEN CL-PPCRE::REG-BOUND) ; ; note: forced to do <-INTEGER-FIXNUM (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; (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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; ; 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do 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 &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFUN REGEX-REPLACE ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFUN REGEX-REPLACE-ALL ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do 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. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN REGEX-APROPOS-LIST ; (DEFUN CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; #<(SIMPLE-ARRAY CHARACTER ; (221)) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {1002AAA4DF}> ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (221)) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {1002AAA4DF}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS-LIST ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; in: DEFUN REGEX-APROPOS ; (DEFUN CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {10030289BF}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES)) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {10030289BF}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/api-tmpA0I3UKX8.fasl ; compilation finished in 0:00:00.420 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/clx/package.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/package-tmp267Y2N80.fasl ; compilation finished in 0:00:00.016 ; compiling file "/usr/share/common-lisp/source/clx/depdefs.lisp" (written 27 DEC 2022 07:29:08 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/depdefs-tmpOUPE5FSJ.fasl ; compilation finished in 0:00:00.136 ; compiling file "/usr/share/common-lisp/source/clx/clx.lisp" (written 27 DEC 2022 07:29:08 AM): ; file: /usr/share/common-lisp/source/clx/clx.lisp ; in: DEFUN ENCODE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:EVENT-MASK 'XLIB:EVENT-MASK) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-DEVICE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:DEVICE-EVENT-MASK 'XLIB:DEVICE-EVENT-MASK) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-MODIFIER-MASK ; (XLIB::X-TYPE-ERROR XLIB:MODIFIER-MASK 'XLIB:MODIFIER-MASK) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-STATE-MASK ; (XLIB::X-TYPE-ERROR XLIB::STATE-MASK ; '(OR XLIB:MASK16 (XLIB::CLX-LIST XLIB:STATE-MASK-KEY))) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-POINTER-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:POINTER-EVENT-MASK 'XLIB:POINTER-EVENT-MASK) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/clx-tmpIGHCU6ZA.fasl ; compilation finished in 0:00:00.260 ; compiling file "/usr/share/common-lisp/source/clx/dependent.lisp" (written 27 DEC 2022 07:29:08 AM): ; 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) ; in: DEFMACRO READ-IMAGE-LOAD-BYTE ; (SETQ POSITION (- 7 POSITION)) ; ; note: deleting unreachable code ; in: DEFMACRO READ-IMAGE-ASSEMBLE-BYTES ; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES)) ; ; note: deleting unreachable code ; in: DEFMACRO WRITE-IMAGE-LOAD-BYTE ; (- XLIB::INTEGER-SIZE 8 POSITION) ; ; note: deleting unreachable code ; in: DEFMACRO WRITE-IMAGE-ASSEMBLE-BYTES ; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES)) ; ; note: deleting unreachable code ; in: DEFUN COPY-BIT-RECT ; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::SDATA XLIB::SOURCE) (XLIB::SSTART) ; (XLIB::SEND)) ; (DECLARE (IGNORE XLIB::SEND)) ; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::DDATA XLIB::DEST) (XLIB::DSTART) ; (XLIB::DEND)) ; (DECLARE (IGNORE XLIB::DEND)) ; (ASSERT (AND (ZEROP XLIB::SSTART) (ZEROP XLIB::DSTART))) ; (DO ((XLIB::SRC-IDX # #) ; (XLIB::DEST-IDX # #) ; (COUNT XLIB::HEIGHT #)) ; ((ZEROP COUNT)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-IDX XLIB::DEST-IDX COUNT)) ; (SB-KERNEL:UB1-BASH-COPY XLIB::SDATA XLIB::SRC-IDX XLIB::DDATA ; XLIB::DEST-IDX XLIB::WIDTH)))) ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND IF THE ; ==> ; (SB-KERNEL:%WITH-ARRAY-DATA #:N-ARRAY0 #:N-SVALUE1 #:N-EVALUE2) ; ; note: unable to ; inline non-SIMPLE-vector-handling logic ; due to type uncertainty: ; The first argument is a (AND ARRAY (NOT (SIMPLE-ARRAY * (*)))), not a (OR ; VECTOR ; SIMPLE-ARRAY). ; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::DDATA XLIB::DEST) (XLIB::DSTART) ; (XLIB::DEND)) ; (DECLARE (IGNORE XLIB::DEND)) ; (ASSERT (AND (ZEROP XLIB::SSTART) (ZEROP XLIB::DSTART))) ; (DO ((XLIB::SRC-IDX (XLIB::INDEX+ # XLIB::SX #) ; (XLIB::INDEX+ XLIB::SRC-IDX XLIB::SOURCE-WIDTH)) ; (XLIB::DEST-IDX (XLIB::INDEX+ # XLIB::DX #) ; (XLIB::INDEX+ XLIB::DEST-IDX XLIB::DEST-WIDTH)) ; (COUNT XLIB::HEIGHT (1- COUNT))) ; ((ZEROP COUNT)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-IDX XLIB::DEST-IDX COUNT)) ; (SB-KERNEL:UB1-BASH-COPY XLIB::SDATA XLIB::SRC-IDX XLIB::DDATA ; XLIB::DEST-IDX XLIB::WIDTH))) ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND IF THE ; ==> ; (SB-KERNEL:%WITH-ARRAY-DATA #:N-ARRAY5 #:N-SVALUE6 #:N-EVALUE7) ; ; note: unable to ; inline non-SIMPLE-vector-handling logic ; due to type uncertainty: ; The first argument is a (AND ARRAY (NOT (SIMPLE-ARRAY * (*)))), not a (OR ; VECTOR ; SIMPLE-ARRAY). ; in: DEFUN FAST-READ-PIXARRAY ; (XLIB::READ-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X ; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE ; XLIB::BITS-PER-PIXEL FUNCTION XLIB::UNIT ...) ; ; note: deleting unreachable code ; in: DEFUN FAST-WRITE-PIXARRAY-USING-BITBLT ; (ARRAY-DIMENSION XLIB:PIXARRAY 1) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; in: DEFUN FAST-WRITE-PIXARRAY ; (XLIB::WRITE-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X ; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE ; XLIB::BITS-PER-PIXEL FUNCTION XLIB::+IMAGE-UNIT+ ...) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/dependent-tmpBO0TUGLK.fasl ; compilation finished in 0:00:00.272 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/clx/macros.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/macros.lisp ; in: DEFMACRO DEFINE-ACCESSOR ; (THIRD XLIB::GET-PUT-MACROS) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/macros-tmpIIXPIQNW.fasl ; compilation finished in 0:00:00.384 ; compiling file "/usr/share/common-lisp/source/clx/bufmac.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/bufmac-tmpOHM494YR.fasl ; compilation finished in 0:00:00.028 ; compiling file "/usr/share/common-lisp/source/clx/buffer.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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)) ; --> LET XLIB::HOLDING-LOCK IF HANDLER-CASE SB-INT:DX-FLET FLET #:FORM-FUN-3 ; --> 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: 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. ; in: DEFUN READ-VECTOR-CARD8 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD8 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD8 XLIB::INDEX))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD16 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD16 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD16 XLIB::INDEX))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD32 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD32 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD32 XLIB::INDEX))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD8 ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD16 ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-INT16 ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD32 ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CHAR2B ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; in: DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; 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 VECTOR, not a SIMPLE-STRING. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/buffer-tmpOVFB07XF.fasl ; compilation finished in 0:00:00.784 ; compiling file "/usr/share/common-lisp/source/clx/display.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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. ; in: DEFUN DISPLAY-FINISH-OUTPUT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETINPUTFOCUS+ 16 ; :SIZES (8 32)) ; NIL) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/display-tmpG6VFGMYP.fasl ; compilation finished in 0:00:00.124 ; compiling file "/usr/share/common-lisp/source/clx/gcontext.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN SET-GCONTEXT-DASHES ; (VECTOR) ; ; note: deleting unreachable code ; in: DEFUN FORCE-GCONTEXT-CHANGES-INTERNAL ; (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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))) ; --> 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. ; --> 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (LENGTH XLIB::LOCAL-DASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETDASHES+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-DASH-OFFSET XLIB::LOCAL-STATE) 0) ; (LENGTH XLIB::LOCAL-DASH)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::LOCAL-DASH)) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::LOCAL-DASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (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))))) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 (unsigned-byte 64) comparison (cost 6) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; 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))) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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)) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-GCONTEXT-LOCAL-STATE ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) ; --> XLIB::WITH-BUFFER PROGN FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::TEMP-MASK))) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (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-CREATEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:DRAWABLE (XLIB::GCONTEXT-DRAWABLE XLIB:GCONTEXT)) ; (XLIB:CARD29 0)) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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))) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (ASH BIT -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) 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) ; &OPTIONAL). ; etc. ; in: DEFUN RESTORE-GCONTEXT-TEMP-STATE ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC)) ; --> 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (FUNCALL XLIB::COPY-FUNCTION XLIB::TEMP-GC XLIB:GCONTEXT ; (SVREF XLIB::LOCAL-STATE XLIB::I)) ; ; 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))) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (ASH BIT -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) 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) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC)) ; --> 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-GCONTEXT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEGC+) ; (XLIB:RESOURCE-ID XLIB::GCONTEXTID) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (PROGN ; (DO* ((XLIB::I 0 #) ; (BIT 1 #) ; (XLIB::NBYTE 16) ; (XLIB::MASK 0) ; (XLIB::LOCAL # #)) ; ((XLIB::INDEX>= XLIB::I XLIB::+GCONTEXT-FAST-CHANGE-LENGTH+) ; (XLIB::CARD29-PUT 12 XLIB::MASK) ; (XLIB::CARD16-PUT 2 #) ; (XLIB::INDEX-INCF # XLIB::NBYTE)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::I XLIB::NBYTE) ; (TYPE XLIB::XGCMASK BIT) ; (TYPE XLIB::GCMASK XLIB::MASK) ; (TYPE # XLIB::LOCAL)) ; (UNLESS (EQL XLIB::LOCAL #) ; (SETF #) ; (XLIB::CARD32-PUT XLIB::NBYTE XLIB::LOCAL) ; (SETQ #) ; (XLIB::INDEX-INCF XLIB::NBYTE 4))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-GCONTEXT-COMPONENTS ; (FIND XLIB::KEY XLIB::*GCONTEXT-EXTENSIONS* :KEY ; #'XLIB::GCONTEXT-EXTENSION-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (FUNCALL (XLIB::GCONTEXT-EXTENSION-COPY-FUNCTION XLIB::EXTENSION) XLIB::SRC ; XLIB::DST ; (SVREF (XLIB::GCONTEXT-LOCAL-STATE XLIB::SRC) ; (XLIB::INDEX+ ; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) ; XLIB::*GCONTEXT-DATA-LENGTH*))) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+) ; (XLIB:GCONTEXT XLIB::SRC XLIB::DST) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::MASK))) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-GCONTEXT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/gcontext-tmp4QIPRMOF.fasl ; compilation finished in 0:00:00.816 ; compiling file "/usr/share/common-lisp/source/clx/input.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DEFUN READ-INPUT ; (CONS NIL NIL) ; ; note: deleting unreachable code ; in: DEFUN QUEUE-EVENT ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::EVENT-CODE) XLIB:DISPLAY ; XLIB::ARGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DECLARE-EVENT :CLIENT-MESSAGE ; (XLIB:DECLARE-EVENT :CLIENT-MESSAGE ; (XLIB::DATA FORMAT) ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (KEYWORD TYPE) ; ((XLIB::CLIENT-MESSAGE-SEQUENCE FORMAT) XLIB::DATA)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::READING-EVENT XLIB::WITH-BUFFER-INPUT LET LET* ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; --> 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 COND IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD8 MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ; --> ECASE COND IF IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD16 MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ; --> ECASE COND IF IF IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD32 MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN MAKE-ERROR ; (FUNCALL XLIB::ERROR-DECODE-FUNCTION XLIB:DISPLAY XLIB::EVENT) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/input-tmpGW0QV22K.fasl ; compilation finished in 0:00:01.376 ; compiling file "/usr/share/common-lisp/source/clx/requests.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEWINDOW+) ; (XLIB::DATA XLIB::DEPTH) ; (XLIB:RESOURCE-ID XLIB::WID) ; (XLIB:WINDOW XLIB::PARENT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH) ; ((XLIB::MEMBER16 :COPY :INPUT-OUTPUT :INPUT-ONLY) CLASS) ; (XLIB:RESOURCE-ID ; (COND ((EQ XLIB::VISUAL :COPY) 0) ; ((TYPEP XLIB::VISUAL 'XLIB:RESOURCE-ID) XLIB::VISUAL) ; (T (XLIB:VISUAL-INFO-ID XLIB::VISUAL)))) ; (XLIB::MASK ; (XLIB:CARD32 XLIB::BACK-PIXMAP XLIB::BACK-PIXEL XLIB::BORDER-PIXMAP ; XLIB::BORDER-PIXEL) ; ((XLIB::MEMBER-VECTOR XLIB::+BIT-GRAVITY-VECTOR+) XLIB:BIT-GRAVITY) ; ((XLIB::MEMBER-VECTOR XLIB::+WIN-GRAVITY-VECTOR+) XLIB::GRAVITY) ; ((MEMBER :NOT-USEFUL :WHEN-MAPPED :ALWAYS) XLIB::BACKING-STORE) ; (XLIB:CARD32 XLIB::BACKING-PLANES XLIB::BACKING-PIXEL) ; ((MEMBER :OFF :ON) XLIB::OVERRIDE-REDIRECT XLIB::SAVE-UNDER) ; (XLIB:CARD32 XLIB:EVENT-MASK XLIB::DO-NOT-PROPAGATE-MASK) ; ((OR (MEMBER :COPY) XLIB:COLORMAP) XLIB:COLORMAP) ; ((OR (MEMBER :NONE) XLIB:CURSOR) XLIB:CURSOR))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN SETQ THE ; ==> ; (LOGIOR XLIB::%MASK 4096) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 4096)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 4096)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 8192)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 8192)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; 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 (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET INCF LET* ; ==> ; (+ XLIB::%INDEX (XLIB::BUFFER-BOFFSET #:%BUFFER104)) ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DESTROY-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-DESTROYWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DESTROY-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-DESTROYSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN REPARENT-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-REPARENTWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW XLIB::PARENT) ; (XLIB:INT16 XLIB::X XLIB::Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MAP-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-MAPWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MAP-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-MAPSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNMAP-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNMAPWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNMAP-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNMAPSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CIRCULATE-WINDOW-UP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CIRCULATEWINDOW+) ; (XLIB::DATA 0) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CIRCULATE-WINDOW-DOWN ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CIRCULATEWINDOW+) ; (XLIB::DATA 1) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN INTERN-ATOM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-INTERNATOM+ 12 ; :SIZES 32) ; ((XLIB::DATA 0) (XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::RESOURCE-ID-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FIND-ATOM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-INTERNATOM+ 12 ; :SIZES 32) ; ((XLIB::DATA 1) (XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::OR-GET 8 NULL XLIB:RESOURCE-ID))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEPROPERTY+) ; ((XLIB::DATA (MEMBER :REPLACE :PREPEND :APPEND)) XLIB::MODE) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID XLIB::TYPE-ID) ; (XLIB:CARD8 FORMAT) ; (XLIB:CARD32 LENGTH) ; (PROGN ; (ECASE FORMAT ; (8 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD8 :START XLIB::START ; :END XLIB::END :TRANSFORM XLIB::TRANSFORM)) ; (16 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD16 :START ; XLIB::START :END XLIB::END :TRANSFORM ; XLIB::TRANSFORM)) ; (32 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD32 :START ; XLIB::START :END XLIB::END :TRANSFORM ; XLIB::TRANSFORM))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DELETE-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-DELETEPROPERTY+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GET-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETPROPERTY+ NIL ; :SIZES (8 32)) ; (((XLIB::DATA BOOLEAN) XLIB::DELETE-P) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID) ; ((OR NULL XLIB:RESOURCE-ID) XLIB::TYPE-ID) (XLIB:CARD32 XLIB::START) ; (XLIB:CARD32 (XLIB::INDEX- (OR XLIB::END 64000) XLIB::START))) ; (LET ((XLIB::REPLY-FORMAT (XLIB::CARD8-GET 1)) ; (XLIB::REPLY-TYPE (XLIB::CARD32-GET 8)) ; (XLIB::BYTES-AFTER (XLIB::CARD32-GET 12)) ; (XLIB::NITEMS (XLIB::CARD32-GET 16))) ; (VALUES XLIB::REPLY-FORMAT XLIB::REPLY-TYPE XLIB::BYTES-AFTER ; (AND (PLUSP XLIB::NITEMS) (ECASE XLIB::REPLY-FORMAT # # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ROTATE-PROPERTIES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-ROTATEPROPERTIES+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 LENGTH) ; (XLIB:INT16 (- XLIB::DELTA)) ; ((SEQUENCE :END LENGTH) SEQUENCE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-SELECTION-OWNER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETSELECTIONOWNER+) ; ((OR NULL XLIB:WINDOW) XLIB::OWNER) ; (XLIB:RESOURCE-ID XLIB::SELECTION-ID) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CONVERT-SELECTION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CONVERTSELECTION+) ; (XLIB:WINDOW XLIB::REQUESTOR) ; (XLIB:RESOURCE-ID XLIB::SELECTION-ID XLIB::TYPE-ID) ; ((OR NULL XLIB:RESOURCE-ID) XLIB::PROPERTY-ID) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SEND-EVENT ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE) ; XLIB:DISPLAY XLIB::ARGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SENDEVENT+) ; ((XLIB::DATA BOOLEAN) XLIB::PROPAGATE-P) ; (LENGTH 11) ; ((OR (MEMBER :POINTER-WINDOW :INPUT-FOCUS) XLIB:WINDOW) XLIB:WINDOW) ; (XLIB:CARD32 (XLIB::ENCODE-EVENT-MASK XLIB:EVENT-MASK)) ; (XLIB:CARD8 XLIB::EXTERNAL-EVENT-CODE) ; (PROGN ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE) ; XLIB:DISPLAY XLIB::ARGS) ; (SETF (XLIB::BUFFER-BOFFSET XLIB:DISPLAY) ; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 44)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-POINTER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GRABPOINTER+ NIL ; :SIZES 8) ; (((XLIB::DATA BOOLEAN) XLIB::OWNER-P) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK)) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P)) ; ((OR NULL XLIB:WINDOW) XLIB::CONFINE-TO) ; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ((OR NULL XLIB:CARD32) TIME)) ; (VALUES ; (XLIB::MEMBER8-GET 1 :SUCCESS :ALREADY-GRABBED :INVALID-TIME :NOT-VIEWABLE ; :FROZEN))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-POINTER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-UNGRABPOINTER+) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-BUTTON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-GRABBUTTON+) ; ((XLIB::DATA BOOLEAN) XLIB::OWNER-P) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK)) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P)) ; ((OR NULL XLIB:WINDOW) XLIB::CONFINE-TO) ; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ; (XLIB:CARD8 ; (IF (EQ XLIB::BUTTON :ANY) ; 0 ; XLIB::BUTTON)) ; (XLIB::PAD8 1) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-BUTTON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNGRABBUTTON+) ; (XLIB::DATA ; (IF (EQ XLIB::BUTTON :ANY) ; 0 ; XLIB::BUTTON)) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-ACTIVE-POINTER-GRAB ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEACTIVEPOINTERGRAB+) ; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-KEYBOARD ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GRABKEYBOARD+ NIL ; :SIZES 8) ; (((XLIB::DATA BOOLEAN) XLIB::OWNER-P) (XLIB:WINDOW XLIB:WINDOW) ; ((OR NULL XLIB:CARD32) TIME) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P))) ; (VALUES ; (XLIB::MEMBER8-GET 1 :SUCCESS :ALREADY-GRABBED :INVALID-TIME :NOT-VIEWABLE ; :FROZEN))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-KEYBOARD ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-UNGRABKEYBOARD+) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-KEY ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-GRABKEY+) ; ((XLIB::DATA BOOLEAN) XLIB::OWNER-P) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS)) ; (XLIB:CARD8 ; (IF (EQ XLIB::KEY :ANY) ; 0 ; XLIB::KEY)) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-KEY ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNGRABKEY+) ; (XLIB::DATA ; (IF (EQ XLIB::KEY :ANY) ; 0 ; XLIB::KEY)) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-SERVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-GRABSERVER+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNGRAB-SERVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-UNGRABSERVER+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MOTION-EVENTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETMOTIONEVENTS+ ; NIL :SIZES 32) ; ((XLIB:WINDOW XLIB:WINDOW) ((OR NULL XLIB:CARD32) XLIB::START XLIB::STOP)) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; (XLIB::INDEX* (XLIB::CARD32-GET 8) 3) :INDEX ; XLIB::+REPLYSIZE+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN TRANSLATE-COORDINATES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-TRANSLATECOORDS+ ; 16 :SIZES (8 16 32)) ; ((XLIB:WINDOW XLIB::SRC XLIB::DST) (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y)) ; (AND (XLIB::BOOLEAN-GET 1) ; (VALUES (XLIB::INT16-GET 12) (XLIB::INT16-GET 14) ; (XLIB::OR-GET 8 NULL XLIB:WINDOW)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WARP-POINTER ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::DST) ; XLIB::+X-WARPPOINTER+) ; (XLIB:RESOURCE-ID 0) ; (XLIB:WINDOW XLIB::DST) ; (XLIB:INT16 0 0) ; (XLIB:CARD16 0 0) ; (XLIB:INT16 XLIB::DST-X XLIB::DST-Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WARP-POINTER-RELATIVE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-WARPPOINTER+) ; (XLIB:RESOURCE-ID 0) ; (XLIB:RESOURCE-ID 0) ; (XLIB:INT16 0 0) ; (XLIB:CARD16 0 0) ; (XLIB:INT16 XLIB::X-OFF XLIB::Y-OFF)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WARP-POINTER-IF-INSIDE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::DST) ; XLIB::+X-WARPPOINTER+) ; (XLIB:WINDOW XLIB::SRC XLIB::DST) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y) ; (XLIB:CARD16 (OR XLIB::SRC-WIDTH 0) (OR XLIB::SRC-HEIGHT 0)) ; (XLIB:INT16 XLIB::DST-X XLIB::DST-Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WARP-POINTER-RELATIVE-IF-INSIDE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::SRC) ; XLIB::+X-WARPPOINTER+) ; (XLIB:WINDOW XLIB::SRC) ; (XLIB:RESOURCE-ID 0) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y) ; (XLIB:CARD16 (OR XLIB::SRC-WIDTH 0) (OR XLIB::SRC-HEIGHT 0)) ; (XLIB:INT16 XLIB::X-OFF XLIB::Y-OFF)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-PIXMAP ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:PIXMAP 'XLIB:PIXMAP) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEPIXMAP+) ; (XLIB::DATA XLIB::DEPTH) ; (XLIB:RESOURCE-ID XLIB::PID) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-PIXMAP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEPIXMAP+) ; (XLIB:PIXMAP XLIB:PIXMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CLEAR-AREA ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CLEARTOBACKGROUND+) ; ((XLIB::DATA BOOLEAN) XLIB::EXPOSURES-P) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 (OR XLIB::WIDTH 0) (OR XLIB::HEIGHT 0))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-AREA ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB::SRC) ; XLIB::+X-COPYAREA+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB::SRC XLIB::DST) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y XLIB::DST-X XLIB::DST-Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-PLANE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB::SRC) ; XLIB::+X-COPYPLANE+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB::SRC XLIB::DST) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y XLIB::DST-X XLIB::DST-Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) ; (XLIB:CARD32 XLIB::PLANE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-COLORMAP ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:COLORMAP 'XLIB:COLORMAP) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATECOLORMAP+) ; ((XLIB::DATA BOOLEAN) XLIB::ALLOC-P) ; (XLIB:CARD29 XLIB::ID) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD29 (XLIB:VISUAL-INFO-ID XLIB:VISUAL-INFO))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-COLORMAP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREECOLORMAP+) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COPY-COLORMAP-AND-FREE ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB::NEW-COLORMAP 'XLIB:COLORMAP) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYCOLORMAPANDFREE+) ; (XLIB:RESOURCE-ID XLIB::ID) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN INSTALL-COLORMAP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-INSTALLCOLORMAP+) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN UNINSTALL-COLORMAP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-UNINSTALLCOLORMAP+) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALLOC-COLOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCNAMEDCOLOR+ ; 24 :SIZES (16 32)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (XLIB:CARD16 LENGTH) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::CARD32-GET 8) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 18) :GREEN ; (XLIB::RGB-VAL-GET 20) :BLUE ; (XLIB::RGB-VAL-GET 22)) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 12) :GREEN ; (XLIB::RGB-VAL-GET 14) :BLUE ; (XLIB::RGB-VAL-GET 16)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLOR+ 20 ; :SIZES (16 32)) ; ((XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB:COLOR) (XLIB:COLOR-GREEN XLIB:COLOR) ; (XLIB:COLOR-BLUE XLIB:COLOR)) ; (XLIB::PAD16 NIL)) ; (VALUES (XLIB::CARD32-GET 16) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 8) :GREEN ; (XLIB::RGB-VAL-GET 10) :BLUE ; (XLIB::RGB-VAL-GET 12)) ; XLIB:COLOR)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALLOC-COLOR-CELLS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLORCELLS+ ; NIL :SIZES 16) ; (((XLIB::DATA BOOLEAN) XLIB::CONTIGUOUS-P) (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD16 XLIB::COLORS XLIB::PLANES)) ; (LET ((XLIB::PIXEL-LENGTH (XLIB::CARD16-GET 8)) ; (XLIB::MASK-LENGTH (XLIB::CARD16-GET 10))) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::PIXEL-LENGTH :INDEX XLIB::+REPLYSIZE+) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::MASK-LENGTH :INDEX ; (XLIB::INDEX+ XLIB::+REPLYSIZE+ #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ALLOC-COLOR-PLANES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLORPLANES+ ; NIL :SIZES (16 32)) ; (((XLIB::DATA BOOLEAN) XLIB::CONTIGUOUS-P) (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD16 XLIB::COLORS XLIB::REDS XLIB::GREENS XLIB::BLUES)) ; (LET ((XLIB::RED-MASK (XLIB::CARD32-GET 12)) ; (XLIB::GREEN-MASK (XLIB::CARD32-GET 16)) ; (XLIB::BLUE-MASK (XLIB::CARD32-GET 20))) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; (XLIB::CARD16-GET 8) :INDEX XLIB::+REPLYSIZE+) ; XLIB::RED-MASK XLIB::GREEN-MASK XLIB::BLUE-MASK))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-COLORS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-FREECOLORS+) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB::PLANE-MASK) ; (SEQUENCE XLIB::PIXELS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::PIXELS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN STORE-COLOR ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORENAMEDCOLOR+) ; ((XLIB::DATA XLIB:CARD8) XLIB::FLAGS) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB:PIXEL) ; (XLIB:CARD16 LENGTH) ; (XLIB::PAD16 NIL) ; (STRING STRING)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORECOLORS+) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB:PIXEL) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::SPEC) (XLIB:COLOR-GREEN XLIB::SPEC) ; (XLIB:COLOR-BLUE XLIB::SPEC)) ; (XLIB:CARD8 XLIB::FLAGS) ; (XLIB::PAD8 NIL)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORENAMEDCOLOR+) ; ((XLIB::DATA XLIB:CARD8) XLIB::FLAGS) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB:PIXEL) ; (XLIB:CARD16 LENGTH) ; (XLIB::PAD16 NIL) ; (STRING STRING)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-COLORS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYCOLORS+ NIL ; :SIZES (8 16)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (SEQUENCE XLIB::PIXELS)) ; (LET ((SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE #))) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+) ; (DOTIMES (XLIB::I (LENGTH SEQUENCE) SEQUENCE) ; (SETF # #) ; (XLIB::ADVANCE-BUFFER-OFFSET 8)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::PIXELS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (SETF (ELT SEQUENCE XLIB::I) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 0) :GREEN ; (XLIB::RGB-VAL-GET 2) :BLUE (XLIB::RGB-VAL-GET 4))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYCOLORS+ NIL ; :SIZES (8 16)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (SEQUENCE XLIB::PIXELS)) ; (LET ((SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE #))) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+) ; (DOTIMES (XLIB::I (LENGTH SEQUENCE) SEQUENCE) ; (SETF # #) ; (XLIB::ADVANCE-BUFFER-OFFSET 8)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN LOOKUP-COLOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LOOKUPCOLOR+ 20 ; :SIZES 16) ; ((XLIB:COLORMAP XLIB:COLORMAP) (XLIB:CARD16 LENGTH) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 14) :GREEN (XLIB::RGB-VAL-GET 16) ; :BLUE (XLIB::RGB-VAL-GET 18)) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 8) :GREEN (XLIB::RGB-VAL-GET 10) ; :BLUE (XLIB::RGB-VAL-GET 12)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-CURSOR ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATECURSOR+) ; (XLIB:RESOURCE-ID XLIB::CID) ; (XLIB:PIXMAP XLIB::SOURCE) ; ((OR NULL XLIB:PIXMAP) XLIB::MASK) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND) ; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND)) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND) ; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND)) ; (XLIB:CARD16 XLIB::X XLIB::Y)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-GLYPH-CURSOR ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEGLYPHCURSOR+) ; (XLIB:RESOURCE-ID XLIB::CID XLIB::SOURCE-FONT-ID XLIB::MASK-FONT-ID) ; (XLIB:CARD16 XLIB::SOURCE-CHAR) ; (XLIB:CARD16 XLIB::MASK-CHAR) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND) ; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND)) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND) ; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FREE-CURSOR ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREECURSOR+) ; (XLIB:CURSOR XLIB:CURSOR)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RECOLOR-CURSOR ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:CURSOR-DISPLAY XLIB:CURSOR) ; XLIB::+X-RECOLORCURSOR+) ; (XLIB:CURSOR XLIB:CURSOR) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND) ; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND)) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND) ; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-BEST-CURSOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12 ; :SIZES 16) ; ((XLIB::DATA 0) (XLIB:WINDOW XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-BEST-TILE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12 ; :SIZES 16) ; ((XLIB::DATA 1) (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-BEST-STIPPLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12 ; :SIZES 16) ; ((XLIB::DATA 2) (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-EXTENSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYEXTENSION+ ; 12 :SIZES 8) ; ((XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) (STRING STRING)) ; (AND (XLIB::BOOLEAN-GET 8) ; (VALUES (XLIB::CARD8-GET 9) (XLIB::CARD8-GET 10) ; (XLIB::CARD8-GET 11)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-KEYBOARD-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEKEYBOARDCONTROL+ ; :SIZES (32)) ; (XLIB::MASK ; (INTEGER XLIB::KEY-CLICK-PERCENT XLIB::BELL-PERCENT XLIB::BELL-PITCH ; XLIB::BELL-DURATION) ; (XLIB:CARD32 XLIB::LED) ((MEMBER :OFF :ON) XLIB::LED-MODE) ; (XLIB:CARD32 XLIB::KEY) ; ((MEMBER :OFF :ON :DEFAULT) XLIB::AUTO-REPEAT-MODE))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-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 #:%BUFFER46)) ; ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN BELL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-BELL+) ; (XLIB::DATA (XLIB::INT8->CARD8 XLIB::PERCENT-FROM-NORMAL))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-POINTER-MAPPING ; (LENGTH MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-SETPOINTERMAPPING+ 2 :SIZES 8) ; ((XLIB::DATA (LENGTH MAP)) ((SEQUENCE :FORMAT XLIB:CARD8) MAP)) ; (VALUES (XLIB::BOOLEAN-GET 1))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-POINTER-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEPOINTERCONTROL+) ; (XLIB:INT16 NUMERATOR DENOMINATOR XLIB::THRESHOLD) ; (XLIB:CARD8 XLIB::ACCELERATION-P XLIB::THRESHOLD-P)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETSCREENSAVER+) ; (XLIB:INT16 XLIB::TIMEOUT XLIB::INTERVAL) ; ((XLIB::MEMBER8 :ON :OFF :DEFAULT) XLIB::BLANKING XLIB::EXPOSURES)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ACTIVATE-SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FORCESCREENSAVER+) ; (XLIB::DATA 1)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RESET-SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FORCESCREENSAVER+) ; (XLIB::DATA 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-ACCESS-HOST ; (LENGTH XLIB::ADDRESS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEHOSTS+) ; ((XLIB::DATA BOOLEAN) XLIB::REMOVE-P) ; (XLIB:CARD8 ; (XLIB::ENCODE-TYPE (OR NULL (MEMBER :INTERNET :DECNET :CHAOS) XLIB:CARD32) ; XLIB::FAMILY)) ; (XLIB:CARD16 (LENGTH XLIB::ADDRESS)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::ADDRESS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::ADDRESS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ACCESS-HOSTS ; (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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SETF (ELT SEQUENCE XLIB::I) ; (CONS ; (IF (< XLIB::FAMILY 3) ; (SVREF '# XLIB::FAMILY) ; XLIB::FAMILY) ; (XLIB::SEQUENCE-GET :LENGTH XLIB::LEN :FORMAT XLIB:CARD8 ; :RESULT-TYPE 'LIST :INDEX ; (+ XLIB::BUFFER-BOFFSET 4)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ACCESS-CONTROL ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LISTHOSTS+ 2 ; :SIZES 8) ; NIL ; (XLIB::BOOLEAN-GET 1)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-ACCESS-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEACCESSCONTROL+) ; ((XLIB::DATA BOOLEAN) XLIB::ENABLED-P)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN KILL-CLIENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-KILLCLIENT+) ; (XLIB:RESOURCE-ID XLIB:RESOURCE-ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN KILL-TEMPORARY-CLIENTS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-KILLCLIENT+) ; (XLIB:RESOURCE-ID 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN NO-OPERATION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-NOOPERATION+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/requests-tmp2K9J0HSR.fasl ; compilation finished in 0:00:01.420 ; compiling file "/usr/share/common-lisp/source/clx/fonts.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-OPENFONT+) ; (XLIB:RESOURCE-ID XLIB:FONT-ID) ; (XLIB:CARD16 (LENGTH XLIB::NAME-STRING)) ; (XLIB::PAD16 NIL) ; (STRING XLIB::NAME-STRING)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN OPEN-FONT-INTERNAL ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:FONT 'XLIB:FONT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (LENGTH XLIB::NAME-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-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. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CLOSE-FONT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CLOSEFONT+) ; (XLIB:RESOURCE-ID XLIB::ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN LIST-FONT-NAMES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LISTFONTS+ ; XLIB::SIZE :SIZES (8 16)) ; ((XLIB:CARD16 XLIB::MAX-FONTS (LENGTH STRING)) (STRING STRING)) ; (VALUES ; (XLIB::READ-SEQUENCE-STRING XLIB::BUFFER-BBUF ; (XLIB::INDEX- XLIB::SIZE XLIB::+REPLYSIZE+) ; (XLIB::CARD16-GET 8) XLIB::RESULT-TYPE ; XLIB::+REPLYSIZE+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN LIST-FONTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-LISTFONTSWITHINFO+ 60 :SIZES ; (8 16) :MULTIPLE-REPLY T) ; ((XLIB:CARD16 XLIB::MAX-FONTS (LENGTH STRING)) (STRING STRING)) ; (COND ((ZEROP (XLIB::CARD8-GET 1)) T) ; (T ; (LET* (# # # # # # # # #) ; (SETF #) ; (PUSH XLIB:FONT XLIB::RESULT)) ; NIL))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SET-FONT-PATH ; (ELT XLIB::PATHS XLIB::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (STRING (ELT XLIB::PATHS XLIB::I)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING ; SYMBOL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (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)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CEILING XLIB::REQUEST-LENGTH 4) ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; ; note: forced to do full call ; unable to do inline ASH (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; 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)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/fonts-tmpP44I4E0Y.fasl ; compilation finished in 0:00:00.264 ; compiling file "/usr/share/common-lisp/source/clx/graphics.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 ; ==> ; (= (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-POINTS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYPOINT+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-LINE ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 ; ==> ; (= (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-LINES ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYLINE+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FILL-POLYGON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-FILLPOLY+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((XLIB::MEMBER8 :COMPLEX :NON-CONVEX :CONVEX) XLIB::SHAPE) ; (BOOLEAN XLIB::RELATIVE-P) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-SEGMENTS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYSEGMENT+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::SEGMENTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::SEGMENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-RECTANGLE ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 ; ==> ; (= (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-RECTANGLES ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; (IF XLIB::FILL-P ; XLIB::+X-POLYFILLRECTANGLE+ ; XLIB::+X-POLYRECTANGLE+) ; :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::RECTANGLES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-ARC ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 ; ==> ; (= (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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-ARCS-LIST ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::REQUEST :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (PROGN ; (XLIB::CARD16-PUT 2 (XLIB::INDEX+ (XLIB::INDEX-ASH LENGTH -1) 3)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)) ; (DO ((XLIB::ARC XLIB::ARCS)) ; ((ENDP XLIB::ARC) (SETF #)) ; (WHEN (XLIB::INDEX>= XLIB::BUFFER-BOFFSET XLIB::LIMIT) ; (SETF #) ; (XLIB::BUFFER-FLUSH XLIB:DISPLAY) ; (XLIB::SET-BUFFER-OFFSET #)) ; (XLIB::INT16-PUT 0 (POP XLIB::ARC)) ; (XLIB::INT16-PUT 2 (POP XLIB::ARC)) ; (XLIB::CARD16-PUT 4 (POP XLIB::ARC)) ; (XLIB::CARD16-PUT 6 (POP XLIB::ARC)) ; (XLIB::ANGLE-PUT 8 (POP XLIB::ARC)) ; (XLIB::ANGLE-PUT 10 (POP XLIB::ARC)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-ARCS-VECTOR ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 0)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 1)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 2)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 3)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 4)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 5)) ; ; 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 VECTOR, not a SIMPLE-STRING. ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::REQUEST :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (PROGN ; (XLIB::CARD16-PUT 2 (XLIB::INDEX+ (XLIB::INDEX-ASH LENGTH -1) 3)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)) ; (DO ((XLIB::N 0 #) ; (LENGTH #)) ; ((XLIB::INDEX>= XLIB::N LENGTH) (SETF #)) ; (WHEN (XLIB::INDEX>= XLIB::BUFFER-BOFFSET XLIB::LIMIT) ; (SETF #) ; (XLIB::BUFFER-FLUSH XLIB:DISPLAY) ; (XLIB::SET-BUFFER-OFFSET #)) ; (XLIB::INT16-PUT 0 (AREF XLIB::ARCS #)) ; (XLIB::INT16-PUT 2 (AREF XLIB::ARCS #)) ; (XLIB::CARD16-PUT 4 (AREF XLIB::ARCS #)) ; (XLIB::CARD16-PUT 6 (AREF XLIB::ARCS #)) ; (XLIB::ANGLE-PUT 8 (AREF XLIB::ARCS #)) ; (XLIB::ANGLE-PUT 10 (AREF XLIB::ARCS #)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN PUT-RAW-IMAGE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-PUTIMAGE+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA (MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP)) FORMAT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 XLIB::LEFT-PAD XLIB::DEPTH) ; (XLIB::PAD16 NIL) ; ((SEQUENCE :FORMAT XLIB:CARD8 :START XLIB::START) XLIB::DATA)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::DATA) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GET-RAW-IMAGE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETIMAGE+ NIL ; :SIZES (8 32)) ; (((XLIB::DATA (MEMBER ERROR :XY-PIXMAP :Z-PIXMAP)) FORMAT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) (XLIB:CARD32 XLIB::PLANE-MASK)) ; (LET ((XLIB::DEPTH (XLIB::CARD8-GET 1)) ; (LENGTH (* 4 #)) ; (XLIB::VISUAL (XLIB::RESOURCE-ID-GET 8))) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :FORMAT XLIB:CARD8 ; :LENGTH LENGTH :START XLIB::START :DATA XLIB::DATA ; :INDEX ...) ; XLIB::DEPTH (XLIB:VISUAL-INFO XLIB:DISPLAY XLIB::VISUAL)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/graphics-tmp63LQ7EX6.fasl ; compilation finished in 0:00:00.272 ; compiling file "/usr/share/common-lisp/source/clx/text.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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 ; 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))) ; --> THE ; ==> ; (+ ; (IF (OR (XLIB::FONT-CHAR-INFOS-INTERNAL XLIB:FONT) ; (XLIB::FONT-LOCAL-ONLY-P XLIB:FONT)) ; (XLIB::TEXT-EXTENTS-LOCAL XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END ; :WIDTH-ONLY) ; (XLIB::TEXT-WIDTH-SERVER XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END)) ; XLIB::WIDTH) ; ; note: forced to do 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) ; &OPTIONAL). ; etc. ; in: DEFUN TEXT-EXTENTS-SERVER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYTEXTEXTENTS+ ; 28 :SIZES (8 16 32)) ; (((XLIB::DATA BOOLEAN) (ODDP LENGTH)) ; (LENGTH (XLIB::INDEX+ (XLIB::INDEX-CEILING LENGTH 2) 2)) ; (XLIB:RESOURCE-ID XLIB:FONT-ID) ; ((SEQUENCE :FORMAT XLIB::CHAR2B :START XLIB::START :END XLIB::END ; :APPENDING T) ; SEQUENCE)) ; (VALUES (XLIB::INTEGER-GET 16) (XLIB::INT16-GET 12) (XLIB::INT16-GET 14) ; (XLIB::INTEGER-GET 20) (XLIB::INTEGER-GET 24) (XLIB::INT16-GET 8) ; (XLIB::INT16-GET 10) ; (XLIB::MEMBER8-GET 1 :LEFT-TO-RIGHT :RIGHT-TO-LEFT))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN TEXT-WIDTH-SERVER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYTEXTEXTENTS+ ; 28 :SIZES 32) ; (((XLIB::DATA BOOLEAN) (ODDP LENGTH)) ; (LENGTH (XLIB::INDEX+ (XLIB::INDEX-CEILING LENGTH 2) 2)) ; (XLIB:RESOURCE-ID XLIB:FONT-ID) ; ((SEQUENCE :FORMAT XLIB::CHAR2B :START XLIB::START :END XLIB::END ; :APPENDING T) ; SEQUENCE)) ; (VALUES (XLIB::INTEGER-GET 16))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-GLYPH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 1 0) ; (XLIB:CARD8 (LDB (BYTE 8 0) ELT)) ; (XLIB:CARD8 (LDB (BYTE 8 8) ELT))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF XLIB::OVERALL-WIDTH XLIB::TRANSLATED-WIDTH) ; --> THE ; ==> ; (+ XLIB::TRANSLATED-WIDTH XLIB::OVERALL-WIDTH) ; ; 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) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT8+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (DO* (# ; # ; # ; # ; # ; #) ; (# # # # # #) ; (DECLARE # ; # ; #) ; (SETQ #) ; (MULTIPLE-VALUE-BIND # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 # # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF XLIB::OVERALL-WIDTH XLIB::TRANSLATED-WIDTH) ; --> THE ; ==> ; (+ XLIB::TRANSLATED-WIDTH XLIB::OVERALL-WIDTH) ; ; 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) ; &OPTIONAL). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT16+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (DO* (# ; # ; # ; # ; # ; #) ; (# # # # # #) ; (DECLARE # ; # ; #) ; (SETQ #) ; (MULTIPLE-VALUE-BIND # # # # # # # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-IMAGE-GLYPH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB::DATA 1) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 (LDB (BYTE 8 0) ELT)) ; (XLIB:CARD8 (LDB (BYTE 8 8) ELT))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-IMAGE-GLYPHS8 ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-IMAGETEXT8+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (MULTIPLE-VALUE-SETQ (XLIB::NEW-START XLIB:FONT XLIB::TRANSLATED-WIDTH) ; (FUNCALL # SEQUENCE XLIB::START XLIB::END XLIB:FONT XLIB::BUFFER-BBUF ; #)) ; (SETQ XLIB::CHUNK #) ; (WHEN (AND # #) (SETQ #) (RETURN-FROM XLIB::CHANGE-FONT)) ; (WHEN (XLIB::INDEX-ZEROP XLIB::CHUNK) ; (RETURN-FROM XLIB::DRAW-IMAGE-GLYPHS8 XLIB::NEW-START)) ; (XLIB::DATA-PUT 1 XLIB::CHUNK) ; (LET (#) ; (XLIB::LENGTH-PUT 2 #) ; (SETF #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRAW-IMAGE-GLYPHS16 ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-IMAGETEXT16+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (MULTIPLE-VALUE-SETQ (XLIB::NEW-START XLIB:FONT XLIB::TRANSLATED-WIDTH) ; (FUNCALL # SEQUENCE XLIB::START XLIB::END XLIB:FONT XLIB::BUFFER 0)) ; (SETQ XLIB::CHUNK #) ; (WHEN (AND # #) (SETQ #) (RETURN-FROM XLIB::CHANGE-FONT)) ; (WHEN (XLIB::INDEX-ZEROP XLIB::CHUNK) ; (RETURN-FROM XLIB::DRAW-IMAGE-GLYPHS16 XLIB::NEW-START)) ; (XLIB::WRITE-SEQUENCE-CHAR2B XLIB:DISPLAY ; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16) ; XLIB::BUFFER 0 XLIB::CHUNK) ; (XLIB::DATA-PUT 1 XLIB::CHUNK) ; (LET (#) ; (XLIB::LENGTH-PUT 2 #) ; (SETF #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-KEYBOARD-MAPPING ; (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))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (AREF XLIB::KEYSYMS XLIB::I XLIB::J) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (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))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN KEYBOARD-MAPPING ; (1+ XLIB::I) ; ; 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-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 # #)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SETF (AREF XLIB::RESULT XLIB::I XLIB::J) (XLIB::CARD29-GET (* XLIB::J 4))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (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 # #)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; 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 &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/text-tmp86F1A8FB.fasl ; compilation finished in 0:00:00.412 ; compiling file "/usr/share/common-lisp/source/clx/attributes.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CHANGE-DRAWABLE-GEOMETRY ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-CONFIGUREWINDOW+) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 (ASH 1 NUMBER)) ; (XLIB:CARD29 XLIB::VALUE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> UNWIND-PROTECT FLET BLOCK 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> UNWIND-PROTECT FLET BLOCK 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN PUT-WINDOW-ATTRIBUTE-CHANGES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEWINDOWATTRIBUTES+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::MASK) ; (PROGN ; (DO ((XLIB::BITS XLIB::MASK #) ; (XLIB::REQUEST-SIZE 2) ; (XLIB::I 1 #)) ; ((ZEROP XLIB::BITS) (XLIB::CARD16-PUT 2 #) (XLIB::INDEX-INCF # #)) ; (DECLARE (TYPE XLIB:MASK32 XLIB::BITS) ; (TYPE XLIB:ARRAY-INDEX XLIB::I XLIB::REQUEST-SIZE)) ; (WHEN (ODDP XLIB::BITS) (XLIB::CARD32-PUT # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN PUT-DRAWABLE-GEOMETRY-CHANGES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CONFIGUREWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 XLIB::MASK) ; (PROGN ; (DO ((XLIB::BITS XLIB::MASK #) ; (XLIB::REQUEST-SIZE 2) ; (XLIB::I 1 #)) ; ((ZEROP XLIB::BITS) (XLIB::CARD16-PUT 2 #) (XLIB::INDEX-INCF # #)) ; (DECLARE (TYPE XLIB:MASK16 XLIB::BITS) ; (TYPE FIXNUM XLIB::REQUEST-SIZE) ; (TYPE XLIB:ARRAY-INDEX XLIB::I)) ; (WHEN (ODDP XLIB::BITS) (XLIB::CARD29-PUT # #))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/attributes-tmpH7D4HL98.fasl ; compilation finished in 0:00:00.256 ; compiling file "/usr/share/common-lisp/source/clx/translate.lisp" (written 27 DEC 2022 07:29:08 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/translate-tmpCDM7YXYI.fasl ; compilation finished in 0:00:00.224 ; compiling file "/usr/share/common-lisp/source/clx/keysyms.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/keysyms-tmpLM57P5P.fasl ; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/clx/manager.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/manager-tmpZE69DN33.fasl ; compilation finished in 0:00:00.588 ; compiling file "/usr/share/common-lisp/source/clx/image.lisp" (written 04 FEB 2018 08:14:53 AM): ; 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 LIST 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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 SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to 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))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN PUT-IMAGE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-PUTIMAGE+ :GC-FORCE ; XLIB:GCONTEXT) ; ((XLIB::DATA (MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP)) ; (COND ((OR # XLIB::BITMAP-P) :BITMAP) ((PLUSP XLIB::LEFT-PAD) :XY-PIXMAP) ; (T FORMAT))) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 XLIB::WIDTH XLIB::REQUEST-HEIGHT) ; (XLIB:INT16 XLIB::X XLIB::REQUEST-Y) ; (XLIB:CARD8 XLIB::LEFT-PAD XLIB::DEPTH) ; (XLIB::PAD16 NIL) ; (PROGN ; (XLIB::LENGTH-PUT 2 XLIB::REQUEST-LENGTH) ; (SETF (XLIB::BUFFER-BOFFSET XLIB:DISPLAY) ; (XLIB::ADVANCE-BUFFER-OFFSET 24)) ; (ETYPECASE XLIB:IMAGE ; (XLIB:IMAGE-X (ECASE # # #)) ; (XLIB:IMAGE-XY ; (XLIB::WRITE-IMAGE-XY XLIB:DISPLAY XLIB:IMAGE XLIB::LEFT-PADDED-SRC-X ; XLIB::REQUEST-SRC-Y XLIB::LEFT-PADDED-WIDTH XLIB::REQUEST-HEIGHT ; XLIB::PADDED-BYTES-PER-LINE XLIB::UNIT XLIB::BYTE-LSB-FIRST-P ; XLIB::BIT-LSB-FIRST-P)) ; (XLIB:IMAGE-Z ; (XLIB::WRITE-IMAGE-Z XLIB:DISPLAY XLIB:IMAGE XLIB::LEFT-PADDED-SRC-X ; XLIB::REQUEST-SRC-Y XLIB::LEFT-PADDED-WIDTH XLIB::REQUEST-HEIGHT ; XLIB::PADDED-BYTES-PER-LINE XLIB::UNIT XLIB::BYTE-LSB-FIRST-P ; XLIB::BIT-LSB-FIRST-P))) ; (XLIB::BUFFER-PAD-REQUEST XLIB:DISPLAY ; (XLIB::INDEX- ; (XLIB::INDEX* XLIB::REQUEST-WORDS 4) ; XLIB::REQUEST-BYTES)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/image-tmpG8099TO3.fasl ; compilation finished in 0:00:01.040 ; compiling file "/usr/share/common-lisp/source/clx/resource.lisp" (written 27 DEC 2022 07:29:08 AM): ; file: /usr/share/common-lisp/source/clx/resource.lisp ; in: DEFUN DELETE-RESOURCE-INTERNAL ; (SETQ XLIB::LOOSE-P NIL) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/resource-tmpTASQCYAW.fasl ; compilation finished in 0:00:00.236 ; compiling file "/usr/share/common-lisp/source/clx/extensions/shape.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SHAPE-RECTANGLES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 1) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-RECTANGLE-ORDERING XLIB::ORDERING)) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::RECTANGLES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SHAPE-COMBINE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 3) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::SOURCE-KIND)) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET) ; (XLIB:WINDOW XLIB::SOURCE-WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SHAPE-OFFSET ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 4) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 0) ; (XLIB:CARD8 0) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/shape-tmp35U57IV6.fasl ; compilation finished in 0:00:00.208 ; compiling file "/usr/share/common-lisp/source/clx/extensions/big-requests.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/big-requests-tmpTZOONXRW.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xvidmode.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SET-CLIENT-VERSION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SET-CLIENT-VERSION+) ; (XLIB:CARD16 XLIB::+XF86VIDMODE-MAJOR-VERSION+) ; (XLIB:CARD16 XLIB::+XF86VIDMODE-MINOR-VERSION+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-PERMISSIONS ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-PERMISIONS+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-MOD-MODE-LINE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+MOD-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; ((SEQUENCE :FORMAT XLIB:CARD16 :START 2) XLIB::V)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+MOD-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; ((SEQUENCE :FORMAT XLIB:CARD16 :START 2) XLIB::V)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-MODE-LINE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MODE-LINE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0)) ; (LET ((XLIB::MODE-INFO ; (XLIB::MAKE-MODE-INFO :DOTCLOCK # :HDISPLAY # :HSYNCSTART # ; :HSYNCEND # :HTOTAL # :HSKEW ...)) ; (XLIB::SIZE (XLIB::CARD32-GET #))) ; (DECLARE (TYPE XLIB:CARD32 XLIB::SIZE)) ; (INCF XLIB::OFFSET 4) ; (SETF (XLIB::MODE-INFO-PRIVSIZE XLIB::MODE-INFO) XLIB::SIZE ; (XLIB::MODE-INFO-PRIVATE XLIB::MODE-INFO) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :INDEX XLIB::OFFSET ; :LENGTH XLIB::SIZE :RESULT-TYPE 'LIST)) ; XLIB::MODE-INFO)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MODE-LINE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0)) ; (LET ((XLIB::MODE-INFO ; (XLIB::MAKE-MODE-INFO :DOTCLOCK # :HDISPLAY # :HSYNCSTART # ; :HSYNCEND # :HTOTAL # :HSKEW ...)) ; (XLIB::SIZE (XLIB::CARD32-GET #))) ; (DECLARE (TYPE XLIB:CARD32 XLIB::SIZE)) ; (INCF XLIB::OFFSET 4) ; (SETF (XLIB::MODE-INFO-PRIVSIZE XLIB::MODE-INFO) XLIB::SIZE ; (XLIB::MODE-INFO-PRIVATE XLIB::MODE-INFO) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :INDEX XLIB::OFFSET ; :LENGTH XLIB::SIZE :RESULT-TYPE 'LIST)) ; XLIB::MODE-INFO)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-ALL-MODE-LINES ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::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 ...))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-ADD-MODE-LINE ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-DELETE-MODE-LINE ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-VALIDATE-MODE-LINE ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+VALIDATE-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V)) ; (LET ((XLIB::STATUS (XLIB::INTEGER-GET 8))) ; (DECLARE (TYPE XLIB:INT32 XLIB::STATUS)) ; (WHEN XLIB::STATUS (XLIB::DECODE-STATUS-MODE XLIB::STATUS)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0) (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0) ; (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0)) ; (VALUES (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0) (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0) ; (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0)) ; (VALUES (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SET-GAMMA ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+SET-GAMMA+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 0) ; (XLIB:CARD32 (TRUNCATE (* XLIB::RED 10000))) ; (XLIB:CARD32 (TRUNCATE (* XLIB::GREEN 10000))) ; (XLIB:CARD32 (TRUNCATE (* XLIB::BLUE 10000))) ; (XLIB:CARD32 0) ; (XLIB:CARD32 0) ; (XLIB:CARD32 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE)) ; (LET ((XLIB::REP-SIZE (* # 2))) ; (DECLARE (TYPE FIXNUM XLIB::REP-SIZE)) ; (UNLESS (ZEROP XLIB::REP-SIZE) ; (LET* (# #) ; (DECLARE #) ; (VALUES # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE)) ; (LET ((XLIB::REP-SIZE (* # 2))) ; (DECLARE (TYPE FIXNUM XLIB::REP-SIZE)) ; (UNLESS (ZEROP XLIB::REP-SIZE) ; (LET* (# #) ; (DECLARE #) ; (VALUES # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SET-GAMMA-RAMP ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+SET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE) ; ((SEQUENCE :FORMAT XLIB:CARD16) ; (IF (ZEROP (MOD XLIB::SIZE 2)) ; (CONCATENATE 'VECTOR XLIB::RED XLIB::GREEN XLIB::BLUE) ; (CONCATENATE 'VECTOR XLIB::RED '#(0) XLIB::GREEN '#(0) XLIB::BLUE ; '#(0))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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))))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP-SIZE ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA-RAMP-SIZE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (XLIB::CARD16-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-LOCK-MODE-SWITCH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+LOCK-MODE-SWITCH+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 ; (IF XLIB::LOCK-P ; 1 ; 0))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+LOCK-MODE-SWITCH+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 ; (IF XLIB::LOCK-P ; 1 ; 0))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SWITCH-TO-MODE ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-TO-MODE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SWITCH-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 XLIB::ZOOM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 XLIB::ZOOM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SELECT-NEXT-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 1)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 1)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SELECT-PREV-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 65535)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 65535)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-MONITOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MONITOR+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (LET* ((XLIB::VENDOR-NAME-LENGTH (XLIB::CARD8-GET 8)) ; (XLIB::MODEL-NAME-LENGTH (XLIB::CARD8-GET 9)) ; (XLIB::PAD (- 4 #)) ; (XLIB::NHSYNC (XLIB::CARD8-GET 10)) ; (XLIB::NVSYNC (XLIB::CARD8-GET 11)) ; (XLIB::VINDEX (+ 32 #)) ; (XLIB::MINDEX (+ XLIB::VINDEX XLIB::VENDOR-NAME-LENGTH XLIB::PAD)) ; (XLIB::HSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NHSYNC :INDEX 32 :RESULT-TYPE ; 'LIST)) ; (XLIB::VSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NVSYNC :INDEX # :RESULT-TYPE ; 'LIST))) ; (DECLARE ; (TYPE XLIB:CARD8 XLIB::NHSYNC XLIB::NVSYNC XLIB::VENDOR-NAME-LENGTH ; XLIB::MODEL-NAME-LENGTH) ; (TYPE FIXNUM XLIB::PAD XLIB::VINDEX XLIB::MINDEX)) ; (VALUES ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::HSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::VSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (XLIB::STRING-GET XLIB::VENDOR-NAME-LENGTH XLIB::VINDEX) ; (XLIB::STRING-GET XLIB::MODEL-NAME-LENGTH XLIB::MINDEX)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MONITOR+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (LET* ((XLIB::VENDOR-NAME-LENGTH (XLIB::CARD8-GET 8)) ; (XLIB::MODEL-NAME-LENGTH (XLIB::CARD8-GET 9)) ; (XLIB::PAD (- 4 #)) ; (XLIB::NHSYNC (XLIB::CARD8-GET 10)) ; (XLIB::NVSYNC (XLIB::CARD8-GET 11)) ; (XLIB::VINDEX (+ 32 #)) ; (XLIB::MINDEX (+ XLIB::VINDEX XLIB::VENDOR-NAME-LENGTH XLIB::PAD)) ; (XLIB::HSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NHSYNC :INDEX 32 :RESULT-TYPE ; 'LIST)) ; (XLIB::VSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NVSYNC :INDEX # :RESULT-TYPE ; 'LIST))) ; (DECLARE ; (TYPE XLIB:CARD8 XLIB::NHSYNC XLIB::NVSYNC XLIB::VENDOR-NAME-LENGTH ; XLIB::MODEL-NAME-LENGTH) ; (TYPE FIXNUM XLIB::PAD XLIB::VINDEX XLIB::MINDEX)) ; (VALUES ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::HSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::VSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (XLIB::STRING-GET XLIB::VENDOR-NAME-LENGTH XLIB::VINDEX) ; (XLIB::STRING-GET XLIB::MODEL-NAME-LENGTH XLIB::MINDEX)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-VIEWPORT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-VIEWPORT+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-VIEWPORT+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-SET-VIEWPORT ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST 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)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XFREE86-VIDMODE-GET-DOTCLOCKS ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET POSITION ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-DOT-CLOCKS+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 16) ; (XLIB::SEQUENCE-GET :LENGTH (XLIB::CARD32-GET 12) :FORMAT ; XLIB:CARD32 :INDEX 32 :RESULT-TYPE 'LIST))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xvidmode-tmpWN0UKDSV.fasl ; compilation finished in 0:00:00.688 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xrender.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xrender-tmpBF3HHBTQ.fasl ; compilation finished in 0:00:00.868 ; compiling file "/usr/share/common-lisp/source/clx/extensions/glx.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/glx.lisp ; in: DEFUN QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+QUERY-VERSION+) (XLIB:CARD32 1) (XLIB:CARD32 3)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+QUERY-SERVER-STRING+) ; (XLIB:CARD32 (OR (POSITION XLIB:SCREEN # :TEST #'EQ) 0)) ; (XLIB:CARD32 XLIB/GLX::NAME)) ; (LET* ((LENGTH (XLIB::CARD32-GET 12)) ; (XLIB/GLX::BYTES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD8 :RESULT-TYPE '# :INDEX 32 ; :LENGTH LENGTH))) ; (DECLARE (TYPE (SIMPLE-ARRAY XLIB:CARD8 #) XLIB/GLX::BYTES) ; (TYPE FIXNUM LENGTH)) ; (MAP-INTO (MAKE-STRING (1- LENGTH)) #'CODE-CHAR XLIB/GLX::BYTES))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN CLIENT-INFO ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+CLIENT-INFO+) ; (XLIB:CARD32 4) ; (XLIB:CARD32 1) ; (XLIB:CARD32 3) ; (XLIB:CARD32 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MAKE-CONTEXT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB/GLX::CTX 'XLIB/GLX::CONTEXT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN CREATE-CONTEXT ; (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 LIST VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+CREATE-CONTEXT+) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX)) ; (XLIB:RESOURCE-ID XLIB/GLX::VISUAL) ; (XLIB:CARD32 ; (OR (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY) :TEST #'EQ) 0)) ; (XLIB:RESOURCE-ID XLIB/GLX::SHARE-LIST) ; (BOOLEAN XLIB/GLX:IS-DIRECT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DESTROY-CONTEXT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+DESTROY-CONTEXT+) ; (XLIB:RESOURCE-ID XLIB/GLX::ID)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN IS-DIRECT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+IS-DIRECT+) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX))) ; (XLIB::CARD8-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN QUERY-CONTEXT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+QUERY-CONTEXT+) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX))) ; (LET ((XLIB/GLX::NUM-ATTRIBUTES (XLIB::CARD32-GET 8))) ; (DECLARE (TYPE FIXNUM XLIB/GLX::NUM-ATTRIBUTES)) ; (LOOP XLIB/GLX::REPEAT XLIB/GLX::NUM-ATTRIBUTES ; XLIB/GLX::FOR XLIB/GLX::I FIXNUM XLIB/GLX::UPFROM 32 XLIB/GLX::BY 8 ; XLIB/GLX::COLLECTING (CONS (XLIB::CARD32-GET XLIB/GLX::I) ; (XLIB::CARD32-GET #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GET-DRAWABLE-ATTRIBUTES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+GET-DRAWABLE-ATTRIBUTES+) ; (XLIB:DRAWABLE XLIB:DRAWABLE)) ; (LET ((XLIB/GLX::NUM-ATTRIBUTES (XLIB::CARD32-GET 8))) ; (DECLARE (TYPE FIXNUM XLIB/GLX::NUM-ATTRIBUTES)) ; (LOOP XLIB/GLX::REPEAT XLIB/GLX::NUM-ATTRIBUTES ; XLIB/GLX::FOR XLIB/GLX::I FIXNUM XLIB/GLX::UPFROM 32 XLIB/GLX::BY 8 ; XLIB/GLX::COLLECTING (CONS (XLIB::CARD32-GET XLIB/GLX::I) ; (XLIB::CARD32-GET #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN MAKE-CURRENT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+MAKE-CURRENT+) ; (XLIB:RESOURCE-ID (XLIB:DRAWABLE-ID XLIB:DRAWABLE)) ; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX)) ; (XLIB:CARD32 XLIB/GLX::OLD-TAG)) ; (LET ((XLIB/GLX::NEW-TAG (XLIB::CARD32-GET 8))) ; (SETF (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX) XLIB/GLX::NEW-TAG ; (XLIB/GLX::CONTEXT-DRAWABLE XLIB/GLX::CTX) XLIB:DRAWABLE ; (XLIB/GLX::CONTEXT-DISPLAY XLIB/GLX::CTX) XLIB:DISPLAY ; XLIB/GLX::*CURRENT-CONTEXT* XLIB/GLX::CTX))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 LIST VECTOR). ; (LOOP XLIB/GLX::REPEAT (/ (- XLIB/GLX::NUM-PROPERTIES XLIB/GLX::NUM-ORDERED) ; 2) ; XLIB/GLX::COLLECTING (CONS (XLIB::CARD32-GET (INCF XLIB/GLX::INDEX 4)) ; (XLIB::CARD32-GET (INCF XLIB/GLX::INDEX 4)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GLX::+GET-VISUAL-CONFIGS+) ; (XLIB:CARD32 (OR (POSITION XLIB:SCREEN # :TEST #'EQ) 0))) ; (LET* ((XLIB/GLX::NUM-VISUALS (XLIB::CARD32-GET 8)) ; (XLIB/GLX::NUM-PROPERTIES (XLIB::CARD32-GET 12)) ; (XLIB/GLX::NUM-ORDERED ; (LENGTH XLIB/GLX::*VISUAL-CONFIG-PROPERTIES*))) ; (DECLARE ; (TYPE FIXNUM XLIB/GLX::NUM-ORDERED XLIB/GLX::NUM-VISUALS ; XLIB/GLX::NUM-PROPERTIES)) ; (LOOP XLIB/GLX::WITH XLIB/GLX::INDEX FIXNUM = 28 ; XLIB/GLX::REPEAT XLIB/GLX::NUM-VISUALS ; XLIB/GLX::COLLECTING (XLIB/GLX::MAKE-VISUAL (NCONC # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN SWAP-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+SWAP-BUFFERS+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX)) ; (XLIB:RESOURCE-ID ; (XLIB:DRAWABLE-ID (XLIB/GLX::CONTEXT-DRAWABLE XLIB/GLX::CTX)))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WAIT-GL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+WAIT-GL+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN WAIT-X ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GLX::+WAIT-X+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/glx-tmpGYUNPZCY.fasl ; compilation finished in 0:00:00.280 ; compiling file "/usr/share/common-lisp/source/clx/extensions/gl.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/gl.lisp ; in: DEFINE-SEQUENCE-SETTER INT8 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT8) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER INT16 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT16) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER INT32 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT32) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER BOOL ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::BOOL) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER CARD8 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD8) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER CARD16 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD16) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER CARD32 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD32) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER FLOAT32 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::FLOAT32) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-SEQUENCE-SETTER FLOAT64 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::FLOAT64) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN GET-STRING ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+GET-STRING+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (XLIB:CARD32 XLIB/GL::NAME)) ; (LET* ((LENGTH (XLIB::CARD32-GET 12)) ; (XLIB/GL::BYTES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD8 :RESULT-TYPE '# :INDEX 32 ; :LENGTH LENGTH))) ; (DECLARE (TYPE (SIMPLE-ARRAY XLIB:CARD8 #) XLIB/GL::BYTES) ; (TYPE FIXNUM LENGTH)) ; (MAP-INTO (MAKE-STRING (1- LENGTH)) #'CODE-CHAR XLIB/GL::BYTES))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN NEW-LIST ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GL::+NEW-LIST+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (XLIB:CARD32 LIST) ; (XLIB:CARD32 XLIB/GL::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GEN-LISTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+GEN-LISTS+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (INTEGER XLIB/GL::RANGE)) ; (XLIB::CARD32-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN END-LIST ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GL::+END-LIST+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN ENABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+ENABLE+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)) ; (XLIB:CARD32 XLIB/GL::CAP))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FLUSH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA XLIB/GL::+FLUSH+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FINISH ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA XLIB/GL::+FINISH+) ; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/gl-tmpD68Q8WCA.fasl ; compilation finished in 0:00:01.208 ; compiling file "/usr/share/common-lisp/source/clx/extensions/dpms.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/dpms.lisp ; in: DEFUN DPMS-GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+GET-VERSION+) ; (XLIB:CARD16 XLIB/DPMS::MAJOR-VERSION) ; (XLIB:CARD16 XLIB/DPMS::MINOR-VERSION)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-CAPABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+CAPABLE+)) ; (XLIB::BOOLEAN-GET 8)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-GET-TIMEOUTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+GET-TIMEOUTS+)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10) (XLIB::CARD16-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-SET-TIMEOUTS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/DPMS::+SET-TIMEOUTS+) ; (XLIB:CARD16 XLIB/DPMS::STANDBY) ; (XLIB:CARD16 XLIB/DPMS::SUSPEND) ; (XLIB:CARD16 XLIB/DPMS::OFF) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-ENABLE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/DPMS::+ENABLE+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-DISABLE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; ((XLIB::DATA XLIB/DPMS::+DISABLE+))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-FORCE-LEVEL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/DPMS::+FORCE-LEVEL+) ; (XLIB:CARD16 ; (ECASE XLIB/DPMS::POWER-LEVEL ; (:DPMS-MODE-ON 0) ; (:DPMS-MODE-STANDBY 1) ; (:DPMS-MODE-SUSPEND 2) ; (:DPMS-MODE-OFF 3))) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DPMS-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/DPMS::DPMS-OPCODE XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB/DPMS::+INFO+)) ; (LET ((XLIB/DPMS::STATE ; (IF # ; :DPMS-ENABLED ; :DPMS-DISABLED))) ; (VALUES (UNLESS (EQ XLIB/DPMS::STATE :DPMS-DISABLED) (ECASE # # # # #)) ; XLIB/DPMS::STATE))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/dpms-tmp7MK9KM9C.fasl ; compilation finished in 0:00:00.052 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xtest.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/xtest.lisp ; in: DEFUN GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/XTEST::OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB/XTEST::+GET-VERSION+) (XLIB:CARD8 XLIB/XTEST::MAJOR) ; (XLIB:CARD16 XLIB/XTEST::MINOR)) ; (VALUES (XLIB::CARD8-GET 1) (XLIB::CARD16-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPARE-CURSOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB/XTEST::OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB/XTEST::+COMPARE-CURSOR+) ; (XLIB:RESOURCE-ID (XLIB:WINDOW-ID XLIB:WINDOW)) ; (XLIB:RESOURCE-ID XLIB:CURSOR-ID)) ; (VALUES (XLIB::CARD8-GET 1))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FAKE-MOTION-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 XLIB/XTEST::+FAKE-MOTION-NOTIFY+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::RELATIVE ; 1 ; 0)) ; (XLIB/XTEST::PAD16 0) ; (XLIB:CARD32 XLIB/XTEST::DELAY) ; (XLIB:CARD32 XLIB/XTEST::ROOT-WINDOW-ID) ; (XLIB/XTEST::PAD32 0 0) ; (XLIB:CARD16 XLIB/XTEST::X) ; (XLIB:CARD16 XLIB/XTEST::Y) ; (XLIB/XTEST::PAD32 0 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FAKE-BUTTON-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::PRESSED ; XLIB/XTEST::+FAKE-BUTTON-PRESS+ ; XLIB/XTEST::+FAKE-BUTTON-RELEASE+)) ; (XLIB:CARD8 XLIB/XTEST::BUTTON) ; (XLIB/XTEST::PAD16 0) ; (XLIB:CARD32 XLIB/XTEST::DELAY) ; (XLIB/XTEST::PAD32 0 0 0 0 0 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN FAKE-KEY-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::PRESSED ; XLIB/XTEST::+FAKE-KEY-PRESS+ ; XLIB/XTEST::+FAKE-KEY-RELEASE+)) ; (XLIB:CARD8 XLIB/XTEST::KEYCODE) ; (XLIB/XTEST::PAD16 0) ; (XLIB:CARD32 XLIB/XTEST::DELAY) ; (XLIB/XTEST::PAD32 0 0 0 0 0 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN GRAB-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB/XTEST::+GRAB-CONTROL+) ; (XLIB:CARD8 ; (IF XLIB/XTEST::GRAB? ; 1 ; 0)) ; (XLIB/XTEST::PAD8 0) ; (XLIB/XTEST::PAD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xtest-tmpJJ71X849.fasl ; compilation finished in 0:00:00.052 ; compiling file "/usr/share/common-lisp/source/clx/extensions/screensaver.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/screensaver.lisp ; in: DEFUN SCREEN-SAVER-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "MIT-SCREEN-SAVER") ; NIL) ; ((XLIB::DATA 0) (XLIB:CARD8 1) (XLIB:CARD8 0) (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/screensaver-tmp1VUK6SR2.fasl ; compilation finished in 0:00:00.016 ; compiling file "/usr/share/common-lisp/source/clx/extensions/randr.lisp" (written 27 DEC 2022 07:29:08 AM): ; file: /usr/share/common-lisp/source/clx/extensions/randr.lisp ; in: DEFUN RR-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (32)) ; ((XLIB::DATA XLIB::+RR-QUERYVERSION+) (XLIB:CARD32 XLIB::+RR-MAJOR+) ; (XLIB:CARD32 XLIB::+RR-MINOR+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-SCREEN-CONFIG ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (16 32)) ; ((XLIB::DATA XLIB::+RR-SETSCREENCONFIG+) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB:TIMESTAMP) (XLIB:CARD32 XLIB::CONF-TIMESTAMP) ; (XLIB:CARD16 XLIB::SIZE-ID) (XLIB:CARD16 XLIB::ROT-MASK) ; (XLIB:CARD16 XLIB::REFRESH) (XLIB::PAD16)) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) (XLIB::WINDOW-GET 16) ; (XLIB::MEMBER16-VECTOR-GET 20 XLIB::+RENDER-SUBPIXEL-ORDER+))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SELECT-INPUT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SELECTINPUT+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 XLIB::SELECT-MASK) ; (XLIB::PAD16)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-SCREEN-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETSCREENINFO+) (XLIB:WINDOW XLIB:WINDOW)) ; (LET ((XLIB::NUM-SCREENS (XLIB::CARD16-GET 20)) ; (XLIB::NUM-RATES (XLIB::CARD16-GET 28)) ; (XLIB::RATES-LOCATION 0)) ; (DECLARE (TYPE FIXNUM XLIB::RATES-LOCATION XLIB::NUM-RATES)) ; (VALUES (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 1)) ; (XLIB::WINDOW-GET 8) (XLIB::CARD32-GET 12) (XLIB::CARD32-GET 16) ; (XLIB::CARD16-GET 22) ; (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 24)) ; (XLIB::CARD16-GET 26) ; (LOOP :FOR XLIB::X FIXNUM :FROM 1 :TO XLIB::NUM-SCREENS ; :FOR XLIB::OFFSET FIXNUM := ...) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH XLIB::NUM-RATES ; :INDEX XLIB::RATES-LOCATION :RESULT-TYPE ; XLIB::RESULT-TYPE)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-SCREEN-SIZE-RANGE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (16)) ; ((XLIB::DATA XLIB::+RR-GETSCREENSIZERANGE+) (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH 4 :INDEX 8 :RESULT-TYPE ; XLIB::RESULT-TYPE))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-SCREEN-SIZE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETSCREENSIZE+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 XLIB::WIDTH) ; (XLIB:CARD16 XLIB::HEIGHT) ; (XLIB:CARD32 XLIB::WIDTH-MM) ; (XLIB:CARD32 XLIB::HEIGHT-MM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-SCREEN-RESOURCES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETSCREENRESOURCES+) (XLIB:WINDOW XLIB:WINDOW)) ; (LET* ((XLIB::NUM-CRTCS (XLIB::CARD16-GET 16)) ; (XLIB::NUM-OUTPUTS (XLIB::CARD16-GET 18)) ; (XLIB::OUTPUT-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #)) ; (XLIB::NUM-MODEINFOS (XLIB::CARD16-GET 20)) ; (XLIB::NAME-BYTES (XLIB::CARD16-GET 22)) ; (XLIB::MODE-START (XLIB::INDEX+ XLIB::OUTPUT-START #)) ; (XLIB::NAME-START (XLIB::INDEX+ XLIB::MODE-START #))) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX 32 :LENGTH ; XLIB::NUM-CRTCS) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX XLIB::OUTPUT-START ; :LENGTH XLIB::NUM-OUTPUTS) ; (LOOP :FOR XLIB::I FIXNUM :FROM 1 :TO XLIB::NUM-MODEINFOS ; :FOR XLIB::OFFSET FIXNUM := ...) ; (XLIB::STRING-GET XLIB::NAME-BYTES XLIB::NAME-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-OUTPUT-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETOUTPUTINFO+) (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; (LET* ((XLIB::NUM-CRTCS (XLIB::CARD16-GET 26)) ; (XLIB::NUM-MODES (XLIB::CARD16-GET 28)) ; (XLIB::NUM-CLONES (XLIB::CARD16-GET 32)) ; (XLIB::NAME-LENGTH (XLIB::CARD16-GET 34)) ; (XLIB::CRTC-START 26) ; (XLIB::MODE-START (XLIB::INDEX+ XLIB::CRTC-START #)) ; (XLIB::CLONE-START (XLIB::INDEX+ XLIB::MODE-START #)) ; (XLIB::NAME-START (XLIB::INDEX+ XLIB::CLONE-START #))) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) (XLIB::CARD32-GET 16) ; (XLIB::CARD32-GET 20) ; (XLIB::MEMBER8-VECTOR-GET 24 XLIB::+RR-CONNECTION+) ; (XLIB::MEMBER8-VECTOR-GET 25 XLIB::+RENDER-SUBPIXEL-ORDER+) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::NUM-CRTCS :INDEX 26) ; (XLIB::CARD16-GET 30) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::NUM-MODES :INDEX XLIB::MODE-START) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::NUM-CLONES :INDEX XLIB::CLONE-START) ; ...))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-LIST-OUTPUT-PROPERTIES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-LISTOUTPUTPROPERTIES+) (XLIB:CARD32 XLIB::OUTPUT)) ; (LET ((XLIB::NUM-ATOMS (XLIB::CARD16-GET 8))) ; (VALUES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE XLIB::RESULT-TYPE ; :LENGTH XLIB::NUM-ATOMS :INDEX XLIB::+REPLYSIZE+ ; :TRANSFORM #'(LAMBDA # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-QUERY-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-QUERYOUTPUTPROPERTY+) (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM)) ; (VALUES (XLIB::BOOLEAN-GET 8) (XLIB::BOOLEAN-GET 9) (XLIB::BOOLEAN-GET 10) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :INDEX ; XLIB::+REPLYSIZE+ :LENGTH ; (XLIB::CARD32-GET 4)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-CONFIGURE-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-CONFIGUREOUTPUTPROPERTY+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM) ; (BOOLEAN XLIB::PENDING XLIB::RANGE) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-CHANGE-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-CHANGEOUTPUTPROPERTY+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM) ; (XLIB:CARD32 XLIB::ATOM-TYPE) ; (XLIB:CARD8 32) ; (XLIB:CARD8 XLIB::MODE) ; (XLIB::PAD16) ; (XLIB:CARD32 XLIB::DATA-LENGTH) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-DELETE-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-DELETEOUTPUTPROPERTY+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-OUTPUT-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETOUTPUTPROPERTY+) (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 ATOM) (XLIB:CARD32 TYPE) (XLIB:CARD32 0) (XLIB:CARD32 0) ; (XLIB:CARD8 DELETE) (XLIB:CARD8 XLIB::PENDING) (XLIB::PAD16)) ; (LET* ((XLIB::BYTES-AFTER (XLIB::CARD32-GET 12)) ; (XLIB::VALUE-LENGTH (XLIB::CARD32-GET 16)) ; (XLIB::BYTE-FORMAT (UNLESS # #))) ; (VALUES (XLIB::CARD32-GET 8) XLIB::VALUE-LENGTH ; (WHEN (NOT #) (CASE XLIB::BYTE-FORMAT # # #))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-CREATE-MODE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-CREATEMODE+) (XLIB:WINDOW XLIB:WINDOW) ; (PROGN ; (XLIB::RR-MODE-INFO-PUT 8 XLIB:MODE-INFO) ; (XLIB::STRING-PUT 40 XLIB::NAME))) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-DESTROY-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-DESTROYMODE+) ; (XLIB:CARD32 XLIB::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-ADD-OUTPUT-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-ADDOUTPUTMODE+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 XLIB::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-DELETE-OUTPUT-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-DELETEOUTPUTMODE+) ; (XLIB:CARD32 XLIB::OUTPUT) ; (XLIB:CARD32 XLIB::MODE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-CRTC-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCINFO+) (XLIB:CARD32 XLIB::CRTC) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; (LET* ((XLIB::NUM-OUTPUTS (XLIB::CARD16-GET 28)) ; (XLIB::POS-OUTPUTS (XLIB::CARD16-GET 30)) ; (XLIB::POS-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #))) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8) (XLIB::INT16-GET 12) (XLIB::INT16-GET 14) ; (XLIB::CARD16-GET 16) (XLIB::CARD16-GET 18) (XLIB::CARD32-GET 20) ; (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 24)) ; (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 26)) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :INDEX ; XLIB::+REPLYSIZE+ :LENGTH XLIB::NUM-OUTPUTS) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :INDEX ; XLIB::POS-START :LENGTH XLIB::POS-OUTPUTS)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-CRTC-CONFIG ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-SETCRTCCONFIG+) (XLIB:CARD32 XLIB::CRTC) ; (XLIB:CARD32 XLIB:TIMESTAMP) (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP) ; (XLIB:CARD16 XLIB::X) (XLIB:CARD16 XLIB::Y) (XLIB:CARD32 XLIB::MODE) ; (XLIB:CARD16 XLIB::ROT-MASK) (XLIB::PAD16) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+) ; (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-CRTC-GAMMA-SIZE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCGAMMASIZE+) (XLIB:CARD32 XLIB::CRTC)) ; (VALUES (XLIB::CARD16-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-CRTC-GAMMA ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCGAMMA+) (XLIB:CARD32 XLIB::CRTC)) ; (LET* ((XLIB::SIZE (XLIB::CARD16-GET 8)) ; (XLIB::GREEN-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #)) ; (XLIB::BLUE-START (XLIB::INDEX+ XLIB::GREEN-START #))) ; (VALUES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH XLIB::SIZE :INDEX ; XLIB::+REPLYSIZE+ :RESULT-TYPE XLIB::RESULT-TYPE) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH XLIB::SIZE :INDEX ; XLIB::GREEN-START :RESULT-TYPE XLIB::RESULT-TYPE) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD16 :LENGTH XLIB::SIZE :INDEX ; XLIB::BLUE-START :RESULT-TYPE XLIB::RESULT-TYPE)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-CRTC-GAMMA ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETCRTCGAMMA+) ; (XLIB:CARD32 XLIB::CRTC) ; (XLIB:CARD16 XLIB::SIZE) ; (XLIB::PAD16) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-SCREEN-RESOURCES-CURRENT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETSCREENRESOURCESCURRENT+) ; (XLIB:WINDOW XLIB:WINDOW)) ; (LET* ((XLIB::NUM-CRTCS (XLIB::CARD16-GET 16)) ; (XLIB::NUM-OUTPUTS (XLIB::CARD16-GET 18)) ; (XLIB::OUTPUT-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #)) ; (XLIB::NUM-MODEINFOS (XLIB::CARD16-GET 20)) ; (XLIB::NAME-BYTES (XLIB::CARD16-GET 22)) ; (XLIB::MODE-START (XLIB::INDEX+ XLIB::OUTPUT-START #)) ; (XLIB::NAME-START (XLIB::INDEX+ XLIB::MODE-START #))) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX 32 :LENGTH ; XLIB::NUM-CRTCS) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX XLIB::OUTPUT-START ; :LENGTH XLIB::NUM-OUTPUTS) ; (LOOP :FOR XLIB::I FIXNUM :FROM 1 :TO XLIB::NUM-MODEINFOS ; :FOR XLIB::OFFSET FIXNUM := ...) ; (XLIB::STRING-GET XLIB::NAME-BYTES XLIB::NAME-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-CRTC-TRANSFORM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETCRTCTRANSFORM+) (XLIB:CARD32 XLIB::CRTC)) ; (LET* ((XLIB::PEND-NAME (XLIB::CARD16-GET 88)) ; (XLIB::PEND-NUM-PARAMS (XLIB::CARD16-GET 90)) ; (XLIB::PAD-PEND (- 4 #)) ; (XLIB::PAD-PEND-START ; (XLIB::INDEX+ 96 XLIB::PEND-NAME XLIB::PAD-PEND)) ; (XLIB::CUR-NAME (XLIB::CARD16-GET 92)) ; (XLIB::CUR-NUM-PARAMS (XLIB::CARD16-GET 94)) ; (XLIB::PAD-CUR (- 4 #)) ; (XLIB::CUR-NAME-START (XLIB::INDEX+ XLIB::PAD-PEND-START #)) ; (XLIB::CUR-PARAM-START ; (XLIB::INDEX+ XLIB::CUR-NAME-START XLIB::CUR-NAME XLIB::PAD-CUR))) ; (DECLARE (TYPE XLIB:CARD16 XLIB::PEND-NAME XLIB::CUR-NAME)) ; (VALUES (XLIB::RR-TRANSFORM-GET 8) (XLIB::CARD8-GET 44) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH 9 ; :INDEX 48) ; (XLIB::STRING-GET XLIB::PEND-NAME 96) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::PEND-NUM-PARAMS :INDEX ; XLIB::PAD-PEND-START) ; (XLIB::STRING-GET XLIB::CUR-NAME XLIB::CUR-NAME-START) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::CUR-NUM-PARAMS :INDEX ; XLIB::CUR-PARAM-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-OUTPUT-PRIMARY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETOUTPUTPRIMARY+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::OUTPUT)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-OUTPUT-PRIMARY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETOUTPUTPRIMARY+) (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-PROVIDERS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETPROVIDERS+) (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD16-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-GET-PROVIDER-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-GETPROVIDERINFO+) (XLIB:CARD32 XLIB::PROVIDER) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) (XLIB::CARD16-GET 16) ; (XLIB::CARD16-GET 18) (XLIB::CARD16-GET 20) ; (XLIB::STRING-GET (XLIB::CARD16-GET 22) 56))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-PROVIDER-OUTPUT-SOURCE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETPROVIDEROUTPUTSOURCE+) ; (XLIB:CARD32 XLIB::PROVIDER) ; (XLIB:CARD32 XLIB::SOURCE-PROVIDER) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-SET-PROVIDER-OFFLOAD-SINK ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+RR-SETPROVIDEROFFLOADSINK+) ; (XLIB:CARD32 XLIB::PROVIDER) ; (XLIB:CARD32 XLIB::SINK-PROVIDER) ; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN RR-LIST-PROVIDER-PROPERTIES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+RR-LISTPROVIDERPROPERTIES+) ; (XLIB:CARD32 XLIB::PROVIDER)) ; (VALUES (XLIB::CARD32-GET 4) (XLIB::CARD16-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/randr-tmpR2FIHSUG.fasl ; compilation finished in 0:00:00.436 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xinerama.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; 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 ...))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xinerama-tmp8PYELRKX.fasl ; compilation finished in 0:00:00.100 ; compiling file "/usr/share/common-lisp/source/clx/extensions/dbe.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/dbe.lisp ; in: DEFUN CREATE-BACK-BUFFER ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB::BB 'XLIB::BACK-BUFFER) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN DBE-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER") ; NIL) ; ((XLIB::DATA XLIB::+QUERY-VERSION+) (XLIB:CARD8 XLIB::+DBE-MAJOR+) ; (XLIB:CARD8 XLIB::+DBE-MINOR+)) ; (VALUES (XLIB::CARD8-GET 8) (XLIB::CARD8-GET 9))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-ALLOCATE-BACK-BUFFER-NAME ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+ALLOCATE-BACK-BUFFER-NAME+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:DRAWABLE XLIB::BACK-BUFFER) ; (XLIB:CARD8 XLIB::SWAP-HINT) ; (XLIB::PAD8) ; (XLIB::PAD16)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-DEALLOCATE-BACK-BUFFER-NAME ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+DEALLOCATE-BACK-BUFFER-NAME+) ; (XLIB:DRAWABLE XLIB::BACK-BUFFER)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-SWAP-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+SWAP-BUFFERS+) ; (XLIB:CARD32 XLIB::NUM) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-BEGIN-IDIOM ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+BEGIN-IDIOM+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-END-IDIOM ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER")) ; (XLIB::DATA XLIB::+END-IDIOM+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-GET-VISUAL-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER") ; NIL :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-VISUAL-INFO+) (XLIB:CARD32 XLIB::NUM) ; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::WL)) ; (VALUES ; (LET ((XLIB::NUM #) (XLIB::NEXT 32) (XLIB::RESULT-LIST NIL)) ; (DECLARE (TYPE FIXNUM XLIB::NUM XLIB::NEXT)) ; (DOTIMES (XLIB::I XLIB::NUM #) (PUSH # XLIB::RESULT-LIST))))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DBE-GET-BACK-BUFFER-ATTRIBUTES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "DOUBLE-BUFFER") ; NIL :SIZES 32) ; ((XLIB::DATA XLIB::+GET-BACK-BUFFER-ATTRIBUTES+) ; (XLIB:DRAWABLE XLIB::BACK-BUFFER)) ; (VALUES (XLIB::OR-GET 8 NULL XLIB:WINDOW))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/dbe-tmpEHTOKYT0.fasl ; compilation finished in 0:00:00.080 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xc-misc.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/xc-misc.lisp ; in: DEFUN XC-GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::XC-OPCODE XLIB:DISPLAY) NIL ; :SIZES (16)) ; ((XLIB::DATA XLIB::+XC-GET-VERSION+) (XLIB:CARD16 XLIB::+XC-MAJOR+) ; (XLIB:CARD16 XLIB::+XC-MINOR+)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XC-GET-XID-RANGE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::XC-OPCODE XLIB:DISPLAY) NIL ; :SIZES (32)) ; ((XLIB::DATA XLIB::+XC-GET-XID-RANGE+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN XC-GET-XID-LIST ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::XC-OPCODE XLIB:DISPLAY) NIL ; :SIZES (32)) ; ((XLIB::DATA XLIB::+XC-GET-XID-LIST+) (XLIB:CARD32 COUNT)) ; (LET ((XLIB::NUM (XLIB::CARD32-GET 8))) ; (VALUES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :RESULT-TYPE XLIB::RESULT-TYPE ; :LENGTH XLIB::NUM :INDEX 32)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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 ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xc-misc-tmpS6U1VHI9.fasl ; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/clx/extensions/dri2.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/dri2.lisp ; in: DEFUN DRI2-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-QUERY-VERSION+) (XLIB:CARD32 XLIB::+DRI-MAJOR+) ; (XLIB:CARD32 XLIB::+DRI-MINOR+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-CONNECT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-CONNECT+) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::DRIVER-TYPE)) ; (LET* ((XLIB::DRIVER-NAME-LENGTH (XLIB::CARD32-GET 8)) ; (XLIB::DEVICE-NAME-LENGTH (XLIB::CARD32-GET 12)) ; (XLIB::DEVICE-START (+ 32 #))) ; (VALUES (XLIB::STRING-GET XLIB::DRIVER-NAME-LENGTH 32) ; (XLIB::STRING-GET XLIB::DEVICE-NAME-LENGTH XLIB::DEVICE-START)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-AUTHENTICATE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-AUTHENTICATE+) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::TOKEN)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-CREATE-DRAWABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-CREATE-DRAWABLE+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-DESTROY-DRAWABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; NIL ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-GET-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-BUFFERS+) (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD32 XLIB::LEN) ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ)) ; (VALUES (XLIB::CARD32-GET 16) (XLIB::CARD32-GET 12) (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-COPY-REGION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-COPY-REGION+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-GET-BUFFERS-WITH-FORMAT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-BUFFERS-WITH-FORMAT+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-SWAP-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-SWAP-BUFFERS+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-GET-MSC ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-MSC+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-WAIT-MSC ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-WAIT-MSC+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-SWAP-INTERVAL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::DRI2-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+DRI2-SWAP-INTERVAL+)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN DRI2-GET-PARAM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XLIB::+DRI2-GET-PARAM+)) ; (VALUES)) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/dri2-tmpVTFK6ZJW.fasl ; compilation finished in 0:00:00.224 ; compiling file "/usr/share/common-lisp/source/clx/extensions/composite.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/composite.lisp ; in: DEFUN COMPOSITE-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY) ; NIL :SIZES (32)) ; ((XLIB::DATA XLIB::+COMPOSITE-QUERYVERSION+) ; (XLIB:CARD32 XLIB::+COMPOSITE-MAJOR+) ; (XLIB:CARD32 XLIB::+COMPOSITE-MINOR+)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-REDIRECT-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-REDIRECTWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD8 XLIB::UPDATE-TYPE) ; (XLIB:CARD8 0) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-REDIRECT-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-REDIRECTSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD8 XLIB::UPDATE-TYPE) ; (XLIB:CARD8 0) ; (XLIB:CARD16 0)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-UNREDIRECT-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-UNREDIRECTWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-UNREDIRECT-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-UNREDIRECTSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-CREATE-REGION-FROM-BORDER-CLIP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-CREATEREGIONFROMBORDERCLIP+) ; (XLIB:CARD32 XLIB::REGION) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-NAME-WINDOW-PIXMAP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-NAMEWINDOWPIXMAP+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:DRAWABLE XLIB:DRAWABLE)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-GET-OVERLAY-WINDOW ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY) ; NIL :SIZES (32)) ; ((XLIB::DATA XLIB::+COMPOSITE-GETOVERLAYWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; in: DEFUN COMPOSITE-RELEASE-OVERLAY-WINDOW ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+COMPOSITE-RELEASEOVERLAYWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* LDB ; ==> ; 1 ; ; 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 ; &OPTIONAL). ; 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) ; &OPTIONAL). ; etc. ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/composite-tmp75WVSJEW.fasl ; compilation finished in 0:00:00.072 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/package.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/package-tmpBU5UM3S4.fasl ; compilation finished in 0:00:00.000 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/dynamic-mixins.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/dynamic-mixins-tmpOBHVA3CD.fasl ; compilation finished in 0:00:00.040 ; compiling file "/build/reproducible-path/stumpwm-22.11/package.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/package-tmpJ6ELVFLF.fasl ; compilation finished in 0:00:00.004 ; compiling file "/build/reproducible-path/stumpwm-22.11/debug.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/debug-tmpULDB0RG.fasl ; compilation finished in 0:00:00.012 ; compiling file "/build/reproducible-path/stumpwm-22.11/primitives.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/primitives-tmpUTZ0UUTE.fasl ; compilation finished in 0:00:00.284 ; compiling file "/build/reproducible-path/stumpwm-22.11/wrappers.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/wrappers-tmpOOSRA8PZ.fasl ; compilation finished in 0:00:00.072 ; compiling file "/build/reproducible-path/stumpwm-22.11/pathnames.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/pathnames-tmpDMIL0RVK.fasl ; compilation finished in 0:00:00.004 ; compiling file "/build/reproducible-path/stumpwm-22.11/font-rendering.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/font-rendering-tmp8MR9IMIO.fasl ; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/keysyms.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/keysyms-tmpJQDKAVAY.fasl ; compilation finished in 0:00:00.115 ; compiling file "/build/reproducible-path/stumpwm-22.11/keytrans.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/keytrans-tmp3I8CEEQY.fasl ; compilation finished in 0:00:00.008 ; compiling file "/build/reproducible-path/stumpwm-22.11/kmap.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/kmap-tmpA3RHFLWZ.fasl ; compilation finished in 0:00:00.080 ; compiling file "/build/reproducible-path/stumpwm-22.11/input.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/input-tmpYZIB7VXO.fasl ; compilation finished in 0:00:00.364 ; compiling file "/build/reproducible-path/stumpwm-22.11/core.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/core-tmpR8PK79V8.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/command.lisp" (written 22 NOV 2022 12:13:18 AM): ; file: /build/reproducible-path/stumpwm-22.11/command.lisp ; in: DEFUN ARGUMENT-POP ; (LOOP STUMPWM::FOR STUMPWM::I STUMPWM::FROM STUMPWM::START STUMPWM::BELOW (LENGTH ; STUMPWM::INPUT) ; STUMPWM::FOR CHAR = (CHAR STUMPWM::INPUT STUMPWM::I) ; DO ...) ; --> LET LET TAGBODY ; ==> ; NIL ; ; caught STYLE-WARNING: ; The binding of I is not a REAL: ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/command-tmpN1ZVB1HZ.fasl ; compilation finished in 0:00:00.228 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/build/reproducible-path/stumpwm-22.11/menu-declarations.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/menu-declarations-tmpZGRRPISB.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/menu-definitions.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/menu-definitions-tmpFNKDE5XP.fasl ; compilation finished in 0:00:00.088 ; compiling file "/build/reproducible-path/stumpwm-22.11/screen.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/screen-tmpRJTU435C.fasl ; compilation finished in 0:00:00.096 ; compiling file "/build/reproducible-path/stumpwm-22.11/head.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/head-tmpI9WG87JK.fasl ; compilation finished in 0:00:00.028 ; compiling file "/build/reproducible-path/stumpwm-22.11/group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/group-tmpYDE6I9E6.fasl ; compilation finished in 0:00:00.084 ; compiling file "/build/reproducible-path/stumpwm-22.11/bindings.lisp" (written 22 FEB 2025 04:58:03 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/bindings-tmp319UV2V8.fasl ; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/events.lisp" (written 22 NOV 2022 12:13:18 AM): ; file: /build/reproducible-path/stumpwm-22.11/events.lisp ; in: DEFUN SCROLL-BUTTON-KEYWORD-P ; (EQ STUMPWM::BUTTON :WHEEL-RIGHT) ; ; note: deleting unreachable code ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/events-tmpLYQINFYS.fasl ; compilation finished in 0:00:00.168 ; compiling file "/build/reproducible-path/stumpwm-22.11/window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/window-tmpGA31XWNO.fasl ; compilation finished in 0:00:00.208 ; compiling file "/build/reproducible-path/stumpwm-22.11/floating-group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/floating-group-tmp5HT23M6C.fasl ; compilation finished in 0:00:00.172 ; compiling file "/build/reproducible-path/stumpwm-22.11/tile-window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tile-window-tmpA60KLDKY.fasl ; compilation finished in 0:00:00.072 ; compiling file "/build/reproducible-path/stumpwm-22.11/tile-group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tile-group-tmpD801X3GJ.fasl ; compilation finished in 0:00:00.436 WARNING: redefining STUMPWM::ORPHANED-FRAMES in DEFUN ; compiling file "/build/reproducible-path/stumpwm-22.11/window-placement.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/window-placement-tmpGOW1GC70.fasl ; compilation finished in 0:00:00.040 ; compiling file "/build/reproducible-path/stumpwm-22.11/message-window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/message-window-tmpPQ1X28TL.fasl ; compilation finished in 0:00:00.056 ; compiling file "/build/reproducible-path/stumpwm-22.11/selection.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/selection-tmpE92ECU7O.fasl ; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/module.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/module-tmp8S0II570.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/ioloop.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/ioloop-tmpJE88A12F.fasl ; compilation finished in 0:00:00.172 ; compiling file "/build/reproducible-path/stumpwm-22.11/timers.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/timers-tmpA5FNLPLT.fasl ; compilation finished in 0:00:00.024 ; compiling file "/build/reproducible-path/stumpwm-22.11/stumpwm.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/stumpwm-tmpHKCV9TP8.fasl ; compilation finished in 0:00:00.072 ; compiling file "/build/reproducible-path/stumpwm-22.11/user.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/user-tmpZ18MA7XE.fasl ; compilation finished in 0:00:00.116 ; compiling file "/build/reproducible-path/stumpwm-22.11/interactive-keymap.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/interactive-keymap-tmp6LQJ9T0C.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/iresize.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/iresize-tmpTX7OA81T.fasl ; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/help.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/help-tmpWOTC3PB7.fasl ; compilation finished in 0:00:00.236 ; compiling file "/build/reproducible-path/stumpwm-22.11/fdump.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/fdump-tmpHQE95SAC.fasl ; compilation finished in 0:00:00.116 ; compiling file "/build/reproducible-path/stumpwm-22.11/time.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/time-tmpO87FP9NR.fasl ; compilation finished in 0:00:00.044 ; compiling file "/build/reproducible-path/stumpwm-22.11/mode-line.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/mode-line-tmpP6A3E92I.fasl ; compilation finished in 0:00:00.076 ; compiling file "/build/reproducible-path/stumpwm-22.11/mode-line-formatters.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/mode-line-formatters-tmpUSHT8RIL.fasl ; compilation finished in 0:00:00.052 ; compiling file "/build/reproducible-path/stumpwm-22.11/color.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/color-tmp7YCPD44Y.fasl ; compilation finished in 0:00:00.084 ; compiling file "/build/reproducible-path/stumpwm-22.11/wse.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/wse-tmpQXR7SNXD.fasl ; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-window-tmp6FLI1OC3.fasl ; compilation finished in 0:00:00.008 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-group-tmpWBK8JTS9.fasl ; compilation finished in 0:00:00.372 ; compiling file "/build/reproducible-path/stumpwm-22.11/remap-keys.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/remap-keys-tmpUVEUD2ZN.fasl ; compilation finished in 0:00:00.012 ; compiling file "/build/reproducible-path/stumpwm-22.11/manual.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/manual-tmpOWNJOEU.fasl ; compilation finished in 0:00:00.028 ; compiling file "/build/reproducible-path/stumpwm-22.11/minor-modes.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/minor-modes-tmpVT5BMTA5.fasl ; compilation finished in 0:00:00.308 ; compiling file "/build/reproducible-path/stumpwm-22.11/replace-class.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/replace-class-tmpN3CFVWZF.fasl ; compilation finished in 0:00:00.024 WARNING: redefining DYNAMIC-MIXINS:REPLACE-CLASS in DEFGENERIC ; compiling file "/build/reproducible-path/stumpwm-22.11/version.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/version-tmpNK27C0R1.fasl ; compilation finished in 0:00:00.004 ; ; compilation unit finished ; caught 8 STYLE-WARNING conditions ; printed 1501 notes WARNING: System definition file #P"/usr/share/common-lisp/source/fiasco/fiasco.asd" contains definition for system "fiasco-self-tests". Please only define "fiasco" and secondary systems with a name starting with "fiasco/" (e.g. "fiasco/test") in that file. ; compiling file "/usr/share/common-lisp/source/cl-trivial-gray-streams/package.lisp" (written 17 FEB 2024 06:10:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-trivial-gray-streams/package-tmp3BPE71HR.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/cl-trivial-gray-streams/streams.lisp" (written 17 FEB 2024 06:10:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-trivial-gray-streams/streams-tmp758YUXMV.fasl ; compilation finished in 0:00:00.024 ; compiling file "/usr/share/common-lisp/source/fiasco/src/package.lisp" (written 14 MAY 2020 04:10:55 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/fiasco/src/package-tmpGMQXK1HK.fasl ; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/fiasco/src/streams.lisp" (written 14 MAY 2020 04:10:55 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/fiasco/src/streams-tmp49Q238TW.fasl ; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/fiasco/src/infrastructure.lisp" (written 14 MAY 2020 04:10:55 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/fiasco/src/infrastructure-tmpMXPMJ5KG.fasl ; compilation finished in 0:00:00.256 ; compiling file "/usr/share/common-lisp/source/fiasco/src/asserts.lisp" (written 14 MAY 2020 04:10:55 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/fiasco/src/asserts-tmpB69313KI.fasl ; compilation finished in 0:00:00.032 ; compiling file "/usr/share/common-lisp/source/fiasco/src/test.lisp" (written 14 MAY 2020 04:10:55 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/fiasco/src/test-tmp9ZT99EEA.fasl ; compilation finished in 0:00:00.024 ; compiling file "/usr/share/common-lisp/source/fiasco/src/suite.lisp" (written 14 MAY 2020 04:10:55 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/fiasco/src/suite-tmpW045U8V2.fasl ; compilation finished in 0:00:00.116 ; compiling file "/build/reproducible-path/stumpwm-22.11/tests/package.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tests/package-tmp6XOIRI3N.fasl ; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/tests/kmap.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tests/kmap-tmp9ZHTLHSG.fasl ; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/tests/pathnames.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tests/pathnames-tmpRW73Q691.fasl ; compilation finished in 0:00:00.032 ALL-TESTS (Suite) STUMPWM-TESTS (Suite) TEST-PARSE-KEY........................................................[ OK ] TEST-DIRECTORY-PATHNAME-P.............................................[ OK ] TEST-ENSURE-DIRECTORY-PATHNAME........................................[ OK ] make[1]: Leaving directory '/build/reproducible-path/stumpwm-22.11' create-stamp debian/debhelper-build-stamp dh_prep debian/rules override_dh_install make[1]: Entering directory '/build/reproducible-path/stumpwm-22.11' # 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 cp -f debian/stumpwm.bin stumpwm dh_install -Xmake-image.lisp -Xsample-stumpwmrc.lisp -Xdynamic-mixins/README.md make[1]: Leaving directory '/build/reproducible-path/stumpwm-22.11' 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_22.11-3_all.deb'. dpkg-genbuildinfo --build=binary -O../stumpwm_22.11-3_arm64.buildinfo dpkg-genchanges --build=binary -O../stumpwm_22.11-3_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: not including original source code in upload I: copying local configuration I: user script /srv/workspace/pbuilder/2362652/tmp/hooks/B01_cleanup starting I: user script /srv/workspace/pbuilder/2362652/tmp/hooks/B01_cleanup finished 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/2362652 and its subdirectories I: Current time: Sat Feb 22 18:59:27 +14 2025 I: pbuilder-time-stamp: 1740200367 + false + set +x Sat Feb 22 04:59:27 UTC 2025 I: Signing ./b2/stumpwm_22.11-3_arm64.buildinfo as stumpwm_22.11-3_arm64.buildinfo.asc Sat Feb 22 04:59:27 UTC 2025 I: Signed ./b2/stumpwm_22.11-3_arm64.buildinfo as ./b2/stumpwm_22.11-3_arm64.buildinfo.asc Sat Feb 22 04:59:27 UTC 2025 - build #2 for stumpwm/unstable/arm64 on codethink04-arm64 done. Starting cleanup. All cleanup done. Sat Feb 22 04:59:27 UTC 2025 - reproducible_build.sh stopped running as /tmp/jenkins-script-zMOmcrEl, removing. /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9: total 1772 drwxr-xr-x 2 jenkins jenkins 4096 Feb 22 04:57 b1 drwxr-xr-x 2 jenkins jenkins 4096 Feb 22 04:59 b2 -rw------- 1 jenkins jenkins 1794354 Feb 22 04:57 rbuildlog.aHHbUVn -rw-r--r-- 1 jenkins jenkins 2137 Feb 1 2023 stumpwm_22.11-3.dsc /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/b1: total 2048 -rw-r--r-- 1 jenkins jenkins 1790805 Feb 22 04:57 build.log -rw-r--r-- 1 jenkins jenkins 12580 Feb 22 04:57 stumpwm_22.11-3.debian.tar.xz -rw-r--r-- 1 jenkins jenkins 2137 Feb 22 04:57 stumpwm_22.11-3.dsc -rw-r--r-- 1 jenkins jenkins 247024 Feb 22 04:57 stumpwm_22.11-3_all.deb -rw-r--r-- 1 jenkins jenkins 5253 Feb 22 04:57 stumpwm_22.11-3_arm64.buildinfo -rw-r--r-- 1 jenkins jenkins 6135 Feb 22 04:57 stumpwm_22.11-3_arm64.buildinfo.asc -rw-r--r-- 1 jenkins jenkins 1102 Feb 22 04:57 stumpwm_22.11-3_arm64.changes -rw-r--r-- 1 jenkins jenkins 1256 Feb 22 04:57 stumpwm_22.11-3_source.changes /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/b2: total 2040 -rw-r--r-- 1 jenkins jenkins 1792749 Feb 22 04:59 build.log -rw-r--r-- 1 jenkins jenkins 12580 Feb 22 04:59 stumpwm_22.11-3.debian.tar.xz -rw-r--r-- 1 jenkins jenkins 2137 Feb 22 04:59 stumpwm_22.11-3.dsc -rw-r--r-- 1 jenkins jenkins 247024 Feb 22 04:59 stumpwm_22.11-3_all.deb -rw-r--r-- 1 jenkins jenkins 5253 Feb 22 04:59 stumpwm_22.11-3_arm64.buildinfo -rw-r--r-- 1 jenkins jenkins 6135 Feb 22 04:59 stumpwm_22.11-3_arm64.buildinfo.asc -rw-r--r-- 1 jenkins jenkins 1102 Feb 22 04:59 stumpwm_22.11-3_arm64.changes -rw-r--r-- 1 jenkins jenkins 1256 Feb 22 04:59 stumpwm_22.11-3_source.changes Sat Feb 22 04:59:28 UTC 2025 I: Deleting $TMPDIR on codethink04-arm64.debian.net. Sat Feb 22 04:59:29 UTC 2025 I: stumpwm_22.11-3_arm64.changes: Format: 1.8 Date: Wed, 01 Feb 2023 23:58:04 +0800 Source: stumpwm Binary: stumpwm Architecture: all Version: 2:22.11-3 Distribution: unstable Urgency: medium Maintainer: Debian Common Lisp Team Changed-By: Benda Xu Description: stumpwm - tiling, keyboard driven Common Lisp window manager Changes: stumpwm (2:22.11-3) unstable; urgency=medium . * Add runtime dependency of alexandria. * Drop descriptions on Common Lisp interpreters and CLX, since we are now SBCL exclusive. Checksums-Sha1: 44bea8307d7345456126a6d1adfebdd0e60b41dc 247024 stumpwm_22.11-3_all.deb ed2fe886cda8f1327fd27d0f084a7d0d227134f7 5253 stumpwm_22.11-3_arm64.buildinfo Checksums-Sha256: 62839c68b5eff8937fae28de76c6b1ec8eecf7a412040a5655837a196af65767 247024 stumpwm_22.11-3_all.deb 32898b512af760e70bd8abb78bbd4733680fc536331fedd7df2233b3331eb5ac 5253 stumpwm_22.11-3_arm64.buildinfo Files: b29109ee8f30af704b52624f92dd2ee4 247024 x11 optional stumpwm_22.11-3_all.deb 40a60e1f4e781c640fec3e5f4bc9f9c2 5253 x11 optional stumpwm_22.11-3_arm64.buildinfo removed '/var/lib/jenkins/userContent/reproducible/debian/rbuild/unstable/arm64/stumpwm_22.11-3.rbuild.log' removed '/var/lib/jenkins/userContent/reproducible/debian/rbuild/unstable/arm64/stumpwm_22.11-3.rbuild.log.gz' removed '/var/lib/jenkins/userContent/reproducible/debian/logs/unstable/arm64/stumpwm_22.11-3.build1.log.gz' Diff of the two buildlogs: -- --- b1/build.log 2025-02-22 04:57:54.589056487 +0000 +++ b2/build.log 2025-02-22 04:59:28.480821262 +0000 @@ -1,6 +1,6 @@ I: pbuilder: network access will be disabled during build -I: Current time: Thu Mar 26 23:19:27 -12 2026 -I: pbuilder-time-stamp: 1774610367 +I: Current time: Sat Feb 22 18:57:57 +14 2025 +I: pbuilder-time-stamp: 1740200277 I: Building the build Environment I: extracting base tarball [/var/cache/pbuilder/unstable-reproducible-base.tgz] I: copying local configuration @@ -26,52 +26,84 @@ dpkg-source: info: applying 0003-Evaluate-require-and-asdf-separately.patch I: Not using root during the build. I: Installing the build-deps -I: user script /srv/workspace/pbuilder/2988947/tmp/hooks/D02_print_environment starting +I: user script /srv/workspace/pbuilder/2362652/tmp/hooks/D01_modify_environment starting +debug: Running on codethink04-arm64. +I: Changing host+domainname to test build reproducibility +I: Adding a custom variable just for the fun of it... +I: Changing /bin/sh to bash +'/bin/sh' -> '/bin/bash' +lrwxrwxrwx 1 root root 9 Feb 22 04:58 /bin/sh -> /bin/bash +I: Setting pbuilder2's login shell to /bin/bash +I: Setting pbuilder2's GECOS to second user,second room,second work-phone,second home-phone,second other +I: user script /srv/workspace/pbuilder/2362652/tmp/hooks/D01_modify_environment finished +I: user script /srv/workspace/pbuilder/2362652/tmp/hooks/D02_print_environment starting I: set - BUILDDIR='/build/reproducible-path' - BUILDUSERGECOS='first user,first room,first work-phone,first home-phone,first other' - BUILDUSERNAME='pbuilder1' - BUILD_ARCH='arm64' - DEBIAN_FRONTEND='noninteractive' + BASH=/bin/sh + BASHOPTS=checkwinsize:cmdhist:complete_fullquote:extquote:force_fignore:globasciiranges:globskipdots:hostcomplete:interactive_comments:patsub_replacement:progcomp:promptvars:sourcepath + BASH_ALIASES=() + BASH_ARGC=() + BASH_ARGV=() + BASH_CMDS=() + BASH_LINENO=([0]="12" [1]="0") + BASH_LOADABLES_PATH=/usr/local/lib/bash:/usr/lib/bash:/opt/local/lib/bash:/usr/pkg/lib/bash:/opt/pkg/lib/bash:. + BASH_SOURCE=([0]="/tmp/hooks/D02_print_environment" [1]="/tmp/hooks/D02_print_environment") + BASH_VERSINFO=([0]="5" [1]="2" [2]="37" [3]="1" [4]="release" [5]="aarch64-unknown-linux-gnu") + BASH_VERSION='5.2.37(1)-release' + BUILDDIR=/build/reproducible-path + BUILDUSERGECOS='second user,second room,second work-phone,second home-phone,second other' + BUILDUSERNAME=pbuilder2 + BUILD_ARCH=arm64 + DEBIAN_FRONTEND=noninteractive DEB_BUILD_OPTIONS='buildinfo=+all reproducible=+all parallel=12 ' - DISTRIBUTION='unstable' - HOME='/root' - HOST_ARCH='arm64' + DIRSTACK=() + DISTRIBUTION=unstable + EUID=0 + FUNCNAME=([0]="Echo" [1]="main") + GROUPS=() + HOME=/root + HOSTNAME=i-capture-the-hostname + HOSTTYPE=aarch64 + HOST_ARCH=arm64 IFS=' ' - INVOCATION_ID='45c7593975484e82a6c0ad8d857146d7' - 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='2988947' - PS1='# ' - PS2='> ' + INVOCATION_ID=881304142731434c8457b414379121c4 + LANG=C + LANGUAGE=nl_BE:nl + LC_ALL=C + MACHTYPE=aarch64-unknown-linux-gnu + MAIL=/var/mail/root + OPTERR=1 + OPTIND=1 + OSTYPE=linux-gnu + PATH=/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path + PBCURRENTCOMMANDLINEOPERATION=build + PBUILDER_OPERATION=build + PBUILDER_PKGDATADIR=/usr/share/pbuilder + PBUILDER_PKGLIBDIR=/usr/lib/pbuilder + PBUILDER_SYSCONFDIR=/etc + PIPESTATUS=([0]="0") + POSIXLY_CORRECT=y + PPID=2362652 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/r-b-build.FsopWVB9/pbuilderrc_aOxp --distribution unstable --hookdir /etc/pbuilder/first-build-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/unstable-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/b1 --logfile b1/build.log stumpwm_22.11-3.dsc' - SUDO_GID='109' - SUDO_UID='104' - SUDO_USER='jenkins' - TERM='unknown' - TZ='/usr/share/zoneinfo/Etc/GMT+12' - USER='root' - _='/usr/bin/systemd-run' - http_proxy='http://192.168.101.4:3128' + PWD=/ + SHELL=/bin/bash + SHELLOPTS=braceexpand:errexit:hashall:interactive-comments:posix + SHLVL=3 + SUDO_COMMAND='/usr/bin/timeout -k 24.1h 24h /usr/bin/ionice -c 3 /usr/bin/nice -n 11 /usr/bin/unshare --uts -- /usr/sbin/pbuilder --build --configfile /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/pbuilderrc_LcBL --distribution unstable --hookdir /etc/pbuilder/rebuild-hooks --debbuildopts -b --basetgz /var/cache/pbuilder/unstable-reproducible-base.tgz --buildresult /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/b2 --logfile b2/build.log stumpwm_22.11-3.dsc' + SUDO_GID=109 + SUDO_UID=104 + SUDO_USER=jenkins + TERM=unknown + TZ=/usr/share/zoneinfo/Etc/GMT-14 + UID=0 + USER=root + _='I: set' + http_proxy=http://192.168.101.4:3128 I: uname -a - Linux codethink03-arm64 6.1.0-31-cloud-arm64 #1 SMP Debian 6.1.128-1 (2025-02-07) aarch64 GNU/Linux + Linux i-capture-the-hostname 6.1.0-31-cloud-arm64 #1 SMP Debian 6.1.128-1 (2025-02-07) aarch64 GNU/Linux I: ls -l /bin - lrwxrwxrwx 1 root root 7 Nov 22 2024 /bin -> usr/bin -I: user script /srv/workspace/pbuilder/2988947/tmp/hooks/D02_print_environment finished + lrwxrwxrwx 1 root root 7 Nov 22 14:40 /bin -> usr/bin +I: user script /srv/workspace/pbuilder/2362652/tmp/hooks/D02_print_environment finished -> Attempting to satisfy build-dependencies -> Creating pbuilder-satisfydepends-dummy package Package: pbuilder-satisfydepends-dummy @@ -171,7 +203,7 @@ Get: 48 http://deb.debian.org/debian unstable/main arm64 tex-common all 6.18 [32.5 kB] Get: 49 http://deb.debian.org/debian unstable/main arm64 texinfo-lib arm64 7.1.1-1+b1 [220 kB] Get: 50 http://deb.debian.org/debian unstable/main arm64 texinfo all 7.1.1-1 [1753 kB] -Fetched 34.4 MB in 1s (68.3 MB/s) +Fetched 34.4 MB in 0s (183 MB/s) Preconfiguring packages ... Selecting previously unselected package libproc2-0:arm64. (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 ... 19889 files and directories currently installed.) @@ -395,7 +427,11 @@ Building tag database... -> Finished parsing the build-deps I: Building the package -I: Running cd /build/reproducible-path/stumpwm-22.11/ && 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_22.11-3_source.changes +I: user script /srv/workspace/pbuilder/2362652/tmp/hooks/A99_set_merged_usr starting +Not re-configuring usrmerge for unstable +I: user script /srv/workspace/pbuilder/2362652/tmp/hooks/A99_set_merged_usr finished +hostname: Name or service not known +I: Running cd /build/reproducible-path/stumpwm-22.11/ && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path" HOME="/nonexistent/second-build" dpkg-buildpackage -us -uc -b && env PATH="/usr/sbin:/usr/bin:/sbin:/bin:/usr/games:/i/capture/the/path" HOME="/nonexistent/second-build" dpkg-genchanges -S > ../stumpwm_22.11-3_source.changes dpkg-buildpackage: info: source package stumpwm dpkg-buildpackage: info: source version 2:22.11-3 dpkg-buildpackage: info: source distribution unstable @@ -454,7 +490,7 @@ ; compiling file "/usr/share/common-lisp/source/cl-asdf/build/asdf.lisp" (written 01 DEC 2024 12:56:31 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-asdf/build/asdf-tmpGHU3ALSV.fasl -; compilation finished in 0:00:06.224 +; compilation finished in 0:00:06.312 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/package.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/package-tmpAAURSO1.fasl @@ -462,15 +498,15 @@ ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/definitions.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/definitions-tmp5GEXGEG5.fasl -; compilation finished in 0:00:00.008 +; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/binding.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/binding-tmpAR3FSGEY.fasl -; compilation finished in 0:00:00.008 +; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/strings.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/strings-tmpJAIDFZTC.fasl -; compilation finished in 0:00:00.004 +; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/conditions.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/conditions-tmp8V3J6PE9.fasl @@ -482,15 +518,15 @@ ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/macros.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/macros-tmp9BN22RMA.fasl -; compilation finished in 0:00:00.072 +; compilation finished in 0:00:00.071 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/functions.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/functions-tmp1CXFJSK9.fasl -; compilation finished in 0:00:00.028 +; compilation finished in 0:00:00.032 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/lists.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/lists-tmpX4BRKI0R.fasl -; compilation finished in 0:00:00.168 +; compilation finished in 0:00:00.176 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/types.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/types-tmpQ371UGST.fasl @@ -524,11 +560,11 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/sequences-tmpOU81XRV0.fasl -; compilation finished in 0:00:00.108 +; compilation finished in 0:00:00.112 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/numbers.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/numbers-tmpY2ML9CFA.fasl -; compilation finished in 0:00:00.108 +; compilation finished in 0:00:00.112 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/features.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/features-tmpX2JYJDQE.fasl @@ -536,11 +572,11 @@ ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/package.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/package-tmpOPCILR65.fasl -; compilation finished in 0:00:00.008 +; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/arrays.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/arrays-tmpRV9F8A9A.fasl -; compilation finished in 0:00:00.008 +; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow-tmpK2ZAJT4I.fasl @@ -552,7 +588,7 @@ ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/lists.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/lists-tmp10401X32.fasl -; compilation finished in 0:00:00.004 +; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/packages.lisp" (written 27 APR 2024 01:06:11 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/packages-tmpZ7CBRM0G.fasl @@ -560,7 +596,7 @@ ; compiling file "/usr/share/common-lisp/source/cl-ppcre/specials.lisp" (written 27 APR 2024 01:06:11 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/specials-tmp9OZEQ0G2.fasl -; compilation finished in 0:00:00.004 +; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/util.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/util.lisp @@ -587,11 +623,11 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/util-tmpB2JTL1W9.fasl -; compilation finished in 0:00:00.024 +; compilation finished in 0:00:00.028 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/errors.lisp" (written 27 APR 2024 01:06:11 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/errors-tmpP3BI68WQ.fasl -; compilation finished in 0:00:00.008 +; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/charset.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp @@ -1028,7 +1064,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/lexer-tmpIO5N7K88.fasl -; compilation finished in 0:00:00.176 +; compilation finished in 0:00:00.172 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/parser.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/parser.lisp @@ -1048,7 +1084,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/parser-tmpCM21U60Z.fasl -; compilation finished in 0:00:00.032 +; compilation finished in 0:00:00.028 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class.lisp @@ -1100,7 +1136,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/regex-class-tmp9DT7SEFG.fasl -; compilation finished in 0:00:00.032 +; compilation finished in 0:00:00.040 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp @@ -1991,7 +2027,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/convert-tmp7S8Z6FGF.fasl -; compilation finished in 0:00:00.176 +; compilation finished in 0:00:00.180 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/optimize.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp @@ -2285,7 +2321,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/optimize-tmpSIT3QPKP.fasl -; compilation finished in 0:00:00.068 +; compilation finished in 0:00:00.072 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/closures.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp @@ -2456,7 +2492,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/closures-tmpE0PA0714.fasl -; compilation finished in 0:00:00.252 +; compilation finished in 0:00:00.144 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp @@ -4676,7 +4712,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/repetition-closures-tmpJRWHHVG0.fasl -; compilation finished in 0:00:00.284 +; compilation finished in 0:00:00.252 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/scanner.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/scanner.lisp @@ -5630,7 +5666,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/scanner-tmp4WZVROCX.fasl -; compilation finished in 0:00:00.500 +; compilation finished in 0:00:00.488 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/api.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp @@ -5943,7 +5979,7 @@ ; #<(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. ... {1002451B0F}> +; REG-ENDS bound to the four return values of each match in turn. ... {100252992F}> ; (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) @@ -5976,7 +6012,7 @@ ; (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, -; ... {100284DE3F}> +; ... {100292588F}> ; (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 @@ -6007,7 +6043,7 @@ ; (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... {10029EA8FF}> +; ma... {1002AB243F}> ; (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) @@ -6037,7 +6073,7 @@ ; (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... {1002BB976F}> +; va... {1002C90DAF}> ; (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 @@ -7235,7 +7271,7 @@ ; (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... {1002192E0F}> +; case-insensi... {100228A26F}> ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE @@ -7251,7 +7287,7 @@ ; (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... {1002192E0F}> +; case-insensi... {100228A26F}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS-LIST ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) @@ -7273,7 +7309,7 @@ ; #<(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 ... {10027406FF}> +; is true and REGEX isn't already a scanner, a case-insensitive ... {10028089BF}> ; (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) @@ -7288,7 +7324,7 @@ ; #<(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 ... {10027406FF}> +; is true and REGEX isn't already a scanner, a case-insensitive ... {10028089BF}> ; (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 @@ -7303,7 +7339,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/api-tmpA0I3UKX8.fasl -; compilation finished in 0:00:00.416 +; compilation finished in 0:00:00.420 WARNING: Lisp compilation had style-warnings while compiling # @@ -7346,7 +7382,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/clx-tmpIGHCU6ZA.fasl -; compilation finished in 0:00:00.264 +; compilation finished in 0:00:00.252 ; compiling file "/usr/share/common-lisp/source/clx/dependent.lisp" (written 27 DEC 2022 07:29:08 AM): ; file: /usr/share/common-lisp/source/clx/dependent.lisp @@ -7471,7 +7507,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/dependent-tmpBO0TUGLK.fasl -; compilation finished in 0:00:00.256 +; compilation finished in 0:00:00.280 WARNING: Lisp compilation had style-warnings while compiling # @@ -7485,7 +7521,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/macros-tmpIIXPIQNW.fasl -; compilation finished in 0:00:00.372 +; compilation finished in 0:00:00.380 ; compiling file "/usr/share/common-lisp/source/clx/bufmac.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/bufmac-tmpOHM494YR.fasl @@ -7749,7 +7785,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/buffer-tmpOVFB07XF.fasl -; compilation finished in 0:00:00.772 +; compilation finished in 0:00:00.776 ; compiling file "/usr/share/common-lisp/source/clx/display.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/display.lisp @@ -7812,7 +7848,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/display-tmpG6VFGMYP.fasl -; compilation finished in 0:00:00.120 +; compilation finished in 0:00:00.124 ; compiling file "/usr/share/common-lisp/source/clx/gcontext.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/gcontext.lisp @@ -8450,7 +8486,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/gcontext-tmp4QIPRMOF.fasl -; compilation finished in 0:00:00.804 +; compilation finished in 0:00:00.808 ; compiling file "/usr/share/common-lisp/source/clx/input.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/input.lisp @@ -8557,7 +8593,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/input-tmpGW0QV22K.fasl -; compilation finished in 0:00:01.368 +; compilation finished in 0:00:01.392 ; compiling file "/usr/share/common-lisp/source/clx/requests.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/requests.lisp @@ -12112,7 +12148,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/requests-tmp2K9J0HSR.fasl -; compilation finished in 0:00:01.412 +; compilation finished in 0:00:01.472 ; compiling file "/usr/share/common-lisp/source/clx/fonts.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/fonts.lisp @@ -13338,7 +13374,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/graphics-tmp63LQ7EX6.fasl -; compilation finished in 0:00:00.340 +; compilation finished in 0:00:00.356 ; compiling file "/usr/share/common-lisp/source/clx/text.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/text.lisp @@ -14148,7 +14184,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/text-tmp86F1A8FB.fasl -; compilation finished in 0:00:00.444 +; compilation finished in 0:00:00.456 ; compiling file "/usr/share/common-lisp/source/clx/attributes.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/attributes.lisp @@ -14363,11 +14399,11 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/attributes-tmpH7D4HL98.fasl -; compilation finished in 0:00:00.244 +; compilation finished in 0:00:00.260 ; compiling file "/usr/share/common-lisp/source/clx/translate.lisp" (written 27 DEC 2022 07:29:08 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/translate-tmpCDM7YXYI.fasl -; compilation finished in 0:00:00.216 +; compilation finished in 0:00:00.232 ; compiling file "/usr/share/common-lisp/source/clx/keysyms.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/keysyms-tmpLM57P5P.fasl @@ -14375,7 +14411,7 @@ ; compiling file "/usr/share/common-lisp/source/clx/manager.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/manager-tmpZE69DN33.fasl -; compilation finished in 0:00:00.572 +; compilation finished in 0:00:00.588 ; compiling file "/usr/share/common-lisp/source/clx/image.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/image.lisp @@ -14576,7 +14612,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/image-tmpG8099TO3.fasl -; compilation finished in 0:00:01.032 +; compilation finished in 0:00:01.060 ; compiling file "/usr/share/common-lisp/source/clx/resource.lisp" (written 27 DEC 2022 07:29:08 AM): ; file: /usr/share/common-lisp/source/clx/resource.lisp @@ -14587,7 +14623,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/resource-tmpTASQCYAW.fasl -; compilation finished in 0:00:00.236 +; compilation finished in 0:00:00.240 ; compiling file "/usr/share/common-lisp/source/clx/extensions/shape.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/shape.lisp @@ -14931,7 +14967,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/shape-tmp35U57IV6.fasl -; compilation finished in 0:00:00.216 +; compilation finished in 0:00:00.220 ; compiling file "/usr/share/common-lisp/source/clx/extensions/big-requests.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/big-requests.lisp @@ -14969,7 +15005,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/big-requests-tmpTZOONXRW.fasl -; compilation finished in 0:00:00.016 +; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xvidmode.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/xvidmode.lisp @@ -16227,11 +16263,11 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xvidmode-tmpWN0UKDSV.fasl -; compilation finished in 0:00:00.684 +; compilation finished in 0:00:00.696 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xrender.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xrender-tmpBF3HHBTQ.fasl -; compilation finished in 0:00:00.860 +; compilation finished in 0:00:00.880 ; compiling file "/usr/share/common-lisp/source/clx/extensions/glx.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/glx.lisp @@ -16756,7 +16792,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/glx-tmpGYUNPZCY.fasl -; compilation finished in 0:00:00.292 +; compilation finished in 0:00:00.280 ; compiling file "/usr/share/common-lisp/source/clx/extensions/gl.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/gl.lisp @@ -17198,7 +17234,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/gl-tmpD68Q8WCA.fasl -; compilation finished in 0:00:01.200 +; compilation finished in 0:00:01.228 ; compiling file "/usr/share/common-lisp/source/clx/extensions/dpms.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/dpms.lisp @@ -17764,7 +17800,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/screensaver-tmp1VUK6SR2.fasl -; compilation finished in 0:00:00.016 +; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/clx/extensions/randr.lisp" (written 27 DEC 2022 07:29:08 AM): ; file: /usr/share/common-lisp/source/clx/extensions/randr.lisp @@ -18941,7 +18977,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/randr-tmpR2FIHSUG.fasl -; compilation finished in 0:00:00.428 +; compilation finished in 0:00:00.444 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xinerama.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/xinerama.lisp @@ -19052,7 +19088,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xinerama-tmp8PYELRKX.fasl -; compilation finished in 0:00:00.104 +; compilation finished in 0:00:00.044 ; compiling file "/usr/share/common-lisp/source/clx/extensions/dbe.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/dbe.lisp @@ -19339,7 +19375,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/dbe-tmpEHTOKYT0.fasl -; compilation finished in 0:00:00.080 +; compilation finished in 0:00:00.128 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xc-misc.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/xc-misc.lisp @@ -20162,7 +20198,7 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/package.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/package-tmpBU5UM3S4.fasl -; compilation finished in 0:00:00.004 +; compilation finished in 0:00:00.000 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/dynamic-mixins.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/dynamic-mixins-tmpOBHVA3CD.fasl @@ -20170,19 +20206,19 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/package.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/package-tmpJ6ELVFLF.fasl -; compilation finished in 0:00:00.000 +; compilation finished in 0:00:00.004 ; compiling file "/build/reproducible-path/stumpwm-22.11/debug.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/debug-tmpULDB0RG.fasl -; compilation finished in 0:00:00.016 +; compilation finished in 0:00:00.012 ; compiling file "/build/reproducible-path/stumpwm-22.11/primitives.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/primitives-tmpUTZ0UUTE.fasl -; compilation finished in 0:00:00.304 +; compilation finished in 0:00:00.308 ; compiling file "/build/reproducible-path/stumpwm-22.11/wrappers.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/wrappers-tmpOOSRA8PZ.fasl -; compilation finished in 0:00:00.084 +; compilation finished in 0:00:00.080 ; compiling file "/build/reproducible-path/stumpwm-22.11/pathnames.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/pathnames-tmpDMIL0RVK.fasl @@ -20190,7 +20226,7 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/font-rendering.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/font-rendering-tmp8MR9IMIO.fasl -; compilation finished in 0:00:00.020 +; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/keysyms.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/keysyms-tmpJQDKAVAY.fasl @@ -20198,7 +20234,7 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/keytrans.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/keytrans-tmp3I8CEEQY.fasl -; compilation finished in 0:00:00.012 +; compilation finished in 0:00:00.008 ; compiling file "/build/reproducible-path/stumpwm-22.11/kmap.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/kmap-tmpA3RHFLWZ.fasl @@ -20206,7 +20242,7 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/input.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/input-tmpYZIB7VXO.fasl -; compilation finished in 0:00:00.344 +; compilation finished in 0:00:00.352 ; compiling file "/build/reproducible-path/stumpwm-22.11/core.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/core-tmpR8PK79V8.fasl @@ -20238,24 +20274,24 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/menu-declarations.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/menu-declarations-tmpZGRRPISB.fasl -; compilation finished in 0:00:00.016 +; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/menu-definitions.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/menu-definitions-tmpFNKDE5XP.fasl -; compilation finished in 0:00:00.084 +; compilation finished in 0:00:00.088 ; compiling file "/build/reproducible-path/stumpwm-22.11/screen.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/screen-tmpRJTU435C.fasl -; compilation finished in 0:00:00.104 +; compilation finished in 0:00:00.099 ; compiling file "/build/reproducible-path/stumpwm-22.11/head.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/head-tmpI9WG87JK.fasl -; compilation finished in 0:00:00.024 +; compilation finished in 0:00:00.028 ; compiling file "/build/reproducible-path/stumpwm-22.11/group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/group-tmpYDE6I9E6.fasl -; compilation finished in 0:00:00.084 -; compiling file "/build/reproducible-path/stumpwm-22.11/bindings.lisp" (written 27 MAR 2026 11:19:33 AM): +; compilation finished in 0:00:00.088 +; compiling file "/build/reproducible-path/stumpwm-22.11/bindings.lisp" (written 22 FEB 2025 04:58:03 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/bindings-tmp319UV2V8.fasl ; compilation finished in 0:00:00.024 @@ -20273,11 +20309,11 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/window-tmpGA31XWNO.fasl -; compilation finished in 0:00:00.204 +; compilation finished in 0:00:00.208 ; compiling file "/build/reproducible-path/stumpwm-22.11/floating-group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/floating-group-tmp5HT23M6C.fasl -; compilation finished in 0:00:00.172 +; compilation finished in 0:00:00.180 ; compiling file "/build/reproducible-path/stumpwm-22.11/tile-window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tile-window-tmpA60KLDKY.fasl @@ -20285,7 +20321,7 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/tile-group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tile-group-tmpD801X3GJ.fasl -; compilation finished in 0:00:00.440 +; compilation finished in 0:00:00.436 WARNING: redefining STUMPWM::ORPHANED-FRAMES in DEFUN ; compiling file "/build/reproducible-path/stumpwm-22.11/window-placement.lisp" (written 22 NOV 2022 12:13:18 AM): @@ -20294,7 +20330,7 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/message-window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/message-window-tmpPQ1X28TL.fasl -; compilation finished in 0:00:00.056 +; compilation finished in 0:00:00.060 ; compiling file "/build/reproducible-path/stumpwm-22.11/selection.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/selection-tmpE92ECU7O.fasl @@ -20306,11 +20342,11 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/ioloop.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/ioloop-tmpJE88A12F.fasl -; compilation finished in 0:00:00.168 +; compilation finished in 0:00:00.172 ; compiling file "/build/reproducible-path/stumpwm-22.11/timers.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/timers-tmpA5FNLPLT.fasl -; compilation finished in 0:00:00.020 +; compilation finished in 0:00:00.024 ; compiling file "/build/reproducible-path/stumpwm-22.11/stumpwm.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/stumpwm-tmpHKCV9TP8.fasl @@ -20326,11 +20362,11 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/iresize.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/iresize-tmpTX7OA81T.fasl -; compilation finished in 0:00:00.012 +; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/help.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/help-tmpWOTC3PB7.fasl -; compilation finished in 0:00:00.224 +; compilation finished in 0:00:00.232 ; compiling file "/build/reproducible-path/stumpwm-22.11/fdump.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/fdump-tmpHQE95SAC.fasl @@ -20342,7 +20378,7 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/mode-line.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/mode-line-tmpP6A3E92I.fasl -; compilation finished in 0:00:00.068 +; compilation finished in 0:00:00.080 ; compiling file "/build/reproducible-path/stumpwm-22.11/mode-line-formatters.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/mode-line-formatters-tmpUSHT8RIL.fasl @@ -20350,7 +20386,7 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/color.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/color-tmp7YCPD44Y.fasl -; compilation finished in 0:00:00.080 +; compilation finished in 0:00:00.084 ; compiling file "/build/reproducible-path/stumpwm-22.11/wse.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/wse-tmpQXR7SNXD.fasl @@ -20362,11 +20398,11 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-group-tmpWBK8JTS9.fasl -; compilation finished in 0:00:00.364 +; compilation finished in 0:00:00.372 ; compiling file "/build/reproducible-path/stumpwm-22.11/remap-keys.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/remap-keys-tmpUVEUD2ZN.fasl -; compilation finished in 0:00:00.012 +; compilation finished in 0:00:00.011 ; compiling file "/build/reproducible-path/stumpwm-22.11/manual.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/manual-tmpOWNJOEU.fasl @@ -20374,11 +20410,11 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/minor-modes.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/minor-modes-tmpVT5BMTA5.fasl -; compilation finished in 0:00:00.296 +; compilation finished in 0:00:00.304 ; compiling file "/build/reproducible-path/stumpwm-22.11/replace-class.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/replace-class-tmpN3CFVWZF.fasl -; compilation finished in 0:00:00.020 +; compilation finished in 0:00:00.024 WARNING: redefining DYNAMIC-MIXINS:REPLACE-CLASS in DEFGENERIC ; compiling file "/build/reproducible-path/stumpwm-22.11/version.lisp" (written 22 NOV 2022 12:13:18 AM): @@ -20405,7 +20441,7 @@ ; compiling file "/usr/share/common-lisp/source/cl-asdf/build/asdf.lisp" (written 01 DEC 2024 12:56:31 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-asdf/build/asdf-tmpGHU3ALSV.fasl -; compilation finished in 0:00:06.228 +; compilation finished in 0:00:06.316 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/package.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/package-tmpAAURSO1.fasl @@ -20413,11 +20449,11 @@ ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/definitions.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/definitions-tmp5GEXGEG5.fasl -; compilation finished in 0:00:00.004 +; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/binding.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/binding-tmpAR3FSGEY.fasl -; compilation finished in 0:00:00.008 +; compilation finished in 0:00:00.012 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/strings.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/strings-tmpJAIDFZTC.fasl @@ -20433,11 +20469,11 @@ ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/macros.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/macros-tmp9BN22RMA.fasl -; compilation finished in 0:00:00.072 +; compilation finished in 0:00:00.067 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/functions.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/functions-tmp1CXFJSK9.fasl -; compilation finished in 0:00:00.032 +; compilation finished in 0:00:00.028 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/lists.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/lists-tmpX4BRKI0R.fasl @@ -20445,11 +20481,11 @@ ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/types.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/types-tmpQ371UGST.fasl -; compilation finished in 0:00:00.076 +; compilation finished in 0:00:00.080 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/io.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/io-tmp2OWI3Q7U.fasl -; compilation finished in 0:00:00.112 +; compilation finished in 0:00:00.116 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables-tmp9KKTJMYV.fasl @@ -20475,7 +20511,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/sequences-tmpOU81XRV0.fasl -; compilation finished in 0:00:00.112 +; compilation finished in 0:00:00.108 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/numbers.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/numbers-tmpY2ML9CFA.fasl @@ -20483,7 +20519,7 @@ ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/features.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-1/features-tmpX2JYJDQE.fasl -; compilation finished in 0:00:00.004 +; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/package.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/package-tmpOPCILR65.fasl @@ -20491,7 +20527,7 @@ ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/arrays.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/arrays-tmpRV9F8A9A.fasl -; compilation finished in 0:00:00.012 +; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow-tmpK2ZAJT4I.fasl @@ -20499,15 +20535,15 @@ ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/sequences.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/sequences-tmpUX5S4ADN.fasl -; compilation finished in 0:00:00.004 +; compilation finished in 0:00:00.000 ; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/lists.lisp" (written 25 JAN 2024 05:37:54 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/alexandria/alexandria-2/lists-tmp10401X32.fasl -; compilation finished in 0:00:00.000 +; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/packages.lisp" (written 27 APR 2024 01:06:11 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/packages-tmpZ7CBRM0G.fasl -; compilation finished in 0:00:00.000 +; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/specials.lisp" (written 27 APR 2024 01:06:11 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/specials-tmp9OZEQ0G2.fasl @@ -21557,7 +21593,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/regex-class-util-tmp8065ESJT.fasl -; compilation finished in 0:00:00.096 +; compilation finished in 0:00:00.100 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/convert.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp @@ -21942,7 +21978,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/convert-tmp7S8Z6FGF.fasl -; compilation finished in 0:00:00.176 +; compilation finished in 0:00:00.180 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/optimize.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp @@ -22236,7 +22272,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/optimize-tmpSIT3QPKP.fasl -; compilation finished in 0:00:00.204 +; compilation finished in 0:00:00.216 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/closures.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp @@ -24627,7 +24663,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/repetition-closures-tmpJRWHHVG0.fasl -; compilation finished in 0:00:00.308 +; compilation finished in 0:00:00.252 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/scanner.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/scanner.lisp @@ -25581,7 +25617,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/scanner-tmp4WZVROCX.fasl -; compilation finished in 0:00:00.508 +; compilation finished in 0:00:00.500 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/api.lisp" (written 27 APR 2024 01:06:11 AM): ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp @@ -25894,7 +25930,7 @@ ; #<(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. ... {1002D1E6FF}> +; REG-ENDS bound to the four return values of each match in turn. ... {1002D39DAF}> ; (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) @@ -25927,7 +25963,7 @@ ; (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, -; ... {100312A43F}> +; ... {1003135C0F}> ; (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 @@ -25958,7 +25994,7 @@ ; (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... {10032B6F7F}> +; ma... {10032C28FF}> ; (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) @@ -25988,7 +26024,7 @@ ; (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... {1003485D7F}> +; va... {10034A153F}> ; (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 @@ -27186,7 +27222,7 @@ ; (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... {1002A8E7BF}> +; case-insensi... {1002AAA4DF}> ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE @@ -27202,7 +27238,7 @@ ; (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... {1002A8E7BF}> +; case-insensi... {1002AAA4DF}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS-LIST ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) @@ -27224,7 +27260,7 @@ ; #<(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 ... {100300C4BF}> +; is true and REGEX isn't already a scanner, a case-insensitive ... {10030289BF}> ; (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) @@ -27239,7 +27275,7 @@ ; #<(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 ... {100300C4BF}> +; is true and REGEX isn't already a scanner, a case-insensitive ... {10030289BF}> ; (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 @@ -27254,14 +27290,14 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/cl-ppcre/api-tmpA0I3UKX8.fasl -; compilation finished in 0:00:00.416 +; compilation finished in 0:00:00.420 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/clx/package.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/package-tmp267Y2N80.fasl -; compilation finished in 0:00:00.020 +; compilation finished in 0:00:00.016 ; compiling file "/usr/share/common-lisp/source/clx/depdefs.lisp" (written 27 DEC 2022 07:29:08 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/depdefs-tmpOUPE5FSJ.fasl @@ -27436,7 +27472,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/macros-tmpIIXPIQNW.fasl -; compilation finished in 0:00:00.388 +; compilation finished in 0:00:00.384 ; compiling file "/usr/share/common-lisp/source/clx/bufmac.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/bufmac-tmpOHM494YR.fasl @@ -27700,7 +27736,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/buffer-tmpOVFB07XF.fasl -; compilation finished in 0:00:00.812 +; compilation finished in 0:00:00.784 ; compiling file "/usr/share/common-lisp/source/clx/display.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/display.lisp @@ -27763,7 +27799,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/display-tmpG6VFGMYP.fasl -; compilation finished in 0:00:00.132 +; compilation finished in 0:00:00.124 ; compiling file "/usr/share/common-lisp/source/clx/gcontext.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/gcontext.lisp @@ -28401,7 +28437,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/gcontext-tmp4QIPRMOF.fasl -; compilation finished in 0:00:00.820 +; compilation finished in 0:00:00.816 ; compiling file "/usr/share/common-lisp/source/clx/input.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/input.lisp @@ -28508,7 +28544,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/input-tmpGW0QV22K.fasl -; compilation finished in 0:00:01.424 +; compilation finished in 0:00:01.376 ; compiling file "/usr/share/common-lisp/source/clx/requests.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/requests.lisp @@ -32063,7 +32099,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/requests-tmp2K9J0HSR.fasl -; compilation finished in 0:00:01.452 +; compilation finished in 0:00:01.420 ; compiling file "/usr/share/common-lisp/source/clx/fonts.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/fonts.lisp @@ -32481,7 +32517,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/fonts-tmpP44I4E0Y.fasl -; compilation finished in 0:00:00.260 +; compilation finished in 0:00:00.264 ; compiling file "/usr/share/common-lisp/source/clx/graphics.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/graphics.lisp @@ -33289,7 +33325,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/graphics-tmp63LQ7EX6.fasl -; compilation finished in 0:00:00.276 +; compilation finished in 0:00:00.272 ; compiling file "/usr/share/common-lisp/source/clx/text.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/text.lisp @@ -34099,7 +34135,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/text-tmp86F1A8FB.fasl -; compilation finished in 0:00:00.416 +; compilation finished in 0:00:00.412 ; compiling file "/usr/share/common-lisp/source/clx/attributes.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/attributes.lisp @@ -34318,11 +34354,11 @@ ; compiling file "/usr/share/common-lisp/source/clx/translate.lisp" (written 27 DEC 2022 07:29:08 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/translate-tmpCDM7YXYI.fasl -; compilation finished in 0:00:00.228 +; compilation finished in 0:00:00.224 ; compiling file "/usr/share/common-lisp/source/clx/keysyms.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/keysyms-tmpLM57P5P.fasl -; compilation finished in 0:00:00.016 +; compilation finished in 0:00:00.020 ; compiling file "/usr/share/common-lisp/source/clx/manager.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/manager-tmpZE69DN33.fasl @@ -34527,7 +34563,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/image-tmpG8099TO3.fasl -; compilation finished in 0:00:01.060 +; compilation finished in 0:00:01.040 ; compiling file "/usr/share/common-lisp/source/clx/resource.lisp" (written 27 DEC 2022 07:29:08 AM): ; file: /usr/share/common-lisp/source/clx/resource.lisp @@ -34538,7 +34574,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/resource-tmpTASQCYAW.fasl -; compilation finished in 0:00:00.240 +; compilation finished in 0:00:00.236 ; compiling file "/usr/share/common-lisp/source/clx/extensions/shape.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/shape.lisp @@ -34882,7 +34918,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/shape-tmp35U57IV6.fasl -; compilation finished in 0:00:00.216 +; compilation finished in 0:00:00.208 ; compiling file "/usr/share/common-lisp/source/clx/extensions/big-requests.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/big-requests.lisp @@ -34920,7 +34956,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/big-requests-tmpTZOONXRW.fasl -; compilation finished in 0:00:00.012 +; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xvidmode.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/xvidmode.lisp @@ -36178,11 +36214,11 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xvidmode-tmpWN0UKDSV.fasl -; compilation finished in 0:00:00.700 +; compilation finished in 0:00:00.688 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xrender.lisp" (written 04 FEB 2018 08:14:53 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/xrender-tmpBF3HHBTQ.fasl -; compilation finished in 0:00:00.876 +; compilation finished in 0:00:00.868 ; compiling file "/usr/share/common-lisp/source/clx/extensions/glx.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/glx.lisp @@ -36707,7 +36743,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/glx-tmpGYUNPZCY.fasl -; compilation finished in 0:00:00.288 +; compilation finished in 0:00:00.280 ; compiling file "/usr/share/common-lisp/source/clx/extensions/gl.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/gl.lisp @@ -37149,7 +37185,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/gl-tmpD68Q8WCA.fasl -; compilation finished in 0:00:01.228 +; compilation finished in 0:00:01.208 ; compiling file "/usr/share/common-lisp/source/clx/extensions/dpms.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/dpms.lisp @@ -38892,7 +38928,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/randr-tmpR2FIHSUG.fasl -; compilation finished in 0:00:00.448 +; compilation finished in 0:00:00.436 ; compiling file "/usr/share/common-lisp/source/clx/extensions/xinerama.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/xinerama.lisp @@ -39811,7 +39847,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/dri2-tmpVTFK6ZJW.fasl -; compilation finished in 0:00:00.228 +; compilation finished in 0:00:00.224 ; compiling file "/usr/share/common-lisp/source/clx/extensions/composite.lisp" (written 04 FEB 2018 08:14:53 AM): ; file: /usr/share/common-lisp/source/clx/extensions/composite.lisp @@ -40109,7 +40145,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/clx/extensions/composite-tmp75WVSJEW.fasl -; compilation finished in 0:00:00.076 +; compilation finished in 0:00:00.072 ; compiling file "/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/package.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/dynamic-mixins/src/package-tmpBU5UM3S4.fasl @@ -40145,7 +40181,7 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/keysyms.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/keysyms-tmpJQDKAVAY.fasl -; compilation finished in 0:00:00.112 +; compilation finished in 0:00:00.115 ; compiling file "/build/reproducible-path/stumpwm-22.11/keytrans.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/keytrans-tmp3I8CEEQY.fasl @@ -40161,7 +40197,7 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/core.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/core-tmpR8PK79V8.fasl -; compilation finished in 0:00:00.012 +; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/command.lisp" (written 22 NOV 2022 12:13:18 AM): ; file: /build/reproducible-path/stumpwm-22.11/command.lisp @@ -40182,14 +40218,14 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/command-tmpN1ZVB1HZ.fasl -; compilation finished in 0:00:00.232 +; compilation finished in 0:00:00.228 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/build/reproducible-path/stumpwm-22.11/menu-declarations.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/menu-declarations-tmpZGRRPISB.fasl -; compilation finished in 0:00:00.020 +; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/menu-definitions.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/menu-definitions-tmpFNKDE5XP.fasl @@ -40197,19 +40233,19 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/screen.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/screen-tmpRJTU435C.fasl -; compilation finished in 0:00:00.104 +; compilation finished in 0:00:00.096 ; compiling file "/build/reproducible-path/stumpwm-22.11/head.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/head-tmpI9WG87JK.fasl -; compilation finished in 0:00:00.024 +; compilation finished in 0:00:00.028 ; compiling file "/build/reproducible-path/stumpwm-22.11/group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/group-tmpYDE6I9E6.fasl ; compilation finished in 0:00:00.084 -; compiling file "/build/reproducible-path/stumpwm-22.11/bindings.lisp" (written 27 MAR 2026 11:19:33 AM): +; compiling file "/build/reproducible-path/stumpwm-22.11/bindings.lisp" (written 22 FEB 2025 04:58:03 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/bindings-tmp319UV2V8.fasl -; compilation finished in 0:00:00.024 +; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/events.lisp" (written 22 NOV 2022 12:13:18 AM): ; file: /build/reproducible-path/stumpwm-22.11/events.lisp @@ -40220,7 +40256,7 @@ ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/events-tmpLYQINFYS.fasl -; compilation finished in 0:00:00.164 +; compilation finished in 0:00:00.168 ; compiling file "/build/reproducible-path/stumpwm-22.11/window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/window-tmpGA31XWNO.fasl @@ -40228,7 +40264,7 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/floating-group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/floating-group-tmp5HT23M6C.fasl -; compilation finished in 0:00:00.176 +; compilation finished in 0:00:00.172 ; compiling file "/build/reproducible-path/stumpwm-22.11/tile-window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tile-window-tmpA60KLDKY.fasl @@ -40236,12 +40272,12 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/tile-group.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tile-group-tmpD801X3GJ.fasl -; compilation finished in 0:00:00.432 +; compilation finished in 0:00:00.436 WARNING: redefining STUMPWM::ORPHANED-FRAMES in DEFUN ; compiling file "/build/reproducible-path/stumpwm-22.11/window-placement.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/window-placement-tmpGOW1GC70.fasl -; compilation finished in 0:00:00.132 +; compilation finished in 0:00:00.040 ; compiling file "/build/reproducible-path/stumpwm-22.11/message-window.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/message-window-tmpPQ1X28TL.fasl @@ -40249,15 +40285,15 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/selection.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/selection-tmpE92ECU7O.fasl -; compilation finished in 0:00:00.016 +; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/module.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/module-tmp8S0II570.fasl -; compilation finished in 0:00:00.012 +; compilation finished in 0:00:00.016 ; compiling file "/build/reproducible-path/stumpwm-22.11/ioloop.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/ioloop-tmpJE88A12F.fasl -; compilation finished in 0:00:00.168 +; compilation finished in 0:00:00.172 ; compiling file "/build/reproducible-path/stumpwm-22.11/timers.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/timers-tmpA5FNLPLT.fasl @@ -40269,7 +40305,7 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/user.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/user-tmpZ18MA7XE.fasl -; compilation finished in 0:00:00.112 +; compilation finished in 0:00:00.116 ; compiling file "/build/reproducible-path/stumpwm-22.11/interactive-keymap.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/interactive-keymap-tmp6LQJ9T0C.fasl @@ -40281,11 +40317,11 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/help.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/help-tmpWOTC3PB7.fasl -; compilation finished in 0:00:00.224 +; compilation finished in 0:00:00.236 ; compiling file "/build/reproducible-path/stumpwm-22.11/fdump.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/fdump-tmpHQE95SAC.fasl -; compilation finished in 0:00:00.112 +; compilation finished in 0:00:00.116 ; compiling file "/build/reproducible-path/stumpwm-22.11/time.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/time-tmpO87FP9NR.fasl @@ -40293,11 +40329,11 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/mode-line.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/mode-line-tmpP6A3E92I.fasl -; compilation finished in 0:00:00.072 +; compilation finished in 0:00:00.076 ; compiling file "/build/reproducible-path/stumpwm-22.11/mode-line-formatters.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/mode-line-formatters-tmpUSHT8RIL.fasl -; compilation finished in 0:00:00.056 +; compilation finished in 0:00:00.052 ; compiling file "/build/reproducible-path/stumpwm-22.11/color.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/color-tmp7YCPD44Y.fasl @@ -40325,16 +40361,16 @@ ; compiling file "/build/reproducible-path/stumpwm-22.11/minor-modes.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/minor-modes-tmpVT5BMTA5.fasl -; compilation finished in 0:00:00.304 +; compilation finished in 0:00:00.308 ; compiling file "/build/reproducible-path/stumpwm-22.11/replace-class.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/replace-class-tmpN3CFVWZF.fasl -; compilation finished in 0:00:00.020 +; compilation finished in 0:00:00.024 WARNING: redefining DYNAMIC-MIXINS:REPLACE-CLASS in DEFGENERIC ; compiling file "/build/reproducible-path/stumpwm-22.11/version.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/version-tmpNK27C0R1.fasl -; compilation finished in 0:00:00.000 +; compilation finished in 0:00:00.004 ; ; compilation unit finished ; caught 8 STYLE-WARNING conditions @@ -40351,15 +40387,15 @@ ; compiling file "/usr/share/common-lisp/source/fiasco/src/package.lisp" (written 14 MAY 2020 04:10:55 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/fiasco/src/package-tmpGMQXK1HK.fasl -; compilation finished in 0:00:00.000 +; compilation finished in 0:00:00.004 ; compiling file "/usr/share/common-lisp/source/fiasco/src/streams.lisp" (written 14 MAY 2020 04:10:55 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/fiasco/src/streams-tmp49Q238TW.fasl -; compilation finished in 0:00:00.012 +; compilation finished in 0:00:00.008 ; compiling file "/usr/share/common-lisp/source/fiasco/src/infrastructure.lisp" (written 14 MAY 2020 04:10:55 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/fiasco/src/infrastructure-tmpMXPMJ5KG.fasl -; compilation finished in 0:00:00.252 +; compilation finished in 0:00:00.256 ; compiling file "/usr/share/common-lisp/source/fiasco/src/asserts.lisp" (written 14 MAY 2020 04:10:55 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/fiasco/src/asserts-tmpB69313KI.fasl @@ -40367,23 +40403,23 @@ ; compiling file "/usr/share/common-lisp/source/fiasco/src/test.lisp" (written 14 MAY 2020 04:10:55 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/fiasco/src/test-tmp9ZT99EEA.fasl -; compilation finished in 0:00:00.020 +; compilation finished in 0:00:00.024 ; compiling file "/usr/share/common-lisp/source/fiasco/src/suite.lisp" (written 14 MAY 2020 04:10:55 PM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/usr/share/common-lisp/source/fiasco/src/suite-tmpW045U8V2.fasl -; compilation finished in 0:00:00.112 +; compilation finished in 0:00:00.116 ; compiling file "/build/reproducible-path/stumpwm-22.11/tests/package.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tests/package-tmp6XOIRI3N.fasl -; compilation finished in 0:00:00.024 +; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/tests/kmap.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tests/kmap-tmp9ZHTLHSG.fasl -; compilation finished in 0:00:00.024 +; compilation finished in 0:00:00.020 ; compiling file "/build/reproducible-path/stumpwm-22.11/tests/pathnames.lisp" (written 22 NOV 2022 12:13:18 AM): ; wrote /build/reproducible-path/stumpwm-22.11/debian/.debhelper/generated/_source/home/.cache/common-lisp/sbcl-2.5.0.debian-linux-arm64/build/reproducible-path/stumpwm-22.11/tests/pathnames-tmpRW73Q691.fasl -; compilation finished in 0:00:00.036 +; compilation finished in 0:00:00.032 ALL-TESTS (Suite) STUMPWM-TESTS (Suite) TEST-PARSE-KEY........................................................[ OK ] @@ -40426,12 +40462,14 @@ dpkg-buildpackage: info: binary-only upload (no source included) dpkg-genchanges: info: not including original source code in upload I: copying local configuration +I: user script /srv/workspace/pbuilder/2362652/tmp/hooks/B01_cleanup starting +I: user script /srv/workspace/pbuilder/2362652/tmp/hooks/B01_cleanup finished 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/2988947 and its subdirectories -I: Current time: Thu Mar 26 23:20:53 -12 2026 -I: pbuilder-time-stamp: 1774610453 +I: removing directory /srv/workspace/pbuilder/2362652 and its subdirectories +I: Current time: Sat Feb 22 18:59:27 +14 2025 +I: pbuilder-time-stamp: 1740200367 Compressing the 2nd log... /var/lib/jenkins/userContent/reproducible/debian/logdiffs/unstable/arm64/stumpwm_22.11-3.diff: 87.0% -- replaced with /var/lib/jenkins/userContent/reproducible/debian/logdiffs/unstable/arm64/stumpwm_22.11-3.diff.gz b2/build.log: 94.8% -- replaced with stdout Compressing the 1st log... b1/build.log: 94.9% -- replaced with stdout Sat Feb 22 04:59:30 UTC 2025 I: diffoscope 288 will be used to compare the two builds: ++ date -u +%s + DIFFOSCOPE_STAMP=/var/log/reproducible-builds/diffoscope_stamp_stumpwm_unstable_arm64_1740200370 + touch /var/log/reproducible-builds/diffoscope_stamp_stumpwm_unstable_arm64_1740200370 + RESULT=0 + systemd-run '--description=diffoscope on stumpwm/2:22.11-3 in unstable/arm64' --slice=rb-build-diffoscope.slice -u rb-diffoscope-arm64_2-75142 '--property=SuccessExitStatus=1 124' --user --send-sighup --pipe --wait -E TMPDIR timeout 155m nice schroot --directory /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9 --run-session -c jenkins-reproducible-unstable-diffoscope-d982f398-9578-42c2-a969-679d3f3e4987 -- sh -c 'export TMPDIR=/srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/dbd-tmp-gHzBZng ; timeout 150m diffoscope --timeout 7200 --html /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/stumpwm_22.11-3.diffoscope.html --text /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/stumpwm_22.11-3.diffoscope.txt --json /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/stumpwm_22.11-3.diffoscope.json --profile=- /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/b1/stumpwm_22.11-3_arm64.changes /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/b2/stumpwm_22.11-3_arm64.changes' + false + set +x Running as unit: rb-diffoscope-arm64_2-75142.service # Profiling output for: /usr/bin/diffoscope --timeout 7200 --html /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/stumpwm_22.11-3.diffoscope.html --text /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/stumpwm_22.11-3.diffoscope.txt --json /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/stumpwm_22.11-3.diffoscope.json --profile=- /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/b1/stumpwm_22.11-3_arm64.changes /srv/reproducible-results/rbuild-debian/r-b-build.FsopWVB9/b2/stumpwm_22.11-3_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 diffoscope.comparators.binary.FilesystemFile ## main (total time: 0.003s) 0.003s 2 calls outputs 0.000s 1 call cleanup Finished with result: success Main processes terminated with: code=exited/status=0 Service runtime: 219ms CPU time consumed: 220ms _ ___| |_ _ _ _ __ ___ _ ____ ___ __ ___ / __| __| | | | '_ ` _ \| '_ \ \ /\ / / '_ ` _ \ \__ \ |_| |_| | | | | | | |_) \ V V /| | | | | | |___/\__|\__,_|_| |_| |_| .__/ \_/\_/ |_| |_| |_| |_| Sat Feb 22 04:59:31 UTC 2025 I: diffoscope 288 found no differences in the changes files, and a .buildinfo file also exists. Sat Feb 22 04:59:31 UTC 2025 I: stumpwm from unstable built successfully and reproducibly on arm64. INSERT 0 1 INSERT 0 1 DELETE 1 [2025-02-22 04:59:31] INFO: Starting at 2025-02-22 04:59:31.646550 [2025-02-22 04:59:31] INFO: Generating the pages of 1 package(s) [2025-02-22 04:59:32] CRITICAL: https://tests.reproducible-builds.org/debian/unstable/arm64/stumpwm didn't produce a buildlog, even though it has been built. [2025-02-22 04:59:32] ERROR: Either /var/lib/jenkins/userContent/reproducible/debian/logs/unstable/armhf/stumpwm_22.11-3.build2.log.gz or /var/lib/jenkins/userContent/reproducible/debian/logdiffs/unstable/armhf/stumpwm_22.11-3.diff.gz is missing [2025-02-22 04:59:32] INFO: Finished at 2025-02-22 04:59:32.146482, took: 0:00:00.499937 Sat Feb 22 04:59:32 UTC 2025 - successfully updated the database and updated https://tests.reproducible-builds.org/debian/rb-pkg/unstable/arm64/stumpwm.html Sat Feb 22 04:59:32 UTC 2025 I: Submitting .buildinfo files to external archives: Sat Feb 22 04:59:32 UTC 2025 I: Submitting 8.0K b1/stumpwm_22.11-3_arm64.buildinfo.asc https://buildinfo.debian.net/ed2fe886cda8f1327fd27d0f084a7d0d227134f7/stumpwm_2:22.11-3_all Sat Feb 22 04:59:33 UTC 2025 I: Submitting 8.0K b2/stumpwm_22.11-3_arm64.buildinfo.asc https://buildinfo.debian.net/adde8bdba13a0a7da562310a102f9f3a2cb668ec/stumpwm_2:22.11-3_all Sat Feb 22 04:59:33 UTC 2025 I: Done submitting .buildinfo files to http://buildinfo.debian.net/api/submit. Sat Feb 22 04:59:33 UTC 2025 I: Done submitting .buildinfo files. Sat Feb 22 04:59:33 UTC 2025 I: Removing signed stumpwm_22.11-3_arm64.buildinfo.asc files: removed './b1/stumpwm_22.11-3_arm64.buildinfo.asc' removed './b2/stumpwm_22.11-3_arm64.buildinfo.asc' 1740200373 arm64 unstable stumpwm Starting cleanup. /var/lib/jenkins/userContent/reproducible/debian/rbuild/unstable/arm64/stumpwm_22.11-3.rbuild.log: 94.7% -- replaced with /var/lib/jenkins/userContent/reproducible/debian/rbuild/unstable/arm64/stumpwm_22.11-3.rbuild.log.gz [2025-02-22 04:59:34] INFO: Starting at 2025-02-22 04:59:34.313770 [2025-02-22 04:59:34] INFO: Generating the pages of 1 package(s) [2025-02-22 04:59:34] ERROR: Either /var/lib/jenkins/userContent/reproducible/debian/logs/unstable/armhf/stumpwm_22.11-3.build2.log.gz or /var/lib/jenkins/userContent/reproducible/debian/logdiffs/unstable/armhf/stumpwm_22.11-3.diff.gz is missing [2025-02-22 04:59:34] INFO: Finished at 2025-02-22 04:59:34.805486, took: 0:00:00.491723 All cleanup done. Sat Feb 22 04:59:34 UTC 2025 - total duration: 0h 3m 25s. Sat Feb 22 04:59:34 UTC 2025 - reproducible_build.sh stopped running as /tmp/jenkins-script-pCNN57nx, removing. Finished with result: success Main processes terminated with: code=exited/status=0 Service runtime: 3min 28.202s CPU time consumed: 7.683s