RUN: /usr/share/launchpad-buildd/slavebin/slave-prep ['slave-prep'] Forking launchpad-buildd slave process... Kernel version: Linux roseapple 3.2.0-77-generic #112-Ubuntu SMP Tue Feb 10 15:22:22 UTC 2015 x86_64 Buildd toolchain package versions: launchpad-buildd_126 python-lpbuildd_126 bzr_2.5.1-0ubuntu2 dpkg-dev_1.16.1.2ubuntu7.6. Syncing the system clock with the buildd NTP service... 7 May 02:22:54 ntpdate[31124]: adjust time server 10.211.37.1 offset -0.000528 sec RUN: /usr/share/launchpad-buildd/slavebin/unpack-chroot ['unpack-chroot', 'PACKAGEBUILD-7394172', '/home/buildd/filecache-default/29a30262335ea1a39771c1615f8eea53dfa537cc'] Unpacking chroot for build PACKAGEBUILD-7394172 RUN: /usr/share/launchpad-buildd/slavebin/mount-chroot ['mount-chroot', 'PACKAGEBUILD-7394172'] Mounting chroot for build PACKAGEBUILD-7394172 RUN: /usr/share/launchpad-buildd/slavebin/override-sources-list ['override-sources-list', 'PACKAGEBUILD-7394172', 'deb http://ftpmaster.internal/ubuntu wily main universe', 'deb http://ftpmaster.internal/ubuntu wily-security main universe', 'deb http://ftpmaster.internal/ubuntu wily-updates main universe', 'deb http://ftpmaster.internal/ubuntu wily-proposed main universe'] Overriding sources.list in build-PACKAGEBUILD-7394172 RUN: /usr/share/launchpad-buildd/slavebin/update-debian-chroot ['update-debian-chroot', 'PACKAGEBUILD-7394172', 'amd64'] Updating debian chroot for build PACKAGEBUILD-7394172 Ign http://ftpmaster.internal wily InRelease Ign http://archive-team.internal wily InRelease Ign http://ftpmaster.internal wily-security InRelease Ign http://ftpmaster.internal wily-updates InRelease Ign http://archive-team.internal wily Release.gpg Ign http://ftpmaster.internal wily-proposed InRelease Get:1 http://archive-team.internal wily Release [726 B] Get:2 http://ftpmaster.internal wily Release.gpg [933 B] Get:3 http://ftpmaster.internal wily-security Release.gpg [933 B] Get:4 http://ftpmaster.internal wily-updates Release.gpg [933 B] Get:5 http://ftpmaster.internal wily-proposed Release.gpg [933 B] Get:6 http://ftpmaster.internal wily Release [217 kB] Get:7 http://archive-team.internal wily/main amd64 Packages Get:8 http://ftpmaster.internal wily-security Release [63.5 kB] Get:9 http://ftpmaster.internal wily-updates Release [63.5 kB] Ign http://archive-team.internal wily/main Translation-en Get:10 http://ftpmaster.internal wily-proposed Release [63.5 kB] Get:11 http://ftpmaster.internal wily/main amd64 Packages [1376 kB] Get:12 http://ftpmaster.internal wily/universe amd64 Packages [6490 kB] Get:13 http://ftpmaster.internal wily/main Translation-en [800 kB] Get:14 http://ftpmaster.internal wily/universe Translation-en [4460 kB] Get:15 http://ftpmaster.internal wily-security/main amd64 Packages [28 B] Get:16 http://ftpmaster.internal wily-security/universe amd64 Packages [28 B] Get:17 http://ftpmaster.internal wily-security/main Translation-en [28 B] Get:18 http://ftpmaster.internal wily-security/universe Translation-en [28 B] Get:19 http://ftpmaster.internal wily-updates/main amd64 Packages [28 B] Get:20 http://ftpmaster.internal wily-updates/universe amd64 Packages [28 B] Get:21 http://ftpmaster.internal wily-updates/main Translation-en [28 B] Get:22 http://ftpmaster.internal wily-updates/universe Translation-en [28 B] Get:23 http://ftpmaster.internal wily-proposed/main amd64 Packages [21.2 kB] Get:24 http://ftpmaster.internal wily-proposed/universe amd64 Packages [314 kB] Get:25 http://ftpmaster.internal wily-proposed/main Translation-en [10.7 kB] Get:26 http://ftpmaster.internal wily-proposed/universe Translation-en [223 kB] Fetched 14.1 MB in 4s (3208 kB/s) Reading package lists... Reading package lists... Building dependency tree... Reading state information... The following NEW packages will be installed: adduser dmsetup init libapparmor1 libcap2-bin libcryptsetup4 libdevmapper1.02.1 libkmod2 systemd systemd-sysv udev The following packages will be upgraded: apt apt-transport-https base-files binutils cpp-4.9 debianutils dpkg dpkg-dev g++-4.9 gcc-4.9 gcc-4.9-base gcc-5-base initscripts libapt-pkg4.12 libasan1 libasn1-8-heimdal libatomic1 libaudit-common libaudit1 libcap2 libcilkrts5 libcloog-isl4 libcurl3-gnutls libdpkg-perl libgcc-4.9-dev libgcc1 libgomp1 libgssapi-krb5-2 libgssapi3-heimdal libhcrypto4-heimdal libheimbase1-heimdal libheimntlm0-heimdal libhx509-5-heimdal libisl13 libitm1 libk5crypto3 libkrb5-26-heimdal libkrb5-3 libkrb5support0 liblsan0 libp11-kit0 libpam-modules libpam-modules-bin libpam-runtime libpam0g libquadmath0 libroken18-heimdal librtmp1 libsqlite3-0 libstdc++-4.9-dev libstdc++6 libsystemd0 libtsan0 libubsan0 libudev1 libwind0-heimdal linux-libc-dev login passwd patch perl perl-base perl-modules pkg-create-dbgsym sysv-rc sysvinit-utils tzdata 67 upgraded, 11 newly installed, 0 to remove and 0 not upgraded. Need to get 56.9 MB of archives. After this operation, 30.4 MB of additional disk space will be used. Get:1 http://ftpmaster.internal/ubuntu/ wily/main base-files amd64 7.2ubuntu10 [68.2 kB] Get:2 http://ftpmaster.internal/ubuntu/ wily/main debianutils amd64 4.5 [85.1 kB] Get:3 http://ftpmaster.internal/ubuntu/ wily/main dpkg amd64 1.17.25ubuntu1 [2220 kB] Get:4 http://ftpmaster.internal/ubuntu/ wily/main libapparmor1 amd64 2.9.1-0ubuntu9 [24.7 kB] Get:5 http://ftpmaster.internal/ubuntu/ wily/main libdevmapper1.02.1 amd64 2:1.02.90-2ubuntu1 [118 kB] Get:6 http://ftpmaster.internal/ubuntu/ wily/main dmsetup amd64 2:1.02.90-2ubuntu1 [40.1 kB] Get:7 http://ftpmaster.internal/ubuntu/ wily/main libudev1 amd64 219-7ubuntu4 [40.8 kB] Get:8 http://ftpmaster.internal/ubuntu/ wily/main libcryptsetup4 amd64 2:1.6.1-1ubuntu7 [68.1 kB] Get:9 http://ftpmaster.internal/ubuntu/ wily/main libkmod2 amd64 18-3ubuntu1 [39.7 kB] Get:10 http://ftpmaster.internal/ubuntu/ wily/main libsystemd0 amd64 219-7ubuntu4 [73.8 kB] Get:11 http://ftpmaster.internal/ubuntu/ wily-proposed/main perl amd64 5.20.2-4 [2631 kB] Get:12 http://ftpmaster.internal/ubuntu/ wily-proposed/main perl-base amd64 5.20.2-4 [1221 kB] Get:13 http://ftpmaster.internal/ubuntu/ wily-proposed/main perl-modules all 5.20.2-4 [2508 kB] Get:14 http://ftpmaster.internal/ubuntu/ wily/main libaudit-common all 1:2.3.7-1ubuntu2 [4176 B] Get:15 http://ftpmaster.internal/ubuntu/ wily/main libaudit1 amd64 1:2.3.7-1ubuntu2 [34.7 kB] Get:16 http://ftpmaster.internal/ubuntu/ wily/main libpam0g amd64 1.1.8-3.1ubuntu3 [58.1 kB] Get:17 http://ftpmaster.internal/ubuntu/ wily/main libpam-modules-bin amd64 1.1.8-3.1ubuntu3 [36.6 kB] Get:18 http://ftpmaster.internal/ubuntu/ wily/main libpam-modules amd64 1.1.8-3.1ubuntu3 [245 kB] Get:19 http://ftpmaster.internal/ubuntu/ wily/main passwd amd64 1:4.1.5.1-1.1ubuntu4 [760 kB] Get:20 http://ftpmaster.internal/ubuntu/ wily/main adduser all 3.113+nmu3ubuntu3 [169 kB] Get:21 http://ftpmaster.internal/ubuntu/ wily/main udev amd64 219-7ubuntu4 [929 kB] Get:22 http://ftpmaster.internal/ubuntu/ wily/main libcap2 amd64 1:2.24-8 [12.9 kB] Get:23 http://ftpmaster.internal/ubuntu/ wily/main libcap2-bin amd64 1:2.24-8 [20.3 kB] Get:24 http://ftpmaster.internal/ubuntu/ wily/main sysvinit-utils amd64 2.88dsf-53.2ubuntu12 [39.1 kB] Get:25 http://ftpmaster.internal/ubuntu/ wily/main sysv-rc all 2.88dsf-53.2ubuntu12 [36.9 kB] Get:26 http://ftpmaster.internal/ubuntu/ wily/main initscripts amd64 2.88dsf-53.2ubuntu12 [27.9 kB] Get:27 http://ftpmaster.internal/ubuntu/ wily/main systemd amd64 219-7ubuntu4 [3531 kB] Get:28 http://ftpmaster.internal/ubuntu/ wily/main systemd-sysv amd64 219-7ubuntu4 [14.0 kB] Get:29 http://ftpmaster.internal/ubuntu/ wily/main init amd64 1.22ubuntu11 [3734 B] Get:30 http://ftpmaster.internal/ubuntu/ wily/main login amd64 1:4.1.5.1-1.1ubuntu4 [302 kB] Get:31 http://ftpmaster.internal/ubuntu/ wily/main gcc-5-base amd64 5.1.1-5ubuntu1 [16.2 kB] Get:32 http://ftpmaster.internal/ubuntu/ wily/main libgcc1 amd64 1:5.1.1-5ubuntu1 [39.1 kB] Get:33 http://ftpmaster.internal/ubuntu/ wily/main libstdc++6 amd64 5.1.1-5ubuntu1 [399 kB] Get:34 http://ftpmaster.internal/ubuntu/ wily/main libapt-pkg4.12 amd64 1.0.9.7ubuntu4 [682 kB] Get:35 http://ftpmaster.internal/ubuntu/ wily/main apt amd64 1.0.9.7ubuntu4 [1004 kB] Get:36 http://ftpmaster.internal/ubuntu/ wily/main libp11-kit0 amd64 0.23.1-2 [107 kB] Get:37 http://ftpmaster.internal/ubuntu/ wily-proposed/main libsqlite3-0 amd64 3.8.9-2 [375 kB] Get:38 http://ftpmaster.internal/ubuntu/ wily-proposed/main libroken18-heimdal amd64 1.6~rc2+dfsg-10 [40.9 kB] Get:39 http://ftpmaster.internal/ubuntu/ wily-proposed/main libasn1-8-heimdal amd64 1.6~rc2+dfsg-10 [177 kB] Get:40 http://ftpmaster.internal/ubuntu/ wily/main libgssapi-krb5-2 amd64 1.12.1+dfsg-19 [119 kB] Get:41 http://ftpmaster.internal/ubuntu/ wily/main libkrb5-3 amd64 1.12.1+dfsg-19 [270 kB] Get:42 http://ftpmaster.internal/ubuntu/ wily/main libkrb5support0 amd64 1.12.1+dfsg-19 [30.1 kB] Get:43 http://ftpmaster.internal/ubuntu/ wily/main libk5crypto3 amd64 1.12.1+dfsg-19 [83.7 kB] Get:44 http://ftpmaster.internal/ubuntu/ wily/main librtmp1 amd64 2.4+20150115.gita107cef-1 [54.7 kB] Get:45 http://ftpmaster.internal/ubuntu/ wily/main libcurl3-gnutls amd64 7.38.0-3ubuntu3 [172 kB] Get:46 http://ftpmaster.internal/ubuntu/ wily-proposed/main libhcrypto4-heimdal amd64 1.6~rc2+dfsg-10 [86.0 kB] Get:47 http://ftpmaster.internal/ubuntu/ wily-proposed/main libheimbase1-heimdal amd64 1.6~rc2+dfsg-10 [29.7 kB] Get:48 http://ftpmaster.internal/ubuntu/ wily-proposed/main libwind0-heimdal amd64 1.6~rc2+dfsg-10 [48.4 kB] Get:49 http://ftpmaster.internal/ubuntu/ wily-proposed/main libhx509-5-heimdal amd64 1.6~rc2+dfsg-10 [107 kB] Get:50 http://ftpmaster.internal/ubuntu/ wily-proposed/main libkrb5-26-heimdal amd64 1.6~rc2+dfsg-10 [203 kB] Get:51 http://ftpmaster.internal/ubuntu/ wily-proposed/main libheimntlm0-heimdal amd64 1.6~rc2+dfsg-10 [15.2 kB] Get:52 http://ftpmaster.internal/ubuntu/ wily-proposed/main libgssapi3-heimdal amd64 1.6~rc2+dfsg-10 [94.5 kB] Get:53 http://ftpmaster.internal/ubuntu/ wily/main libisl13 amd64 0.14-2 [456 kB] Get:54 http://ftpmaster.internal/ubuntu/ wily/main libcloog-isl4 amd64 0.18.3-1 [60.8 kB] Get:55 http://ftpmaster.internal/ubuntu/ wily/main g++-4.9 amd64 4.9.2-10ubuntu13 [17.5 MB] Get:56 http://ftpmaster.internal/ubuntu/ wily/main gcc-4.9 amd64 4.9.2-10ubuntu13 [5650 kB] Get:57 http://ftpmaster.internal/ubuntu/ wily/main cpp-4.9 amd64 4.9.2-10ubuntu13 [5194 kB] Get:58 http://ftpmaster.internal/ubuntu/ wily/main binutils amd64 2.25-5ubuntu7 [2226 kB] Get:59 http://ftpmaster.internal/ubuntu/ wily/main libgomp1 amd64 5.1.1-5ubuntu1 [55.4 kB] Get:60 http://ftpmaster.internal/ubuntu/ wily/main libitm1 amd64 5.1.1-5ubuntu1 [27.6 kB] Get:61 http://ftpmaster.internal/ubuntu/ wily/main libatomic1 amd64 5.1.1-5ubuntu1 [9158 B] Get:62 http://ftpmaster.internal/ubuntu/ wily/main liblsan0 amd64 5.1.1-5ubuntu1 [110 kB] Get:63 http://ftpmaster.internal/ubuntu/ wily/main libtsan0 amd64 5.1.1-5ubuntu1 [251 kB] Get:64 http://ftpmaster.internal/ubuntu/ wily/main libubsan0 amd64 5.1.1-5ubuntu1 [101 kB] Get:65 http://ftpmaster.internal/ubuntu/ wily/main libcilkrts5 amd64 5.1.1-5ubuntu1 [40.4 kB] Get:66 http://ftpmaster.internal/ubuntu/ wily/main libquadmath0 amd64 5.1.1-5ubuntu1 [131 kB] Get:67 http://ftpmaster.internal/ubuntu/ wily/main libstdc++-4.9-dev amd64 4.9.2-10ubuntu13 [1125 kB] Get:68 http://ftpmaster.internal/ubuntu/ wily/main libgcc-4.9-dev amd64 4.9.2-10ubuntu13 [2077 kB] Get:69 http://ftpmaster.internal/ubuntu/ wily/main libasan1 amd64 4.9.2-10ubuntu13 [198 kB] Get:70 http://ftpmaster.internal/ubuntu/ wily/main gcc-4.9-base amd64 4.9.2-10ubuntu13 [15.9 kB] Get:71 http://ftpmaster.internal/ubuntu/ wily/main libpam-runtime all 1.1.8-3.1ubuntu3 [39.8 kB] Get:72 http://ftpmaster.internal/ubuntu/ wily/main tzdata all 2015d-1 [183 kB] Get:73 http://ftpmaster.internal/ubuntu/ wily/main apt-transport-https amd64 1.0.9.7ubuntu4 [27.3 kB] Get:74 http://ftpmaster.internal/ubuntu/ wily/main dpkg-dev all 1.17.25ubuntu1 [762 kB] Get:75 http://ftpmaster.internal/ubuntu/ wily/main libdpkg-perl all 1.17.25ubuntu1 [194 kB] Get:76 http://ftpmaster.internal/ubuntu/ wily/main patch amd64 2.7.5-1 [90.4 kB] Get:77 http://ftpmaster.internal/ubuntu/ wily/main linux-libc-dev amd64 3.19.0-16.16 [791 kB] Get:78 http://ftpmaster.internal/ubuntu/ wily/main pkg-create-dbgsym all 0.67 [8956 B] debconf: delaying package configuration, since apt-utils is not installed Fetched 56.9 MB in 2s (23.6 MB/s) (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 ... 10737 files and directories currently installed.) Preparing to unpack .../base-files_7.2ubuntu10_amd64.deb ... Unpacking base-files (7.2ubuntu10) over (7.2ubuntu8) ... Setting up base-files (7.2ubuntu10) ... Installing new version of config file /etc/issue ... Installing new version of config file /etc/issue.net ... Installing new version of config file /etc/lsb-release ... Installing new version of config file /etc/os-release ... (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 ... 10737 files and directories currently installed.) Preparing to unpack .../debianutils_4.5_amd64.deb ... Unpacking debianutils (4.5) over (4.4) ... Setting up debianutils (4.5) ... (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 ... 10736 files and directories currently installed.) Preparing to unpack .../dpkg_1.17.25ubuntu1_amd64.deb ... Unpacking dpkg (1.17.25ubuntu1) over (1.17.24ubuntu1) ... Setting up dpkg (1.17.25ubuntu1) ... Selecting previously unselected package libapparmor1:amd64. (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 10736 files and directories currently installed.) Preparing to unpack .../libapparmor1_2.9.1-0ubuntu9_amd64.deb ... Unpacking libapparmor1:amd64 (2.9.1-0ubuntu9) ... Setting up libapparmor1:amd64 (2.9.1-0ubuntu9) ... Processing triggers for libc-bin (2.21-0ubuntu4) ... Selecting previously unselected package libdevmapper1.02.1:amd64. (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 10741 files and directories currently installed.) Preparing to unpack .../libdevmapper1.02.1_2%3a1.02.90-2ubuntu1_amd64.deb ... Unpacking libdevmapper1.02.1:amd64 (2:1.02.90-2ubuntu1) ... Selecting previously unselected package dmsetup. Preparing to unpack .../dmsetup_2%3a1.02.90-2ubuntu1_amd64.deb ... Unpacking dmsetup (2:1.02.90-2ubuntu1) ... Setting up libdevmapper1.02.1:amd64 (2:1.02.90-2ubuntu1) ... Setting up dmsetup (2:1.02.90-2ubuntu1) ... Processing triggers for libc-bin (2.21-0ubuntu4) ... (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 ... 10755 files and directories currently installed.) Preparing to unpack .../libudev1_219-7ubuntu4_amd64.deb ... Unpacking libudev1:amd64 (219-7ubuntu4) over (219-6ubuntu1) ... Setting up libudev1:amd64 (219-7ubuntu4) ... Processing triggers for libc-bin (2.21-0ubuntu4) ... Selecting previously unselected package libcryptsetup4. (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 ... 10755 files and directories currently installed.) Preparing to unpack .../libcryptsetup4_2%3a1.6.1-1ubuntu7_amd64.deb ... Unpacking libcryptsetup4 (2:1.6.1-1ubuntu7) ... Setting up libcryptsetup4 (2:1.6.1-1ubuntu7) ... Processing triggers for libc-bin (2.21-0ubuntu4) ... Selecting previously unselected package libkmod2:amd64. (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 10761 files and directories currently installed.) Preparing to unpack .../libkmod2_18-3ubuntu1_amd64.deb ... Unpacking libkmod2:amd64 (18-3ubuntu1) ... Setting up libkmod2:amd64 (18-3ubuntu1) ... Processing triggers for libc-bin (2.21-0ubuntu4) ... (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 ... 10766 files and directories currently installed.) Preparing to unpack .../libsystemd0_219-7ubuntu4_amd64.deb ... Unpacking libsystemd0:amd64 (219-7ubuntu4) over (219-6ubuntu1) ... Setting up libsystemd0:amd64 (219-7ubuntu4) ... Processing triggers for libc-bin (2.21-0ubuntu4) ... (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 ... 10766 files and directories currently installed.) Preparing to unpack .../perl_5.20.2-4_amd64.deb ... Unpacking perl (5.20.2-4) over (5.20.2-2) ... Preparing to unpack .../perl-base_5.20.2-4_amd64.deb ... Unpacking perl-base (5.20.2-4) over (5.20.2-2) ... Setting up perl-base (5.20.2-4) ... (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 ... 10766 files and directories currently installed.) Preparing to unpack .../perl-modules_5.20.2-4_all.deb ... Unpacking perl-modules (5.20.2-4) over (5.20.2-2) ... Preparing to unpack .../libaudit-common_1%3a2.3.7-1ubuntu2_all.deb ... Unpacking libaudit-common (1:2.3.7-1ubuntu2) over (1:2.3.7-1ubuntu1) ... Setting up libaudit-common (1:2.3.7-1ubuntu2) ... (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 ... 10766 files and directories currently installed.) Preparing to unpack .../libaudit1_1%3a2.3.7-1ubuntu2_amd64.deb ... Unpacking libaudit1:amd64 (1:2.3.7-1ubuntu2) over (1:2.3.7-1ubuntu1) ... Setting up libaudit1:amd64 (1:2.3.7-1ubuntu2) ... Processing triggers for libc-bin (2.21-0ubuntu4) ... (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 ... 10766 files and directories currently installed.) Preparing to unpack .../libpam0g_1.1.8-3.1ubuntu3_amd64.deb ... Unpacking libpam0g:amd64 (1.1.8-3.1ubuntu3) over (1.1.8-3.1ubuntu2) ... Setting up libpam0g:amd64 (1.1.8-3.1ubuntu3) ... Processing triggers for libc-bin (2.21-0ubuntu4) ... (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 ... 10766 files and directories currently installed.) Preparing to unpack .../libpam-modules-bin_1.1.8-3.1ubuntu3_amd64.deb ... Unpacking libpam-modules-bin (1.1.8-3.1ubuntu3) over (1.1.8-3.1ubuntu2) ... Setting up libpam-modules-bin (1.1.8-3.1ubuntu3) ... (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 ... 10766 files and directories currently installed.) Preparing to unpack .../libpam-modules_1.1.8-3.1ubuntu3_amd64.deb ... Unpacking libpam-modules:amd64 (1.1.8-3.1ubuntu3) over (1.1.8-3.1ubuntu2) ... Setting up libpam-modules:amd64 (1.1.8-3.1ubuntu3) ... (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 ... 10766 files and directories currently installed.) Preparing to unpack .../passwd_1%3a4.1.5.1-1.1ubuntu4_amd64.deb ... Unpacking passwd (1:4.1.5.1-1.1ubuntu4) over (1:4.1.5.1-1.1ubuntu3) ... Setting up passwd (1:4.1.5.1-1.1ubuntu4) ... Selecting previously unselected package adduser. (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 ... 10766 files and directories currently installed.) Preparing to unpack .../adduser_3.113+nmu3ubuntu3_all.deb ... Unpacking adduser (3.113+nmu3ubuntu3) ... Setting up adduser (3.113+nmu3ubuntu3) ... Selecting previously unselected package udev. (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 ... 10855 files and directories currently installed.) Preparing to unpack .../udev_219-7ubuntu4_amd64.deb ... Unpacking udev (219-7ubuntu4) ... Setting up udev (219-7ubuntu4) ... A chroot environment has been detected, udev not started. (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 ... 10973 files and directories currently installed.) Preparing to unpack .../libcap2_1%3a2.24-8_amd64.deb ... Unpacking libcap2:amd64 (1:2.24-8) over (1:2.24-6) ... Setting up libcap2:amd64 (1:2.24-8) ... Processing triggers for libc-bin (2.21-0ubuntu4) ... Selecting previously unselected package libcap2-bin. (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 ... 10973 files and directories currently installed.) Preparing to unpack .../libcap2-bin_1%3a2.24-8_amd64.deb ... Unpacking libcap2-bin (1:2.24-8) ... Setting up libcap2-bin (1:2.24-8) ... (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 ... 10987 files and directories currently installed.) Preparing to unpack .../sysvinit-utils_2.88dsf-53.2ubuntu12_amd64.deb ... Unpacking sysvinit-utils (2.88dsf-53.2ubuntu12) over (2.88dsf-53.2ubuntu11) ... Setting up sysvinit-utils (2.88dsf-53.2ubuntu12) ... (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 ... 10987 files and directories currently installed.) Preparing to unpack .../sysv-rc_2.88dsf-53.2ubuntu12_all.deb ... Unpacking sysv-rc (2.88dsf-53.2ubuntu12) over (2.88dsf-53.2ubuntu11) ... Setting up sysv-rc (2.88dsf-53.2ubuntu12) ... (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 ... 10987 files and directories currently installed.) Preparing to unpack .../initscripts_2.88dsf-53.2ubuntu12_amd64.deb ... Unpacking initscripts (2.88dsf-53.2ubuntu12) over (2.88dsf-53.2ubuntu11) ... Setting up initscripts (2.88dsf-53.2ubuntu12) ... Selecting previously unselected package systemd. (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 ... 10987 files and directories currently installed.) Preparing to unpack .../systemd_219-7ubuntu4_amd64.deb ... Unpacking systemd (219-7ubuntu4) ... Setting up systemd (219-7ubuntu4) ... Created symlink from /etc/systemd/system/getty.target.wants/getty@tty1.service to /lib/systemd/system/getty@.service. Created symlink from /etc/systemd/system/multi-user.target.wants/remote-fs.target to /lib/systemd/system/remote-fs.target. Created symlink from /etc/systemd/system/sysinit.target.wants/systemd-timesyncd.service to /lib/systemd/system/systemd-timesyncd.service. Initializing machine ID from random generator. Selecting previously unselected package systemd-sysv. (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 ... 11648 files and directories currently installed.) Preparing to unpack .../systemd-sysv_219-7ubuntu4_amd64.deb ... Unpacking systemd-sysv (219-7ubuntu4) ... Setting up systemd-sysv (219-7ubuntu4) ... Selecting previously unselected package init. (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 ... 11665 files and directories currently installed.) Preparing to unpack .../init_1.22ubuntu11_amd64.deb ... Unpacking init (1.22ubuntu11) ... Setting up init (1.22ubuntu11) ... (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 ... 11668 files and directories currently installed.) Preparing to unpack .../login_1%3a4.1.5.1-1.1ubuntu4_amd64.deb ... Unpacking login (1:4.1.5.1-1.1ubuntu4) over (1:4.1.5.1-1.1ubuntu3) ... Setting up login (1:4.1.5.1-1.1ubuntu4) ... (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 ... 11668 files and directories currently installed.) Preparing to unpack .../gcc-5-base_5.1.1-5ubuntu1_amd64.deb ... Unpacking gcc-5-base:amd64 (5.1.1-5ubuntu1) over (5-20150401-0ubuntu1) ... Setting up gcc-5-base:amd64 (5.1.1-5ubuntu1) ... (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 ... 11668 files and directories currently installed.) Preparing to unpack .../libgcc1_1%3a5.1.1-5ubuntu1_amd64.deb ... Unpacking libgcc1:amd64 (1:5.1.1-5ubuntu1) over (1:5-20150401-0ubuntu1) ... Setting up libgcc1:amd64 (1:5.1.1-5ubuntu1) ... Processing triggers for libc-bin (2.21-0ubuntu4) ... (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 ... 11668 files and directories currently installed.) Preparing to unpack .../libstdc++6_5.1.1-5ubuntu1_amd64.deb ... Unpacking libstdc++6:amd64 (5.1.1-5ubuntu1) over (4.9.2-10ubuntu12) ... Setting up libstdc++6:amd64 (5.1.1-5ubuntu1) ... Processing triggers for libc-bin (2.21-0ubuntu4) ... (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 ... 11669 files and directories currently installed.) Preparing to unpack .../libapt-pkg4.12_1.0.9.7ubuntu4_amd64.deb ... Unpacking libapt-pkg4.12:amd64 (1.0.9.7ubuntu4) over (1.0.9.7ubuntu3) ... Setting up libapt-pkg4.12:amd64 (1.0.9.7ubuntu4) ... Processing triggers for libc-bin (2.21-0ubuntu4) ... (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 ... 11669 files and directories currently installed.) Preparing to unpack .../apt_1.0.9.7ubuntu4_amd64.deb ... Unpacking apt (1.0.9.7ubuntu4) over (1.0.9.7ubuntu3) ... Setting up apt (1.0.9.7ubuntu4) ... Processing triggers for libc-bin (2.21-0ubuntu4) ... (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 ... 11669 files and directories currently installed.) Preparing to unpack .../libp11-kit0_0.23.1-2_amd64.deb ... Unpacking libp11-kit0:amd64 (0.23.1-2) over (0.20.7-1) ... Preparing to unpack .../libsqlite3-0_3.8.9-2_amd64.deb ... Unpacking libsqlite3-0:amd64 (3.8.9-2) over (3.8.7.4-1) ... Preparing to unpack .../libroken18-heimdal_1.6~rc2+dfsg-10_amd64.deb ... Unpacking libroken18-heimdal:amd64 (1.6~rc2+dfsg-10) over (1.6~rc2+dfsg-9) ... Preparing to unpack .../libasn1-8-heimdal_1.6~rc2+dfsg-10_amd64.deb ... Unpacking libasn1-8-heimdal:amd64 (1.6~rc2+dfsg-10) over (1.6~rc2+dfsg-9) ... Preparing to unpack .../libgssapi-krb5-2_1.12.1+dfsg-19_amd64.deb ... Unpacking libgssapi-krb5-2:amd64 (1.12.1+dfsg-19) over (1.12.1+dfsg-18) ... Preparing to unpack .../libkrb5-3_1.12.1+dfsg-19_amd64.deb ... Unpacking libkrb5-3:amd64 (1.12.1+dfsg-19) over (1.12.1+dfsg-18) ... Preparing to unpack .../libkrb5support0_1.12.1+dfsg-19_amd64.deb ... Unpacking libkrb5support0:amd64 (1.12.1+dfsg-19) over (1.12.1+dfsg-18) ... Preparing to unpack .../libk5crypto3_1.12.1+dfsg-19_amd64.deb ... Unpacking libk5crypto3:amd64 (1.12.1+dfsg-19) over (1.12.1+dfsg-18) ... Preparing to unpack .../librtmp1_2.4+20150115.gita107cef-1_amd64.deb ... Unpacking librtmp1:amd64 (2.4+20150115.gita107cef-1) over (2.4+20131018.git79459a2-5) ... Preparing to unpack .../libcurl3-gnutls_7.38.0-3ubuntu3_amd64.deb ... Unpacking libcurl3-gnutls:amd64 (7.38.0-3ubuntu3) over (7.38.0-3ubuntu2) ... Preparing to unpack .../libhcrypto4-heimdal_1.6~rc2+dfsg-10_amd64.deb ... Unpacking libhcrypto4-heimdal:amd64 (1.6~rc2+dfsg-10) over (1.6~rc2+dfsg-9) ... Preparing to unpack .../libheimbase1-heimdal_1.6~rc2+dfsg-10_amd64.deb ... Unpacking libheimbase1-heimdal:amd64 (1.6~rc2+dfsg-10) over (1.6~rc2+dfsg-9) ... Preparing to unpack .../libwind0-heimdal_1.6~rc2+dfsg-10_amd64.deb ... Unpacking libwind0-heimdal:amd64 (1.6~rc2+dfsg-10) over (1.6~rc2+dfsg-9) ... Preparing to unpack .../libhx509-5-heimdal_1.6~rc2+dfsg-10_amd64.deb ... Unpacking libhx509-5-heimdal:amd64 (1.6~rc2+dfsg-10) over (1.6~rc2+dfsg-9) ... Preparing to unpack .../libkrb5-26-heimdal_1.6~rc2+dfsg-10_amd64.deb ... Unpacking libkrb5-26-heimdal:amd64 (1.6~rc2+dfsg-10) over (1.6~rc2+dfsg-9) ... Preparing to unpack .../libheimntlm0-heimdal_1.6~rc2+dfsg-10_amd64.deb ... Unpacking libheimntlm0-heimdal:amd64 (1.6~rc2+dfsg-10) over (1.6~rc2+dfsg-9) ... Preparing to unpack .../libgssapi3-heimdal_1.6~rc2+dfsg-10_amd64.deb ... Unpacking libgssapi3-heimdal:amd64 (1.6~rc2+dfsg-10) over (1.6~rc2+dfsg-9) ... Preparing to unpack .../libisl13_0.14-2_amd64.deb ... Unpacking libisl13:amd64 (0.14-2) over (0.14-1) ... Preparing to unpack .../libcloog-isl4_0.18.3-1_amd64.deb ... Unpacking libcloog-isl4:amd64 (0.18.3-1) over (0.18.2-3) ... Preparing to unpack .../g++-4.9_4.9.2-10ubuntu13_amd64.deb ... Unpacking g++-4.9 (4.9.2-10ubuntu13) over (4.9.2-10ubuntu12) ... Preparing to unpack .../gcc-4.9_4.9.2-10ubuntu13_amd64.deb ... Unpacking gcc-4.9 (4.9.2-10ubuntu13) over (4.9.2-10ubuntu12) ... Preparing to unpack .../cpp-4.9_4.9.2-10ubuntu13_amd64.deb ... Unpacking cpp-4.9 (4.9.2-10ubuntu13) over (4.9.2-10ubuntu12) ... Preparing to unpack .../binutils_2.25-5ubuntu7_amd64.deb ... Unpacking binutils (2.25-5ubuntu7) over (2.25-5ubuntu6) ... Preparing to unpack .../libgomp1_5.1.1-5ubuntu1_amd64.deb ... Unpacking libgomp1:amd64 (5.1.1-5ubuntu1) over (4.9.2-10ubuntu12) ... Preparing to unpack .../libitm1_5.1.1-5ubuntu1_amd64.deb ... Unpacking libitm1:amd64 (5.1.1-5ubuntu1) over (4.9.2-10ubuntu12) ... Preparing to unpack .../libatomic1_5.1.1-5ubuntu1_amd64.deb ... Unpacking libatomic1:amd64 (5.1.1-5ubuntu1) over (4.9.2-10ubuntu12) ... Preparing to unpack .../liblsan0_5.1.1-5ubuntu1_amd64.deb ... Unpacking liblsan0:amd64 (5.1.1-5ubuntu1) over (4.9.2-10ubuntu12) ... Preparing to unpack .../libtsan0_5.1.1-5ubuntu1_amd64.deb ... Unpacking libtsan0:amd64 (5.1.1-5ubuntu1) over (4.9.2-10ubuntu12) ... Preparing to unpack .../libubsan0_5.1.1-5ubuntu1_amd64.deb ... Unpacking libubsan0:amd64 (5.1.1-5ubuntu1) over (4.9.2-10ubuntu12) ... Preparing to unpack .../libcilkrts5_5.1.1-5ubuntu1_amd64.deb ... Unpacking libcilkrts5:amd64 (5.1.1-5ubuntu1) over (4.9.2-10ubuntu12) ... Preparing to unpack .../libquadmath0_5.1.1-5ubuntu1_amd64.deb ... Unpacking libquadmath0:amd64 (5.1.1-5ubuntu1) over (4.9.2-10ubuntu12) ... Preparing to unpack .../libstdc++-4.9-dev_4.9.2-10ubuntu13_amd64.deb ... Unpacking libstdc++-4.9-dev:amd64 (4.9.2-10ubuntu13) over (4.9.2-10ubuntu12) ... Preparing to unpack .../libgcc-4.9-dev_4.9.2-10ubuntu13_amd64.deb ... Unpacking libgcc-4.9-dev:amd64 (4.9.2-10ubuntu13) over (4.9.2-10ubuntu12) ... Preparing to unpack .../libasan1_4.9.2-10ubuntu13_amd64.deb ... Unpacking libasan1:amd64 (4.9.2-10ubuntu13) over (4.9.2-10ubuntu12) ... Preparing to unpack .../gcc-4.9-base_4.9.2-10ubuntu13_amd64.deb ... Unpacking gcc-4.9-base:amd64 (4.9.2-10ubuntu13) over (4.9.2-10ubuntu12) ... Preparing to unpack .../libpam-runtime_1.1.8-3.1ubuntu3_all.deb ... Unpacking libpam-runtime (1.1.8-3.1ubuntu3) over (1.1.8-3.1ubuntu2) ... Setting up libpam-runtime (1.1.8-3.1ubuntu3) ... (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 ... 11669 files and directories currently installed.) Preparing to unpack .../tzdata_2015d-1_all.deb ... Unpacking tzdata (2015d-1) over (2015b-1) ... Setting up tzdata (2015d-1) ... Current default time zone: 'Etc/UTC' Local time is now: Thu May 7 02:23:25 UTC 2015. Universal Time is now: Thu May 7 02:23:25 UTC 2015. Run 'dpkg-reconfigure tzdata' if you wish to change it. (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 ... 11671 files and directories currently installed.) Preparing to unpack .../apt-transport-https_1.0.9.7ubuntu4_amd64.deb ... Unpacking apt-transport-https (1.0.9.7ubuntu4) over (1.0.9.7ubuntu3) ... Preparing to unpack .../dpkg-dev_1.17.25ubuntu1_all.deb ... Unpacking dpkg-dev (1.17.25ubuntu1) over (1.17.24ubuntu1) ... Preparing to unpack .../libdpkg-perl_1.17.25ubuntu1_all.deb ... Unpacking libdpkg-perl (1.17.25ubuntu1) over (1.17.24ubuntu1) ... Preparing to unpack .../patch_2.7.5-1_amd64.deb ... Unpacking patch (2.7.5-1) over (2.7.4-2) ... Preparing to unpack .../linux-libc-dev_3.19.0-16.16_amd64.deb ... Unpacking linux-libc-dev:amd64 (3.19.0-16.16) over (3.19.0-11.11) ... Preparing to unpack .../pkg-create-dbgsym_0.67_all.deb ... Unpacking pkg-create-dbgsym (0.67) over (0.65) ... Setting up perl-modules (5.20.2-4) ... Setting up perl (5.20.2-4) ... Setting up libp11-kit0:amd64 (0.23.1-2) ... Setting up libsqlite3-0:amd64 (3.8.9-2) ... Setting up libroken18-heimdal:amd64 (1.6~rc2+dfsg-10) ... Setting up libasn1-8-heimdal:amd64 (1.6~rc2+dfsg-10) ... Setting up libkrb5support0:amd64 (1.12.1+dfsg-19) ... Setting up libk5crypto3:amd64 (1.12.1+dfsg-19) ... Setting up libkrb5-3:amd64 (1.12.1+dfsg-19) ... Setting up libgssapi-krb5-2:amd64 (1.12.1+dfsg-19) ... Setting up librtmp1:amd64 (2.4+20150115.gita107cef-1) ... Setting up libcurl3-gnutls:amd64 (7.38.0-3ubuntu3) ... Setting up libhcrypto4-heimdal:amd64 (1.6~rc2+dfsg-10) ... Setting up libheimbase1-heimdal:amd64 (1.6~rc2+dfsg-10) ... Setting up libwind0-heimdal:amd64 (1.6~rc2+dfsg-10) ... Setting up libhx509-5-heimdal:amd64 (1.6~rc2+dfsg-10) ... Setting up libkrb5-26-heimdal:amd64 (1.6~rc2+dfsg-10) ... Setting up libheimntlm0-heimdal:amd64 (1.6~rc2+dfsg-10) ... Setting up libgssapi3-heimdal:amd64 (1.6~rc2+dfsg-10) ... Setting up libisl13:amd64 (0.14-2) ... Setting up libcloog-isl4:amd64 (0.18.3-1) ... Setting up gcc-4.9-base:amd64 (4.9.2-10ubuntu13) ... Setting up cpp-4.9 (4.9.2-10ubuntu13) ... Setting up binutils (2.25-5ubuntu7) ... Setting up libgomp1:amd64 (5.1.1-5ubuntu1) ... Setting up libitm1:amd64 (5.1.1-5ubuntu1) ... Setting up libatomic1:amd64 (5.1.1-5ubuntu1) ... Setting up libasan1:amd64 (4.9.2-10ubuntu13) ... Setting up liblsan0:amd64 (5.1.1-5ubuntu1) ... Setting up libtsan0:amd64 (5.1.1-5ubuntu1) ... Setting up libubsan0:amd64 (5.1.1-5ubuntu1) ... Setting up libcilkrts5:amd64 (5.1.1-5ubuntu1) ... Setting up libquadmath0:amd64 (5.1.1-5ubuntu1) ... Setting up libgcc-4.9-dev:amd64 (4.9.2-10ubuntu13) ... Setting up gcc-4.9 (4.9.2-10ubuntu13) ... Setting up libstdc++-4.9-dev:amd64 (4.9.2-10ubuntu13) ... Setting up g++-4.9 (4.9.2-10ubuntu13) ... Setting up apt-transport-https (1.0.9.7ubuntu4) ... Setting up libdpkg-perl (1.17.25ubuntu1) ... Setting up patch (2.7.5-1) ... Setting up dpkg-dev (1.17.25ubuntu1) ... Setting up linux-libc-dev:amd64 (3.19.0-16.16) ... Setting up pkg-create-dbgsym (0.67) ... Processing triggers for libc-bin (2.21-0ubuntu4) ... RUN: /usr/share/launchpad-buildd/slavebin/sbuild-package ['sbuild-package', 'PACKAGEBUILD-7394172', 'amd64', 'wily-proposed', '--nolog', '--batch', '--archive=ubuntu', '--dist=wily-proposed', '-A', '--purpose=PRIMARY', '--build-debug-symbols', '--architecture=amd64', '--comp=universe', 'stumpwm_0.9.9-1.dsc'] Initiating build PACKAGEBUILD-7394172 with 8 jobs across 8 processor cores. Kernel reported to sbuild: 3.2.0-77-generic #112-Ubuntu SMP Tue Feb 10 15:22:22 UTC 2015 x86_64 Automatic build of stumpwm_0.9.9-1 on roseapple by sbuild/amd64 1.170.5 Build started at 20150507-0223 ****************************************************************************** stumpwm_0.9.9-1.dsc exists in cwd ** Using build dependencies supplied by package: Build-Depends: debhelper (>= 7.0.0) Build-Depends-Indep: dh-lisp, texinfo, autoconf, sbcl, cl-clx-sbcl, cl-asdf, cl-ppcre Checking for already installed source dependencies... debhelper: missing dh-lisp: missing texinfo: missing autoconf: missing sbcl: missing cl-clx-sbcl: missing cl-asdf: missing cl-ppcre: missing Checking for source dependency conflicts... /usr/bin/sudo /usr/bin/apt-get --purge $CHROOT_OPTIONS -q -y install debhelper dh-lisp texinfo autoconf sbcl cl-clx-sbcl cl-asdf cl-ppcre Reading package lists... Building dependency tree... Reading state information... The following extra packages will be installed: bsdmainutils common-lisp-controller dh-apparmor file gettext gettext-base groff-base intltool-debian libasprintf0c2 libcroco3 libglib2.0-0 libicu52 libintl-perl libmagic1 libpipeline1 libsigsegv2 libtext-unidecode-perl libunistring0 libxml-libxml-perl libxml-namespacesupport-perl libxml-sax-base-perl libxml-sax-perl libxml2 m4 man-db po-debconf realpath ucf Suggested packages: autoconf-archive gnu-standards autoconf-doc libtool wamerican wordlist whois vacation cl-launch darcs dh-make apparmor-easyprof gettext-doc groff libintl-xs-perl less www-browser libmail-box-perl sbcl-doc sbcl-source slime texlive-base texlive-latex-base texlive-generic-recommended texinfo-doc-nonfree Recommended packages: automake automaken curl wget lynx-cur libasprintf-dev libgettextpo-dev libglib2.0-data shared-mime-info xdg-user-dirs libxml-sax-expat-perl xml-core libmail-sendmail-perl binfmt-support The following NEW packages will be installed: autoconf bsdmainutils cl-asdf cl-clx-sbcl cl-ppcre common-lisp-controller debhelper dh-apparmor dh-lisp file gettext gettext-base groff-base intltool-debian libasprintf0c2 libcroco3 libglib2.0-0 libicu52 libintl-perl libmagic1 libpipeline1 libsigsegv2 libtext-unidecode-perl libunistring0 libxml-libxml-perl libxml-namespacesupport-perl libxml-sax-base-perl libxml-sax-perl libxml2 m4 man-db po-debconf realpath sbcl texinfo ucf 0 upgraded, 36 newly installed, 0 to remove and 0 not upgraded. Need to get 26.0 MB of archives. After this operation, 140 MB of additional disk space will be used. Get:1 http://ftpmaster.internal/ubuntu/ wily/main libmagic1 amd64 1:5.20-1ubuntu2 [208 kB] Get:2 http://ftpmaster.internal/ubuntu/ wily/main libasprintf0c2 amd64 0.19.2-2ubuntu1 [6296 B] Get:3 http://ftpmaster.internal/ubuntu/ wily/main libglib2.0-0 amd64 2.44.0-1ubuntu3 [1104 kB] Get:4 http://ftpmaster.internal/ubuntu/ wily/main libicu52 amd64 52.1-8 [6781 kB] Get:5 http://ftpmaster.internal/ubuntu/ wily/main libpipeline1 amd64 1.4.0-1 [25.2 kB] Get:6 http://ftpmaster.internal/ubuntu/ wily/main libxml2 amd64 2.9.2+dfsg1-3 [714 kB] Get:7 http://ftpmaster.internal/ubuntu/ wily/main groff-base amd64 1.22.3-1 [1183 kB] Get:8 http://ftpmaster.internal/ubuntu/ wily/main bsdmainutils amd64 9.0.6ubuntu1 [175 kB] Get:9 http://ftpmaster.internal/ubuntu/ wily/main man-db amd64 2.7.0.2-5 [863 kB] Get:10 http://ftpmaster.internal/ubuntu/ wily/main libcroco3 amd64 0.6.8-3 [83.2 kB] Get:11 http://ftpmaster.internal/ubuntu/ wily/main libsigsegv2 amd64 2.10-4 [14.1 kB] Get:12 http://ftpmaster.internal/ubuntu/ wily/main libunistring0 amd64 0.9.3-5.2ubuntu1 [279 kB] Get:13 http://ftpmaster.internal/ubuntu/ wily/main file amd64 1:5.20-1ubuntu2 [20.1 kB] Get:14 http://ftpmaster.internal/ubuntu/ wily/main ucf all 3.0030 [55.5 kB] Get:15 http://ftpmaster.internal/ubuntu/ wily/main gettext-base amd64 0.19.2-2ubuntu1 [48.3 kB] Get:16 http://ftpmaster.internal/ubuntu/ wily/main m4 amd64 1.4.17-4 [193 kB] Get:17 http://ftpmaster.internal/ubuntu/ wily/main autoconf all 2.69-8 [321 kB] Get:18 http://ftpmaster.internal/ubuntu/ wily/universe cl-asdf all 2:3.1.4-1 [825 kB] Get:19 http://ftpmaster.internal/ubuntu/ wily/main realpath all 8.23-3ubuntu1 [2782 B] Get:20 http://ftpmaster.internal/ubuntu/ wily/universe common-lisp-controller all 7.10 [22.6 kB] Get:21 http://ftpmaster.internal/ubuntu/ wily/universe cl-clx-sbcl amd64 0.7.4-5 [451 kB] Get:22 http://ftpmaster.internal/ubuntu/ wily/universe cl-ppcre all 2.0.3-1 [96.1 kB] Get:23 http://ftpmaster.internal/ubuntu/ wily/main gettext amd64 0.19.2-2ubuntu1 [851 kB] Get:24 http://ftpmaster.internal/ubuntu/ wily/main intltool-debian all 0.35.0+20060710.2 [24.5 kB] Get:25 http://ftpmaster.internal/ubuntu/ wily/main po-debconf all 1.0.18 [234 kB] Get:26 http://ftpmaster.internal/ubuntu/ wily/main dh-apparmor all 2.9.1-0ubuntu9 [11.1 kB] Get:27 http://ftpmaster.internal/ubuntu/ wily/main debhelper all 9.20150101ubuntu1 [727 kB] Get:28 http://ftpmaster.internal/ubuntu/ wily/universe dh-lisp all 0.7.1 [9562 B] Get:29 http://ftpmaster.internal/ubuntu/ wily/main libintl-perl all 1.23-1build2 [817 kB] Get:30 http://ftpmaster.internal/ubuntu/ wily/main libtext-unidecode-perl all 1.22-1 [100 kB] Get:31 http://ftpmaster.internal/ubuntu/ wily/main libxml-namespacesupport-perl all 1.11-1 [13.2 kB] Get:32 http://ftpmaster.internal/ubuntu/ wily/main libxml-sax-base-perl all 1.07-1 [21.5 kB] Get:33 http://ftpmaster.internal/ubuntu/ wily/main libxml-sax-perl all 0.99+dfsg-2ubuntu1 [64.6 kB] Get:34 http://ftpmaster.internal/ubuntu/ wily-proposed/main libxml-libxml-perl amd64 2.0116+dfsg-3 [343 kB] Get:35 http://ftpmaster.internal/ubuntu/ wily/universe sbcl amd64 2:1.2.4-2ubuntu1 [8785 kB] Get:36 http://ftpmaster.internal/ubuntu/ wily/main texinfo amd64 5.2.0.dfsg.1-6 [565 kB] debconf: delaying package configuration, since apt-utils is not installed Fetched 26.0 MB in 1s (21.3 MB/s) Selecting previously unselected package libmagic1:amd64. (Reading database ... (Reading database ... 5% (Reading database ... 10% (Reading database ... 15% (Reading database ... 20% (Reading database ... 25% (Reading database ... 30% (Reading database ... 35% (Reading database ... 40% (Reading database ... 45% (Reading database ... 50% (Reading database ... 55% (Reading database ... 60% (Reading database ... 65% (Reading database ... 70% (Reading database ... 75% (Reading database ... 80% (Reading database ... 85% (Reading database ... 90% (Reading database ... 95% (Reading database ... 100% (Reading database ... 11673 files and directories currently installed.) Preparing to unpack .../libmagic1_1%3a5.20-1ubuntu2_amd64.deb ... Unpacking libmagic1:amd64 (1:5.20-1ubuntu2) ... Selecting previously unselected package libasprintf0c2:amd64. Preparing to unpack .../libasprintf0c2_0.19.2-2ubuntu1_amd64.deb ... Unpacking libasprintf0c2:amd64 (0.19.2-2ubuntu1) ... Selecting previously unselected package libglib2.0-0:amd64. Preparing to unpack .../libglib2.0-0_2.44.0-1ubuntu3_amd64.deb ... Unpacking libglib2.0-0:amd64 (2.44.0-1ubuntu3) ... Selecting previously unselected package libicu52:amd64. Preparing to unpack .../libicu52_52.1-8_amd64.deb ... Unpacking libicu52:amd64 (52.1-8) ... Selecting previously unselected package libpipeline1:amd64. Preparing to unpack .../libpipeline1_1.4.0-1_amd64.deb ... Unpacking libpipeline1:amd64 (1.4.0-1) ... Selecting previously unselected package libxml2:amd64. Preparing to unpack .../libxml2_2.9.2+dfsg1-3_amd64.deb ... Unpacking libxml2:amd64 (2.9.2+dfsg1-3) ... Selecting previously unselected package groff-base. Preparing to unpack .../groff-base_1.22.3-1_amd64.deb ... Unpacking groff-base (1.22.3-1) ... Selecting previously unselected package bsdmainutils. Preparing to unpack .../bsdmainutils_9.0.6ubuntu1_amd64.deb ... Unpacking bsdmainutils (9.0.6ubuntu1) ... Selecting previously unselected package man-db. Preparing to unpack .../man-db_2.7.0.2-5_amd64.deb ... Unpacking man-db (2.7.0.2-5) ... Selecting previously unselected package libcroco3:amd64. Preparing to unpack .../libcroco3_0.6.8-3_amd64.deb ... Unpacking libcroco3:amd64 (0.6.8-3) ... Selecting previously unselected package libsigsegv2:amd64. Preparing to unpack .../libsigsegv2_2.10-4_amd64.deb ... Unpacking libsigsegv2:amd64 (2.10-4) ... Selecting previously unselected package libunistring0:amd64. Preparing to unpack .../libunistring0_0.9.3-5.2ubuntu1_amd64.deb ... Unpacking libunistring0:amd64 (0.9.3-5.2ubuntu1) ... Selecting previously unselected package file. Preparing to unpack .../file_1%3a5.20-1ubuntu2_amd64.deb ... Unpacking file (1:5.20-1ubuntu2) ... Selecting previously unselected package ucf. Preparing to unpack .../archives/ucf_3.0030_all.deb ... Moving old data out of the way Unpacking ucf (3.0030) ... Selecting previously unselected package gettext-base. Preparing to unpack .../gettext-base_0.19.2-2ubuntu1_amd64.deb ... Unpacking gettext-base (0.19.2-2ubuntu1) ... Selecting previously unselected package m4. Preparing to unpack .../archives/m4_1.4.17-4_amd64.deb ... Unpacking m4 (1.4.17-4) ... Selecting previously unselected package autoconf. Preparing to unpack .../autoconf_2.69-8_all.deb ... Unpacking autoconf (2.69-8) ... Selecting previously unselected package cl-asdf. Preparing to unpack .../cl-asdf_2%3a3.1.4-1_all.deb ... Unpacking cl-asdf (2:3.1.4-1) ... Selecting previously unselected package realpath. Preparing to unpack .../realpath_8.23-3ubuntu1_all.deb ... Unpacking realpath (8.23-3ubuntu1) ... Selecting previously unselected package common-lisp-controller. Preparing to unpack .../common-lisp-controller_7.10_all.deb ... Unpacking common-lisp-controller (7.10) ... Selecting previously unselected package cl-clx-sbcl. Preparing to unpack .../cl-clx-sbcl_0.7.4-5_amd64.deb ... Unpacking cl-clx-sbcl (0.7.4-5) ... Selecting previously unselected package cl-ppcre. Preparing to unpack .../cl-ppcre_2.0.3-1_all.deb ... Unpacking cl-ppcre (2.0.3-1) ... Selecting previously unselected package gettext. Preparing to unpack .../gettext_0.19.2-2ubuntu1_amd64.deb ... Unpacking gettext (0.19.2-2ubuntu1) ... Selecting previously unselected package intltool-debian. Preparing to unpack .../intltool-debian_0.35.0+20060710.2_all.deb ... Unpacking intltool-debian (0.35.0+20060710.2) ... Selecting previously unselected package po-debconf. Preparing to unpack .../po-debconf_1.0.18_all.deb ... Unpacking po-debconf (1.0.18) ... Selecting previously unselected package dh-apparmor. Preparing to unpack .../dh-apparmor_2.9.1-0ubuntu9_all.deb ... Unpacking dh-apparmor (2.9.1-0ubuntu9) ... Selecting previously unselected package debhelper. Preparing to unpack .../debhelper_9.20150101ubuntu1_all.deb ... Unpacking debhelper (9.20150101ubuntu1) ... Selecting previously unselected package dh-lisp. Preparing to unpack .../archives/dh-lisp_0.7.1_all.deb ... Unpacking dh-lisp (0.7.1) ... Selecting previously unselected package libintl-perl. Preparing to unpack .../libintl-perl_1.23-1build2_all.deb ... Unpacking libintl-perl (1.23-1build2) ... Selecting previously unselected package libtext-unidecode-perl. Preparing to unpack .../libtext-unidecode-perl_1.22-1_all.deb ... Unpacking libtext-unidecode-perl (1.22-1) ... Selecting previously unselected package libxml-namespacesupport-perl. Preparing to unpack .../libxml-namespacesupport-perl_1.11-1_all.deb ... Unpacking libxml-namespacesupport-perl (1.11-1) ... Selecting previously unselected package libxml-sax-base-perl. Preparing to unpack .../libxml-sax-base-perl_1.07-1_all.deb ... Unpacking libxml-sax-base-perl (1.07-1) ... Selecting previously unselected package libxml-sax-perl. Preparing to unpack .../libxml-sax-perl_0.99+dfsg-2ubuntu1_all.deb ... Unpacking libxml-sax-perl (0.99+dfsg-2ubuntu1) ... Selecting previously unselected package libxml-libxml-perl. Preparing to unpack .../libxml-libxml-perl_2.0116+dfsg-3_amd64.deb ... Unpacking libxml-libxml-perl (2.0116+dfsg-3) ... Selecting previously unselected package sbcl. Preparing to unpack .../sbcl_2%3a1.2.4-2ubuntu1_amd64.deb ... Unpacking sbcl (2:1.2.4-2ubuntu1) ... Selecting previously unselected package texinfo. Preparing to unpack .../texinfo_5.2.0.dfsg.1-6_amd64.deb ... Unpacking texinfo (5.2.0.dfsg.1-6) ... Setting up libmagic1:amd64 (1:5.20-1ubuntu2) ... Setting up libasprintf0c2:amd64 (0.19.2-2ubuntu1) ... Setting up libglib2.0-0:amd64 (2.44.0-1ubuntu3) ... No schema files found: doing nothing. Setting up libicu52:amd64 (52.1-8) ... Setting up libpipeline1:amd64 (1.4.0-1) ... Setting up libxml2:amd64 (2.9.2+dfsg1-3) ... Setting up groff-base (1.22.3-1) ... Setting up bsdmainutils (9.0.6ubuntu1) ... update-alternatives: using /usr/bin/bsd-write to provide /usr/bin/write (write) in auto mode update-alternatives: using /usr/bin/bsd-from to provide /usr/bin/from (from) in auto mode Setting up man-db (2.7.0.2-5) ... Not building database; man-db/auto-update is not 'true'. Setting up libcroco3:amd64 (0.6.8-3) ... Setting up libsigsegv2:amd64 (2.10-4) ... Setting up libunistring0:amd64 (0.9.3-5.2ubuntu1) ... Setting up file (1:5.20-1ubuntu2) ... Setting up ucf (3.0030) ... Setting up gettext-base (0.19.2-2ubuntu1) ... Setting up m4 (1.4.17-4) ... Setting up autoconf (2.69-8) ... Setting up cl-asdf (2:3.1.4-1) ... Setting up realpath (8.23-3ubuntu1) ... Setting up common-lisp-controller (7.10) ... Adding system user `cl-builder' (UID 105) ... Adding new group `cl-builder' (GID 110) ... Adding new user `cl-builder' (UID 105) with group `cl-builder' ... Not creating home directory `/usr/share/common-lisp/'. Setting up cl-clx-sbcl (0.7.4-5) ... Setting up cl-ppcre (2.0.3-1) ... Setting up gettext (0.19.2-2ubuntu1) ... Setting up intltool-debian (0.35.0+20060710.2) ... Setting up po-debconf (1.0.18) ... Setting up dh-apparmor (2.9.1-0ubuntu9) ... Setting up debhelper (9.20150101ubuntu1) ... Setting up dh-lisp (0.7.1) ... Setting up libintl-perl (1.23-1build2) ... Setting up libtext-unidecode-perl (1.22-1) ... Setting up libxml-namespacesupport-perl (1.11-1) ... Setting up libxml-sax-base-perl (1.07-1) ... Setting up libxml-sax-perl (0.99+dfsg-2ubuntu1) ... 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 libxml-libxml-perl (2.0116+dfsg-3) ... 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 sbcl (2:1.2.4-2ubuntu1) ... Setting up texinfo (5.2.0.dfsg.1-6) ... Processing triggers for libc-bin (2.21-0ubuntu4) ... Checking correctness of source dependencies... Toolchain package versions: libc6-dev_2.21-0ubuntu4 make_4.0-8.1 dpkg-dev_1.17.25ubuntu1 gcc-4.9_4.9.2-10ubuntu13 g++-4.9_4.9.2-10ubuntu13 binutils_2.25-5ubuntu7 libstdc++-4.9-dev_4.9.2-10ubuntu13 libstdc++6_5.1.1-5ubuntu1 ------------------------------------------------------------------------------ dpkg-source: warning: -sn is not a valid option for Dpkg::Source::Package::V3::Quilt gpgv: Signature made Fri May 1 10:01:14 2015 UTC using RSA key ID AFD89BE3 gpgv: Can't check signature: public key not found dpkg-source: warning: failed to verify signature on ./stumpwm_0.9.9-1.dsc dpkg-source: info: extracting stumpwm in stumpwm-0.9.9 dpkg-source: info: unpacking stumpwm_0.9.9.orig.tar.gz dpkg-source: info: unpacking stumpwm_0.9.9-1.debian.tar.xz dpkg-source: info: applying 04_default-to-x-terminal-emulator.diff dpkg-source: info: applying 05_default-to-x-www-browser.diff dpkg-source: info: applying 07_build-with-clisp.diff dpkg-source: info: applying 09_version.diff dpkg-buildpackage: source package stumpwm dpkg-buildpackage: source version 2:0.9.9-1 dpkg-buildpackage: source distribution unstable dpkg-source --before-build stumpwm-0.9.9 dpkg-buildpackage: host architecture amd64 /usr/bin/fakeroot debian/rules clean dh_testdir dh_testroot [ ! -f Makefile ] || /usr/bin/make clean rm -rf autom4te.cache Makefile make-image.lisp config.log config.status configure load-stumpwm.lisp dh_clean debian/rules build ./autogen.sh ./configure --with-lisp=sbcl checking for sbcl... /usr/bin/sbcl checking for clisp... no checking for ccl... no checking for ecl... no checking for lw... no configure: Using sbcl at /usr/bin/sbcl checking for makeinfo... yes checking for xdpyinfo... no configure: creating ./config.status config.status: creating Makefile configure: creating ./config.status config.status: creating Makefile config.status: creating make-image.lisp configure: creating ./config.status config.status: creating Makefile config.status: creating make-image.lisp config.status: creating load-stumpwm.lisp XDG_CACHE_HOME=/build/buildd/stumpwm-0.9.9/.cache /usr/bin/make stumpwm.info make[1]: Entering directory '/build/buildd/stumpwm-0.9.9' /usr/bin/sbcl --eval "(progn (load \"load-stumpwm.lisp\") (load \"manual.lisp\"))" --eval "(progn (stumpwm::generate-manual) (sb-ext:quit))" This is SBCL 1.2.4.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 24 OCT 2014 11:41:33 PM): ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/cl-asdf/build/asdf-TMP.fasl written ; compilation finished in 0:00:06.980 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/packages.lisp" (written 17 SEP 2009 07:17:31 PM): ; compiling (IN-PACKAGE :CL-USER) ; compiling (DEFPACKAGE :CL-PPCRE ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/packages-TMP.fasl written ; compilation finished in 0:00:00.002 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/specials.lisp" (written 28 OCT 2009 07:36:15 AM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFVAR *STANDARD-OPTIMIZE-SETTINGS* ...) ; compiling (DEFVAR *SPECIAL-OPTIMIZE-SETTINGS* ...) ; compiling (DEFVAR *EXTENDED-MODE-P* ...) ; compiling (DECLAIM (BOOLEAN *EXTENDED-MODE-P*)) ; compiling (DEFVAR *REGEX-CHAR-CODE-LIMIT* ...) ; compiling (DECLAIM (FIXNUM *REGEX-CHAR-CODE-LIMIT*)) ; compiling (DEFVAR *STRING* ...) ; compiling (DECLAIM (SIMPLE-STRING *STRING*)) ; compiling (DEFVAR *START-POS* ...) ; compiling (DECLAIM (FIXNUM *START-POS*)) ; compiling (DEFVAR *REAL-START-POS* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *END-POS* ...) ; compiling (DECLAIM (FIXNUM *END-POS*)) ; compiling (DEFVAR *REG-STARTS* ...) ; compiling (DECLAIM (SIMPLE-VECTOR *REG-STARTS*)) ; compiling (DEFVAR *REGS-MAYBE-START* ...) ; compiling (DECLAIM (SIMPLE-VECTOR *REGS-MAYBE-START*)) ; compiling (DEFVAR *REG-ENDS* ...) ; compiling (DECLAIM (SIMPLE-VECTOR *REG-ENDS*)) ; compiling (DEFVAR *END-STRING-POS* ...) ; compiling (DEFVAR *REP-NUM* ...) ; compiling (DECLAIM (FIXNUM *REP-NUM*)) ; compiling (DEFVAR *ZERO-LENGTH-NUM* ...) ; compiling (DECLAIM (FIXNUM *ZERO-LENGTH-NUM*)) ; compiling (DEFVAR *REPEAT-COUNTERS* ...) ; compiling (DECLAIM (TYPE # ...)) ; compiling (DEFVAR *LAST-POS-STORES* ...) ; compiling (DECLAIM (SIMPLE-VECTOR *LAST-POS-STORES*)) ; compiling (DEFVAR *USE-BMH-MATCHERS* ...) ; compiling (DEFVAR *OPTIMIZE-CHAR-CLASSES* ...) ; compiling (DEFVAR *PROPERTY-RESOLVER* ...) ; compiling (DEFVAR *ALLOW-QUOTING* ...) ; compiling (DEFVAR *ALLOW-NAMED-REGISTERS* ...) ; compiling (PUSHNEW :CL-PPCRE ...) ; compiling (DEFVAR *HYPERDOC-BASE-URI* ...) ; compiling (LET (#) ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/specials-TMP.fasl written ; compilation finished in 0:00:00.013 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/util.lisp" (written 28 OCT 2009 07:36:15 AM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFMACRO DEFCONSTANT ...) ; compiling (DEFMACRO WITH-UNIQUE-NAMES ...) ; compiling (DEFMACRO WITH-REBINDING ...) ; compiling (DECLAIM (INLINE DIGIT-CHAR-P)) ; compiling (DEFUN DIGIT-CHAR-P ...) ; compiling (DECLAIM (INLINE WORD-CHAR-P)) ; compiling (DEFUN WORD-CHAR-P ...) ; compiling (DEFCONSTANT +WHITESPACE-CHAR-STRING+ ...) ; compiling (DEFUN WHITESPACEP ...) ; file: /usr/share/common-lisp/source/cl-ppcre/util.lisp ; in: DEFUN WHITESPACEP ; (FIND CL-PPCRE::CHR CL-PPCRE::+WHITESPACE-CHAR-STRING+ :TEST #'CHAR=) ; --> NTH-VALUE MULTIPLE-VALUE-BIND LET ; ==> ; (SB-KERNEL:%FIND-POSITION SB-C::ITEM SEQUENCE SB-C::FROM-END SB-C::START ; SB-C::END ; (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY) ; (SB-KERNEL:EFFECTIVE-FIND-POSITION-TEST SB-C::TEST ; SB-C::TEST-NOT)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a CHARACTER. ; compiling (DEFMACRO MAYBE-COERCE-TO-SIMPLE-STRING ...) ; compiling (DECLAIM (INLINE NSUBSEQ)) ; compiling (DEFUN NSUBSEQ ...) ; compiling (DEFUN NORMALIZE-VAR-LIST ...) ; compiling (DEFUN STRING-LIST-TO-SIMPLE-STRING ...) ; file: /usr/share/common-lisp/source/cl-ppcre/util.lisp ; in: DEFUN STRING-LIST-TO-SIMPLE-STRING ; (REPLACE CL-PPCRE::RESULT-STRING STRING :START1 CL-PPCRE::CURR-POS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a SIMPLE-BASE-STRING. ; compiling (DEFUN COMPLEMENT* ...) ; file: /usr/share/common-lisp/source/cl-ppcre/util.lisp ; in: DEFUN COMPLEMENT* ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/util-TMP.fasl written ; compilation finished in 0:00:00.045 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/errors.lisp" (written 17 SEP 2009 07:17:31 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFVAR *SYNTAX-ERROR-STRING* ...) ; compiling (DEFINE-CONDITION PPCRE-ERROR ...) ; compiling (DEFINE-CONDITION PPCRE-SYNTAX-ERROR ...) ; compiling (SETF (DOCUMENTATION # ...) ...) ; compiling (SETF (DOCUMENTATION # ...) ...) ; compiling (DEFINE-CONDITION PPCRE-INVOCATION-ERROR ...) ; compiling (DEFMACRO SIGNAL-SYNTAX-ERROR* ...) ; compiling (DEFMACRO SIGNAL-SYNTAX-ERROR ...) ; compiling (DEFMACRO SIGNAL-INVOCATION-ERROR ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/errors-TMP.fasl written ; compilation finished in 0:00:00.017 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/charset.lisp" (written 17 SEP 2009 07:17:30 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFCONSTANT +PROBE-DEPTH+ ...) ; compiling (DEFUN MAKE-CHAR-VECTOR ...) ; compiling (DEFSTRUCT (CHARSET #) ...) ; compiling (DEFMETHOD MAKE-LOAD-FORM ...) ; compiling (DECLAIM (INLINE MIX)) ; compiling (DEFUN MIX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp ; in: DEFUN MIX ; (+ CL-PPCRE::CODE CL-PPCRE::HASH) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; compiling (DECLAIM (INLINE COMPUTE-INDEX)) ; compiling (DEFUN COMPUTE-INDEX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp ; in: DEFUN COMPUTE-INDEX ; (LENGTH VECTOR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) ; --> LET REM NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (TRUNCATE NUMBER SB-C::DIVISOR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> LET IF AND IF NOT IF ZEROP ; ==> ; (= REM 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR ; (RATIONAL (-4611686018427387899) ; (4611686018427387899)) ; (DOUBLE-FLOAT -4.611686018427388d18 ; 4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18 ; 4.611686e18)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET IF AND IF AND THE IF PLUSP ; ==> ; (> NUMBER 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> LET IF AND IF AND THE IF MINUSP ; ==> ; (< NUMBER 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))) ; ==> ; (+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a (OR (SINGLE-FLOAT -4.611686e18 9.223372e18) ; (DOUBLE-FLOAT -4.611686018427388d18 ; 9.223372036854776d18) ; (RATIONAL (-4611686018427387900) ; (9223372036854775798))), not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a (OR (SINGLE-FLOAT -4.611686e18 9.223372e18) ; (DOUBLE-FLOAT -4.611686018427388d18 ; 9.223372036854776d18) ; (RATIONAL (-4611686018427387900) ; (9223372036854775798))), not a RATIONAL. ; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) ; --> LET IF AND IF AND THE IF MINUSP ; ==> ; (< NUMBER 0) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; --> LET IF AND IF AND THE IF PLUSP ; ==> ; (> NUMBER 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; --> LET IF ; ==> ; (+ REM SB-C::DIVISOR) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR ; (RATIONAL (-4611686018427387899) ; (4611686018427387899)) ; (DOUBLE-FLOAT -4.611686018427388d18 ; 4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18 4.611686e18)), not a FIXNUM. ; The result is a (VALUES ; (OR (SINGLE-FLOAT -4.611686e18 9.223372e18) ; (DOUBLE-FLOAT -4.611686018427388d18 ; 9.223372036854776d18) ; (RATIONAL (-4611686018427387900) ; (9223372036854775798))) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a (OR ; (RATIONAL (-4611686018427387899) ; (4611686018427387899)) ; (DOUBLE-FLOAT -4.611686018427388d18 ; 4.611686018427388d18) ; (SINGLE-FLOAT -4.611686e18 4.611686e18)), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR (SINGLE-FLOAT -4.611686e18 9.223372e18) ; (DOUBLE-FLOAT -4.611686018427388d18 ; 9.223372036854776d18) ; (RATIONAL (-4611686018427387900) ; (9223372036854775798))) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))) ; ==> ; (+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (SINGLE-FLOAT -4.611686e18 9.223372e18) ; (DOUBLE-FLOAT -4.611686018427388d18 ; 9.223372036854776d18) ; (RATIONAL (-4611686018427387900) ; (9223372036854775798))), not a FIXNUM. ; The result is a (VALUES ; (OR ; (RATIONAL (-4611686018427387899) (9223372036854775799)) ; (DOUBLE-FLOAT -4.611686018427388d18 ; 9.223372036854776d18) ; (SINGLE-FLOAT -4.611686e18 9.223372e18)) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (SINGLE-FLOAT -4.611686e18 9.223372e18) ; (DOUBLE-FLOAT -4.611686018427388d18 ; 9.223372036854776d18) ; (RATIONAL (-4611686018427387900) ; (9223372036854775798))), not a FIXNUM. ; The result is a (VALUES ; (OR ; (RATIONAL (-4611686018427387899) (9223372036854775799)) ; (DOUBLE-FLOAT -4.611686018427388d18 ; 9.223372036854776d18) ; (SINGLE-FLOAT -4.611686e18 9.223372e18)) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN IN-CHARSET-P ...) ; compiling (DEFUN ADD-TO-CHARSET ...) ; compiling (DEFUN %ADD-TO-CHARSET ...) ; compiling (DEFUN %ADD-TO-CHARSET/EXPAND ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp ; in: DEFUN %ADD-TO-CHARSET/EXPAND ; (* 2 CL-PPCRE::NEW-SIZE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */* of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate *// of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &REST T). ; ; note: unable to ; recode as leas, shifts and adds ; due to type uncertainty: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; (>= CL-PPCRE::NEW-SIZE 371370) ; --> OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> OR LET IF OR THE = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (* 2 CL-PPCRE::NEW-SIZE) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 3) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (>= CL-PPCRE::NEW-SIZE 371370) ; --> OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (LET* ((CL-PPCRE::OLD-VECTOR (CL-PPCRE::CHARSET-VECTOR SET)) ; (CL-PPCRE::NEW-SIZE (* 2 (LENGTH CL-PPCRE::OLD-VECTOR)))) ; (TAGBODY ; :RETRY ; (MULTIPLE-VALUE-BIND (CL-PPCRE::NEW-DEPTH CL-PPCRE::NEW-VECTOR) ; (IF (>= CL-PPCRE::NEW-SIZE 371370) ; (VALUES 0 #) ; (VALUES CL-PPCRE::+PROBE-DEPTH+ #)) ; (SETF # CL-PPCRE::NEW-DEPTH ; # CL-PPCRE::NEW-VECTOR) ; (FLET (#) ; (CL-PPCRE::TRY-ADD CHAR) ; (DOTIMES # #)))) ; (INCF (CL-PPCRE::CHARSET-COUNT SET)) ; T) ; ; note: doing signed word to integer coercion (cost 20) to NEW-SIZE ; compiling (DEFUN MAP-CHARSET ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp ; in: DEFUN MAP-CHARSET ; (ZEROP (DECF CL-PPCRE::N)) ; ==> ; (= (DECF CL-PPCRE::N) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (DECF CL-PPCRE::N) ; --> LET* ; ==> ; (- CL-PPCRE::N #:G199) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; ==> ; (SETQ CL-PPCRE::N #:NEW195) ; ; note: doing signed word to integer coercion (cost 20) to N ; compiling (DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp ; in: DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> BLOCK LET LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; --> BLOCK LET LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= OR LET IF OR THE ; --> = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK LET LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; --> BLOCK LET LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= OR LET IF OR THE ; --> = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/charset-TMP.fasl written ; compilation finished in 0:00:00.073 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/charmap.lisp" (written 17 SEP 2009 07:17:30 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFSTRUCT (CHARMAP #) ...) ; compiling (DEFMETHOD MAKE-LOAD-FORM ...) ; compiling (DECLAIM (INLINE IN-CHARMAP-P)) ; compiling (DEFUN IN-CHARMAP-P ...) ; compiling (DEFUN CHARMAP-CONTENTS ...) ; compiling (DEFUN MAKE-CHARMAP ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charmap.lisp ; in: DEFUN MAKE-CHARMAP ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; compiling (DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION ...) ; file: /usr/share/common-lisp/source/cl-ppcre/charmap.lisp ; in: DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LOOP-LIMIT-235) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= OR LET IF OR THE = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= OR LET IF OR THE = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; (1- CL-PPCRE::END) ; ==> ; (- CL-PPCRE::END 1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LOOP-LIMIT-235) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/charmap-TMP.fasl written ; compilation finished in 0:00:00.060 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/chartest.lisp" (written 17 SEP 2009 07:17:30 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION ...) ; file: /usr/share/common-lisp/source/cl-ppcre/chartest.lisp ; in: DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> BLOCK LET LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; --> BLOCK LET LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= OR LET IF OR THE ; --> = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK LET LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; --> BLOCK LET LET LET SB-LOOP::LOOP-BODY TAGBODY WHEN IF >= OR LET IF OR THE ; --> = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; compiling (DEFUN CREATE-OPTIMIZED-TEST-FUNCTION ...) ; file: /usr/share/common-lisp/source/cl-ppcre/chartest.lisp ; in: DEFUN CREATE-OPTIMIZED-TEST-FUNCTION ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (TRUNCATE NUMBER SB-C::DIVISOR) ; ; note: unable to ; convert integer division to multiplication ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF NOT IF ZEROP ; ==> ; (= REM 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (RATIONAL (-2) (2)) (DOUBLE-FLOAT -2.0d0 2.0d0) ; (SINGLE-FLOAT -2.0 2.0)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF AND THE IF ; --> PLUSP ; ==> ; (> NUMBER 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (TRUNCATE NUMBER SB-C::DIVISOR) ; ; note: unable to ; convert integer division to multiplication ; due to type uncertainty: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF NOT IF ZEROP ; ==> ; (= REM 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (RATIONAL (-2) (2)) (DOUBLE-FLOAT -2.0d0 2.0d0) ; (SINGLE-FLOAT -2.0 2.0)), not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF AND THE IF ; --> PLUSP ; ==> ; (> NUMBER 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; etc. ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF AND THE IF ; --> PLUSP ; ==> ; (> NUMBER 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES ; ==> ; (+ SB-C::TRU 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (<= (HASH-TABLE-COUNT HASH-TABLE) ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)) ; --> IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST ; T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST ; T). ; etc. ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF AND IF AND THE IF ; --> PLUSP ; ==> ; (> NUMBER 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION IF VALUES ; ==> ; (+ SB-C::TRU 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (<= (CL-PPCRE::CHARSET-COUNT CL-PPCRE::CHARSET) ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)) ; --> IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a INTEGER, not a FIXNUM. ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/chartest-TMP.fasl written ; compilation finished in 0:00:00.029 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/lexer.lisp" (written 17 SEP 2009 07:17:31 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DECLAIM (INLINE MAP-CHAR-TO-SPECIAL-CLASS)) ; compiling (DEFUN MAP-CHAR-TO-SPECIAL-CHAR-CLASS ...) ; compiling (DEFSTRUCT (LEXER #) ...) ; compiling (DEFUN MAKE-LEXER ...) ; compiling (DECLAIM (INLINE END-OF-STRING-P)) ; compiling (DEFUN END-OF-STRING-P ...) ; compiling (DECLAIM (INLINE LOOKING-AT-P)) ; compiling (DEFUN LOOKING-AT-P ...) ; compiling (DECLAIM (INLINE NEXT-CHAR-NON-EXTENDED)) ; compiling (DEFUN NEXT-CHAR-NON-EXTENDED ...) ; compiling (DEFUN NEXT-CHAR ...) ; file: /usr/share/common-lisp/source/cl-ppcre/lexer.lisp ; in: DEFUN NEXT-CHAR ; (CL-PPCRE::SIGNAL-SYNTAX-ERROR* CL-PPCRE::ERROR-POS ; "Comment group not closed.") ; ==> ; (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR :POS CL-PPCRE::ERROR-POS :FORMAT-CONTROL ; "Comment group not closed." :FORMAT-ARGUMENTS (LIST)) ; ; note: doing signed word to integer coercion (cost 20) ; compiling (DECLAIM (INLINE FAIL)) ; compiling (DEFUN FAIL ...) ; compiling (DEFUN GET-NUMBER ...) ; compiling (DECLAIM (INLINE TRY-NUMBER)) ; compiling (DEFUN TRY-NUMBER ...) ; compiling (DECLAIM (INLINE MAKE-CHAR-FROM-CODE)) ; compiling (DEFUN MAKE-CHAR-FROM-CODE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/lexer.lisp ; in: DEFUN MAKE-CHAR-FROM-CODE ; (CL-PPCRE::SIGNAL-SYNTAX-ERROR* CL-PPCRE::ERROR-POS ; "No character for hex-code ~X." NUMBER) ; --> ERROR ; ==> ; CL-PPCRE::ERROR-POS ; ; note: deleting unreachable code ; compiling (DEFUN UNESCAPE-CHAR ...) ; file: /usr/share/common-lisp/source/cl-ppcre/lexer.lisp ; in: DEFUN UNESCAPE-CHAR ; (CL-PPCRE::MAKE-CHAR-FROM-CODE NUMBER CL-PPCRE::ERROR-POS) ; --> BLOCK LET OR LET IF OR THE CL-PPCRE::SIGNAL-SYNTAX-ERROR* ERROR LIST CONS ; ==> ; NUMBER ; ; note: deleting unreachable code ; ; note: deleting unreachable code ; (CHAR-UPCASE CL-PPCRE::NEXT-CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; compiling (DEFUN READ-CHAR-PROPERTY ...) ; compiling (DEFUN COLLECT-CHAR-CLASS ...) ; compiling (DEFUN MAYBE-PARSE-FLAGS ...) ; compiling (DEFUN GET-QUANTIFIER ...) ; compiling (DEFUN PARSE-REGISTER-NAME-AUX ...) ; compiling (DEFUN GET-TOKEN ...) ; file: /usr/share/common-lisp/source/cl-ppcre/lexer.lisp ; in: DEFUN GET-TOKEN ; (CL-PPCRE::SIGNAL-SYNTAX-ERROR "End of string following '(?<'.") ; --> CL-PPCRE::SIGNAL-SYNTAX-ERROR* ERROR ; ==> ; "End of string following '(?<'." ; ; note: deleting unreachable code ; (CL-PPCRE::SIGNAL-SYNTAX-ERROR* (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER)) ; "Character '~A' may not follow '(?<'." ; CL-PPCRE::NEXT-CHAR) ; ==> ; (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR :POS ; (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER)) :FORMAT-CONTROL ; "Character '~A' may not follow '(?<'." :FORMAT-ARGUMENTS ; (LIST CL-PPCRE::NEXT-CHAR)) ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20) ; (CL-PPCRE::SIGNAL-SYNTAX-ERROR* (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER)) ; "Character '~A' may not follow '(?'." ; CL-PPCRE::NEXT-CHAR) ; ==> ; (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR :POS ; (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER)) :FORMAT-CONTROL ; "Character '~A' may not follow '(?'." :FORMAT-ARGUMENTS ; (LIST CL-PPCRE::NEXT-CHAR)) ; ; note: doing signed word to integer coercion (cost 20) ; (CL-PPCRE::SIGNAL-SYNTAX-ERROR* (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER)) ; "Quantifier '~A' not allowed." ; CL-PPCRE::NEXT-CHAR) ; ==> ; (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR :POS ; (1- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER)) :FORMAT-CONTROL ; "Quantifier '~A' not allowed." :FORMAT-ARGUMENTS ; (LIST CL-PPCRE::NEXT-CHAR)) ; ; note: doing signed word to integer coercion (cost 20) ; compiling (DECLAIM (INLINE UNGET-TOKEN)) ; compiling (DEFUN UNGET-TOKEN ...) ; compiling (DECLAIM (INLINE START-OF-SUBEXPR-P)) ; compiling (DEFUN START-OF-SUBEXPR-P ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/lexer-TMP.fasl written ; compilation finished in 0:00:00.187 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/parser.lisp" (written 17 SEP 2009 07:17:31 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFUN GROUP ...) ; file: /usr/share/common-lisp/source/cl-ppcre/parser.lisp ; in: DEFUN GROUP ; (CL-PPCRE::SIGNAL-SYNTAX-ERROR* (+ CL-PPCRE::OPEN-PAREN-POS 2) ; "Opening paren has no matching closing paren.") ; ==> ; (ERROR 'CL-PPCRE:PPCRE-SYNTAX-ERROR :POS (+ CL-PPCRE::OPEN-PAREN-POS 2) ; :FORMAT-CONTROL "Opening paren has no matching closing paren." ; :FORMAT-ARGUMENTS (LIST)) ; ; note: doing signed word to integer coercion (cost 20) ; compiling (DEFUN GREEDY-QUANT ...) ; compiling (DEFUN QUANT ...) ; compiling (DEFUN SEQ ...) ; compiling (DEFUN REG-EXPR ...) ; compiling (DEFUN REVERSE-STRINGS ...) ; compiling (DEFUN PARSE-STRING ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/parser-TMP.fasl written ; compilation finished in 0:00:00.029 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class.lisp" (written 28 OCT 2009 07:36:15 AM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFCLASS REGEX ...) ; compiling (DEFCLASS SEQ ...) ; compiling (DEFCLASS ALTERNATION ...) ; compiling (DEFCLASS LOOKAHEAD ...) ; compiling (DEFCLASS LOOKBEHIND ...) ; compiling (DEFCLASS REPETITION ...) ; compiling (DEFCLASS REGISTER ...) ; compiling (DEFCLASS STANDALONE ...) ; compiling (DEFCLASS BACK-REFERENCE ...) ; compiling (DEFCLASS CHAR-CLASS ...) ; compiling (DEFCLASS STR ...) ; compiling (DEFCLASS ANCHOR ...) ; compiling (DEFCLASS EVERYTHING ...) ; compiling (DEFCLASS WORD-BOUNDARY ...) ; compiling (DEFCLASS BRANCH ...) ; compiling (DEFCLASS FILTER ...) ; compiling (DEFCLASS VOID ...) ; compiling (DEFMETHOD INITIALIZE-INSTANCE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class.lisp ; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (STR) ; (COERCE CL-PPCRE::STR-SLOT 'SIMPLE-STRING) ; --> THE IF REPLACE MAKE-ARRAY LOCALLY MAKE-ARRAY ; ==> ; (LENGTH SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> THE IF ; ==> ; (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; (LENGTH (CL-PPCRE::STR CL-PPCRE::STR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/regex-class-TMP.fasl written ; compilation finished in 0:00:00.018 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp" (written 17 SEP 2009 07:17:31 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFMETHOD LEN ...) ; compiling (DEFMETHOD STR ...) ; compiling (DEFMETHOD SKIP ...) ; compiling (DEFMETHOD START-OF-END-STRING-P ...) ; compiling (DEFGENERIC CASE-MODE ...) ; compiling (DEFMETHOD CASE-MODE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD CASE-MODE (STR T) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::STR)) ; ==> ; (= (CL-PPCRE::LEN CL-PPCRE::STR) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; compiling (DEFMETHOD CASE-MODE ...) ; compiling (DEFGENERIC COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFMETHOD COPY-REGEX ...) ; compiling (DEFGENERIC REMOVE-REGISTERS ...) ; compiling (DEFMETHOD REMOVE-REGISTERS ...) ; compiling (DEFMETHOD REMOVE-REGISTERS ...) ; compiling (DEFMETHOD REMOVE-REGISTERS ...) ; compiling (DEFMETHOD REMOVE-REGISTERS ...) ; compiling (DEFMETHOD REMOVE-REGISTERS ...) ; compiling (DEFMETHOD REMOVE-REGISTERS ...) ; compiling (DEFMETHOD REMOVE-REGISTERS ...) ; compiling (DEFMETHOD REMOVE-REGISTERS ...) ; compiling (DEFMETHOD REMOVE-REGISTERS ...) ; compiling (DEFGENERIC EVERYTHINGP ...) ; compiling (DEFMETHOD EVERYTHINGP ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD EVERYTHINGP (SEQ) ; (LENGTH CL-PPCRE::CLEANED-ELEMENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; compiling (DEFMETHOD EVERYTHINGP ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD EVERYTHINGP (ALTERNATION) ; (DEFMETHOD CL-PPCRE::EVERYTHINGP ; ((CL-PPCRE::ALTERNATION CL-PPCRE::ALTERNATION)) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (WITH-SLOTS (CL-PPCRE::CHOICES) ; CL-PPCRE::ALTERNATION ; (AND (= 1 (LENGTH CL-PPCRE::CHOICES)) ; (CL-PPCRE::EVERYTHINGP (FIRST CL-PPCRE::CHOICES))))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF = ; ==> ; (LENGTH (SB-PCL::ACCESSOR-SLOT-VALUE #:G337 'CL-PPCRE::CHOICES)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFMETHOD EVERYTHINGP ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD EVERYTHINGP (REPETITION) ; (DEFMETHOD CL-PPCRE::EVERYTHINGP ; ((CL-PPCRE::REPETITION CL-PPCRE::REPETITION)) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (WITH-SLOTS (CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM CL-PPCRE::REGEX) ; CL-PPCRE::REPETITION ; (AND CL-PPCRE::MAXIMUM (= 1 CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; (CL-PPCRE::EVERYTHINGP CL-PPCRE::REGEX)))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF = ; --> (LAMBDA (#:G351 #:G350 #:G349) (DECLARE (TYPE NUMBER #:G351 #:G350 #:G349)) (IF (= #:G351 #:G350) (IF (= #:G350 #:G349) T NIL) NIL)) ; --> SB-C::%FUNCALL IF ; ==> ; (= #:G351 #:G350) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF = ; --> (LAMBDA (#:G351 #:G350 #:G349) (DECLARE (TYPE NUMBER #:G351 #:G350 #:G349)) (IF (= #:G351 #:G350) (IF (= #:G350 #:G349) T NIL) NIL)) ; --> SB-C::%FUNCALL IF IF ; ==> ; (= #:G350 #:G349) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; compiling (DEFMETHOD EVERYTHINGP ...) ; compiling (DEFMETHOD EVERYTHINGP ...) ; compiling (DEFMETHOD EVERYTHINGP ...) ; compiling (DEFMETHOD EVERYTHINGP ...) ; compiling (DEFGENERIC REGEX-LENGTH ...) ; compiling (DEFMETHOD REGEX-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD REGEX-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-LENGTH ; CL-PPCRE::SUB-REGEX) ; IF (NOT CL-PPCRE::LEN) ; DO ...) ; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET SB-LOOP::LOOP-BODY TAGBODY SETQ ; --> THE ; ==> ; (+ #:LOOP-SUM-400 CL-PPCRE::LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; compiling (DEFMETHOD REGEX-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD REGEX-LENGTH (ALTERNATION) ; (/= CL-PPCRE::LEN CL-PPCRE::OLD-LEN) ; --> IF ; ==> ; (= CL-PPCRE::LEN CL-PPCRE::OLD-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; compiling (DEFMETHOD REGEX-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD REGEX-LENGTH (BRANCH) ; (EQL CL-PPCRE::THEN-LENGTH ; (CL-PPCRE::REGEX-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH))) ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; compiling (DEFMETHOD REGEX-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD REGEX-LENGTH (REPETITION) ; (DEFMETHOD CL-PPCRE::REGEX-LENGTH ; ((CL-PPCRE::REPETITION CL-PPCRE::REPETITION)) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (WITH-SLOTS (CL-PPCRE::LEN CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; CL-PPCRE::REPETITION ; (IF (AND CL-PPCRE::LEN (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)) ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; NIL))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF ; ==> ; (* (SB-PCL::ACCESSOR-SLOT-VALUE #:G431 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G431 'CL-PPCRE::LEN)) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; The second argument is a NUMBER, not a INTEGER. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF THE ; ==> ; (EQL (SB-PCL::ACCESSOR-SLOT-VALUE #:G431 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G431 'CL-PPCRE::MAXIMUM)) ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF ; ==> ; (* (SB-PCL::ACCESSOR-SLOT-VALUE #:G431 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G431 'CL-PPCRE::LEN)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline float arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; unable to do inline float arithmetic (cost 4) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; compiling (DEFMETHOD REGEX-LENGTH ...) ; compiling (DEFMETHOD REGEX-LENGTH ...) ; compiling (DEFMETHOD REGEX-LENGTH ...) ; compiling (DEFMETHOD REGEX-LENGTH ...) ; compiling (DEFMETHOD REGEX-LENGTH ...) ; compiling (DEFMETHOD REGEX-LENGTH ...) ; compiling (DEFMETHOD REGEX-LENGTH ...) ; compiling (DEFMETHOD REGEX-LENGTH ...) ; compiling (DEFGENERIC REGEX-MIN-LENGTH ...) ; compiling (DEFMETHOD REGEX-MIN-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD REGEX-MIN-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::SUM CL-PPCRE::LEN) ; --> BLOCK LET LET SB-LOOP::WITH-SUM-COUNT LET SB-LOOP::LOOP-BODY TAGBODY SETQ ; --> THE ; ==> ; (+ #:LOOP-SUM-517 CL-PPCRE::LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; compiling (DEFMETHOD REGEX-MIN-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD REGEX-MIN-LENGTH (ALTERNATION) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::MINIMIZE CL-PPCRE::LEN) ; --> BLOCK LET LET SB-LOOP::WITH-MINIMAX-VALUE LET SB-LOOP::LOOP-BODY TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF OR THE < ; --> IF ; ==> ; (< #:LOOP-MAXMIN-TEMP-534 #:LOOP-MAXMIN-533) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; compiling (DEFMETHOD REGEX-MIN-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD REGEX-MIN-LENGTH (BRANCH) ; (MIN (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH)) ; (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH))) ; --> LET LET IF <= OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; --> LET LET IF <= OR LET IF OR THE = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET LET IF <= OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; --> LET LET IF <= OR LET IF OR THE = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; compiling (DEFMETHOD REGEX-MIN-LENGTH ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD REGEX-MIN-LENGTH (REPETITION) ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; The second argument is a NUMBER, not a INTEGER. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline float arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; unable to do inline float arithmetic (cost 4) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; compiling (DEFMETHOD REGEX-MIN-LENGTH ...) ; compiling (DEFMETHOD REGEX-MIN-LENGTH ...) ; compiling (DEFMETHOD REGEX-MIN-LENGTH ...) ; compiling (DEFMETHOD REGEX-MIN-LENGTH ...) ; compiling (DEFMETHOD REGEX-MIN-LENGTH ...) ; compiling (DEFMETHOD REGEX-MIN-LENGTH ...) ; compiling (DEFMETHOD REGEX-MIN-LENGTH ...) ; compiling (DEFGENERIC COMPUTE-OFFSETS ...) ; compiling (DEFMETHOD COMPUTE-OFFSETS ...) ; compiling (DEFMETHOD COMPUTE-OFFSETS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD COMPUTE-OFFSETS (ALTERNATION T) ; (/= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET) ; --> IF ; ==> ; (= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; compiling (DEFMETHOD COMPUTE-OFFSETS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD COMPUTE-OFFSETS (BRANCH T) ; (EQL CL-PPCRE::THEN-OFFSET ; (CL-PPCRE::COMPUTE-OFFSETS (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::START-POS)) ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; compiling (DEFMETHOD COMPUTE-OFFSETS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD COMPUTE-OFFSETS (REPETITION T) ; (DEFMETHOD CL-PPCRE::COMPUTE-OFFSETS ; ((CL-PPCRE::REPETITION CL-PPCRE::REPETITION) CL-PPCRE::START-POS) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (WITH-SLOTS (CL-PPCRE::LEN CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; CL-PPCRE::REPETITION ; (IF (AND CL-PPCRE::LEN (EQ CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)) ; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM CL-PPCRE::LEN)) ; NIL))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF + ; ==> ; (* (SB-PCL::ACCESSOR-SLOT-VALUE #:G683 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G683 'CL-PPCRE::LEN)) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; The second argument is a NUMBER, not a INTEGER. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline float arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; unable to do inline float arithmetic (cost 4) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF ; ==> ; (+ CL-PPCRE::START-POS ; (* (SB-PCL::ACCESSOR-SLOT-VALUE #:G683 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G683 'CL-PPCRE::LEN))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; compiling (DEFMETHOD COMPUTE-OFFSETS ...) ; compiling (DEFMETHOD COMPUTE-OFFSETS ...) ; compiling (DEFMETHOD COMPUTE-OFFSETS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD COMPUTE-OFFSETS (CHAR-CLASS T) ; (1+ CL-PPCRE::START-POS) ; ==> ; (+ CL-PPCRE::START-POS 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFMETHOD COMPUTE-OFFSETS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD COMPUTE-OFFSETS (EVERYTHING T) ; (1+ CL-PPCRE::START-POS) ; ==> ; (+ CL-PPCRE::START-POS 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFMETHOD COMPUTE-OFFSETS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD COMPUTE-OFFSETS (STR T) ; (+ CL-PPCRE::START-POS (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; compiling (DEFMETHOD COMPUTE-OFFSETS ...) ; compiling (DEFMETHOD COMPUTE-OFFSETS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp ; in: DEFMETHOD COMPUTE-OFFSETS (FILTER T) ; (+ CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; compiling (DEFMETHOD COMPUTE-OFFSETS ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/regex-class-util-TMP.fasl written ; compilation finished in 0:00:00.273 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/convert.lisp" (written 17 SEP 2009 07:17:31 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFMACRO CASE-INSENSITIVE-MODE-P ...) ; compiling (DEFMACRO MULTI-LINE-MODE-P ...) ; compiling (DEFMACRO SINGLE-LINE-MODE-P ...) ; compiling (DEFUN SET-FLAG ...) ; compiling (DEFGENERIC RESOLVE-PROPERTY ...) ; compiling (DEFUN CONVERT-CHAR-CLASS-TO-TEST-FUNCTION ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; in: DEFUN CONVERT-CHAR-CLASS-TO-TEST-FUNCTION ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR)) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR)) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR)) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR)) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; compiling (DEFUN MAYBE-SPLIT-REPETITION ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; in: DEFUN MAYBE-SPLIT-REPETITION ; (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM) ; ; note: doing signed word to integer coercion (cost 20) ; compiling (DEFUN MAYBE-ACCUMULATE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; in: DEFUN MAYBE-ACCUMULATE ; (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; (CL-PPCRE::STR CL-PPCRE::STR) ; (CL-PPCRE::SKIP CL-PPCRE::STR) T) ; --> PROGN SETF LET* MULTIPLE-VALUE-BIND LET PROGN ; ==> ; (REPLACE #:G130 #:G132 :START1 #:G131 :END1 NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; SINGLE-FLOAT (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; DOUBLE-FLOAT (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR. ; The second argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 2) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 4) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 7) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 8) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 15) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 16) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 31) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 32) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 62) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 63) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 64) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 8) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 16) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 32) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY FIXNUM (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 64) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) ; (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (COMPLEX SINGLE-FLOAT) ; (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (COMPLEX DOUBLE-FLOAT) ; (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-VECTOR. ; The second argument is a SEQUENCE, not a SIMPLE-VECTOR. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-VECTOR ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). ; (SETF (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL ; ==> ; ((SETF CL-PPCRE::LEN) #:NEW128 #:STARTS-WITH129) ; ; note: doing signed word to integer coercion (cost 20) ; compiling (DECLAIM (INLINE CONVERT-AUX)) ; compiling (DEFUN CONVERT-AUX ...) ; compiling (DEFGENERIC CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BRANCH) T) ; (LENGTH (CL-PPCRE::CHOICES CL-PPCRE::ALTERNATIONS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (1- (THE FIXNUM CL-PPCRE::TEST-CANDIDATE)) ; ==> ; (- (THE FIXNUM CL-PPCRE::TEST-CANDIDATE) 1) ; ; note: doing signed word to integer coercion (cost 20) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :GREEDY-REPETITION) T) ; (ZEROP LENGTH) ; --> = IF ; ==> ; (= LENGTH 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (1- CL-PPCRE::MAXIMUM) ; ==> ; (- CL-PPCRE::MAXIMUM 1) ; ; note: doing signed word to integer coercion (cost 20) ; (1- CL-PPCRE::MINIMUM) ; ==> ; (- CL-PPCRE::MINIMUM 1) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :NAMED-REGISTER) T) ; (COPY-SEQ (SECOND CL-PPCRE::PARSE-TREE)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BACK-REFERENCE) T) ; (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; ==> ; (SB-KERNEL:STRING=* SB-C::STRING1 SB-C::STRING2 SB-C::START1 SB-C::END1 ; SB-C::START2 SB-C::END2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING ; SYMBOL CHARACTER), not a STRING. ; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING ; SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING ; SYMBOL CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING ; SYMBOL CHARACTER), not a SIMPLE-BASE-STRING. ; (COPY-SEQ CL-PPCRE::BACKREF-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (- CL-PPCRE::REG-NUM CL-PPCRE::REG-INDEX) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::NAME CL-PPCRE::IN CL-PPCRE::REG-NAMES ; CL-PPCRE::FOR CL-PPCRE::REG-INDEX CL-PPCRE::FROM 0 ; WHEN (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; CL-PPCRE::COLLECT ...) ; --> BLOCK LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* ; --> SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ THE 1+ ; ==> ; (+ CL-PPCRE::REG-INDEX 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (1- CL-PPCRE::BACKREF-NUMBER) ; ==> ; (- CL-PPCRE::BACKREF-NUMBER 1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ...) ; compiling (DEFGENERIC CONVERT-SIMPLE-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-SIMPLE-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-SIMPLE-PARSE-TREE ...) ; compiling (DEFMETHOD CONVERT-SIMPLE-PARSE-TREE ...) ; compiling (DEFUN CONVERT ...) ; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp ; in: DEFUN CONVERT ; (COERCE (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) 'SIMPLE-STRING) ; --> THE IF REPLACE MAKE-ARRAY LOCALLY MAKE-ARRAY ; ==> ; (LENGTH SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> THE IF ; ==> ; (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/convert-TMP.fasl written ; compilation finished in 0:00:00.270 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/optimize.lisp" (written 17 SEP 2009 07:17:31 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFGENERIC FLATTEN ...) ; compiling (DEFMETHOD FLATTEN ...) ; compiling (DEFMETHOD FLATTEN ...) ; compiling (DEFMETHOD FLATTEN ...) ; compiling (DEFMETHOD FLATTEN ...) ; compiling (DEFGENERIC GATHER-STRINGS ...) ; compiling (DEFMETHOD GATHER-STRINGS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD GATHER-STRINGS (SEQ) ; (SETF (SUBSEQ CL-PPCRE::COLLECTOR CL-PPCRE::OLD-COLLECTOR-LENGTH) ; (CL-PPCRE::STR CL-PPCRE::ELEMENT) ; CL-PPCRE::SKIP (CL-PPCRE::SKIP CL-PPCRE::ELEMENT)) ; --> PROGN SETF LET* MULTIPLE-VALUE-BIND LET PROGN ; ==> ; (REPLACE #:G130 #:G132 :START1 #:G131 :END1 NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-BASE-STRING. ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY SINGLE-FLOAT (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY SINGLE-FLOAT ; (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY DOUBLE-FLOAT (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY DOUBLE-FLOAT ; (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-BIT-VECTOR. ; The second argument is a SEQUENCE, not a SIMPLE-BIT-VECTOR. ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES SIMPLE-BIT-VECTOR ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 2) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 4) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 7) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 8) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 15) ; (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 15) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 16) ; (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 16) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 31) ; (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 31) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 32) ; (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 32) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 62) ; (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 62) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 63) ; (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 63) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (UNSIGNED-BYTE 64) ; (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (UNSIGNED-BYTE 64) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 8) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 16) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 32) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY FIXNUM (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY FIXNUM (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY FIXNUM (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (SIGNED-BYTE 64) (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) ; (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) ; (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (COMPLEX SINGLE-FLOAT) ; (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY ; (COMPLEX DOUBLE-FLOAT) ; (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-VECTOR. ; The second argument is a SEQUENCE, not a SIMPLE-VECTOR. ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES SIMPLE-VECTOR &REST ; T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-BASE-STRING. ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The result is a (VALUES VECTOR &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). ; (INCF CL-PPCRE::COLLECTOR-LENGTH (CL-PPCRE::LEN CL-PPCRE::ELEMENT)) ; --> LET* ; ==> ; (+ CL-PPCRE::COLLECTOR-LENGTH #:G129) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; etc. ; compiling (DEFMETHOD GATHER-STRINGS ...) ; compiling (DEFMETHOD GATHER-STRINGS ...) ; compiling (DEFMETHOD GATHER-STRINGS ...) ; compiling (DEFGENERIC START-ANCHORED-P ...) ; compiling (DEFMETHOD START-ANCHORED-P ...) ; compiling (DEFMETHOD START-ANCHORED-P ...) ; compiling (DEFMETHOD START-ANCHORED-P ...) ; compiling (DEFMETHOD START-ANCHORED-P ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD START-ANCHORED-P (REPETITION) ; (PLUSP (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)) ; ==> ; (> (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; compiling (DEFMETHOD START-ANCHORED-P ...) ; compiling (DEFMETHOD START-ANCHORED-P ...) ; compiling (DEFMETHOD START-ANCHORED-P ...) ; compiling (DEFMETHOD START-ANCHORED-P ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD START-ANCHORED-P (REGEX) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::REGEX)) ; ==> ; (= (CL-PPCRE::LEN CL-PPCRE::REGEX) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; compiling (DEFGENERIC END-STRING-AUX ...) ; compiling (DEFMETHOD END-STRING-AUX ...) ; compiling (DEFMETHOD END-STRING-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD END-STRING-AUX (SEQ) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END)) ; --> = IF ; ==> ; (= (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (CHAR CL-PPCRE::STR CL-PPCRE::I) ; --> AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; compiling (DEFMETHOD END-STRING-AUX ...) ; compiling (DEFMETHOD END-STRING-AUX ...) ; compiling (DEFMETHOD END-STRING-AUX ...) ; compiling (DEFUN END-STRING ...) ; compiling (DEFGENERIC COMPUTE-MIN-REST ...) ; compiling (DEFMETHOD COMPUTE-MIN-REST ...) ; compiling (DEFMETHOD COMPUTE-MIN-REST ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD COMPUTE-MIN-REST (ALTERNATION T) ; (LOOP CL-PPCRE::FOR CL-PPCRE::CHOICE CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::MINIMIZE (CL-PPCRE::COMPUTE-MIN-REST CL-PPCRE::CHOICE ; CL-PPCRE::CURRENT-MIN-REST)) ; --> BLOCK LET SB-LOOP::WITH-MINIMAX-VALUE LET SB-LOOP::LOOP-BODY TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF OR THE < ; --> IF ; ==> ; (< #:LOOP-MAXMIN-TEMP-439 #:LOOP-MAXMIN-438) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; compiling (DEFMETHOD COMPUTE-MIN-REST ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD COMPUTE-MIN-REST (BRANCH T) ; (MIN ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST) ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST)) ; --> LET LET IF <= OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; --> LET LET IF <= OR LET IF OR THE = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET LET IF <= OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; --> LET LET IF <= OR LET IF OR THE = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; compiling (DEFMETHOD COMPUTE-MIN-REST ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD COMPUTE-MIN-REST (STR T) ; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; compiling (DEFMETHOD COMPUTE-MIN-REST ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD COMPUTE-MIN-REST (FILTER T) ; (+ CL-PPCRE::CURRENT-MIN-REST (OR (CL-PPCRE::LEN CL-PPCRE::FILTER) 0)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; compiling (DEFMETHOD COMPUTE-MIN-REST ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD COMPUTE-MIN-REST (REPETITION T) ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; The second argument is a NUMBER, not a INTEGER. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline float arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (COMPLEX SINGLE-FLOAT) ; &REST T). ; unable to do inline float arithmetic (cost 4) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (+ CL-PPCRE::CURRENT-MIN-REST ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; compiling (DEFMETHOD COMPUTE-MIN-REST ...) ; compiling (DEFMETHOD COMPUTE-MIN-REST ...) ; compiling (DEFMETHOD COMPUTE-MIN-REST ...) ; compiling (DEFMETHOD COMPUTE-MIN-REST ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD COMPUTE-MIN-REST (LOOKBEHIND T) ; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::LOOKBEHIND)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; compiling (DEFMETHOD COMPUTE-MIN-REST ...) ; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp ; in: DEFMETHOD COMPUTE-MIN-REST (REGEX T) ; (1+ CL-PPCRE::CURRENT-MIN-REST) ; ==> ; (+ CL-PPCRE::CURRENT-MIN-REST 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/optimize-TMP.fasl written ; compilation finished in 0:00:00.189 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/closures.lisp" (written 17 SEP 2009 07:17:30 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DECLAIM (INLINE *STRING*= ...)) ; compiling (DEFUN *STRING*= ...) ; compiling (DEFUN *STRING*-EQUAL ...) ; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp ; in: DEFUN *STRING*-EQUAL ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ==> ; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; compiling (DEFGENERIC CREATE-MATCHER-AUX ...) ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp ; in: DEFMETHOD CREATE-MATCHER-AUX (LOOKBEHIND T) ; (FUNCALL CL-PPCRE::TEST-MATCHER (- CL-PPCRE::START-POS CL-PPCRE::LEN)) ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TEST-MATCHER) ; (- CL-PPCRE::START-POS CL-PPCRE::LEN)) ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20) ; compiling (DEFMACRO INSERT-CHAR-CLASS-TESTER ...) ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp ; in: DEFMETHOD CREATE-MATCHER-AUX (CHAR-CLASS T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::CHAR-CLASS ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::START-POS)) ; (LAMBDA (CL-PPCRE::START-POS) ; (DECLARE (FIXNUM CL-PPCRE::START-POS)) ; (AND (< CL-PPCRE::START-POS CL-PPCRE::*END-POS*) ; (CL-PPCRE::CHAR-CLASS-TEST) ; (FUNCALL CL-PPCRE::NEXT-FN (1+ CL-PPCRE::START-POS))))) ; --> LET LET LAMBDA FUNCTION AND IF AND IF FUNCALL SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:TEST-FUNCTION227) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp ; in: DEFMETHOD CREATE-MATCHER-AUX (STR T) ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::START-POS ; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS) CL-PPCRE::CHR) ; ==> ; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS) ; CL-PPCRE::CHR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (LENGTH CL-PPCRE::END-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::END-STRING CL-PPCRE::START-POS ; CL-PPCRE::TEST-END-POS 0 CL-PPCRE::END-STRING-LEN) ; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::NEXT-FN (+ CL-PPCRE::START-POS CL-PPCRE::LEN)) ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::NEXT-FN) ; (+ CL-PPCRE::START-POS CL-PPCRE::LEN)) ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20) ; ; note: doing signed word to integer coercion (cost 20) ; compiling (DECLAIM (INLINE WORD-BOUNDARY-P)) ; compiling (DEFUN WORD-BOUNDARY-P ...) ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp ; in: DEFMETHOD CREATE-MATCHER-AUX (BACK-REFERENCE T) ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::*STRING* CL-PPCRE::START-POS ; CL-PPCRE::NEXT-POS CL-PPCRE::REG-START CL-PPCRE::REG-END) ; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp ; in: DEFMETHOD CREATE-MATCHER-AUX (FILTER T) ; (FUNCALL CL-PPCRE::FN CL-PPCRE::START-POS) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::FN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (FUNCALL CL-PPCRE::NEXT-FN CL-PPCRE::NEXT-POS) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::NEXT-FN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/closures-TMP.fasl written ; compilation finished in 0:00:00.176 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp" (written 17 SEP 2009 07:17:31 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFMACRO INCF-AFTER ...) ; compiling (DEFMACRO GREEDY-CONSTANT-LENGTH-CLOSURE ...) ; compiling (DEFUN CREATE-GREEDY-EVERYTHING-MATCHER ...) ; compiling (DEFGENERIC CREATE-GREEDY-CONSTANT-LENGTH-MATCHER ...) ; compiling (DEFMETHOD CREATE-GREEDY-CONSTANT-LENGTH-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; in: DEFMETHOD CREATE-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> BLOCK TAGBODY WHEN IF FUNCALL SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:TEST-FUNCTION214) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ==> ; (SB-INT:TWO-ARG-CHAR-EQUAL CL-PPCRE::CHR ; (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> LET LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; compiling (DEFGENERIC CREATE-GREEDY-NO-ZERO-MATCHER ...) ; compiling (DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> LET* + AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> LET* - AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; compiling (DEFGENERIC CREATE-GREEDY-MATCHER ...) ; compiling (DEFMETHOD CREATE-GREEDY-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; in: DEFMETHOD CREATE-GREEDY-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> PROGN SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL ; --> (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> LET* + AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> LET* - AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; compiling (DEFMACRO NON-GREEDY-CONSTANT-LENGTH-CLOSURE ...) ; compiling (DEFGENERIC CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER ...) ; compiling (DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; in: DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION ; --> LET LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF FUNCALL ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:TEST-FUNCTION747) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ==> ; (SB-INT:TWO-ARG-CHAR-EQUAL CL-PPCRE::CHR ; (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION ; --> LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION ; --> LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION ; --> LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION ; --> LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION ; --> LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET MIN LET LET IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; The second argument is a (INTEGER -9223372036854775808 ; 9223372036854775806), not a FIXNUM. ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ ; ==> ; (+ (- CL-PPCRE::*END-POS* CL-PPCRE::LEN CL-PPCRE::MIN-REST) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION ; --> LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION ; --> LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> LET LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION ; --> LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> IF LAMBDA FUNCTION LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET 1+ + - ; ==> ; (- (- CL-PPCRE::*END-POS* CL-PPCRE::LEN) CL-PPCRE::MIN-REST) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; --> IF LAMBDA FUNCTION LET MIN LET LET MIN LET ; ==> ; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::MAXIMUM))) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; compiling (DEFGENERIC CREATE-NON-GREEDY-NO-ZERO-MATCHER ...) ; compiling (DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; in: DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> LET* + AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> LET* - AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; compiling (DEFGENERIC CREATE-NON-GREEDY-MATCHER ...) ; compiling (DEFMETHOD CREATE-NON-GREEDY-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; in: DEFMETHOD CREATE-NON-GREEDY-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> PROGN SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL ; --> (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> LET* + AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> LET* - AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; compiling (DEFMACRO CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ...) ; compiling (DEFGENERIC CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER ...) ; compiling (DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; in: ; DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS)))) ; --> LET LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA ; --> FUNCTION LET AND IF AND IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY ; --> UNLESS IF AND IF FUNCALL SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN #:TEST-FUNCTION1152) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ==> ; (SB-INT:TWO-ARG-CHAR-EQUAL CL-PPCRE::CHR ; (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS CL-PPCRE::NEXT-POS ; 0 CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; compiling (DEFGENERIC CREATE-CONSTANT-REPETITION-MATCHER ...) ; compiling (DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> LET* + AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> LET* - AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (AREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> PROGN SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL ; --> (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (ZEROP (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ==> ; (= (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> LET* + AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> LET* - AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; --> LET* FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY. ; compiling (DEFMETHOD CREATE-MATCHER-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp ; in: DEFMETHOD CREATE-MATCHER-AUX (REPETITION T) ; (DEFMETHOD CL-PPCRE::CREATE-MATCHER-AUX ; ((CL-PPCRE::REPETITION CL-PPCRE::REPETITION) CL-PPCRE::NEXT-FN) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (WITH-SLOTS (CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM CL-PPCRE::LEN ; CL-PPCRE::MIN-LEN CL-PPCRE::GREEDYP ; CL-PPCRE::CONTAINS-REGISTER-P) ; CL-PPCRE::REPETITION ; (COND ; ((AND CL-PPCRE::MAXIMUM #) ; (ERROR "Got REPETITION with MAXIMUM 0 (should not happen)")) ; ((AND CL-PPCRE::MAXIMUM #) ; (ERROR ; "Got REPETITION with MAXIMUM 1 and MINIMUM 1 (should not happen)")) ; ((AND # CL-PPCRE::LEN #) ; (CL-PPCRE::CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER ; CL-PPCRE::REPETITION CL-PPCRE::NEXT-FN)) ; ((EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; (CL-PPCRE::CREATE-CONSTANT-REPETITION-MATCHER CL-PPCRE::REPETITION ; CL-PPCRE::NEXT-FN)) ; ((AND CL-PPCRE::GREEDYP CL-PPCRE::LEN #) ; (CL-PPCRE::CREATE-GREEDY-CONSTANT-LENGTH-MATCHER CL-PPCRE::REPETITION ; CL-PPCRE::NEXT-FN)) ; ((AND CL-PPCRE::GREEDYP #) ; (CL-PPCRE::CREATE-GREEDY-NO-ZERO-MATCHER CL-PPCRE::REPETITION ; CL-PPCRE::NEXT-FN)) ; (CL-PPCRE::GREEDYP ; (CL-PPCRE::CREATE-GREEDY-MATCHER CL-PPCRE::REPETITION ; CL-PPCRE::NEXT-FN)) ; ((AND CL-PPCRE::LEN # #) ; (CL-PPCRE::CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER ; CL-PPCRE::REPETITION CL-PPCRE::NEXT-FN)) ; ((OR # #) ; (CL-PPCRE::CREATE-NON-GREEDY-NO-ZERO-MATCHER CL-PPCRE::REPETITION ; CL-PPCRE::NEXT-FN)) ; (T ; (CL-PPCRE::CREATE-NON-GREEDY-MATCHER CL-PPCRE::REPETITION ; CL-PPCRE::NEXT-FN))))) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF THE ZEROP ; ==> ; (= (SB-PCL::ACCESSOR-SLOT-VALUE #:G1342 'CL-PPCRE::MAXIMUM) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF THE = ; --> (LAMBDA (#:G1349 #:G1348 #:G1347) (DECLARE (TYPE NUMBER #:G1349 #:G1348 #:G1347)) (IF (= #:G1349 #:G1348) (IF (= #:G1348 #:G1347) T NIL) NIL)) ; --> SB-C::%FUNCALL IF ; ==> ; (= #:G1349 #:G1348) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF THE = ; --> (LAMBDA (#:G1349 #:G1348 #:G1347) (DECLARE (TYPE NUMBER #:G1349 #:G1348 #:G1347)) (IF (= #:G1349 #:G1348) (IF (= #:G1348 #:G1347) T NIL) NIL)) ; --> SB-C::%FUNCALL IF IF ; ==> ; (= #:G1348 #:G1347) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF IF IF IF IF ; --> THE LET PLUSP > IF ; ==> ; (> (SB-PCL::ACCESSOR-SLOT-VALUE #:G1342 'CL-PPCRE::MIN-LEN) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF IF IF IF IF IF ; --> IF IF PLUSP ; ==> ; (> (SB-PCL::ACCESSOR-SLOT-VALUE #:G1342 'CL-PPCRE::LEN) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF IF IF IF IF IF ; --> IF LET PLUSP > IF ; ==> ; (> (SB-PCL::ACCESSOR-SLOT-VALUE #:G1342 'CL-PPCRE::MIN-LEN) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF THE = ; --> (LAMBDA (#:G1349 #:G1348 #:G1347) (DECLARE (TYPE NUMBER #:G1349 #:G1348 #:G1347)) (IF (= #:G1349 #:G1348) (IF (= #:G1348 #:G1347) T NIL) NIL)) ; --> SB-C::%FUNCALL IF ; ==> ; (= #:G1349 #:G1348) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF IF ; ==> ; (EQL (SB-PCL::ACCESSOR-SLOT-VALUE #:G1342 'CL-PPCRE::MINIMUM) ; (SB-PCL::ACCESSOR-SLOT-VALUE #:G1342 'CL-PPCRE::MAXIMUM)) ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF IF IF IF IF ; --> THE LET PLUSP > IF ; ==> ; (> (SB-PCL::ACCESSOR-SLOT-VALUE #:G1342 'CL-PPCRE::MIN-LEN) 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF IF IF IF IF IF ; --> IF IF PLUSP ; ==> ; (> (SB-PCL::ACCESSOR-SLOT-VALUE #:G1342 'CL-PPCRE::LEN) 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER PROGN SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS LOCALLY SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET SYMBOL-MACROLET IF IF IF IF IF IF IF IF ; --> IF LET PLUSP > IF ; ==> ; (> (SB-PCL::ACCESSOR-SLOT-VALUE #:G1342 'CL-PPCRE::MIN-LEN) 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/repetition-closures-TMP.fasl written ; compilation finished in 0:00:00.373 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/scanner.lisp" (written 17 SEP 2009 07:17:31 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFMACRO BMH-MATCHER-AUX ...) ; compiling (DEFUN CREATE-BMH-MATCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/scanner.lisp ; in: DEFUN CREATE-BMH-MATCHER ; (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T) ; --> LAMBDA FUNCTION IF LOOP BLOCK LET SB-LOOP::LOOP-BODY TAGBODY LOOP BLOCK ; --> LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF AND IF AND THE CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::I) ; (SCHAR CL-PPCRE::PATTERN CL-PPCRE::J)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; (LENGTH CL-PPCRE::PATTERN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CHAR-UPCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-DOWNCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (SEARCH CL-PPCRE::PATTERN CL-PPCRE::*STRING* :START2 CL-PPCRE::START-POS ; :END2 CL-PPCRE::*END-POS* :TEST CL-PPCRE::TEST) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MAKE-ARRAY CL-PPCRE:*REGEX-CHAR-CODE-LIMIT* :ELEMENT-TYPE 'FIXNUM ; :INITIAL-ELEMENT CL-PPCRE::M) ; --> LOCALLY MAKE-ARRAY TRULY-THE FILL LET* ; ==> ; (SB-KERNEL:UB64-BASH-FILL ; (LET* ((SB-C::BITS (LDB # #)) (SB-C::RES SB-C::BITS)) ; (DECLARE (TYPE WORD SB-C::RES)) ; SB-C::RES) ; SB-C::SEQ (SB-KERNEL:%CHECK-BOUND SB-C::SEQ SB-C::BOUND SB-C::START) ; (- ; (IF SB-C::END ; (SB-KERNEL:%CHECK-BOUND SB-C::SEQ SB-C::BOUND SB-C::END) ; SB-C::LEN) ; SB-C::START)) ; ; note: doing signed word to integer coercion (cost 20) ; compiling (DEFMACRO CHAR-SEARCHER-AUX ...) ; compiling (DEFUN CREATE-CHAR-SEARCHER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/scanner.lisp ; in: DEFUN CREATE-CHAR-SEARCHER ; (CL-PPCRE::CHAR-SEARCHER-AUX :CASE-INSENSITIVE-P T) ; --> LAMBDA FUNCTION AND IF AND THE LOOP BLOCK LET LET SB-LOOP::LOOP-BODY ; --> TAGBODY WHEN IF SETQ THE AND IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::I) ; CL-PPCRE::CHR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; compiling (DECLAIM (INLINE NEWLINE-SKIPPER)) ; compiling (DEFUN NEWLINE-SKIPPER ...) ; compiling (DEFMACRO INSERT-ADVANCE-FN ...) ; compiling (DEFUN CREATE-SCANNER-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/scanner.lisp ; in: DEFUN CREATE-SCANNER-AUX ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN LOCALLY ; --> COND IF AND IF AND THE NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK ; --> LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN INCF LET* ; ==> ; (+ CL-PPCRE::*END-STRING-POS* #:G303) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN LOCALLY ; --> COND IF AND IF AND THE NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK ; --> LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN INCF LET* ; ==> ; (+ CL-PPCRE::*END-STRING-POS* #:G293) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN LOCALLY ; --> COND IF AND IF AND THE NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK ; --> LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN INCF LET* ; ==> ; (+ CL-PPCRE::*END-STRING-POS* #:G283) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN LOCALLY ; --> COND IF AND IF AND THE NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK ; --> LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN INCF LET* ; ==> ; (+ CL-PPCRE::*END-STRING-POS* #:G273) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN LOCALLY ; --> COND IF AND IF AND THE NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK ; --> LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN INCF LET* ; ==> ; (+ CL-PPCRE::*END-STRING-POS* #:G263) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN LOCALLY ; --> COND IF AND IF AND THE NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK ; --> LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN INCF LET* ; ==> ; (+ CL-PPCRE::*END-STRING-POS* #:G253) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN LOCALLY ; --> COND IF AND IF AND THE NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK ; --> LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN INCF LET* ; ==> ; (+ CL-PPCRE::*END-STRING-POS* #:G243) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN LOCALLY ; --> COND IF AND IF AND THE NOT IF CL-PPCRE::*STRING*-EQUAL BLOCK LOOP BLOCK ; --> LET LET SB-LOOP::LOOP-BODY TAGBODY UNLESS IF CHAR-EQUAL ; ==> ; (SB-INT:TWO-ARG-CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN INCF LET* ; ==> ; (+ CL-PPCRE::*END-STRING-POS* #:G229) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE ; --> <= OR LET IF OR THE = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to open code because: The operands might not be the same type. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE ; --> <= OR LET IF OR THE = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to open code because: The operands might not be the same type. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE ; --> <= OR LET IF OR THE = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to open code because: The operands might not be the same type. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE ; --> <= OR LET IF OR THE = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to open code because: The operands might not be the same type. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE ; --> <= OR LET IF OR THE = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to open code because: The operands might not be the same type. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE ; --> <= OR LET IF OR THE = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to open code because: The operands might not be the same type. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE ; --> <= OR LET IF OR THE = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to open code because: The operands might not be the same type. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE ; --> <= OR LET IF OR THE = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to open code because: The operands might not be the same type. ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE ; --> <= OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN INCF LET* ; ==> ; (+ CL-PPCRE::*END-STRING-POS* #:G303) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE ; --> <= OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN INCF LET* ; ==> ; (+ CL-PPCRE::*END-STRING-POS* #:G293) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE ; --> <= OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN INCF LET* ; ==> ; (+ CL-PPCRE::*END-STRING-POS* #:G283) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE ; --> <= OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN INCF LET* ; ==> ; (+ CL-PPCRE::*END-STRING-POS* #:G273) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE ; --> <= OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN INCF LET* ; ==> ; (+ CL-PPCRE::*END-STRING-POS* #:G263) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE ; --> <= OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN INCF LET* ; ==> ; (+ CL-PPCRE::*END-STRING-POS* #:G253) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE ; --> <= OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN INCF LET* ; ==> ; (+ CL-PPCRE::*END-STRING-POS* #:G229) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN UNLESS IF AND IF AND THE ; --> <= OR LET < IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF AND IF AND THE ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; --> LAMBDA FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF PROGN BLOCK LOOP ; --> BLOCK TAGBODY PROGN LET COND IF COND IF PROGN INCF LET* ; ==> ; (+ CL-PPCRE::*END-STRING-POS* #:G243) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* ; ==> ; (SB-C::%SPECIAL-BIND ; '# ; # ; {10089CA4B3}>) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of BIND/LET ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET UNLESS IF PROGN WHEN ; --> IF PROGN SETQ THE FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::END-STRING-TEST) ; (1- CL-PPCRE::END-TEST-POS)) ; ; note: doing signed word to integer coercion (cost 20) ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* ; ==> ; (SB-C::%SPECIAL-BIND ; '# ; # ; {10089B6FF3}>) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of BIND/LET ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET UNLESS IF PROGN WHEN ; --> IF PROGN SETQ THE FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::END-STRING-TEST) ; (1- CL-PPCRE::END-TEST-POS)) ; ; note: doing signed word to integer coercion (cost 20) ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* ; ==> ; (SB-C::%SPECIAL-BIND ; '# ; # ; {10089B95A3}>) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of BIND/LET ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET UNLESS IF PROGN WHEN ; --> IF PROGN SETQ THE FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::END-STRING-TEST) ; (1- CL-PPCRE::END-TEST-POS)) ; ; note: doing signed word to integer coercion (cost 20) ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* ; ==> ; (SB-C::%SPECIAL-BIND ; '# ; # ; {1005B2BF23}>) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of BIND/LET ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET UNLESS IF PROGN WHEN ; --> IF PROGN SETQ THE FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::END-STRING-TEST) ; (1- CL-PPCRE::END-TEST-POS)) ; ; note: doing signed word to integer coercion (cost 20) ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* ; ==> ; (SB-C::%SPECIAL-BIND ; '# ; # ; {1008681843}>) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of BIND/LET ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET UNLESS IF PROGN WHEN ; --> IF PROGN SETQ THE FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::END-STRING-TEST) ; (1- CL-PPCRE::END-TEST-POS)) ; ; note: doing signed word to integer coercion (cost 20) ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> LAMBDA FUNCTION BLOCK LET* ; ==> ; (SB-C::%SPECIAL-BIND ; '# ; # ; {10089369C3}>) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of BIND/LET ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET UNLESS IF PROGN WHEN ; --> IF PROGN SETQ THE FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::END-STRING-TEST) ; (1- CL-PPCRE::END-TEST-POS)) ; ; note: doing signed word to integer coercion (cost 20) ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> LAMBDA FUNCTION BLOCK LET* ; ==> ; (SB-C::%SPECIAL-BIND ; '# ; # ; {1008939033}>) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of BIND/LET ; (SETQ CL-PPCRE::TRY-POS (1+ CL-PPCRE::*END-STRING-POS*)) ; ; note: doing signed word to integer coercion (cost 20) to TRY-POS ; ; note: doing signed word to integer coercion (cost 20) to TRY-POS ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET UNLESS IF PROGN WHEN ; --> IF PROGN SETQ THE FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::END-STRING-TEST) ; (1- CL-PPCRE::END-TEST-POS)) ; ; note: doing signed word to integer coercion (cost 20) ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> LAMBDA FUNCTION BLOCK LET* ; ==> ; (SB-C::%SPECIAL-BIND ; '# ; # ; {10059BC523}>) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of BIND/LET ; (FUNCALL CL-PPCRE::END-STRING-TEST CL-PPCRE::TRY-POS) ; --> SB-C::%FUNCALL ; ==> ; CL-PPCRE::TRY-POS ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> LAMBDA FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET UNLESS IF PROGN WHEN ; --> IF PROGN SETQ THE FUNCALL ; ==> ; (SB-C::%FUNCALL (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::END-STRING-TEST) ; (1- CL-PPCRE::END-TEST-POS)) ; ; note: doing signed word to integer coercion (cost 20) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/scanner-TMP.fasl written ; compilation finished in 0:00:01.024 ; compiling file "/usr/share/common-lisp/source/cl-ppcre/api.lisp" (written 17 SEP 2009 07:17:30 PM): ; compiling (IN-PACKAGE :CL-PPCRE) ; compiling (DEFGENERIC CREATE-SCANNER ...) ; compiling (DEFMETHOD CREATE-SCANNER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFMETHOD CREATE-SCANNER (STRING) ; (COPY-SEQ CL-PPCRE::QUOTED-REGEX-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; compiling (DEFMETHOD CREATE-SCANNER ...) ; compiling (DEFMETHOD CREATE-SCANNER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFMETHOD CREATE-SCANNER (T) ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ==> ; (> (CL-PPCRE::LEN CL-PPCRE::END-STRING) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ==> ; (> (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ==> ; (> (CL-PPCRE::LEN CL-PPCRE::END-STRING) 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ==> ; (> (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; compiling (DEFGENERIC SCAN ...) ; compiling (DEFMETHOD SCAN ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFMETHOD SCAN (STRING T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::REGEX-STRING) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN ; (CL-PPCRE:CREATE-SCANNER CL-PPCRE::REGEX-STRING)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; --> LET COND IF COND THE PROGN COERCE THE IF REPLACE MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY ; ==> ; (LENGTH SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET COND IF COND THE PROGN COERCE THE IF ; ==> ; (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; compiling (DEFMETHOD SCAN ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFMETHOD SCAN #'T ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; --> LET COND IF COND THE PROGN COERCE THE IF REPLACE MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY ; ==> ; (LENGTH SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET COND IF COND THE PROGN COERCE THE IF ; ==> ; (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; compiling (DEFMETHOD SCAN ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFMETHOD SCAN (T T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::PARSE-TREE) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN ; (CL-PPCRE:CREATE-SCANNER CL-PPCRE::PARSE-TREE)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; --> LET COND IF COND THE PROGN COERCE THE IF REPLACE MAKE-ARRAY LOCALLY ; --> MAKE-ARRAY ; ==> ; (LENGTH SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET COND IF COND THE PROGN COERCE THE IF ; ==> ; (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; compiling (DEFINE-COMPILER-MACRO SCAN ...) ; compiling (DEFUN SCAN-TO-STRINGS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN SCAN-TO-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFINE-COMPILER-MACRO SCAN-TO-STRINGS ...) ; compiling (DEFMACRO REGISTER-GROUPS-BIND ...) ; compiling (DEFMACRO DO-SCANS ...) ; compiling (DEFMACRO DO-MATCHES ...) ; compiling (DEFMACRO DO-MATCHES-AS-STRINGS ...) ; compiling (DEFMACRO DO-REGISTER-GROUPS ...) ; compiling (DEFUN ALL-MATCHES ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN ALL-MATCHES ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::RESULT-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::RESULT-LIST)) ; --> CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK TAGBODY PROGN ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK TAGBODY PROGN ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; (+ CL-PPCRE::MATCH-END 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::RESULT-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::RESULT-LIST)) ; --> CL-PPCRE:DO-SCANS LET BLOCK LET* OR LET IF OR THE ; ==> ; (LENGTH #:TARGET-STRING792) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE ; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF COND THE PROGN COERCE ; --> THE IF REPLACE MAKE-ARRAY LOCALLY MAKE-ARRAY ; ==> ; (LENGTH SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE ; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF COND THE PROGN COERCE ; --> THE IF ; ==> ; (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; --> CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK TAGBODY PROGN ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; --> CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK TAGBODY PROGN ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; (+ CL-PPCRE::MATCH-END 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFINE-COMPILER-MACRO ALL-MATCHES ...) ; compiling (DEFUN ALL-MATCHES-AS-STRINGS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN ALL-MATCHES-AS-STRINGS ; (CL-PPCRE:DO-MATCHES-AS-STRINGS (CL-PPCRE::MATCH CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START ; CL-PPCRE::START :END CL-PPCRE::END :SHAREDP ; CL-PPCRE::SHAREDP) ; (PUSH CL-PPCRE::MATCH CL-PPCRE::RESULT-LIST)) ; --> LET LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START883 #:MATCH-END884) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; (+ #:MATCH-END884 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES-AS-STRINGS (CL-PPCRE::MATCH CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START ; CL-PPCRE::START :END CL-PPCRE::END :SHAREDP ; CL-PPCRE::SHAREDP) ; (PUSH CL-PPCRE::MATCH CL-PPCRE::RESULT-LIST)) ; --> LET LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* OR LET IF OR ; --> THE ; ==> ; (LENGTH #:TARGET-STRING888) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE ; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF COND THE PROGN COERCE ; --> THE IF REPLACE MAKE-ARRAY LOCALLY MAKE-ARRAY ; ==> ; (LENGTH SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE ; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF COND THE PROGN COERCE ; --> THE IF ; ==> ; (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; --> LET LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START883 #:MATCH-END884) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; --> LET LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; (+ #:MATCH-END884 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFINE-COMPILER-MACRO ALL-MATCHES-AS-STRINGS ...) ; compiling (DEFUN SPLIT ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN SPLIT ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...) ; --> BLOCK LET LET SB-LOOP::LOOP-BODY TAGBODY SB-LOOP::LOOP-REALLY-DESETQ SETQ ; --> THE AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN (AND CL-PPCRE::LIMIT (>= # CL-PPCRE::LIMIT)) (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; (+ CL-PPCRE::MATCH-END 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN (AND CL-PPCRE::LIMIT (>= # CL-PPCRE::LIMIT)) (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> LET BLOCK LET* OR LET IF OR THE ; ==> ; (LENGTH #:TARGET-STRING977) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF COND THE PROGN COERCE THE IF REPLACE MAKE-ARRAY LOCALLY MAKE-ARRAY ; ==> ; (LENGTH SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF COND THE PROGN COERCE THE IF ; ==> ; (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; (>= (INCF CL-PPCRE::COUNTER) CL-PPCRE::LIMIT) ; --> OR LET IF OR THE = IF ; ==> ; (= SB-C::X SB-C::Y) ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; (INCF CL-PPCRE::COUNTER) ; --> LET* ; ==> ; (+ CL-PPCRE::COUNTER #:G986) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (>= (INCF CL-PPCRE::COUNTER) CL-PPCRE::LIMIT) ; --> OR LET > IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN (AND CL-PPCRE::LIMIT (>= # CL-PPCRE::LIMIT)) (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; (+ CL-PPCRE::MATCH-END 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; compiling (DEFINE-COMPILER-MACRO SPLIT ...) ; compiling (DEFUN STRING-CASE-MODIFIER ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN STRING-CASE-MODIFIER ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM)) ; --> AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::FROM) ; --> AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::TO) ; --> AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO)) ; --> AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CHAR CL-PPCRE::STR CL-PPCRE::INDEX) ; --> AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; compiling (DEFGENERIC BUILD-REPLACEMENT-TEMPLATE ...) ; compiling (LET* (# #) ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFMETHOD BUILD-REPLACEMENT-TEMPLATE (STRING) ; (POSITION-IF #'CL-PPCRE::DIGIT-CHAR-P CL-PPCRE::REPLACEMENT-STRING :START ; CL-PPCRE::MATCH-START :END CL-PPCRE::MATCH-END) ; --> NTH-VALUE MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; ==> ; (SB-KERNEL:%FIND-POSITION-IF ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN SB-C::PREDICATE) SEQUENCE SB-C::FROM-END ; SB-C::START SB-C::END (SB-KERNEL:EFFECTIVE-FIND-POSITION-KEY SB-C::KEY)) ; ; note: unable to ; expand inline ; because: ; upgraded array element type not known at compile time ; (CHAR CL-PPCRE::REPLACEMENT-STRING (1+ CL-PPCRE::MATCH-START)) ; --> AREF ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a STRING, not a SIMPLE-ARRAY. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-SCANNER CL-PPCRE::REPLACEMENT-STRING) ; (WHEN (< CL-PPCRE::FROM CL-PPCRE::MATCH-START) ; (PUSH ; (SUBSEQ CL-PPCRE::REPLACEMENT-STRING CL-PPCRE::FROM ; CL-PPCRE::MATCH-START) ; CL-PPCRE::COLLECTOR)) ; (LET* ((CL-PPCRE::PARSE-START ; (POSITION-IF #'CL-PPCRE::DIGIT-CHAR-P CL-PPCRE::REPLACEMENT-STRING ; :START CL-PPCRE::MATCH-START :END ; CL-PPCRE::MATCH-END)) ; (CL-PPCRE::TOKEN ; (IF CL-PPCRE::PARSE-START ; # ; #))) ; (WHEN (AND (NUMBERP CL-PPCRE::TOKEN) (< CL-PPCRE::TOKEN 0)) ; (CL-PPCRE::SIGNAL-INVOCATION-ERROR ; "Illegal substring ~S in replacement string." ; (SUBSEQ CL-PPCRE::REPLACEMENT-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END))) ; (PUSH CL-PPCRE::TOKEN CL-PPCRE::COLLECTOR)) ; (SETQ CL-PPCRE::FROM CL-PPCRE::MATCH-END)) ; --> CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE ; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF COND THE PROGN COERCE ; --> THE IF ; ==> ; (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a SIMPLE-BASE-STRING. ; (< CL-PPCRE::FROM CL-PPCRE::MATCH-START) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; (1- ; (PARSE-INTEGER CL-PPCRE::REPLACEMENT-STRING :START CL-PPCRE::PARSE-START ; :JUNK-ALLOWED T)) ; ==> ; (- ; (PARSE-INTEGER CL-PPCRE::REPLACEMENT-STRING :START CL-PPCRE::PARSE-START ; :JUNK-ALLOWED T) ; 1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (< CL-PPCRE::TOKEN 0) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; compiling (DEFMETHOD BUILD-REPLACEMENT-TEMPLATE ...) ; compiling (DEFMETHOD BUILD-REPLACEMENT-TEMPLATE ...) ; compiling (DEFMETHOD BUILD-REPLACEMENT-TEMPLATE ...) ; compiling (DEFUN BUILD-REPLACEMENT ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN BUILD-REPLACEMENT ; (ARRAY-DIMENSION CL-PPCRE::REG-STARTS 0) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; (APPLY CL-PPCRE::TOKEN ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING ; CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS)) ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TOKEN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (FUNCALL CL-PPCRE::TOKEN CL-PPCRE::TARGET-STRING CL-PPCRE::START ; CL-PPCRE::END CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN CL-PPCRE::TOKEN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (>= CL-PPCRE::TOKEN CL-PPCRE::REG-BOUND) ; --> IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; (1+ CL-PPCRE::TOKEN) ; ==> ; (+ CL-PPCRE::TOKEN 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; --> BLOCK MAKE-ARRAY LOCALLY MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> BLOCK MAKE-ARRAY LOCALLY MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &REST T). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &REST T). ; etc. ; compiling (DEFUN REPLACE-AUX ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN REPLACE-AUX ; (FUNCALL ; (CL-PPCRE::STRING-CASE-MODIFIER CL-PPCRE::TARGET-STRING CL-PPCRE::FROM ; CL-PPCRE::TO CL-PPCRE::START CL-PPCRE::END) ; CL-PPCRE::CURR-REPLACEMENT) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN ; (CL-PPCRE::STRING-CASE-MODIFIER CL-PPCRE::TARGET-STRING CL-PPCRE::FROM ; CL-PPCRE::TO CL-PPCRE::START CL-PPCRE::END)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; compiling (DEFUN REGEX-REPLACE ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN REGEX-REPLACE ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; compiling (DEFINE-COMPILER-MACRO REGEX-REPLACE ...) ; compiling (DEFUN REGEX-REPLACE-ALL ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN REGEX-REPLACE-ALL ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; (+ CL-PPCRE::MATCH-END 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> LET BLOCK LET* OR LET IF OR THE ; ==> ; (LENGTH #:TARGET-STRING1390) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF COND THE PROGN COERCE THE IF REPLACE MAKE-ARRAY LOCALLY MAKE-ARRAY ; ==> ; (LENGTH SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF COND THE PROGN COERCE THE IF ; ==> ; (REPLACE (MAKE-ARRAY (LENGTH SB-C::X) :ELEMENT-TYPE 'CHARACTER) SB-C::X) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; etc. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; (+ CL-PPCRE::MATCH-END 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFINE-COMPILER-MACRO REGEX-REPLACE-ALL ...) ; compiling (DEFMACRO REGEX-APROPOS-AUX ...) ; compiling (DEFUN REGEX-APROPOS-LIST ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN REGEX-APROPOS-LIST ; (DEFUN CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; "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-insensitive scanner is used." ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR)))) ; --> PROGN ; ==> ; (SB-IMPL::%DEFUN 'CL-PPCRE:REGEX-APROPOS-LIST ; (SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) ; (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS-LIST ; (LET (#) ; (CL-PPCRE::REGEX-APROPOS-AUX # ; #)))) ; "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-insensitive scanner is used." ; 'NIL (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; compiling (DEFUN PRINT-SYMBOL-INFO ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN PRINT-SYMBOL-INFO ; (FORMAT T "~&~S ~<~;~^~A~@{~:@_~A~}~;~:>" SYMBOL CL-PPCRE::OUTPUT-LIST) ; --> FORMAT FORMATTER FUNCTION BLOCK LET PPRINT-LOGICAL-BLOCK LET LET ; --> SB-PRETTY::WITH-PRETTY-STREAM ; ==> ; (FLET ((#:WITH-PRETTY-STREAM1770 (STREAM) ; (LET (#) ; (IF # ; # ; #)))) ; (LET ((STREAM ; (LET # ; #))) ; (IF (SB-PRETTY:PRETTY-STREAM-P STREAM) ; (#:WITH-PRETTY-STREAM1770 STREAM) ; (CATCH 'SB-PRETTY::LINE-LIMIT-ABBREVIATION-HAPPENED ; (LET # ; # ; #)))) ; NIL) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; --> FORMAT FORMATTER FUNCTION BLOCK LET PPRINT-LOGICAL-BLOCK LET LET ; --> SB-PRETTY::WITH-PRETTY-STREAM FLET BLOCK LET IF ; --> SB-KERNEL:WITH-CIRCULARITY-DETECTION LABELS BLOCK SB-KERNEL:DESCEND-INTO ; --> FLET COND IF AND IF AND IF AND THE >= IF ; ==> ; (< SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; compiling (DEFUN REGEX-APROPOS ...) ; file: /usr/share/common-lisp/source/cl-ppcre/api.lisp ; in: DEFUN REGEX-APROPOS ; (DEFUN CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; "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 scanner ; is used." ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES)) ; --> PROGN ; ==> ; (SB-IMPL::%DEFUN 'CL-PPCRE:REGEX-APROPOS ; (SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE ; (OPTIMIZE SPEED (SAFETY 0) (SPACE 0) (DEBUG 1) ; (COMPILATION-SPEED 0))) ; (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))) ; "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 scanner ; is used." ; 'NIL (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; compiling (LET* (# #) ...) ; compiling (LET* (# # ...) ...) ; compiling (LET* (# # ...) ...) ; compiling (DEFUN PARSE-TREE-SYNONYM ...) ; compiling (DEFUN (SETF PARSE-TREE-SYNONYM) ...) ; compiling (DEFMACRO DEFINE-PARSE-TREE-SYNONYM ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/cl-ppcre/api-TMP.fasl written ; compilation finished in 0:00:00.427 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/share/common-lisp/source/clx/package.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :COMMON-LISP-USER) ; compiling (DEFPACKAGE XLIB ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/package-TMP.fasl written ; compilation finished in 0:00:00.007 ; compiling file "/usr/share/common-lisp/source/clx/depdefs.lisp" (written 01 MAY 2012 12:23:25 AM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DECLAIM (DECLARATION CLX-VALUES)) ; compiling (DECLAIM (DECLARATION ARGLIST)) ; compiling (DECLAIM (DECLARATION INDENTATION)) ; compiling (DEFMACRO WITH-VECTOR ...) ; compiling (DEFMACRO WITHIN-DEFINITION ...) ; compiling (DEFCONSTANT +CLX-CACHED-TYPES+ ...) ; compiling (DEFMACRO RESOURCE-ID-MAP-TEST ...) ; compiling (DEFMACRO ATOM-CACHE-MAP-TEST ...) ; compiling (DEFMACRO KEYSYM->CHARACTER-MAP-TEST ...) ; compiling (PUSHNEW :CLX-LITTLE-ENDIAN ...) ; compiling (ECASE SB-C:*BACKEND-BYTE-ORDER* ...) ; compiling (DEFTYPE BUFFER-BYTES ...) ; compiling (DEFTYPE ARRAY-INDEX ...) ; compiling (DEFUN MAKE-INDEX-TYPED ...) ; compiling (DEFUN MAKE-INDEX-OP ...) ; compiling (DEFMACRO INDEX+ ...) ; compiling (DEFMACRO INDEX-LOGAND ...) ; compiling (DEFMACRO INDEX-LOGIOR ...) ; compiling (DEFMACRO INDEX- ...) ; compiling (DEFMACRO INDEX* ...) ; compiling (DEFMACRO INDEX1+ ...) ; compiling (DEFMACRO INDEX1- ...) ; compiling (DEFMACRO INDEX-INCF ...) ; compiling (DEFMACRO INDEX-DECF ...) ; compiling (DEFMACRO INDEX-MIN ...) ; compiling (DEFMACRO INDEX-MAX ...) ; compiling (DEFMACRO INDEX-FLOOR ...) ; compiling (DEFMACRO INDEX-CEILING ...) ; compiling (DEFMACRO INDEX-TRUNCATE ...) ; compiling (DEFMACRO INDEX-MOD ...) ; compiling (DEFMACRO INDEX-ASH ...) ; compiling (DEFMACRO INDEX-PLUSP ...) ; compiling (DEFMACRO INDEX-ZEROP ...) ; compiling (DEFMACRO INDEX-EVENP ...) ; compiling (DEFMACRO INDEX-ODDP ...) ; compiling (DEFMACRO INDEX> ...) ; compiling (DEFMACRO INDEX= ...) ; compiling (DEFMACRO INDEX< ...) ; compiling (DEFMACRO INDEX>= ...) ; compiling (DEFMACRO INDEX<= ...) ; compiling (DEFCONSTANT +REPLYSIZE+ ...) ; compiling (DEFVAR *EMPTY-BYTES* ...) ; compiling (DECLAIM (TYPE BUFFER-BYTES ...)) ; compiling (DEFSTRUCT (REPLY-BUFFER # ...) ...) ; compiling (DEFCONSTANT +BUFFER-TEXT16-SIZE+ ...) ; compiling (DEFTYPE BUFFER-TEXT16 ...) ; compiling (DEFPARAMETER *XLIB-PACKAGE* ...) ; compiling (DEFUN XINTERN ...) ; compiling (DEFPARAMETER *KEYWORD-PACKAGE* ...) ; compiling (DEFUN KINTERN ...) ; compiling (DEFVAR *DEF-CLX-CLASS-USE-DEFCLASS* ...) ; compiling (DEFMACRO DEF-CLX-CLASS ...) ; compiling (DEF-CLX-CLASS (BUFFER # ...) ...) ; compiling (DEFCONSTANT +IMAGE-BIT-LSB-FIRST-P+ ...) ; compiling (DEFCONSTANT +IMAGE-BYTE-LSB-FIRST-P+ ...) ; compiling (DEFCONSTANT +IMAGE-UNIT+ ...) ; compiling (DEFCONSTANT +IMAGE-PAD+ ...) ; compiling (DEFCONSTANT +X-UNIX-SOCKET-PATH+ ...) ; compiling (DEFUN UNIX-SOCKET-PATH-FROM-HOST ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/depdefs-TMP.fasl written ; compilation finished in 0:00:00.180 ; compiling file "/usr/share/common-lisp/source/clx/clx.lisp" (written 01 MAY 2012 12:23:25 AM): ; compiling (IN-PACKAGE :XLIB) ; compiling (PUSHNEW :CLX ...) ; compiling (PUSHNEW :XLIB ...) ; compiling (DEFPARAMETER *VERSION* ...) ; compiling (PUSHNEW :CLX-MIT-R4 ...) ; compiling (PUSHNEW :CLX-MIT-R5 ...) ; compiling (DEFPARAMETER *PROTOCOL-MAJOR-VERSION* ...) ; compiling (DEFPARAMETER *PROTOCOL-MINOR-VERSION* ...) ; compiling (DEFPARAMETER *X-TCP-PORT* ...) ; compiling (DEFTYPE GENERALIZED-BOOLEAN ...) ; compiling (DEFTYPE CARD32 ...) ; compiling (DEFTYPE CARD29 ...) ; compiling (DEFTYPE CARD24 ...) ; compiling (DEFTYPE INT32 ...) ; compiling (DEFTYPE CARD16 ...) ; compiling (DEFTYPE INT16 ...) ; compiling (DEFTYPE CARD8 ...) ; compiling (DEFTYPE INT8 ...) ; compiling (DEFTYPE CARD4 ...) ; compiling (DEFTYPE CHAR8 ...) ; compiling (DEFTYPE RGB-VAL ...) ; compiling (DEFTYPE ANGLE ...) ; compiling (DEFTYPE MASK32 ...) ; compiling (DEFTYPE MASK16 ...) ; compiling (DEFTYPE PIXEL ...) ; compiling (DEFTYPE IMAGE-DEPTH ...) ; compiling (DEFTYPE RESOURCE-ID ...) ; compiling (DEFTYPE KEYSYM ...) ; compiling (DEF-CLX-CLASS (COLOR # ...) ...) ; compiling (DEFUN PRINT-COLOR ...) ; compiling (DEFUN MAKE-COLOR ...) ; compiling (DEFUN COLOR-RGB ...) ; compiling (DEF-CLX-CLASS (BITMAP-FORMAT # ...) ...) ; compiling (DEFUN PRINT-BITMAP-FORMAT ...) ; compiling (DEF-CLX-CLASS (PIXMAP-FORMAT # ...) ...) ; compiling (DEFUN PRINT-PIXMAP-FORMAT ...) ; compiling (DEFPARAMETER *ATOM-CACHE-SIZE* ...) ; compiling (DEFPARAMETER *RESOURCE-ID-MAP-SIZE* ...) ; compiling (DEF-CLX-CLASS (DISPLAY # ...) ...) ; compiling (DEFUN PRINT-DISPLAY-NAME ...) ; compiling (DEFUN PRINT-DISPLAY ...) ; compiling (DEF-CLX-CLASS (DRAWABLE # ...) ...) ; compiling (DEFUN PRINT-DRAWABLE ...) ; compiling (DEF-CLX-CLASS (WINDOW # ...)) ; compiling (DEF-CLX-CLASS (PIXMAP # ...)) ; compiling (DEF-CLX-CLASS (VISUAL-INFO # ...) ...) ; compiling (DEFUN PRINT-VISUAL-INFO ...) ; compiling (DEF-CLX-CLASS (COLORMAP # ...) ...) ; compiling (DEFUN PRINT-COLORMAP ...) ; compiling (DEF-CLX-CLASS (CURSOR # ...) ...) ; compiling (DEFUN PRINT-CURSOR ...) ; compiling (DEFTYPE XATOM ...) ; compiling (DEFCONSTANT +PREDEFINED-ATOMS+ ...) ; compiling (DEFTYPE STRINGABLE ...) ; compiling (DEFTYPE FONTABLE ...) ; compiling (DEFTYPE TIMESTAMP ...) ; compiling (DEFCONSTANT +BIT-GRAVITY-VECTOR+ ...) ; compiling (DEFTYPE BIT-GRAVITY ...) ; compiling (DEFCONSTANT +WIN-GRAVITY-VECTOR+ ...) ; compiling (DEFPARAMETER *PROTOCOL-FAMILIES* ...) ; compiling (DEFTYPE WIN-GRAVITY ...) ; compiling (DEFTYPE GRAB-STATUS ...) ; compiling (DEFTYPE ALIST ...) ; compiling (DEFTYPE CLX-LIST ...) ; compiling (DEFTYPE CLX-SEQUENCE ...) ; compiling (DEFTYPE REPEAT-SEQ ...) ; compiling (DEFTYPE POINT-SEQ ...) ; compiling (DEFTYPE SEG-SEQ ...) ; compiling (DEFTYPE RECT-SEQ ...) ; compiling (DEFTYPE ARC-SEQ ...) ; compiling (DEFTYPE GCONTEXT-STATE ...) ; compiling (DEF-CLX-CLASS (GCONTEXT # ...) ...) ; compiling (DEFUN PRINT-GCONTEXT ...) ; compiling (DEFCONSTANT +EVENT-MASK-VECTOR+ ...) ; compiling (DEFTYPE EVENT-MASK-CLASS ...) ; compiling (DEFTYPE EVENT-MASK ...) ; compiling (DEFCONSTANT +POINTER-EVENT-MASK-VECTOR+ ...) ; compiling (DEFTYPE POINTER-EVENT-MASK-CLASS ...) ; compiling (DEFTYPE POINTER-EVENT-MASK ...) ; compiling (DEFCONSTANT +DEVICE-EVENT-MASK-VECTOR+ ...) ; compiling (DEFTYPE DEVICE-EVENT-MASK-CLASS ...) ; compiling (DEFTYPE DEVICE-EVENT-MASK ...) ; compiling (DEFCONSTANT +STATE-MASK-VECTOR+ ...) ; compiling (DEFTYPE MODIFIER-KEY ...) ; compiling (DEFTYPE MODIFIER-MASK ...) ; compiling (DEFTYPE STATE-MASK-KEY ...) ; compiling (DEFCONSTANT +GCONTEXT-COMPONENTS+ ...) ; compiling (DEFTYPE GCONTEXT-KEY ...) ; compiling (DEFTYPE EVENT-KEY ...) ; compiling (DEFTYPE ERROR-KEY ...) ; compiling (DEFTYPE DRAW-DIRECTION ...) ; compiling (DEFCONSTANT +BOOLE-VECTOR+ ...) ; compiling (DEFTYPE BOOLE-CONSTANT ...) ; compiling (DEF-CLX-CLASS (SCREEN # ...) ...) ; compiling (DEFUN PRINT-SCREEN ...) ; compiling (DEFUN SCREEN-ROOT-VISUAL ...) ; compiling (DEFTYPE FONT-PROPS ...) ; compiling (DEF-CLX-CLASS (FONT-INFO # ...) ...) ; compiling (DEF-CLX-CLASS (FONT # ...) ...) ; compiling (DEFUN PRINT-FONT ...) ; compiling (DEFUN FONT-ID ...) ; compiling (DEFUN FONT-FONT-INFO ...) ; compiling (DEFUN FONT-CHAR-INFOS ...) ; compiling (DEFUN MAKE-FONT ...) ; compiling (MAKE-FONT-INFO-ACCESSORS IGNORE ...) ; compiling (DEFUN FONT-PROPERTY ...) ; compiling (MAKE-MUMBLE-EQUAL WINDOW) ; compiling (MAKE-MUMBLE-EQUAL PIXMAP) ; compiling (MAKE-MUMBLE-EQUAL CURSOR) ; compiling (MAKE-MUMBLE-EQUAL FONT) ; compiling (MAKE-MUMBLE-EQUAL GCONTEXT) ; compiling (MAKE-MUMBLE-EQUAL COLORMAP) ; compiling (MAKE-MUMBLE-EQUAL DRAWABLE) ; compiling (DEFUN ENCODE-MASK ...) ; compiling (DEFUN DECODE-MASK ...) ; compiling (DEFUN ENCODE-EVENT-MASK ...) ; file: /usr/share/common-lisp/source/clx/clx.lisp ; in: DEFUN ENCODE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:EVENT-MASK 'XLIB:EVENT-MASK) ; ==> ; XLIB:EVENT-MASK ; ; note: deleting unreachable code ; compiling (DEFUN MAKE-EVENT-MASK ...) ; compiling (DEFUN MAKE-EVENT-KEYS ...) ; compiling (DEFUN ENCODE-DEVICE-EVENT-MASK ...) ; file: /usr/share/common-lisp/source/clx/clx.lisp ; in: DEFUN ENCODE-DEVICE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:DEVICE-EVENT-MASK 'XLIB:DEVICE-EVENT-MASK) ; ==> ; XLIB:DEVICE-EVENT-MASK ; ; note: deleting unreachable code ; compiling (DEFUN ENCODE-MODIFIER-MASK ...) ; file: /usr/share/common-lisp/source/clx/clx.lisp ; in: DEFUN ENCODE-MODIFIER-MASK ; (XLIB::X-TYPE-ERROR XLIB:MODIFIER-MASK 'XLIB:MODIFIER-MASK) ; ==> ; XLIB:MODIFIER-MASK ; ; note: deleting unreachable code ; compiling (DEFUN ENCODE-STATE-MASK ...) ; file: /usr/share/common-lisp/source/clx/clx.lisp ; in: DEFUN ENCODE-STATE-MASK ; (XLIB::X-TYPE-ERROR XLIB::STATE-MASK ; '(OR XLIB:MASK16 (XLIB::CLX-LIST XLIB:STATE-MASK-KEY))) ; ==> ; XLIB::STATE-MASK ; ; note: deleting unreachable code ; compiling (DEFUN MAKE-STATE-MASK ...) ; compiling (DEFUN MAKE-STATE-KEYS ...) ; compiling (DEFUN ENCODE-POINTER-EVENT-MASK ...) ; file: /usr/share/common-lisp/source/clx/clx.lisp ; in: DEFUN ENCODE-POINTER-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:POINTER-EVENT-MASK 'XLIB:POINTER-EVENT-MASK) ; ==> ; XLIB:POINTER-EVENT-MASK ; ; note: deleting unreachable code ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/clx-TMP.fasl written ; compilation finished in 0:00:00.224 ; compiling file "/usr/share/common-lisp/source/clx/dependent.lisp" (written 01 MAY 2012 12:23:25 AM): ; compiling (IN-PACKAGE :XLIB) ; compiling (PROCLAIM (QUOTE #)) ; compiling (DEFPARAMETER *OUTPUT-BUFFER-SIZE* ...) ; compiling (DEFPARAMETER *REPLY-TIMEOUT* ...) ; compiling (DEFCONSTANT +WORD-0+ ...) ; compiling (DEFCONSTANT +WORD-1+ ...) ; compiling (DEFCONSTANT +LONG-0+ ...) ; compiling (DEFCONSTANT +LONG-1+ ...) ; compiling (DEFCONSTANT +LONG-2+ ...) ; compiling (DEFCONSTANT +LONG-3+ ...) ; compiling (DEFCONSTANT +BUFFER-SPEED+ ...) ; compiling (DEFCONSTANT +BUFFER-SAFETY+ ...) ; compiling (DEFCONSTANT +BUFFER-DEBUG+ ...) ; compiling (DEFUN DECLARE-BUFMAC ...) ; compiling (DEFUN DECLARE-BUFFUN ...) ; compiling (DECLAIM (INLINE CARD8->INT8 ...)) ; compiling (DEFUN CARD8->INT8 ...) ; compiling (DEFUN INT8->CARD8 ...) ; compiling (DEFUN CARD16->INT16 ...) ; compiling (DEFUN INT16->CARD16 ...) ; compiling (DEFUN CARD32->INT32 ...) ; compiling (DEFUN INT32->CARD32 ...) ; compiling (DECLAIM (INLINE AREF-CARD8 ...)) ; compiling (DEFUN AREF-CARD8 ...) ; compiling (DEFUN ASET-CARD8 ...) ; compiling (DEFUN AREF-INT8 ...) ; compiling (DEFUN ASET-INT8 ...) ; compiling (DEFUN AREF-CARD16 ...) ; compiling (DEFUN ASET-CARD16 ...) ; compiling (DEFUN AREF-INT16 ...) ; compiling (DEFUN ASET-INT16 ...) ; compiling (DEFUN AREF-CARD32 ...) ; compiling (DEFUN ASET-CARD32 ...) ; compiling (DEFUN AREF-INT32 ...) ; compiling (DEFUN ASET-INT32 ...) ; compiling (DEFUN AREF-CARD29 ...) ; compiling (DEFUN ASET-CARD29 ...) ; compiling (DEFSETF AREF-CARD8 ...) ; compiling (DEFSETF AREF-INT8 ...) ; compiling (DEFSETF AREF-CARD16 ...) ; compiling (DEFSETF AREF-INT16 ...) ; compiling (DEFSETF AREF-CARD32 ...) ; compiling (DEFSETF AREF-INT32 ...) ; compiling (DEFSETF AREF-CARD29 ...) ; compiling (DEFUN RGB-VAL->CARD16 ...) ; compiling (DEFUN CARD16->RGB-VAL ...) ; compiling (DEFUN RADIANS->INT16 ...) ; compiling (DEFUN INT16->RADIANS ...) ; compiling (DEFTYPE ANGLE ...) ; compiling (DEFUN ANGLEP ...) ; compiling (DECLAIM (INLINE CHAR->CARD8 ...)) ; compiling (CHAR-TRANSLATORS) ; compiling (DEFUN MAKE-PROCESS-LOCK ...) ; compiling (DEFMACRO HOLDING-LOCK ...) ; compiling (DEFMACRO WITHOUT-ABORTS ...) ; compiling (DECLAIM (INLINE YIELD)) ; compiling (DEFUN YIELD ...) ; compiling (DEFUN PROCESS-BLOCK ...) ; compiling (DECLAIM (INLINE PROCESS-WAKEUP)) ; compiling (DEFUN PROCESS-WAKEUP ...) ; compiling (DECLAIM (INLINE CURRENT-PROCESS)) ; compiling (DEFUN CURRENT-PROCESS ...) ; compiling (DEFMACRO WITHOUT-INTERRUPTS ...) ; compiling (DEFVAR *WITHOUT-INTERRUPTS-SIC-LOCK* ...) ; compiling (DEFMACRO WITHOUT-INTERRUPTS ...) ; compiling (DEFVAR *CONDITIONAL-STORE-LOCK* ...) ; compiling (DEFMACRO CONDITIONAL-STORE ...) ; compiling (DEFMACRO WRAP-BUF-OUTPUT ...) ; compiling (DEFMACRO WRAP-BUF-INPUT ...) ; compiling (DEFUN OPEN-X-STREAM ...) ; compiling (DEFUN BUFFER-READ-DEFAULT ...) ; file: /usr/share/common-lisp/source/clx/dependent.lisp ; in: DEFUN BUFFER-READ-DEFAULT ; (SB-SYS:READ-N-BYTES (XLIB::DISPLAY-INPUT-STREAM XLIB:DISPLAY) VECTOR ; XLIB::START (- XLIB::END XLIB::START)) ; --> BLOCK IF LET* SB-IMPL::EOF-OR-LOSE IF AND IF AND THE ; ==> ; (< SB-IMPL::READ-END SB-IMPL::END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a (INTEGER -4611686018427387901 ; 9223372036854775802), not a FIXNUM. ; --> BLOCK IF LET* ; ==> ; (+ SB-IMPL::START SB-IMPL::NUMBYTES) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; compiling (DEFUN BUFFER-WRITE-DEFAULT ...) ; compiling (DEFUN BUFFER-FORCE-OUTPUT-DEFAULT ...) ; compiling (DEFUN BUFFER-CLOSE-DEFAULT ...) ; compiling (DEFUN BUFFER-INPUT-WAIT-DEFAULT ...) ; compiling (DEFUN BUFFER-LISTEN-DEFAULT ...) ; compiling (DEFMACRO WITH-STACK-LIST ...) ; compiling (DEFMACRO WITH-STACK-LIST* ...) ; compiling (DECLAIM (INLINE BUFFER-REPLACE)) ; compiling (DEFUN BUFFER-REPLACE ...) ; compiling (DEFMACRO WITH-GCONTEXT-BINDINGS ...) ; compiling (DEFCONSTANT +TYPE-CHECK?+ ...) ; compiling (DEFMACRO TYPE? ...) ; compiling (DEFUN X-TYPE-ERROR ...) ; compiling (DEFUN DEFAULT-ERROR-HANDLER ...) ; compiling (DEFUN X-ERROR ...) ; compiling (DEFUN X-CERROR ...) ; compiling (DEFINE-CONDITION X-ERROR ...) ; compiling (DEFUN HOST-ADDRESS ...) ; compiling (DEFMACRO USE-CLOSURES ...) ; compiling (DEFUN CLX-MACROEXPAND ...) ; compiling (DEFUN GETENV ...) ; compiling (DEFUN GET-HOST-NAME ...) ; compiling (DEFUN HOMEDIR-FILE-PATHNAME ...) ; compiling (DEFUN DEFAULT-RESOURCES-PATHNAME ...) ; compiling (DEFUN RESOURCES-PATHNAME ...) ; compiling (DEFUN AUTHORITY-PATHNAME ...) ; compiling (DEFUN GET-DEFAULT-DISPLAY ...) ; compiling (DEFUN GC-CLEANUP ...) ; compiling (DEFUN DEFAULT-KEYSYM-TRANSLATE ...) ; compiling (DEFTYPE PIXARRAY-1-ELEMENT-TYPE ...) ; compiling (DEFTYPE PIXARRAY-4-ELEMENT-TYPE ...) ; compiling (DEFTYPE PIXARRAY-8-ELEMENT-TYPE ...) ; compiling (DEFTYPE PIXARRAY-16-ELEMENT-TYPE ...) ; compiling (DEFTYPE PIXARRAY-24-ELEMENT-TYPE ...) ; compiling (DEFTYPE PIXARRAY-32-ELEMENT-TYPE ...) ; compiling (DEFTYPE PIXARRAY-1 ...) ; compiling (DEFTYPE PIXARRAY-4 ...) ; compiling (DEFTYPE PIXARRAY-8 ...) ; compiling (DEFTYPE PIXARRAY-16 ...) ; compiling (DEFTYPE PIXARRAY-24 ...) ; compiling (DEFTYPE PIXARRAY-32 ...) ; compiling (DEFTYPE PIXARRAY ...) ; compiling (DEFTYPE BITMAP ...) ; compiling (DEFMACRO WITH-UNDERLYING-SIMPLE-VECTOR ...) ; compiling (DEFMACRO READ-IMAGE-LOAD-BYTE ...) ; compiling (DEFMACRO READ-IMAGE-ASSEMBLE-BYTES ...) ; compiling (DEFMACRO WRITE-IMAGE-LOAD-BYTE ...) ; compiling (DEFMACRO WRITE-IMAGE-ASSEMBLE-BYTES ...) ; compiling (DEFUN FAST-READ-PIXARRAY-24 ...) ; compiling (DEFUN PIXARRAY-ELEMENT-SIZE ...) ; compiling (DEFUN COPY-BIT-RECT ...) ; compiling (DEFUN FAST-READ-PIXARRAY-USING-BITBLT ...) ; compiling (DEFUN FAST-READ-PIXARRAY ...) ; file: /usr/share/common-lisp/source/clx/dependent.lisp ; in: DEFUN FAST-READ-PIXARRAY ; (XLIB::READ-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X ; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE ; XLIB::BITS-PER-PIXEL FUNCTION XLIB::UNIT ...) ; ==> ; XLIB::BBUF ; ; note: deleting unreachable code ; compiling (DEFUN FAST-WRITE-PIXARRAY-24 ...) ; compiling (DEFUN FAST-WRITE-PIXARRAY-USING-BITBLT ...) ; file: /usr/share/common-lisp/source/clx/dependent.lisp ; in: DEFUN FAST-WRITE-PIXARRAY-USING-BITBLT ; (ARRAY-DIMENSION XLIB:PIXARRAY 1) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; compiling (DEFUN FAST-WRITE-PIXARRAY ...) ; file: /usr/share/common-lisp/source/clx/dependent.lisp ; in: DEFUN FAST-WRITE-PIXARRAY ; (XLIB::WRITE-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X ; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE ; XLIB::BITS-PER-PIXEL FUNCTION XLIB::+IMAGE-UNIT+ ...) ; ==> ; XLIB::BBUF ; ; note: deleting unreachable code ; compiling (DEFUN FAST-COPY-PIXARRAY ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/dependent-TMP.fasl written ; compilation finished in 0:00:00.346 STYLE-WARNING: redefining XLIB::WITHOUT-INTERRUPTS in DEFMACRO ; compiling file "/usr/share/common-lisp/source/clx/macros.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFMACRO TYPE-CHECK ...) ; compiling (DEFVAR *REQUIRED-ARG-DUMMY*) ; compiling (DEFMACRO REQUIRED-ARG ...) ; compiling (DEFMACRO LROUND ...) ; compiling (DEFMACRO WROUND ...) ; compiling (DEFUN INDEX-INCREMENT ...) ; compiling (DEFUN GETIFY ...) ; compiling (DEFUN PUTIFY ...) ; compiling (DEFMACRO DEFINE-ACCESSOR ...) ; compiling (DEFINE-ACCESSOR CARD32 ...) ; compiling (DEFINE-ACCESSOR CARD29 ...) ; compiling (DEFINE-ACCESSOR CARD16 ...) ; compiling (DEFINE-ACCESSOR CARD8 ...) ; compiling (DEFINE-ACCESSOR INTEGER ...) ; compiling (DEFINE-ACCESSOR INT16 ...) ; compiling (DEFINE-ACCESSOR RGB-VAL ...) ; compiling (DEFINE-ACCESSOR ANGLE ...) ; compiling (DEFINE-ACCESSOR BIT ...) ; compiling (DEFINE-ACCESSOR BOOLEAN ...) ; compiling (DEFINE-ACCESSOR DRAWABLE ...) ; compiling (DEFINE-ACCESSOR WINDOW ...) ; compiling (DEFINE-ACCESSOR PIXMAP ...) ; compiling (DEFINE-ACCESSOR GCONTEXT ...) ; compiling (DEFINE-ACCESSOR CURSOR ...) ; compiling (DEFINE-ACCESSOR COLORMAP ...) ; compiling (DEFINE-ACCESSOR FONT ...) ; compiling (DEFINE-ACCESSOR KEYWORD ...) ; compiling (DEFINE-ACCESSOR RESOURCE-ID ...) ; compiling (DEFINE-ACCESSOR RESOURCE-ID-OR-NIL ...) ; compiling (DEFMACRO CHAR-INFO-GET ...) ; compiling (DEFINE-ACCESSOR MEMBER8 ...) ; compiling (DEFINE-ACCESSOR MEMBER16 ...) ; compiling (DEFINE-ACCESSOR MEMBER ...) ; compiling (DEFTYPE MEMBER-VECTOR ...) ; compiling (DEFINE-ACCESSOR MEMBER-VECTOR ...) ; compiling (DEFINE-ACCESSOR MEMBER16-VECTOR ...) ; compiling (DEFINE-ACCESSOR MEMBER8-VECTOR ...) ; compiling (DEFINE-ACCESSOR BOOLE-CONSTANT ...) ; compiling (DEFINE-ACCESSOR NULL ...) ; compiling (DEFINE-ACCESSOR PAD8 ...) ; compiling (DEFINE-ACCESSOR PAD16 ...) ; compiling (DEFINE-ACCESSOR PAD32 ...) ; compiling (DEFINE-ACCESSOR BIT-VECTOR256 ...) ; compiling (DEFINE-ACCESSOR STRING ...) ; compiling (DEFINE-ACCESSOR SEQUENCE ...) ; compiling (DEFMACRO CLIENT-MESSAGE-EVENT-GET-SEQUENCE ...) ; compiling (DEFMACRO CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ...) ; compiling (DEFINE-ACCESSOR CLIENT-MESSAGE-SEQUENCE ...) ; compiling (DEFINE-ACCESSOR CODE ...) ; compiling (DEFINE-ACCESSOR LENGTH ...) ; compiling (DEFTYPE DATA ...) ; compiling (DEFINE-ACCESSOR DATA ...) ; compiling (DEFMACRO OR-EXPAND ...) ; compiling (DEFINE-ACCESSOR OR ...) ; compiling (SETF (GET # ...) ...) ; compiling (DEFUN MASK-GET ...) ; file: /usr/share/common-lisp/source/clx/macros.lisp ; in: DEFUN MASK-GET ; (DEFUN XLIB::MASK-GET (XLIB::INDEX XLIB::TYPE-VALUES XLIB::BODY-FUNCTION) ; (DECLARE (TYPE FUNCTION XLIB::BODY-FUNCTION) ; (DYNAMIC-EXTENT XLIB::BODY-FUNCTION)) ; (LET* ((BIT 0) (XLIB::RESULT (MAPCAR #'# #))) ; `(,@(WHEN (ATOM #) (LIST #)) ; (PROGN (SETQ #) (SETQ #) ,(CAR XLIB::RESULT)) ,@(CDR XLIB::RESULT)))) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G1479 ; ; note: could not stack allocate BODY-FUNCTION in: ; (DEFUN MASK-GET (INDEX TYPE-VALUES BODY-FUNCTION) ; (DECLARE (TYPE FUNCTION BODY-FUNCTION) ; (DYNAMIC-EXTENT BODY-FUNCTION)) ; (LET* ((BIT 0) ; (RESULT ; (MAPCAR ; #'(LAMBDA (FORM) ; (IF (ATOM FORM) ; FORM ; (PROG1 `(WHEN (LOGBITP ,BIT %MASK) ,FORM) ; (INCF BIT)))) ; (GET-PUT-ITEMS (+ INDEX 4) TYPE-VALUES NIL ; #'(LAMBDA (TYPE INDEX ITEM ARGS) ; (DECLARE (IGNORE INDEX)) ; (FUNCALL BODY-FUNCTION TYPE '(* (INCF %INDEX) 4) ITEM ; ARGS)))))) ; `(,@(WHEN (ATOM (CAR RESULT)) (LIST (POP RESULT))) ; (PROGN ; (SETQ %MASK (READ-CARD32 ,INDEX)) ; (SETQ %INDEX ,(CEILING INDEX 4)) ; ,(CAR RESULT)) ; ,@(CDR RESULT)))) ; compiling (DEFUN MASK-PUT ...) ; file: /usr/share/common-lisp/source/clx/macros.lisp ; in: DEFUN MASK-PUT ; (DEFUN XLIB::MASK-PUT (XLIB::INDEX XLIB::TYPE-VALUES XLIB::BODY-FUNCTION) ; (DECLARE (TYPE FUNCTION XLIB::BODY-FUNCTION) ; (DYNAMIC-EXTENT XLIB::BODY-FUNCTION)) ; `((LET ((XLIB::%MASK 0) (XLIB::%INDEX ,XLIB::INDEX)) ; ,@(LET (#) ; (XLIB::GET-PUT-ITEMS XLIB::INDEX XLIB::TYPE-VALUES T #'#)) ; (XLIB::WRITE-CARD32 ,XLIB::INDEX XLIB::%MASK) ; (XLIB::WRITE-CARD16 2 (XLIB::INDEX-CEILING # 4)) ; (INCF (XLIB::BUFFER-BOFFSET XLIB::%BUFFER) XLIB::%INDEX)))) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G1525 ; ; note: could not stack allocate BODY-FUNCTION in: ; (DEFUN MASK-PUT (INDEX TYPE-VALUES BODY-FUNCTION) ; (DECLARE (TYPE FUNCTION BODY-FUNCTION) ; (DYNAMIC-EXTENT BODY-FUNCTION)) ; `((LET ((%MASK 0) (%INDEX ,INDEX)) ; ,@(LET ((BIT 1)) ; (GET-PUT-ITEMS INDEX TYPE-VALUES T ; #'(LAMBDA (TYPE INDEX ITEM ARGS) ; (DECLARE (IGNORE INDEX)) ; (IF (OR (SYMBOLP ITEM) (CONSTANTP ITEM)) ; `((UNLESS (NULL ,ITEM) ; (SETQ %MASK ; (LOGIOR %MASK ,(SHIFTF BIT (ASH BIT 1)))) ; ,@(FUNCALL BODY-FUNCTION TYPE ; `(INDEX-INCF %INDEX 4) ITEM ARGS))) ; `((LET ((.ITEM. ,ITEM)) ; (UNLESS (NULL .ITEM.) ; (SETQ %MASK ; (LOGIOR %MASK ; ,(SHIFTF BIT (ASH BIT 1)))) ; ,@(FUNCALL BODY-FUNCTION TYPE ; `(INDEX-INCF %INDEX 4) '.ITEM. ; ARGS)))))))) ; (WRITE-CARD32 ,INDEX %MASK) ; (WRITE-CARD16 2 (INDEX-CEILING (INDEX-INCF %INDEX 4) 4)) ; (INCF (BUFFER-BOFFSET %BUFFER) %INDEX)))) ; compiling (DEFINE-ACCESSOR PROGN ...) ; compiling (DEFMACRO CHECK-PUT ...) ; compiling (DEFUN GET-PUT-ITEMS ...) ; file: /usr/share/common-lisp/source/clx/macros.lisp ; in: DEFUN GET-PUT-ITEMS ; (DEFUN XLIB::GET-PUT-ITEMS ; (XLIB::INDEX XLIB::TYPE-ARGS XLIB::PUTP &OPTIONAL XLIB::BODY-FUNCTION) ; (DECLARE (TYPE (OR NULL FUNCTION) XLIB::BODY-FUNCTION) ; (DYNAMIC-EXTENT XLIB::BODY-FUNCTION)) ; (UNLESS XLIB::BODY-FUNCTION (SETQ XLIB::BODY-FUNCTION #'(LAMBDA # `#))) ; (DO* ((XLIB::ITEMS XLIB::TYPE-ARGS (CDR XLIB::ITEMS)) ; (TYPE (CAAR XLIB::ITEMS) (CAAR XLIB::ITEMS)) ; (XLIB::ARGS NIL NIL) ; (XLIB::RESULT NIL) ; (XLIB::SIZES NIL)) ; ((ENDP XLIB::ITEMS) (VALUES XLIB::RESULT XLIB::INDEX XLIB::SIZES)) ; (WHEN (CONSP TYPE) ; (SETQ XLIB::ARGS # ; TYPE #)) ; (COND ((MEMBER TYPE '#)) ((EQ TYPE 'XLIB::MASK) (SETQ #)) ; (T (DO* # # # # #))))) ; --> PROGN SB-IMPL::%DEFUN COND IF COND IF PROGN SB-C::%FUNCALL ; --> MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G1804 ; ; note: could not stack allocate BODY-FUNCTION in: ; (DEFUN GET-PUT-ITEMS (INDEX TYPE-ARGS PUTP &OPTIONAL BODY-FUNCTION) ; (DECLARE (TYPE (OR NULL FUNCTION) BODY-FUNCTION) ; (DYNAMIC-EXTENT BODY-FUNCTION)) ; (UNLESS BODY-FUNCTION ; (SETQ BODY-FUNCTION ; #'(LAMBDA (TYPE INDEX ITEM ARGS) ; `((CHECK-PUT ,INDEX ,ITEM ,TYPE ,@ARGS))))) ; (DO* ((ITEMS TYPE-ARGS (CDR ITEMS)) ; (TYPE (CAAR ITEMS) (CAAR ITEMS)) ; (ARGS NIL NIL) ; (RESULT NIL) ; (SIZES NIL)) ; ((ENDP ITEMS) (VALUES RESULT INDEX SIZES)) ; (WHEN (CONSP TYPE) ; (SETQ ARGS (CDR TYPE) ; TYPE (CAR TYPE))) ; (COND ((MEMBER TYPE '(RETURN BUFFER))) ; ((EQ TYPE 'MASK) ; (SETQ RESULT ; (APPEND RESULT ; (IF PUTP ; (MASK-PUT INDEX (CDAR ITEMS) ; BODY-FUNCTION) ; (MASK-GET INDEX (CDAR ITEMS) ; BODY-FUNCTION))) ; INDEX NIL)) ; (T ; (DO* ((ITEM (CDAR ITEMS) (CDR ITEM)) ; (INCREMENT (INDEX-INCREMENT TYPE))) ; ((ENDP ITEM)) ; (WHEN (CONSTANTP INDEX) ; (CASE INCREMENT ; (2 (SETQ INDEX (WROUND INDEX))) ; (4 (SETQ INDEX (LROUND INDEX))))) ; (SETQ RESULT ; (APPEND RESULT ; (FUNCALL BODY-FUNCTION TYPE INDEX ; (CAR ITEM) ARGS))) ; (WHEN (CONSTANTP INDEX) ; (IF (NULL INCREMENT) ; (SETQ INDEX NIL) ; (PROGN ; (INCF INDEX INCREMENT) ; (WHEN (AND INCREMENT (ZEROP INCREMENT)) ; (SETQ INCREMENT 1)) ; (PUSHNEW (* INCREMENT 8) SIZES))))))))) ; compiling (DEFMACRO WITH-BUFFER-REQUEST-INTERNAL ...) ; compiling (DEFMACRO WITH-BUFFER-REQUEST ...) ; compiling (DEFMACRO WITH-BUFFER-REQUEST-AND-REPLY ...) ; compiling (DEFMACRO COMPARE-REQUEST ...) ; compiling (DEFMACRO PUT-ITEMS ...) ; compiling (DEFMACRO DECODE-TYPE ...) ; compiling (DEFMACRO ENCODE-TYPE ...) ; compiling (DEFMACRO SET-DECODE-TYPE ...) ; compiling (DEFSETF DECODE-TYPE ...) ; compiling (DEFCONSTANT +X-CREATEWINDOW+ ...) ; compiling (DEFCONSTANT +X-CHANGEWINDOWATTRIBUTES+ ...) ; compiling (DEFCONSTANT +X-GETWINDOWATTRIBUTES+ ...) ; compiling (DEFCONSTANT +X-DESTROYWINDOW+ ...) ; compiling (DEFCONSTANT +X-DESTROYSUBWINDOWS+ ...) ; compiling (DEFCONSTANT +X-CHANGESAVESET+ ...) ; compiling (DEFCONSTANT +X-REPARENTWINDOW+ ...) ; compiling (DEFCONSTANT +X-MAPWINDOW+ ...) ; compiling (DEFCONSTANT +X-MAPSUBWINDOWS+ ...) ; compiling (DEFCONSTANT +X-UNMAPWINDOW+ ...) ; compiling (DEFCONSTANT +X-UNMAPSUBWINDOWS+ ...) ; compiling (DEFCONSTANT +X-CONFIGUREWINDOW+ ...) ; compiling (DEFCONSTANT +X-CIRCULATEWINDOW+ ...) ; compiling (DEFCONSTANT +X-GETGEOMETRY+ ...) ; compiling (DEFCONSTANT +X-QUERYTREE+ ...) ; compiling (DEFCONSTANT +X-INTERNATOM+ ...) ; compiling (DEFCONSTANT +X-GETATOMNAME+ ...) ; compiling (DEFCONSTANT +X-CHANGEPROPERTY+ ...) ; compiling (DEFCONSTANT +X-DELETEPROPERTY+ ...) ; compiling (DEFCONSTANT +X-GETPROPERTY+ ...) ; compiling (DEFCONSTANT +X-LISTPROPERTIES+ ...) ; compiling (DEFCONSTANT +X-SETSELECTIONOWNER+ ...) ; compiling (DEFCONSTANT +X-GETSELECTIONOWNER+ ...) ; compiling (DEFCONSTANT +X-CONVERTSELECTION+ ...) ; compiling (DEFCONSTANT +X-SENDEVENT+ ...) ; compiling (DEFCONSTANT +X-GRABPOINTER+ ...) ; compiling (DEFCONSTANT +X-UNGRABPOINTER+ ...) ; compiling (DEFCONSTANT +X-GRABBUTTON+ ...) ; compiling (DEFCONSTANT +X-UNGRABBUTTON+ ...) ; compiling (DEFCONSTANT +X-CHANGEACTIVEPOINTERGRAB+ ...) ; compiling (DEFCONSTANT +X-GRABKEYBOARD+ ...) ; compiling (DEFCONSTANT +X-UNGRABKEYBOARD+ ...) ; compiling (DEFCONSTANT +X-GRABKEY+ ...) ; compiling (DEFCONSTANT +X-UNGRABKEY+ ...) ; compiling (DEFCONSTANT +X-ALLOWEVENTS+ ...) ; compiling (DEFCONSTANT +X-GRABSERVER+ ...) ; compiling (DEFCONSTANT +X-UNGRABSERVER+ ...) ; compiling (DEFCONSTANT +X-QUERYPOINTER+ ...) ; compiling (DEFCONSTANT +X-GETMOTIONEVENTS+ ...) ; compiling (DEFCONSTANT +X-TRANSLATECOORDS+ ...) ; compiling (DEFCONSTANT +X-WARPPOINTER+ ...) ; compiling (DEFCONSTANT +X-SETINPUTFOCUS+ ...) ; compiling (DEFCONSTANT +X-GETINPUTFOCUS+ ...) ; compiling (DEFCONSTANT +X-QUERYKEYMAP+ ...) ; compiling (DEFCONSTANT +X-OPENFONT+ ...) ; compiling (DEFCONSTANT +X-CLOSEFONT+ ...) ; compiling (DEFCONSTANT +X-QUERYFONT+ ...) ; compiling (DEFCONSTANT +X-QUERYTEXTEXTENTS+ ...) ; compiling (DEFCONSTANT +X-LISTFONTS+ ...) ; compiling (DEFCONSTANT +X-LISTFONTSWITHINFO+ ...) ; compiling (DEFCONSTANT +X-SETFONTPATH+ ...) ; compiling (DEFCONSTANT +X-GETFONTPATH+ ...) ; compiling (DEFCONSTANT +X-CREATEPIXMAP+ ...) ; compiling (DEFCONSTANT +X-FREEPIXMAP+ ...) ; compiling (DEFCONSTANT +X-CREATEGC+ ...) ; compiling (DEFCONSTANT +X-CHANGEGC+ ...) ; compiling (DEFCONSTANT +X-COPYGC+ ...) ; compiling (DEFCONSTANT +X-SETDASHES+ ...) ; compiling (DEFCONSTANT +X-SETCLIPRECTANGLES+ ...) ; compiling (DEFCONSTANT +X-FREEGC+ ...) ; compiling (DEFCONSTANT +X-CLEARTOBACKGROUND+ ...) ; compiling (DEFCONSTANT +X-COPYAREA+ ...) ; compiling (DEFCONSTANT +X-COPYPLANE+ ...) ; compiling (DEFCONSTANT +X-POLYPOINT+ ...) ; compiling (DEFCONSTANT +X-POLYLINE+ ...) ; compiling (DEFCONSTANT +X-POLYSEGMENT+ ...) ; compiling (DEFCONSTANT +X-POLYRECTANGLE+ ...) ; compiling (DEFCONSTANT +X-POLYARC+ ...) ; compiling (DEFCONSTANT +X-FILLPOLY+ ...) ; compiling (DEFCONSTANT +X-POLYFILLRECTANGLE+ ...) ; compiling (DEFCONSTANT +X-POLYFILLARC+ ...) ; compiling (DEFCONSTANT +X-PUTIMAGE+ ...) ; compiling (DEFCONSTANT +X-GETIMAGE+ ...) ; compiling (DEFCONSTANT +X-POLYTEXT8+ ...) ; compiling (DEFCONSTANT +X-POLYTEXT16+ ...) ; compiling (DEFCONSTANT +X-IMAGETEXT8+ ...) ; compiling (DEFCONSTANT +X-IMAGETEXT16+ ...) ; compiling (DEFCONSTANT +X-CREATECOLORMAP+ ...) ; compiling (DEFCONSTANT +X-FREECOLORMAP+ ...) ; compiling (DEFCONSTANT +X-COPYCOLORMAPANDFREE+ ...) ; compiling (DEFCONSTANT +X-INSTALLCOLORMAP+ ...) ; compiling (DEFCONSTANT +X-UNINSTALLCOLORMAP+ ...) ; compiling (DEFCONSTANT +X-LISTINSTALLEDCOLORMAPS+ ...) ; compiling (DEFCONSTANT +X-ALLOCCOLOR+ ...) ; compiling (DEFCONSTANT +X-ALLOCNAMEDCOLOR+ ...) ; compiling (DEFCONSTANT +X-ALLOCCOLORCELLS+ ...) ; compiling (DEFCONSTANT +X-ALLOCCOLORPLANES+ ...) ; compiling (DEFCONSTANT +X-FREECOLORS+ ...) ; compiling (DEFCONSTANT +X-STORECOLORS+ ...) ; compiling (DEFCONSTANT +X-STORENAMEDCOLOR+ ...) ; compiling (DEFCONSTANT +X-QUERYCOLORS+ ...) ; compiling (DEFCONSTANT +X-LOOKUPCOLOR+ ...) ; compiling (DEFCONSTANT +X-CREATECURSOR+ ...) ; compiling (DEFCONSTANT +X-CREATEGLYPHCURSOR+ ...) ; compiling (DEFCONSTANT +X-FREECURSOR+ ...) ; compiling (DEFCONSTANT +X-RECOLORCURSOR+ ...) ; compiling (DEFCONSTANT +X-QUERYBESTSIZE+ ...) ; compiling (DEFCONSTANT +X-QUERYEXTENSION+ ...) ; compiling (DEFCONSTANT +X-LISTEXTENSIONS+ ...) ; compiling (DEFCONSTANT +X-SETKEYBOARDMAPPING+ ...) ; compiling (DEFCONSTANT +X-GETKEYBOARDMAPPING+ ...) ; compiling (DEFCONSTANT +X-CHANGEKEYBOARDCONTROL+ ...) ; compiling (DEFCONSTANT +X-GETKEYBOARDCONTROL+ ...) ; compiling (DEFCONSTANT +X-BELL+ ...) ; compiling (DEFCONSTANT +X-CHANGEPOINTERCONTROL+ ...) ; compiling (DEFCONSTANT +X-GETPOINTERCONTROL+ ...) ; compiling (DEFCONSTANT +X-SETSCREENSAVER+ ...) ; compiling (DEFCONSTANT +X-GETSCREENSAVER+ ...) ; compiling (DEFCONSTANT +X-CHANGEHOSTS+ ...) ; compiling (DEFCONSTANT +X-LISTHOSTS+ ...) ; compiling (DEFCONSTANT +X-CHANGEACCESSCONTROL+ ...) ; compiling (DEFCONSTANT +X-CHANGECLOSEDOWNMODE+ ...) ; compiling (DEFCONSTANT +X-KILLCLIENT+ ...) ; compiling (DEFCONSTANT +X-ROTATEPROPERTIES+ ...) ; compiling (DEFCONSTANT +X-FORCESCREENSAVER+ ...) ; compiling (DEFCONSTANT +X-SETPOINTERMAPPING+ ...) ; compiling (DEFCONSTANT +X-GETPOINTERMAPPING+ ...) ; compiling (DEFCONSTANT +X-SETMODIFIERMAPPING+ ...) ; compiling (DEFCONSTANT +X-GETMODIFIERMAPPING+ ...) ; compiling (DEFCONSTANT +X-NOOPERATION+ ...) ; compiling (DEFMACRO THREADED-ATOMIC-PUSH ...) ; compiling (DEFMACRO THREADED-ATOMIC-POP ...) ; compiling (DEFMACRO THREADED-NCONC ...) ; compiling (DEFMACRO THREADED-PUSH ...) ; compiling (DEFMACRO THREADED-POP ...) ; compiling (DEFMACRO THREADED-ENQUEUE ...) ; compiling (DEFMACRO THREADED-DEQUEUE ...) ; compiling (DEFMACRO THREADED-REQUEUE ...) ; compiling (DEFMACRO THREADED-DOLIST ...) ; compiling (DEFMACRO THREADED-DELETE ...) ; compiling (DEFMACRO THREADED-LENGTH ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/macros-TMP.fasl written ; compilation finished in 0:00:00.648 ; compiling file "/usr/share/common-lisp/source/clx/bufmac.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFMACRO WRITE-CARD8 ...) ; compiling (DEFMACRO WRITE-INT8 ...) ; compiling (DEFMACRO WRITE-CARD16 ...) ; compiling (DEFMACRO WRITE-INT16 ...) ; compiling (DEFMACRO WRITE-CARD32 ...) ; compiling (DEFMACRO WRITE-INT32 ...) ; compiling (DEFMACRO WRITE-CARD29 ...) ; compiling (DEFMACRO WRITE-CHAR2B ...) ; compiling (DEFMACRO SET-BUFFER-OFFSET ...) ; compiling (DEFMACRO ADVANCE-BUFFER-OFFSET ...) ; compiling (DEFMACRO WITH-BUFFER-OUTPUT ...) ; compiling (DEFMACRO WRITING-BUFFER-CHUNKS ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/bufmac-TMP.fasl written ; compilation finished in 0:00:00.064 ; compiling file "/usr/share/common-lisp/source/clx/buffer.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFCONSTANT +REQUESTSIZE+ ...) ; compiling (DEFMACRO WITH-BUFFER ...) ; compiling (DEFUN WITH-BUFFER-FUNCTION ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WITH-BUFFER-FUNCTION ; (XLIB::WITH-BUFFER (XLIB::BUFFER :TIMEOUT XLIB::TIMEOUT :INLINE T) ; (FUNCALL FUNCTION)) ; --> MACROLET LET XLIB::HOLDING-LOCK IF HANDLER-CASE SB-INT:DX-FLET FLET BLOCK ; --> WITH-TIMEOUT SB-INT:DX-FLET FLET LET IF ; ==> ; (> SB-IMPL::EXPIRES 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a FLOAT. ; (DEFUN XLIB::WITH-BUFFER-FUNCTION (XLIB::BUFFER XLIB::TIMEOUT FUNCTION) ; (DECLARE (TYPE XLIB:DISPLAY XLIB::BUFFER) ; (TYPE (OR NULL NUMBER) XLIB::TIMEOUT) ; (TYPE FUNCTION FUNCTION) ; (DYNAMIC-EXTENT FUNCTION) ; (IGNORABLE XLIB::TIMEOUT)) ; (XLIB::WITH-BUFFER (XLIB::BUFFER :TIMEOUT XLIB::TIMEOUT :INLINE T) ; (FUNCALL FUNCTION))) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G138 ; ; note: could not stack allocate FUNCTION in: ; (DEFUN WITH-BUFFER-FUNCTION (BUFFER TIMEOUT FUNCTION) ; (DECLARE (TYPE DISPLAY BUFFER) ; (TYPE (OR NULL NUMBER) TIMEOUT) ; (TYPE FUNCTION FUNCTION) ; (DYNAMIC-EXTENT FUNCTION) ; (IGNORABLE TIMEOUT)) ; (WITH-BUFFER (BUFFER :TIMEOUT TIMEOUT :INLINE T) ; (FUNCALL FUNCTION))) ; (XLIB::WITH-BUFFER (XLIB::BUFFER :TIMEOUT XLIB::TIMEOUT :INLINE T) ; (FUNCALL FUNCTION)) ; --> MACROLET LET XLIB::HOLDING-LOCK IF HANDLER-CASE SB-INT:DX-FLET FLET BLOCK ; --> WITH-TIMEOUT SB-INT:DX-FLET ; ==> ; (FLET ((SB-IMPL::TIMEOUT-BODY () ; (SB-THREAD:WITH-RECURSIVE-LOCK (#) ; (FUNCALL FUNCTION)))) ; (DECLARE (SB-INT:TRULY-DYNAMIC-EXTENT (FUNCTION SB-IMPL::TIMEOUT-BODY))) ; (LET ((SB-IMPL::EXPIRES XLIB::TIMEOUT)) ; (IF (> SB-IMPL::EXPIRES 0) ; (LET (#) ; (SCHEDULE-TIMER TIMER SB-IMPL::EXPIRES) ; (UNWIND-PROTECT # #)) ; (SB-IMPL::TIMEOUT-BODY)))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; --> MACROLET LET XLIB::HOLDING-LOCK IF HANDLER-CASE SB-INT:DX-FLET FLET BLOCK ; --> WITH-TIMEOUT SB-INT:DX-FLET FLET LET IF ; ==> ; (> SB-IMPL::EXPIRES 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; compiling (DEFMACRO READ-CARD8 ...) ; compiling (DEFMACRO READ-INT8 ...) ; compiling (DEFMACRO READ-CARD16 ...) ; compiling (DEFMACRO READ-INT16 ...) ; compiling (DEFMACRO READ-CARD32 ...) ; compiling (DEFMACRO READ-INT32 ...) ; compiling (DEFMACRO READ-CARD29 ...) ; compiling (DEFMACRO EVENT-CODE ...) ; compiling (DEFMACRO READING-EVENT ...) ; compiling (DEFMACRO WITH-BUFFER-INPUT ...) ; compiling (DEFUN MAKE-BUFFER ...) ; compiling (DEFUN MAKE-REPLY-BUFFER ...) ; compiling (DEFUN BUFFER-ENSURE-SIZE ...) ; compiling (DEFUN BUFFER-PAD-REQUEST ...) ; compiling (DECLAIM (INLINE BUFFER-NEW-REQUEST-NUMBER)) ; compiling (DEFUN BUFFER-NEW-REQUEST-NUMBER ...) ; compiling (DEFUN WITH-BUFFER-REQUEST-FUNCTION ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WITH-BUFFER-REQUEST-FUNCTION ; (DEFUN XLIB::WITH-BUFFER-REQUEST-FUNCTION ; (XLIB:DISPLAY XLIB::GC-FORCE XLIB::REQUEST-FUNCTION) ; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY) ; (TYPE (OR NULL XLIB:GCONTEXT) XLIB::GC-FORCE)) ; (DECLARE (TYPE FUNCTION XLIB::REQUEST-FUNCTION) ; (DYNAMIC-EXTENT XLIB::REQUEST-FUNCTION)) ; (XLIB::WITH-BUFFER (XLIB:DISPLAY :INLINE T) ; (MULTIPLE-VALUE-PROG1 ; (PROGN ; (WHEN XLIB::GC-FORCE #) ; (XLIB::WITHOUT-ABORTS ; #)) ; (XLIB:DISPLAY-INVOKE-AFTER-FUNCTION XLIB:DISPLAY)))) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G457 ; ; note: could not stack allocate REQUEST-FUNCTION in: ; (DEFUN WITH-BUFFER-REQUEST-FUNCTION (DISPLAY GC-FORCE REQUEST-FUNCTION) ; (DECLARE (TYPE DISPLAY DISPLAY) ; (TYPE (OR NULL GCONTEXT) GC-FORCE)) ; (DECLARE (TYPE FUNCTION REQUEST-FUNCTION) ; (DYNAMIC-EXTENT REQUEST-FUNCTION)) ; (WITH-BUFFER (DISPLAY :INLINE T) ; (MULTIPLE-VALUE-PROG1 ; (PROGN ; (WHEN GC-FORCE (FORCE-GCONTEXT-CHANGES-INTERNAL GC-FORCE)) ; (WITHOUT-ABORTS ; (FUNCALL REQUEST-FUNCTION DISPLAY))) ; (DISPLAY-INVOKE-AFTER-FUNCTION DISPLAY)))) ; compiling (DEFUN WITH-BUFFER-REQUEST-FUNCTION-NOLOCK ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WITH-BUFFER-REQUEST-FUNCTION-NOLOCK ; (DEFUN XLIB::WITH-BUFFER-REQUEST-FUNCTION-NOLOCK ; (XLIB:DISPLAY XLIB::GC-FORCE XLIB::REQUEST-FUNCTION) ; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY) ; (TYPE (OR NULL XLIB:GCONTEXT) XLIB::GC-FORCE)) ; (DECLARE (TYPE FUNCTION XLIB::REQUEST-FUNCTION) ; (DYNAMIC-EXTENT XLIB::REQUEST-FUNCTION)) ; (MULTIPLE-VALUE-PROG1 ; (PROGN ; (WHEN XLIB::GC-FORCE ; (XLIB::FORCE-GCONTEXT-CHANGES-INTERNAL XLIB::GC-FORCE)) ; (XLIB::WITHOUT-ABORTS ; (FUNCALL XLIB::REQUEST-FUNCTION XLIB:DISPLAY))) ; (XLIB:DISPLAY-INVOKE-AFTER-FUNCTION XLIB:DISPLAY))) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G474 ; ; note: could not stack allocate REQUEST-FUNCTION in: ; (DEFUN WITH-BUFFER-REQUEST-FUNCTION-NOLOCK ; (DISPLAY GC-FORCE REQUEST-FUNCTION) ; (DECLARE (TYPE DISPLAY DISPLAY) ; (TYPE (OR NULL GCONTEXT) GC-FORCE)) ; (DECLARE (TYPE FUNCTION REQUEST-FUNCTION) ; (DYNAMIC-EXTENT REQUEST-FUNCTION)) ; (MULTIPLE-VALUE-PROG1 ; (PROGN ; (WHEN GC-FORCE (FORCE-GCONTEXT-CHANGES-INTERNAL GC-FORCE)) ; (WITHOUT-ABORTS ; (FUNCALL REQUEST-FUNCTION DISPLAY))) ; (DISPLAY-INVOKE-AFTER-FUNCTION DISPLAY))) ; compiling (DEFSTRUCT (PENDING-COMMAND # ...) ...) ; compiling (DEFUN WITH-BUFFER-REQUEST-AND-REPLY-FUNCTION ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WITH-BUFFER-REQUEST-AND-REPLY-FUNCTION ; (DEFUN XLIB::WITH-BUFFER-REQUEST-AND-REPLY-FUNCTION ; (XLIB:DISPLAY XLIB::MULTIPLE-REPLY XLIB::REQUEST-FUNCTION ; XLIB::REPLY-FUNCTION) ; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY) ; (TYPE XLIB:GENERALIZED-BOOLEAN XLIB::MULTIPLE-REPLY)) ; (DECLARE (TYPE FUNCTION XLIB::REQUEST-FUNCTION XLIB::REPLY-FUNCTION) ; (DYNAMIC-EXTENT XLIB::REQUEST-FUNCTION XLIB::REPLY-FUNCTION)) ; (LET ((XLIB::PENDING-COMMAND NIL) (XLIB::REPLY-BUFFER NIL)) ; (DECLARE (TYPE (OR NULL XLIB::PENDING-COMMAND) XLIB::PENDING-COMMAND) ; (TYPE (OR NULL XLIB::REPLY-BUFFER) XLIB::REPLY-BUFFER)) ; (UNWIND-PROTECT ; (PROGN ; (XLIB::WITH-BUFFER # ; # ; # ; # ; #) ; (COND # #)) ; (WHEN XLIB::REPLY-BUFFER ; (XLIB::DEALLOCATE-REPLY-BUFFER XLIB::REPLY-BUFFER)) ; (WHEN XLIB::PENDING-COMMAND ; (XLIB::STOP-PENDING-COMMAND XLIB:DISPLAY XLIB::PENDING-COMMAND))))) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G651 ; ; note: could not stack allocate REQUEST-FUNCTION in: ; (DEFUN WITH-BUFFER-REQUEST-AND-REPLY-FUNCTION ; (DISPLAY MULTIPLE-REPLY REQUEST-FUNCTION REPLY-FUNCTION) ; (DECLARE (TYPE DISPLAY DISPLAY) ; (TYPE GENERALIZED-BOOLEAN MULTIPLE-REPLY)) ; (DECLARE (TYPE FUNCTION REQUEST-FUNCTION REPLY-FUNCTION) ; (DYNAMIC-EXTENT REQUEST-FUNCTION REPLY-FUNCTION)) ; (LET ((PENDING-COMMAND NIL) (REPLY-BUFFER NIL)) ; (DECLARE (TYPE (OR NULL PENDING-COMMAND) PENDING-COMMAND) ; (TYPE (OR NULL REPLY-BUFFER) REPLY-BUFFER)) ; (UNWIND-PROTECT ; (PROGN ; (WITH-BUFFER (DISPLAY :INLINE T) ; (SETQ PENDING-COMMAND (START-PENDING-COMMAND DISPLAY)) ; (WITHOUT-ABORTS ; (FUNCALL REQUEST-FUNCTION DISPLAY)) ; (BUFFER-FORCE-OUTPUT DISPLAY) ; (DISPLAY-INVOKE-AFTER-FUNCTION DISPLAY)) ; (COND ; (MULTIPLE-REPLY ; (LOOP ; (SETQ REPLY-BUFFER (READ-REPLY DISPLAY PENDING-COMMAND)) ; (WHEN (FUNCALL REPLY-FUNCTION DISPLAY REPLY-BUFFER) ; (RETURN NIL)) ; (DEALLOCATE-REPLY-BUFFER (SHIFTF REPLY-BUFFER NIL)))) ; (T (SETQ REPLY-BUFFER (READ-REPLY DISPLAY PENDING-COMMAND)) ; (FUNCALL REPLY-FUNCTION DISPLAY REPLY-BUFFER)))) ; (WHEN REPLY-BUFFER (DEALLOCATE-REPLY-BUFFER REPLY-BUFFER)) ; (WHEN PENDING-COMMAND ; (STOP-PENDING-COMMAND DISPLAY PENDING-COMMAND))))) ; ==> ; #:G652 ; ; note: could not stack allocate REPLY-FUNCTION in: ; (DEFUN WITH-BUFFER-REQUEST-AND-REPLY-FUNCTION ; (DISPLAY MULTIPLE-REPLY REQUEST-FUNCTION REPLY-FUNCTION) ; (DECLARE (TYPE DISPLAY DISPLAY) ; (TYPE GENERALIZED-BOOLEAN MULTIPLE-REPLY)) ; (DECLARE (TYPE FUNCTION REQUEST-FUNCTION REPLY-FUNCTION) ; (DYNAMIC-EXTENT REQUEST-FUNCTION REPLY-FUNCTION)) ; (LET ((PENDING-COMMAND NIL) (REPLY-BUFFER NIL)) ; (DECLARE (TYPE (OR NULL PENDING-COMMAND) PENDING-COMMAND) ; (TYPE (OR NULL REPLY-BUFFER) REPLY-BUFFER)) ; (UNWIND-PROTECT ; (PROGN ; (WITH-BUFFER (DISPLAY :INLINE T) ; (SETQ PENDING-COMMAND (START-PENDING-COMMAND DISPLAY)) ; (WITHOUT-ABORTS ; (FUNCALL REQUEST-FUNCTION DISPLAY)) ; (BUFFER-FORCE-OUTPUT DISPLAY) ; (DISPLAY-INVOKE-AFTER-FUNCTION DISPLAY)) ; (COND ; (MULTIPLE-REPLY ; (LOOP ; (SETQ REPLY-BUFFER (READ-REPLY DISPLAY PENDING-COMMAND)) ; (WHEN (FUNCALL REPLY-FUNCTION DISPLAY REPLY-BUFFER) ; (RETURN NIL)) ; (DEALLOCATE-REPLY-BUFFER (SHIFTF REPLY-BUFFER NIL)))) ; (T (SETQ REPLY-BUFFER (READ-REPLY DISPLAY PENDING-COMMAND)) ; (FUNCALL REPLY-FUNCTION DISPLAY REPLY-BUFFER)))) ; (WHEN REPLY-BUFFER (DEALLOCATE-REPLY-BUFFER REPLY-BUFFER)) ; (WHEN PENDING-COMMAND ; (STOP-PENDING-COMMAND DISPLAY PENDING-COMMAND))))) ; compiling (DEFUN BUFFER-WRITE ...) ; compiling (DEFUN BUFFER-FLUSH ...) ; compiling (DEFMACRO WITH-BUFFER-FLUSH-INHIBITED ...) ; compiling (DEFUN BUFFER-FORCE-OUTPUT ...) ; compiling (DEFUN CLOSE-BUFFER ...) ; compiling (DEFUN BUFFER-INPUT ...) ; compiling (DEFUN BUFFER-INPUT-WAIT ...) ; compiling (DEFUN BUFFER-LISTEN ...) ; compiling (DEFUN READ-SEQUENCE-STRING ...) ; compiling (DEFMACRO DEFINE-TRANSFORMED-SEQUENCE-READER ...) ; compiling (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-CHAR ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-CHAR ; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-READER XLIB::READ-SEQUENCE-CHAR CHARACTER ; XLIB:CARD8->CHAR ; XLIB::READ-SEQUENCE-CARD8) ; --> DEFUN PROGN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF COND IF PROGN ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G1028 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-CHAR CHARACTER ; CARD8->CHAR READ-SEQUENCE-CARD8) ; compiling (DEFMACRO DEFINE-LIST-READERS ...) ; compiling (DEFINE-LIST-READERS (READ-LIST-CARD8 READ-LIST-CARD8-WITH-TRANSFORM) ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: ; DEFINE-LIST-READERS (READ-LIST-CARD8 READ-LIST-CARD8-WITH-TRANSFORM) ; (XLIB::DEFINE-LIST-READERS ; (XLIB::READ-LIST-CARD8 XLIB::READ-LIST-CARD8-WITH-TRANSFORM) XLIB:CARD8 8 1 ; XLIB::READ-CARD8) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G1243 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-LIST-READERS (READ-LIST-CARD8 READ-LIST-CARD8-WITH-TRANSFORM) ; CARD8 8 1 READ-CARD8) ; compiling (DEFUN READ-SIMPLE-ARRAY-CARD8 ...) ; compiling (DEFUN READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ; (DEFUN XLIB::READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ; (XLIB::REPLY-BUFFER XLIB::NITEMS XLIB::DATA XLIB::TRANSFORM ; XLIB::START XLIB::INDEX) ; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPLY-BUFFER) ; (TYPE XLIB:ARRAY-INDEX XLIB::NITEMS XLIB::START XLIB::INDEX) ; (TYPE (SIMPLE-ARRAY XLIB:CARD8 (*)) XLIB::DATA)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD8) XLIB:CARD8) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD8 (*))) ; (XLIB::WITH-BUFFER-INPUT (XLIB::REPLY-BUFFER :SIZES (8) :INDEX ; XLIB::INDEX) ; (DO* (# ; # ; #) ; (#) ; (DECLARE #) ; (SETF #))))) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G1329 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ; (REPLY-BUFFER NITEMS DATA TRANSFORM START INDEX) ; (DECLARE (TYPE REPLY-BUFFER REPLY-BUFFER) ; (TYPE ARRAY-INDEX NITEMS START INDEX) ; (TYPE (SIMPLE-ARRAY CARD8 (*)) DATA)) ; (DECLARE (TYPE (FUNCTION (CARD8) CARD8) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA (SIMPLE-ARRAY CARD8 (*))) ; (WITH-BUFFER-INPUT (REPLY-BUFFER :SIZES (8) :INDEX INDEX) ; (DO* ((J START (INDEX+ J 1)) ; (END (INDEX+ START NITEMS)) ; (INDEX 0 (INDEX+ INDEX 1))) ; ((INDEX>= J END)) ; (DECLARE (TYPE ARRAY-INDEX J END INDEX)) ; (SETF (AREF DATA J) ; (THE CARD8 (FUNCALL TRANSFORM (READ-CARD8 INDEX)))))))) ; compiling (DEFUN READ-VECTOR-CARD8 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-VECTOR-CARD8 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD8 XLIB::INDEX)) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; compiling (DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD8 XLIB::INDEX))) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DEFUN XLIB::READ-VECTOR-CARD8-WITH-TRANSFORM ; (XLIB::REPLY-BUFFER XLIB::NITEMS XLIB::DATA XLIB::TRANSFORM ; XLIB::START XLIB::INDEX) ; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPLY-BUFFER) ; (TYPE XLIB:ARRAY-INDEX XLIB::NITEMS XLIB::START XLIB::INDEX) ; (TYPE VECTOR XLIB::DATA) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD8) T) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR) ; (XLIB::WITH-BUFFER-INPUT (XLIB::REPLY-BUFFER :SIZES (8) :INDEX ; XLIB::INDEX) ; (DO* (# ; # ; #) ; (#) ; (DECLARE #) ; (SETF #))))) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G1398 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM ; (REPLY-BUFFER NITEMS DATA TRANSFORM START INDEX) ; (DECLARE (TYPE REPLY-BUFFER REPLY-BUFFER) ; (TYPE ARRAY-INDEX NITEMS START INDEX) ; (TYPE VECTOR DATA) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (CARD8) T) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA VECTOR) ; (WITH-BUFFER-INPUT (REPLY-BUFFER :SIZES (8) :INDEX INDEX) ; (DO* ((J START (INDEX+ J 1)) ; (END (INDEX+ START NITEMS)) ; (INDEX 0 (INDEX+ INDEX 1))) ; ((INDEX>= J END)) ; (DECLARE (TYPE ARRAY-INDEX J END INDEX)) ; (SETF (AREF DATA J) (FUNCALL TRANSFORM (READ-CARD8 INDEX))))))) ; compiling (DEFMACRO DEFINE-SEQUENCE-READER ...) ; compiling (DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD8 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD8 ; (XLIB::DEFINE-SEQUENCE-READER XLIB::READ-SEQUENCE-CARD8 XLIB:CARD8 ; (XLIB::READ-LIST-CARD8 ; XLIB::READ-LIST-CARD8-WITH-TRANSFORM) ; (XLIB::READ-SIMPLE-ARRAY-CARD8 ; XLIB::READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM) ; (XLIB::READ-VECTOR-CARD8 ; XLIB::READ-VECTOR-CARD8-WITH-TRANSFORM)) ; --> DEFUN PROGN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF COND IF PROGN ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G1519 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD8 CARD8 ; (READ-LIST-CARD8 READ-LIST-CARD8-WITH-TRANSFORM) ; (READ-SIMPLE-ARRAY-CARD8 ; READ-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM) ; (READ-VECTOR-CARD8 ; READ-VECTOR-CARD8-WITH-TRANSFORM)) ; compiling (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT8 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT8 ; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-READER XLIB::READ-SEQUENCE-INT8 XLIB:INT8 ; XLIB::CARD8->INT8 ; XLIB::READ-SEQUENCE-CARD8) ; --> DEFUN PROGN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF COND IF PROGN ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G1623 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT8 INT8 CARD8->INT8 ; READ-SEQUENCE-CARD8) ; compiling (DEFINE-LIST-READERS (READ-LIST-CARD16 READ-LIST-CARD16-WITH-TRANSFORM) ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: ; DEFINE-LIST-READERS (READ-LIST-CARD16 READ-LIST-CARD16-WITH-TRANSFORM) ; (XLIB::DEFINE-LIST-READERS ; (XLIB::READ-LIST-CARD16 XLIB::READ-LIST-CARD16-WITH-TRANSFORM) XLIB:CARD16 ; 16 2 XLIB::READ-CARD16) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G1746 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-LIST-READERS (READ-LIST-CARD16 READ-LIST-CARD16-WITH-TRANSFORM) ; CARD16 16 2 READ-CARD16) ; compiling (DEFUN READ-SIMPLE-ARRAY-CARD16 ...) ; compiling (DEFUN READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ; (DEFUN XLIB::READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ; (XLIB::REPLY-BUFFER XLIB::NITEMS XLIB::DATA XLIB::TRANSFORM ; XLIB::START XLIB::INDEX) ; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPLY-BUFFER) ; (TYPE XLIB:ARRAY-INDEX XLIB::NITEMS XLIB::START XLIB::INDEX) ; (TYPE (SIMPLE-ARRAY XLIB:CARD16 (*)) XLIB::DATA)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD16) XLIB:CARD16) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD16 (*))) ; (XLIB::WITH-BUFFER-INPUT (XLIB::REPLY-BUFFER :SIZES (16) :INDEX ; XLIB::INDEX) ; (DO* (# ; # ; #) ; (#) ; (DECLARE #) ; (SETF #))))) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G1812 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ; (REPLY-BUFFER NITEMS DATA TRANSFORM START INDEX) ; (DECLARE (TYPE REPLY-BUFFER REPLY-BUFFER) ; (TYPE ARRAY-INDEX NITEMS START INDEX) ; (TYPE (SIMPLE-ARRAY CARD16 (*)) DATA)) ; (DECLARE (TYPE (FUNCTION (CARD16) CARD16) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA (SIMPLE-ARRAY CARD16 (*))) ; (WITH-BUFFER-INPUT (REPLY-BUFFER :SIZES (16) :INDEX INDEX) ; (DO* ((J START (INDEX+ J 1)) ; (END (INDEX+ START NITEMS)) ; (INDEX 0 (INDEX+ INDEX 2))) ; ((INDEX>= J END)) ; (DECLARE (TYPE ARRAY-INDEX J END INDEX)) ; (SETF (AREF DATA J) ; (THE CARD16 (FUNCALL TRANSFORM (READ-CARD16 INDEX)))))))) ; compiling (DEFUN READ-VECTOR-CARD16 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-VECTOR-CARD16 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD16 XLIB::INDEX)) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; compiling (DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD16 XLIB::INDEX))) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DEFUN XLIB::READ-VECTOR-CARD16-WITH-TRANSFORM ; (XLIB::REPLY-BUFFER XLIB::NITEMS XLIB::DATA XLIB::TRANSFORM ; XLIB::START XLIB::INDEX) ; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPLY-BUFFER) ; (TYPE XLIB:ARRAY-INDEX XLIB::NITEMS XLIB::START XLIB::INDEX) ; (TYPE VECTOR XLIB::DATA) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD16) T) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR) ; (XLIB::WITH-BUFFER-INPUT (XLIB::REPLY-BUFFER :SIZES (16) :INDEX ; XLIB::INDEX) ; (DO* (# ; # ; #) ; (#) ; (DECLARE #) ; (SETF #))))) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G1881 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM ; (REPLY-BUFFER NITEMS DATA TRANSFORM START INDEX) ; (DECLARE (TYPE REPLY-BUFFER REPLY-BUFFER) ; (TYPE ARRAY-INDEX NITEMS START INDEX) ; (TYPE VECTOR DATA) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (CARD16) T) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA VECTOR) ; (WITH-BUFFER-INPUT (REPLY-BUFFER :SIZES (16) :INDEX INDEX) ; (DO* ((J START (INDEX+ J 1)) ; (END (INDEX+ START NITEMS)) ; (INDEX 0 (INDEX+ INDEX 2))) ; ((INDEX>= J END)) ; (DECLARE (TYPE ARRAY-INDEX J END INDEX)) ; (SETF (AREF DATA J) (FUNCALL TRANSFORM (READ-CARD16 INDEX))))))) ; compiling (DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD16 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD16 ; (XLIB::DEFINE-SEQUENCE-READER XLIB::READ-SEQUENCE-CARD16 XLIB:CARD16 ; (XLIB::READ-LIST-CARD16 ; XLIB::READ-LIST-CARD16-WITH-TRANSFORM) ; (XLIB::READ-SIMPLE-ARRAY-CARD16 ; XLIB::READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM) ; (XLIB::READ-VECTOR-CARD16 ; XLIB::READ-VECTOR-CARD16-WITH-TRANSFORM)) ; --> DEFUN PROGN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF COND IF PROGN ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G1921 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD16 CARD16 ; (READ-LIST-CARD16 ; READ-LIST-CARD16-WITH-TRANSFORM) ; (READ-SIMPLE-ARRAY-CARD16 ; READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM) ; (READ-VECTOR-CARD16 ; READ-VECTOR-CARD16-WITH-TRANSFORM)) ; compiling (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT16 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT16 ; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-READER XLIB::READ-SEQUENCE-INT16 ; XLIB:INT16 XLIB::CARD16->INT16 ; XLIB::READ-SEQUENCE-CARD16) ; --> DEFUN PROGN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF COND IF PROGN ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G2025 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT16 INT16 ; CARD16->INT16 READ-SEQUENCE-CARD16) ; compiling (DEFINE-LIST-READERS (READ-LIST-CARD32 READ-LIST-CARD32-WITH-TRANSFORM) ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: ; DEFINE-LIST-READERS (READ-LIST-CARD32 READ-LIST-CARD32-WITH-TRANSFORM) ; (XLIB::DEFINE-LIST-READERS ; (XLIB::READ-LIST-CARD32 XLIB::READ-LIST-CARD32-WITH-TRANSFORM) XLIB:CARD32 ; 32 4 XLIB::READ-CARD32) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G2148 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-LIST-READERS (READ-LIST-CARD32 READ-LIST-CARD32-WITH-TRANSFORM) ; CARD32 32 4 READ-CARD32) ; compiling (DEFUN READ-SIMPLE-ARRAY-CARD32 ...) ; compiling (DEFUN READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ; (DEFUN XLIB::READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ; (XLIB::REPLY-BUFFER XLIB::NITEMS XLIB::DATA XLIB::TRANSFORM ; XLIB::START XLIB::INDEX) ; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPLY-BUFFER) ; (TYPE XLIB:ARRAY-INDEX XLIB::NITEMS XLIB::START XLIB::INDEX) ; (TYPE (SIMPLE-ARRAY XLIB:CARD32 (*)) XLIB::DATA)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD32) XLIB:CARD32) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD32 (*))) ; (XLIB::WITH-BUFFER-INPUT (XLIB::REPLY-BUFFER :SIZES (32) :INDEX ; XLIB::INDEX) ; (DO* (# ; # ; #) ; (#) ; (DECLARE #) ; (SETF #))))) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G2214 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ; (REPLY-BUFFER NITEMS DATA TRANSFORM START INDEX) ; (DECLARE (TYPE REPLY-BUFFER REPLY-BUFFER) ; (TYPE ARRAY-INDEX NITEMS START INDEX) ; (TYPE (SIMPLE-ARRAY CARD32 (*)) DATA)) ; (DECLARE (TYPE (FUNCTION (CARD32) CARD32) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA (SIMPLE-ARRAY CARD32 (*))) ; (WITH-BUFFER-INPUT (REPLY-BUFFER :SIZES (32) :INDEX INDEX) ; (DO* ((J START (INDEX+ J 1)) ; (END (INDEX+ START NITEMS)) ; (INDEX 0 (INDEX+ INDEX 4))) ; ((INDEX>= J END)) ; (DECLARE (TYPE ARRAY-INDEX J END INDEX)) ; (SETF (AREF DATA J) ; (THE CARD32 (FUNCALL TRANSFORM (READ-CARD32 INDEX)))))))) ; compiling (DEFUN READ-VECTOR-CARD32 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-VECTOR-CARD32 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD32 XLIB::INDEX)) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; compiling (DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD32 XLIB::INDEX))) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DEFUN XLIB::READ-VECTOR-CARD32-WITH-TRANSFORM ; (XLIB::REPLY-BUFFER XLIB::NITEMS XLIB::DATA XLIB::TRANSFORM ; XLIB::START XLIB::INDEX) ; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPLY-BUFFER) ; (TYPE XLIB:ARRAY-INDEX XLIB::NITEMS XLIB::START XLIB::INDEX) ; (TYPE VECTOR XLIB::DATA) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD32) T) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR) ; (XLIB::WITH-BUFFER-INPUT (XLIB::REPLY-BUFFER :SIZES (32) :INDEX ; XLIB::INDEX) ; (DO* (# ; # ; #) ; (#) ; (DECLARE #) ; (SETF #))))) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G2283 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM ; (REPLY-BUFFER NITEMS DATA TRANSFORM START INDEX) ; (DECLARE (TYPE REPLY-BUFFER REPLY-BUFFER) ; (TYPE ARRAY-INDEX NITEMS START INDEX) ; (TYPE VECTOR DATA) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (CARD32) T) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA VECTOR) ; (WITH-BUFFER-INPUT (REPLY-BUFFER :SIZES (32) :INDEX INDEX) ; (DO* ((J START (INDEX+ J 1)) ; (END (INDEX+ START NITEMS)) ; (INDEX 0 (INDEX+ INDEX 4))) ; ((INDEX>= J END)) ; (DECLARE (TYPE ARRAY-INDEX J END INDEX)) ; (SETF (AREF DATA J) (FUNCALL TRANSFORM (READ-CARD32 INDEX))))))) ; compiling (DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD32 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD32 ; (XLIB::DEFINE-SEQUENCE-READER XLIB::READ-SEQUENCE-CARD32 XLIB:CARD32 ; (XLIB::READ-LIST-CARD32 ; XLIB::READ-LIST-CARD32-WITH-TRANSFORM) ; (XLIB::READ-SIMPLE-ARRAY-CARD32 ; XLIB::READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM) ; (XLIB::READ-VECTOR-CARD32 ; XLIB::READ-VECTOR-CARD32-WITH-TRANSFORM)) ; --> DEFUN PROGN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF COND IF PROGN ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G2323 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-SEQUENCE-READER READ-SEQUENCE-CARD32 CARD32 ; (READ-LIST-CARD32 ; READ-LIST-CARD32-WITH-TRANSFORM) ; (READ-SIMPLE-ARRAY-CARD32 ; READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM) ; (READ-VECTOR-CARD32 ; READ-VECTOR-CARD32-WITH-TRANSFORM)) ; compiling (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT32 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT32 ; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-READER XLIB::READ-SEQUENCE-INT32 ; XLIB:INT32 XLIB::CARD32->INT32 ; XLIB::READ-SEQUENCE-CARD32) ; --> DEFUN PROGN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF COND IF PROGN ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G2427 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-TRANSFORMED-SEQUENCE-READER READ-SEQUENCE-INT32 INT32 ; CARD32->INT32 READ-SEQUENCE-CARD32) ; compiling (DEFMACRO DEFINE-TRANSFORMED-SEQUENCE-WRITER ...) ; compiling (DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-CHAR ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-CHAR ; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-CHAR CHARACTER ; XLIB:CHAR->CARD8 ; XLIB::WRITE-SEQUENCE-CARD8) ; --> DEFUN PROGN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF PROGN ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G2593 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-CHAR CHARACTER ; CHAR->CARD8 WRITE-SEQUENCE-CARD8) ; compiling (DEFMACRO DEFINE-LIST-WRITERS ...) ; compiling (DEFINE-LIST-WRITERS (WRITE-LIST-CARD8 WRITE-LIST-CARD8-WITH-TRANSFORM) ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: ; DEFINE-LIST-WRITERS (WRITE-LIST-CARD8 WRITE-LIST-CARD8-WITH-TRANSFORM) ; (XLIB::DEFINE-LIST-WRITERS ; (XLIB::WRITE-LIST-CARD8 XLIB::WRITE-LIST-CARD8-WITH-TRANSFORM) XLIB:CARD8 1 ; XLIB::WRITE-CARD8) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G2831 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-LIST-WRITERS (WRITE-LIST-CARD8 WRITE-LIST-CARD8-WITH-TRANSFORM) ; CARD8 1 WRITE-CARD8) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD8 ...) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ; (DEFUN XLIB::WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE (SIMPLE-ARRAY XLIB:CARD8 (*)) XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD8) XLIB:CARD8) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD8 (*))) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD8 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DOTIMES (XLIB::J XLIB::CHUNK) ; (DECLARE #) ; (XLIB::WRITE-CARD8 XLIB::J #) ; (SETQ #)))) ; NIL) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G2975 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE (SIMPLE-ARRAY CARD8 (*)) DATA) ; (TYPE ARRAY-INDEX BOFFSET START END)) ; (DECLARE (TYPE (FUNCTION (CARD8) CARD8) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA (SIMPLE-ARRAY CARD8 (*))) ; (WRITING-BUFFER-CHUNKS CARD8 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DOTIMES (J CHUNK) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-CARD8 J (FUNCALL TRANSFORM (AREF DATA INDEX))) ; (SETQ INDEX (INDEX+ INDEX 1))))) ; NIL) ; compiling (DEFUN WRITE-VECTOR-CARD8 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CARD8 ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; compiling (DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DEFUN XLIB::WRITE-VECTOR-CARD8-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE VECTOR XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END)) ; (DECLARE (TYPE (FUNCTION (T) XLIB:CARD8) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD8 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DOTIMES (XLIB::J XLIB::CHUNK) ; (DECLARE #) ; (XLIB::WRITE-CARD8 XLIB::J #) ; (SETQ #)))) ; NIL) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G3101 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE VECTOR DATA) ; (TYPE ARRAY-INDEX BOFFSET START END)) ; (DECLARE (TYPE (FUNCTION (T) CARD8) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA VECTOR) ; (WRITING-BUFFER-CHUNKS CARD8 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DOTIMES (J CHUNK) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-CARD8 J (FUNCALL TRANSFORM (AREF DATA INDEX))) ; (SETQ INDEX (INDEX+ INDEX 1))))) ; NIL) ; compiling (DEFMACRO DEFINE-SEQUENCE-WRITER ...) ; compiling (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD8 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD8 ; (XLIB::DEFINE-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-CARD8 XLIB:CARD8 ; (XLIB::WRITE-LIST-CARD8 ; XLIB::WRITE-LIST-CARD8-WITH-TRANSFORM) ; (XLIB::WRITE-SIMPLE-ARRAY-CARD8 ; XLIB::WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM) ; (XLIB::WRITE-VECTOR-CARD8 ; XLIB::WRITE-VECTOR-CARD8-WITH-TRANSFORM)) ; --> DEFUN PROGN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF PROGN ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G3220 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD8 CARD8 ; (WRITE-LIST-CARD8 ; WRITE-LIST-CARD8-WITH-TRANSFORM) ; (WRITE-SIMPLE-ARRAY-CARD8 ; WRITE-SIMPLE-ARRAY-CARD8-WITH-TRANSFORM) ; (WRITE-VECTOR-CARD8 ; WRITE-VECTOR-CARD8-WITH-TRANSFORM)) ; compiling (DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-INT8 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-INT8 ; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-INT8 XLIB:INT8 ; XLIB::INT8->CARD8 ; XLIB::WRITE-SEQUENCE-CARD8) ; --> DEFUN PROGN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF PROGN ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G3308 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-INT8 INT8 INT8->CARD8 ; WRITE-SEQUENCE-CARD8) ; compiling (DEFINE-LIST-WRITERS (WRITE-LIST-CARD16 WRITE-LIST-CARD16-WITH-TRANSFORM) ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: ; DEFINE-LIST-WRITERS (WRITE-LIST-CARD16 WRITE-LIST-CARD16-WITH-TRANSFORM) ; (XLIB::DEFINE-LIST-WRITERS ; (XLIB::WRITE-LIST-CARD16 XLIB::WRITE-LIST-CARD16-WITH-TRANSFORM) XLIB:CARD16 ; 2 XLIB::WRITE-CARD16) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G3467 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-LIST-WRITERS ; (WRITE-LIST-CARD16 WRITE-LIST-CARD16-WITH-TRANSFORM) CARD16 2 ; WRITE-CARD16) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD16 ...) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ; (DEFUN XLIB::WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE (SIMPLE-ARRAY XLIB:CARD16 (*)) XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD16) XLIB:CARD16) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD16 (*))) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD16 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DO (#) (#) (DECLARE #) (XLIB::WRITE-CARD16 XLIB::J #) (SETQ #)))) ; NIL) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G3580 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE (SIMPLE-ARRAY CARD16 (*)) DATA) ; (TYPE ARRAY-INDEX BOFFSET START END)) ; (DECLARE (TYPE (FUNCTION (CARD16) CARD16) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA (SIMPLE-ARRAY CARD16 (*))) ; (WRITING-BUFFER-CHUNKS CARD16 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DO ((J 0 (INDEX+ J 2))) ; ((INDEX>= J CHUNK)) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-CARD16 J (FUNCALL TRANSFORM (AREF DATA INDEX))) ; (SETQ INDEX (INDEX+ INDEX 1))))) ; NIL) ; compiling (DEFUN WRITE-VECTOR-CARD16 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CARD16 ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; compiling (DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DEFUN XLIB::WRITE-VECTOR-CARD16-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE VECTOR XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (T) XLIB:CARD16) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD16 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DO (#) (#) (DECLARE #) (XLIB::WRITE-CARD16 XLIB::J #) (SETQ #)))) ; NIL) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G3696 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE VECTOR DATA) ; (TYPE ARRAY-INDEX BOFFSET START END) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (T) CARD16) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA VECTOR) ; (WRITING-BUFFER-CHUNKS CARD16 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DO ((J 0 (INDEX+ J 2))) ; ((INDEX>= J CHUNK)) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-CARD16 J (FUNCALL TRANSFORM (AREF DATA INDEX))) ; (SETQ INDEX (INDEX+ INDEX 1))))) ; NIL) ; compiling (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD16 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD16 ; (XLIB::DEFINE-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-CARD16 XLIB:CARD16 ; (XLIB::WRITE-LIST-CARD16 ; XLIB::WRITE-LIST-CARD16-WITH-TRANSFORM) ; (XLIB::WRITE-SIMPLE-ARRAY-CARD16 ; XLIB::WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM) ; (XLIB::WRITE-VECTOR-CARD16 ; XLIB::WRITE-VECTOR-CARD16-WITH-TRANSFORM)) ; --> DEFUN PROGN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF PROGN ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G3737 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD16 CARD16 ; (WRITE-LIST-CARD16 ; WRITE-LIST-CARD16-WITH-TRANSFORM) ; (WRITE-SIMPLE-ARRAY-CARD16 ; WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM) ; (WRITE-VECTOR-CARD16 ; WRITE-VECTOR-CARD16-WITH-TRANSFORM)) ; compiling (DEFINE-LIST-WRITERS (WRITE-LIST-INT16 WRITE-LIST-INT16-WITH-TRANSFORM) ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: ; DEFINE-LIST-WRITERS (WRITE-LIST-INT16 WRITE-LIST-INT16-WITH-TRANSFORM) ; (XLIB::DEFINE-LIST-WRITERS ; (XLIB::WRITE-LIST-INT16 XLIB::WRITE-LIST-INT16-WITH-TRANSFORM) XLIB:INT16 2 ; XLIB::WRITE-INT16) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G3896 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-LIST-WRITERS (WRITE-LIST-INT16 WRITE-LIST-INT16-WITH-TRANSFORM) ; INT16 2 WRITE-INT16) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-INT16 ...) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM ; (DEFUN XLIB::WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE (SIMPLE-ARRAY XLIB:INT16 (*)) XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END)) ; (DECLARE (TYPE (FUNCTION (XLIB:INT16) XLIB:INT16) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:INT16 (*))) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:INT16 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DO (#) (#) (DECLARE #) (XLIB::WRITE-INT16 XLIB::J #) (SETQ #)))) ; NIL) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G4009 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE (SIMPLE-ARRAY INT16 (*)) DATA) ; (TYPE ARRAY-INDEX BOFFSET START END)) ; (DECLARE (TYPE (FUNCTION (INT16) INT16) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA (SIMPLE-ARRAY INT16 (*))) ; (WRITING-BUFFER-CHUNKS INT16 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DO ((J 0 (INDEX+ J 2))) ; ((INDEX>= J CHUNK)) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-INT16 J (FUNCALL TRANSFORM (AREF DATA INDEX))) ; (SETQ INDEX (INDEX+ INDEX 1))))) ; NIL) ; compiling (DEFUN WRITE-VECTOR-INT16 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-INT16 ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; compiling (DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DEFUN XLIB::WRITE-VECTOR-INT16-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE VECTOR XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (T) XLIB:INT16) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:INT16 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DO (#) (#) (DECLARE #) (XLIB::WRITE-INT16 XLIB::J #) (SETQ #)))) ; NIL) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G4125 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE VECTOR DATA) ; (TYPE ARRAY-INDEX BOFFSET START END) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (T) INT16) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA VECTOR) ; (WRITING-BUFFER-CHUNKS INT16 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DO ((J 0 (INDEX+ J 2))) ; ((INDEX>= J CHUNK)) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-INT16 J (FUNCALL TRANSFORM (AREF DATA INDEX))) ; (SETQ INDEX (INDEX+ INDEX 1))))) ; NIL) ; compiling (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-INT16 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-INT16 ; (XLIB::DEFINE-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-INT16 XLIB:INT16 ; (XLIB::WRITE-LIST-INT16 ; XLIB::WRITE-LIST-INT16-WITH-TRANSFORM) ; (XLIB::WRITE-SIMPLE-ARRAY-INT16 ; XLIB::WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM) ; (XLIB::WRITE-VECTOR-INT16 ; XLIB::WRITE-VECTOR-INT16-WITH-TRANSFORM)) ; --> DEFUN PROGN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF PROGN ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G4166 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-INT16 INT16 ; (WRITE-LIST-INT16 ; WRITE-LIST-INT16-WITH-TRANSFORM) ; (WRITE-SIMPLE-ARRAY-INT16 ; WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM) ; (WRITE-VECTOR-INT16 ; WRITE-VECTOR-INT16-WITH-TRANSFORM)) ; compiling (DEFINE-LIST-WRITERS (WRITE-LIST-CARD32 WRITE-LIST-CARD32-WITH-TRANSFORM) ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: ; DEFINE-LIST-WRITERS (WRITE-LIST-CARD32 WRITE-LIST-CARD32-WITH-TRANSFORM) ; (XLIB::DEFINE-LIST-WRITERS ; (XLIB::WRITE-LIST-CARD32 XLIB::WRITE-LIST-CARD32-WITH-TRANSFORM) XLIB:CARD32 ; 4 XLIB::WRITE-CARD32) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G4325 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-LIST-WRITERS ; (WRITE-LIST-CARD32 WRITE-LIST-CARD32-WITH-TRANSFORM) CARD32 4 ; WRITE-CARD32) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD32 ...) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ; (DEFUN XLIB::WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE (SIMPLE-ARRAY XLIB:CARD32 (*)) XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD32) XLIB:CARD32) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD32 (*))) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD32 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DO (#) (#) (DECLARE #) (XLIB::WRITE-CARD32 XLIB::J #) (SETQ #)))) ; NIL) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G4438 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE (SIMPLE-ARRAY CARD32 (*)) DATA) ; (TYPE ARRAY-INDEX BOFFSET START END)) ; (DECLARE (TYPE (FUNCTION (CARD32) CARD32) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA (SIMPLE-ARRAY CARD32 (*))) ; (WRITING-BUFFER-CHUNKS CARD32 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DO ((J 0 (INDEX+ J 4))) ; ((INDEX>= J CHUNK)) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-CARD32 J (FUNCALL TRANSFORM (AREF DATA INDEX))) ; (SETQ INDEX (INDEX+ INDEX 1))))) ; NIL) ; compiling (DEFUN WRITE-VECTOR-CARD32 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CARD32 ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; compiling (DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DEFUN XLIB::WRITE-VECTOR-CARD32-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE VECTOR XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (T) XLIB:CARD32) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD32 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DO (#) (#) (DECLARE #) (XLIB::WRITE-CARD32 XLIB::J #) (SETQ #)))) ; NIL) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G4554 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE VECTOR DATA) ; (TYPE ARRAY-INDEX BOFFSET START END) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (T) CARD32) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA VECTOR) ; (WRITING-BUFFER-CHUNKS CARD32 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DO ((J 0 (INDEX+ J 4))) ; ((INDEX>= J CHUNK)) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-CARD32 J (FUNCALL TRANSFORM (AREF DATA INDEX))) ; (SETQ INDEX (INDEX+ INDEX 1))))) ; NIL) ; compiling (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD32 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD32 ; (XLIB::DEFINE-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-CARD32 XLIB:CARD32 ; (XLIB::WRITE-LIST-CARD32 ; XLIB::WRITE-LIST-CARD32-WITH-TRANSFORM) ; (XLIB::WRITE-SIMPLE-ARRAY-CARD32 ; XLIB::WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM) ; (XLIB::WRITE-VECTOR-CARD32 ; XLIB::WRITE-VECTOR-CARD32-WITH-TRANSFORM)) ; --> DEFUN PROGN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF PROGN ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G4595 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CARD32 CARD32 ; (WRITE-LIST-CARD32 ; WRITE-LIST-CARD32-WITH-TRANSFORM) ; (WRITE-SIMPLE-ARRAY-CARD32 ; WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM) ; (WRITE-VECTOR-CARD32 ; WRITE-VECTOR-CARD32-WITH-TRANSFORM)) ; compiling (DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-INT32 ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-INT32 ; (XLIB::DEFINE-TRANSFORMED-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-INT32 ; XLIB:INT32 XLIB::INT32->CARD32 ; XLIB::WRITE-SEQUENCE-CARD32) ; --> DEFUN PROGN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF PROGN ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G4683 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-TRANSFORMED-SEQUENCE-WRITER WRITE-SEQUENCE-INT32 INT32 ; INT32->CARD32 WRITE-SEQUENCE-CARD32) ; compiling (DEFUN READ-BITVECTOR256 ...) ; compiling (DEFUN WRITE-BITVECTOR256 ...) ; compiling (DEFINE-LIST-WRITERS (WRITE-LIST-CHAR2B WRITE-LIST-CHAR2B-WITH-TRANSFORM) ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: ; DEFINE-LIST-WRITERS (WRITE-LIST-CHAR2B WRITE-LIST-CHAR2B-WITH-TRANSFORM) ; (XLIB::DEFINE-LIST-WRITERS ; (XLIB::WRITE-LIST-CHAR2B XLIB::WRITE-LIST-CHAR2B-WITH-TRANSFORM) XLIB:CARD16 ; 2 XLIB::WRITE-CHAR2B) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G4958 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-LIST-WRITERS ; (WRITE-LIST-CHAR2B WRITE-LIST-CHAR2B-WITH-TRANSFORM) CARD16 2 ; WRITE-CHAR2B) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-CHAR2B ...) ; compiling (DEFUN WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM ; (DEFUN XLIB::WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE (SIMPLE-ARRAY XLIB:CARD16 (*)) XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END)) ; (DECLARE (TYPE (FUNCTION (XLIB:CARD16) XLIB:CARD16) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA (SIMPLE-ARRAY XLIB:CARD16 (*))) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD16 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DO (#) (# #) (DECLARE #) (XLIB::WRITE-CHAR2B XLIB::J #) (SETQ #)))) ; NIL) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G5101 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE (SIMPLE-ARRAY CARD16 (*)) DATA) ; (TYPE ARRAY-INDEX BOFFSET START END)) ; (DECLARE (TYPE (FUNCTION (CARD16) CARD16) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA (SIMPLE-ARRAY CARD16 (*))) ; (WRITING-BUFFER-CHUNKS CARD16 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DO ((J 0 (INDEX+ J 2))) ; ((INDEX>= J (1- CHUNK)) (SETF CHUNK J)) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-CHAR2B J (FUNCALL TRANSFORM (AREF DATA INDEX))) ; (SETQ INDEX (INDEX+ INDEX 1))))) ; NIL) ; compiling (DEFUN WRITE-VECTOR-CHAR2B ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CHAR2B ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; compiling (DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (DEFUN XLIB::WRITE-VECTOR-CHAR2B-WITH-TRANSFORM ; (XLIB::BUFFER XLIB::BOFFSET XLIB::DATA XLIB::START XLIB::END ; XLIB::TRANSFORM) ; (DECLARE (TYPE XLIB::BUFFER XLIB::BUFFER) ; (TYPE VECTOR XLIB::DATA) ; (TYPE XLIB:ARRAY-INDEX XLIB::BOFFSET XLIB::START XLIB::END) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (T) XLIB:CARD16) XLIB::TRANSFORM) ; (DYNAMIC-EXTENT XLIB::TRANSFORM)) ; (XLIB::WITH-VECTOR (XLIB::DATA VECTOR) ; (XLIB::WRITING-BUFFER-CHUNKS XLIB:CARD16 ; ((XLIB::INDEX XLIB::START)) ; ((TYPE XLIB:ARRAY-INDEX XLIB::INDEX)) ; (DO (#) (# #) (DECLARE #) (XLIB::WRITE-CHAR2B XLIB::J #) (SETQ #)))) ; NIL) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G5247 ; ; note: could not stack allocate TRANSFORM in: ; (DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM ; (BUFFER BOFFSET DATA START END TRANSFORM) ; (DECLARE (TYPE BUFFER BUFFER) ; (TYPE VECTOR DATA) ; (TYPE ARRAY-INDEX BOFFSET START END) ; (OPTIMIZE)) ; (DECLARE (TYPE (FUNCTION (T) CARD16) TRANSFORM) ; (DYNAMIC-EXTENT TRANSFORM)) ; (WITH-VECTOR (DATA VECTOR) ; (WRITING-BUFFER-CHUNKS CARD16 ; ((INDEX START)) ; ((TYPE ARRAY-INDEX INDEX)) ; (DO ((J 0 (INDEX+ J 2))) ; ((INDEX>= J (1- CHUNK)) (SETF CHUNK J)) ; (DECLARE (TYPE ARRAY-INDEX J)) ; (WRITE-CHAR2B J (FUNCALL TRANSFORM (AREF DATA INDEX))) ; (SETQ INDEX (INDEX+ INDEX 1))))) ; NIL) ; compiling (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CHAR2B ...) ; file: /usr/share/common-lisp/source/clx/buffer.lisp ; in: DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CHAR2B ; (XLIB::DEFINE-SEQUENCE-WRITER XLIB::WRITE-SEQUENCE-CHAR2B XLIB:CARD16 ; (XLIB::WRITE-LIST-CHAR2B ; XLIB::WRITE-LIST-CHAR2B-WITH-TRANSFORM) ; (XLIB::WRITE-SIMPLE-ARRAY-CHAR2B ; XLIB::WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM) ; (XLIB::WRITE-VECTOR-CHAR2B ; XLIB::WRITE-VECTOR-CHAR2B-WITH-TRANSFORM)) ; --> DEFUN PROGN SB-IMPL::%DEFUN COND IF COND IF COND IF COND IF PROGN ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 LET ; ==> ; #:G5297 ; ; note: could not stack allocate TRANSFORM in: ; (DEFINE-SEQUENCE-WRITER WRITE-SEQUENCE-CHAR2B CARD16 ; (WRITE-LIST-CHAR2B ; WRITE-LIST-CHAR2B-WITH-TRANSFORM) ; (WRITE-SIMPLE-ARRAY-CHAR2B ; WRITE-SIMPLE-ARRAY-CHAR2B-WITH-TRANSFORM) ; (WRITE-VECTOR-CHAR2B ; WRITE-VECTOR-CHAR2B-WITH-TRANSFORM)) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/buffer-TMP.fasl written ; compilation finished in 0:00:00.939 ; compiling file "/usr/share/common-lisp/source/clx/display.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFPARAMETER *KNOWN-AUTHORIZATIONS* ...) ; compiling (DEFUN READ-XAUTH-ENTRY ...) ; compiling (DEFUN GET-BEST-AUTHORIZATION ...) ; compiling (DEFMACRO WITH-DISPLAY ...) ; compiling (DEFUN INITIALIZE-RESOURCE-ALLOCATOR ...) ; compiling (DEFUN RESOURCEALLOC ...) ; compiling (DEFMACRO ALLOCATE-RESOURCE-ID ...) ; compiling (DEFMACRO DEALLOCATE-RESOURCE-ID ...) ; compiling (DEFUN DEALLOCATE-RESOURCE-ID-INTERNAL ...) ; compiling (DEFUN LOOKUP-RESOURCE-ID ...) ; compiling (DEFUN SAVE-ID ...) ; compiling (GENERATE-LOOKUP-FUNCTIONS IGNORE ...) ; compiling (DEFUN ID-ATOM ...) ; compiling (DEFUN ATOM-ID ...) ; compiling (DEFUN SET-ATOM-ID ...) ; compiling (DEFSETF ATOM-ID ...) ; compiling (DEFUN INITIALIZE-PREDEFINED-ATOMS ...) ; compiling (DEFUN VISUAL-INFO ...) ; compiling (DEFMACRO WITH-EVENT-QUEUE ...) ; compiling (DEFUN WITH-EVENT-QUEUE-FUNCTION ...) ; file: /usr/share/common-lisp/source/clx/display.lisp ; in: DEFUN WITH-EVENT-QUEUE-FUNCTION ; (DEFUN XLIB::WITH-EVENT-QUEUE-FUNCTION (XLIB:DISPLAY XLIB::TIMEOUT FUNCTION) ; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY) ; (TYPE (OR NULL NUMBER) XLIB::TIMEOUT) ; (TYPE FUNCTION FUNCTION) ; (DYNAMIC-EXTENT FUNCTION) ; (IGNORABLE XLIB:DISPLAY XLIB::TIMEOUT)) ; (XLIB:WITH-EVENT-QUEUE (XLIB:DISPLAY :TIMEOUT XLIB::TIMEOUT :INLINE T) ; (FUNCALL FUNCTION))) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G576 ; ; note: could not stack allocate FUNCTION in: ; (DEFUN WITH-EVENT-QUEUE-FUNCTION (DISPLAY TIMEOUT FUNCTION) ; (DECLARE (TYPE DISPLAY DISPLAY) ; (TYPE (OR NULL NUMBER) TIMEOUT) ; (TYPE FUNCTION FUNCTION) ; (DYNAMIC-EXTENT FUNCTION) ; (IGNORABLE DISPLAY TIMEOUT)) ; (WITH-EVENT-QUEUE (DISPLAY :TIMEOUT TIMEOUT :INLINE T) ; (FUNCALL FUNCTION))) ; compiling (DEFMACRO WITH-EVENT-QUEUE-INTERNAL ...) ; compiling (DEFUN OPEN-DEFAULT-DISPLAY ...) ; compiling (DEFUN OPEN-DISPLAY ...) ; compiling (DEFUN DISPLAY-FORCE-OUTPUT ...) ; compiling (DEFUN CLOSE-DISPLAY ...) ; compiling (DEFUN DISPLAY-CONNECT ...) ; file: /usr/share/common-lisp/source/clx/display.lisp ; in: DEFUN DISPLAY-CONNECT ; (LENGTH XLIB::AUTHORIZATION-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH XLIB::AUTHORIZATION-DATA) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH XLIB::AUTHORIZATION-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFUN DISPLAY-PROTOCOL-VERSION ...) ; compiling (DEFUN DISPLAY-VENDOR ...) ; compiling (DEFUN DISPLAY-NSCREENS ...) ; compiling (DEFVAR *INSIDE-DISPLAY-AFTER-FUNCTION* ...) ; compiling (DEFUN DISPLAY-INVOKE-AFTER-FUNCTION ...) ; compiling (DEFUN DISPLAY-FINISH-OUTPUT ...) ; file: /usr/share/common-lisp/source/clx/display.lisp ; in: DEFUN DISPLAY-FINISH-OUTPUT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETINPUTFOCUS+ 16 ; :SIZES (8 32)) ; NIL) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFPARAMETER *REQUEST-NAMES* ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/display-TMP.fasl written ; compilation finished in 0:00:00.226 ; compiling file "/usr/share/common-lisp/source/clx/gcontext.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFCONSTANT +GCONTEXT-FAST-CHANGE-LENGTH+ ...) ; compiling (DEF-GC-INTERNALS IGNORE ...) ; compiling (DEFTYPE GCMASK ...) ; compiling (DEFTYPE XGCMASK ...) ; compiling (DEFSTRUCT (GCONTEXT-EXTENSION # ...) ...) ; compiling (DEFVAR *GCONTEXT-EXTENSIONS* ...) ; compiling (DEFVAR *GCONTEXT-LOCAL-STATE-CACHE* ...) ; compiling (DEFMACRO GCONTEXT-STATE-NEXT ...) ; compiling (DEFUN ALLOCATE-GCONTEXT-STATE ...) ; compiling (DEFUN DEALLOCATE-GCONTEXT-STATE ...) ; compiling (DEFVAR *TEMP-GCONTEXT-CACHE* ...) ; compiling (DEFUN ALLOCATE-TEMP-GCONTEXT ...) ; compiling (DEFUN DEALLOCATE-TEMP-GCONTEXT ...) ; compiling (DEFMACRO XGCMASK->GCMASK ...) ; compiling (DEFMACRO ACCESS-GCONTEXT ...) ; compiling (DEFMACRO MODIFY-GCONTEXT ...) ; compiling (DEFMACRO DEF-GC-ACCESSOR ...) ; compiling (DEFMACRO INCF-INTERNAL-TIMESTAMP ...) ; compiling (DEF-GC-ACCESSOR FUNCTION ...) ; compiling (DEF-GC-ACCESSOR PLANE-MASK ...) ; compiling (DEF-GC-ACCESSOR FOREGROUND ...) ; compiling (DEF-GC-ACCESSOR BACKGROUND ...) ; compiling (DEF-GC-ACCESSOR LINE-WIDTH ...) ; compiling (DEF-GC-ACCESSOR LINE-STYLE ...) ; compiling (DEF-GC-ACCESSOR CAP-STYLE ...) ; compiling (DEF-GC-ACCESSOR JOIN-STYLE ...) ; compiling (DEF-GC-ACCESSOR FILL-STYLE ...) ; compiling (DEF-GC-ACCESSOR FILL-RULE ...) ; compiling (DEF-GC-ACCESSOR TILE ...) ; compiling (DEF-GC-ACCESSOR STIPPLE ...) ; compiling (DEF-GC-ACCESSOR TS-X ...) ; compiling (DEF-GC-ACCESSOR TS-Y ...) ; compiling (DEF-GC-ACCESSOR SUBWINDOW-MODE ...) ; compiling (DEF-GC-ACCESSOR EXPOSURES ...) ; compiling (DEF-GC-ACCESSOR CLIP-X ...) ; compiling (DEF-GC-ACCESSOR CLIP-Y ...) ; compiling (DEF-GC-ACCESSOR DASH-OFFSET ...) ; compiling (DEF-GC-ACCESSOR ARC-MODE ...) ; compiling (DEFUN GCONTEXT-CLIP-MASK ...) ; compiling (DEFSETF GCONTEXT-CLIP-MASK ...) ; compiling (DEFUN SET-GCONTEXT-CLIP-MASK ...) ; compiling (DEFUN GCONTEXT-DASHES ...) ; compiling (DEFSETF GCONTEXT-DASHES ...) ; compiling (DEFUN SET-GCONTEXT-DASHES ...) ; compiling (DEFUN GCONTEXT-FONT ...) ; compiling (DEFSETF GCONTEXT-FONT ...) ; compiling (DEFUN SET-GCONTEXT-FONT ...) ; compiling (DEFUN FORCE-GCONTEXT-CHANGES-INTERNAL ...) ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN FORCE-GCONTEXT-CHANGES-INTERNAL ; (LENGTH XLIB::LOCAL-DASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETDASHES+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-DASH-OFFSET XLIB::LOCAL-STATE) 0) ; (LENGTH XLIB::LOCAL-DASH)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::LOCAL-DASH)) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::LOCAL-DASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (ZEROP (XLIB::BUFFER-LAST-REQUEST XLIB:DISPLAY)) ; ==> ; (= (XLIB::BUFFER-LAST-REQUEST XLIB:DISPLAY) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (FUNCALL (XLIB::GCONTEXT-EXTENSION-SET-FUNCTION (CAR XLIB::EXTENSION)) ; XLIB:GCONTEXT XLIB::LOCAL) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN ; (XLIB::GCONTEXT-EXTENSION-SET-FUNCTION (CAR XLIB::EXTENSION))) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETCLIPRECTANGLES+) ; (XLIB::DATA (FIRST XLIB::LOCAL-CLIP)) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-CLIP-X XLIB::LOCAL-STATE) 0) ; (OR (XLIB::GCONTEXT-INTERNAL-CLIP-Y XLIB::LOCAL-STATE) 0)) ; ((SEQUENCE :FORMAT XLIB:INT16) (SECOND XLIB::LOCAL-CLIP))) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::CHECK-PUT LET XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::.VALUE.) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (PROGN ; (DO ((XLIB::I 0 #) ; (BIT 1 #) ; (XLIB::NBYTE 12) ; (XLIB::MASK 0) ; (XLIB::LOCAL 0)) ; ((XLIB::INDEX>= XLIB::I XLIB::+GCONTEXT-FAST-CHANGE-LENGTH+) ; (WHEN # # #) ; (XLIB::CARD29-PUT 8 XLIB::MASK) ; (XLIB::CARD16-PUT 2 #) ; (XLIB::INDEX-INCF # XLIB::NBYTE)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::I XLIB::NBYTE) ; (TYPE XLIB::XGCMASK BIT) ; (TYPE XLIB::GCMASK XLIB::MASK) ; (TYPE # XLIB::LOCAL)) ; (UNLESS (EQL # #) ; (SETF #) ; (XLIB::CARD32-PUT XLIB::NBYTE XLIB::LOCAL) ; (SETQ #) ; (XLIB::INDEX-INCF XLIB::NBYTE 4))))) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (EQL (SVREF XLIB::SERVER-STATE XLIB::I) ; (SETQ XLIB::LOCAL (SVREF XLIB::LOCAL-STATE XLIB::I))) ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETCLIPRECTANGLES+) ; (XLIB::DATA (FIRST XLIB::LOCAL-CLIP)) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-CLIP-X XLIB::LOCAL-STATE) 0) ; (OR (XLIB::GCONTEXT-INTERNAL-CLIP-Y XLIB::LOCAL-STATE) 0)) ; ((SEQUENCE :FORMAT XLIB:INT16) (SECOND XLIB::LOCAL-CLIP))) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETDASHES+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-DASH-OFFSET XLIB::LOCAL-STATE) 0) ; (LENGTH XLIB::LOCAL-DASH)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::LOCAL-DASH)) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FORCE-GCONTEXT-CHANGES ...) ; compiling (DEFMACRO WITH-GCONTEXT ...) ; compiling (DEFUN COPY-GCONTEXT-LOCAL-STATE ...) ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN COPY-GCONTEXT-LOCAL-STATE ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) ; --> XLIB:WITH-DISPLAY XLIB::WITH-BUFFER PROGN FUNCALL SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::TEMP-MASK))) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ==> ; (SB-KERNEL:%NEGATE (THE NUMBER XLIB::*GCONTEXT-DATA-LENGTH*)) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (ELT XLIB::*GCONTEXT-EXTENSIONS* XLIB::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (FUNCALL XLIB::COPY-FUNCTION XLIB:GCONTEXT XLIB::TEMP-GC ; (SVREF XLIB::LOCAL-STATE ; (XLIB::INDEX+ XLIB::I XLIB::*GCONTEXT-DATA-LENGTH*))) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN XLIB::COPY-FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:DRAWABLE (XLIB::GCONTEXT-DRAWABLE XLIB:GCONTEXT)) ; (XLIB:CARD29 0)) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::TEMP-MASK))) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ==> ; (SB-KERNEL:%NEGATE (THE NUMBER XLIB::*GCONTEXT-DATA-LENGTH*)) ; ; note: forced to do GENERIC-NEGATE (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 2) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; (ASH XLIB::EXTENSION-MASK (- XLIB::*GCONTEXT-DATA-LENGTH*)) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (ASH BIT -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; compiling (DEFUN RESTORE-GCONTEXT-TEMP-STATE ...) ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN RESTORE-GCONTEXT-TEMP-STATE ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ==> ; (SB-KERNEL:%NEGATE (THE NUMBER XLIB::*GCONTEXT-DATA-LENGTH*)) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC)) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (FUNCALL XLIB::COPY-FUNCTION XLIB::TEMP-GC XLIB:GCONTEXT ; (SVREF XLIB::LOCAL-STATE XLIB::I)) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN XLIB::COPY-FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::TEMP-MASK))) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ==> ; (SB-KERNEL:%NEGATE (THE NUMBER XLIB::*GCONTEXT-DATA-LENGTH*)) ; ; note: forced to do GENERIC-NEGATE (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 2) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) &REST ; T). ; etc. ; (ASH XLIB::TEMP-MASK (- XLIB::*GCONTEXT-DATA-LENGTH*)) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB::TEMP-GC)) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (ASH BIT -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; compiling (DEFUN CREATE-GCONTEXT ...) ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN CREATE-GCONTEXT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) ; --> XLIB:WITH-DISPLAY XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK FUNCALL ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEGC+) ; (XLIB:RESOURCE-ID XLIB::GCONTEXTID) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (PROGN ; (DO* ((XLIB::I 0 #) ; (BIT 1 #) ; (XLIB::NBYTE 16) ; (XLIB::MASK 0) ; (XLIB::LOCAL # #)) ; ((XLIB::INDEX>= XLIB::I XLIB::+GCONTEXT-FAST-CHANGE-LENGTH+) ; (XLIB::CARD29-PUT 12 XLIB::MASK) ; (XLIB::CARD16-PUT 2 #) ; (XLIB::INDEX-INCF # XLIB::NBYTE)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::I XLIB::NBYTE) ; (TYPE XLIB::XGCMASK BIT) ; (TYPE XLIB::GCMASK XLIB::MASK) ; (TYPE # XLIB::LOCAL)) ; (UNLESS (EQL XLIB::LOCAL #) ; (SETF #) ; (XLIB::CARD32-PUT XLIB::NBYTE XLIB::LOCAL) ; (SETQ #) ; (XLIB::INDEX-INCF XLIB::NBYTE 4))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN COPY-GCONTEXT-COMPONENTS ...) ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN COPY-GCONTEXT-COMPONENTS ; (FIND XLIB::KEY XLIB::*GCONTEXT-EXTENSIONS* :KEY ; #'XLIB::GCONTEXT-EXTENSION-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (FUNCALL (XLIB::GCONTEXT-EXTENSION-COPY-FUNCTION XLIB::EXTENSION) XLIB::SRC ; XLIB::DST ; (SVREF (XLIB::GCONTEXT-LOCAL-STATE XLIB::SRC) ; (XLIB::INDEX+ ; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) ; XLIB::*GCONTEXT-DATA-LENGTH*))) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN ; (XLIB::GCONTEXT-EXTENSION-COPY-FUNCTION XLIB::EXTENSION)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+) ; (XLIB:GCONTEXT XLIB::SRC XLIB::DST) ; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::MASK))) ; --> LET XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS ; --> PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET ; --> LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND ; --> LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN COPY-GCONTEXT ...) ; compiling (DEFUN FREE-GCONTEXT ...) ; file: /usr/share/common-lisp/source/clx/gcontext.lisp ; in: DEFUN FREE-GCONTEXT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEGC+) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFMACRO DEFINE-GCONTEXT-ACCESSOR ...) ; compiling (DEFUN ADD-GCONTEXT-EXTENSION ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/gcontext-TMP.fasl written ; compilation finished in 0:00:01.070 ; compiling file "/usr/share/common-lisp/source/clx/input.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFVAR *EVENT-FREE-LIST* ...) ; compiling (DEFCONSTANT +MAX-EVENTS+ ...) ; compiling (DEFVAR *EVENT-KEY-VECTOR* ...) ; compiling (DEFVAR *EVENT-MACRO-VECTOR* ...) ; compiling (DEFVAR *EVENT-HANDLER-VECTOR* ...) ; compiling (DEFVAR *EVENT-SEND-VECTOR* ...) ; compiling (DEFUN ALLOCATE-EVENT ...) ; compiling (DEFUN DEALLOCATE-EVENT ...) ; compiling (DEFPARAMETER *FIRST-EXTENSION-EVENT-CODE* ...) ; compiling (DEFVAR *EXTENSIONS* ...) ; compiling (DEFMACRO DEFINE-EXTENSION ...) ; compiling (DEFUN CANONICALIZE-EVENT-NAME ...) ; compiling (DEFUN EXTENSION-EVENT-KEY-P ...) ; compiling (DEFUN ALLOCATE-EXTENSION-EVENT-CODE ...) ; compiling (DEFUN GET-INTERNAL-EVENT-CODE ...) ; compiling (DEFUN GET-EXTERNAL-EVENT-CODE ...) ; compiling (DEFMACRO EXTENSION-OPCODE ...) ; compiling (DEFUN INITIALIZE-EXTENSIONS ...) ; compiling (DEFVAR *PENDING-COMMAND-FREE-LIST* ...) ; compiling (DEFUN START-PENDING-COMMAND ...) ; compiling (DEFUN STOP-PENDING-COMMAND ...) ; compiling (DEFVAR *REPLY-BUFFER-FREE-LISTS* ...) ; compiling (DEFUN ALLOCATE-REPLY-BUFFER ...) ; compiling (DEFUN DEALLOCATE-REPLY-BUFFER ...) ; compiling (DEFUN READ-ERROR-INPUT ...) ; compiling (DEFUN READ-REPLY-INPUT ...) ; compiling (DEFUN READ-EVENT-INPUT ...) ; compiling (DEFUN NOTE-INPUT-COMPLETE ...) ; compiling (DEFUN READ-INPUT ...) ; compiling (DEFUN REPORT-ASYNCHRONOUS-ERRORS ...) ; compiling (DEFUN WAIT-FOR-EVENT ...) ; compiling (DEFUN READ-REPLY ...) ; compiling (DEFUN EVENT-LISTEN ...) ; compiling (DEFUN QUEUE-EVENT ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DEFUN QUEUE-EVENT ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::EVENT-CODE) XLIB:DISPLAY ; XLIB::ARGS) ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN ; (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::EVENT-CODE)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; compiling (DEFUN ENQUEUE-EVENT ...) ; compiling (DEFMACRO DEFINE-EVENT ...) ; compiling (DEFINE-EVENT :KEY-PRESS ...) ; compiling (DEFINE-EVENT :KEY-RELEASE ...) ; compiling (DEFINE-EVENT :BUTTON-PRESS ...) ; compiling (DEFINE-EVENT :BUTTON-RELEASE ...) ; compiling (DEFINE-EVENT :MOTION-NOTIFY ...) ; compiling (DEFINE-EVENT :ENTER-NOTIFY ...) ; compiling (DEFINE-EVENT :LEAVE-NOTIFY ...) ; compiling (DEFINE-EVENT :FOCUS-IN ...) ; compiling (DEFINE-EVENT :FOCUS-OUT ...) ; compiling (DEFINE-EVENT :KEYMAP-NOTIFY ...) ; compiling (DEFINE-EVENT :EXPOSURE ...) ; compiling (DEFINE-EVENT :GRAPHICS-EXPOSURE ...) ; compiling (DEFINE-EVENT :NO-EXPOSURE ...) ; compiling (DEFINE-EVENT :VISIBILITY-NOTIFY ...) ; compiling (DEFINE-EVENT :CREATE-NOTIFY ...) ; compiling (DEFINE-EVENT :DESTROY-NOTIFY ...) ; compiling (DEFINE-EVENT :UNMAP-NOTIFY ...) ; compiling (DEFINE-EVENT :MAP-NOTIFY ...) ; compiling (DEFINE-EVENT :MAP-REQUEST ...) ; compiling (DEFINE-EVENT :REPARENT-NOTIFY ...) ; compiling (DEFINE-EVENT :CONFIGURE-NOTIFY ...) ; compiling (DEFINE-EVENT :CONFIGURE-REQUEST ...) ; compiling (DEFINE-EVENT :GRAVITY-NOTIFY ...) ; compiling (DEFINE-EVENT :RESIZE-REQUEST ...) ; compiling (DEFINE-EVENT :CIRCULATE-NOTIFY ...) ; compiling (DEFINE-EVENT :CIRCULATE-REQUEST ...) ; compiling (DEFINE-EVENT :PROPERTY-NOTIFY ...) ; compiling (DEFINE-EVENT :SELECTION-CLEAR ...) ; compiling (DEFINE-EVENT :SELECTION-REQUEST ...) ; compiling (DEFINE-EVENT :SELECTION-NOTIFY ...) ; compiling (DEFINE-EVENT :COLORMAP-NOTIFY ...) ; compiling (DEFINE-EVENT :CLIENT-MESSAGE ...) ; compiling (DEFINE-EVENT :MAPPING-NOTIFY ...) ; compiling (DEFMACRO DECLARE-EVENT ...) ; compiling (DEFUN CHECK-CONSISTENCY ...) ; compiling (DECLARE-EVENT (:KEY-PRESS :KEY-RELEASE ...) ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: ; DECLARE-EVENT (:KEY-PRESS :KEY-RELEASE :BUTTON-PRESS :BUTTON-RELEASE) ; (XLIB:DECLARE-EVENT (:KEY-PRESS :KEY-RELEASE :BUTTON-PRESS :BUTTON-RELEASE) ; (XLIB::DATA XLIB::CODE) ; (XLIB:CARD16 SEQUENCE) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:WINDOW XLIB::ROOT (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; ((OR NULL XLIB:WINDOW) XLIB::CHILD) ; (XLIB:INT16 XLIB::ROOT-X XLIB::ROOT-Y XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::STATE) ; (BOOLEAN XLIB::SAME-SCREEN-P)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G2037 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT (:KEY-PRESS :KEY-RELEASE :BUTTON-PRESS :BUTTON-RELEASE) ; (DATA CODE) ; (CARD16 SEQUENCE) ; ((OR NULL CARD32) TIME) ; (WINDOW ROOT (WINDOW EVENT-WINDOW)) ; ((OR NULL WINDOW) CHILD) ; (INT16 ROOT-X ROOT-Y X Y) ; (CARD16 STATE) ; (BOOLEAN SAME-SCREEN-P)) ; compiling (DECLARE-EVENT :MOTION-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :MOTION-NOTIFY ; (XLIB:DECLARE-EVENT :MOTION-NOTIFY ; ((XLIB::DATA BOOLEAN) XLIB::HINT-P) ; (XLIB:CARD16 SEQUENCE) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:WINDOW XLIB::ROOT (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; ((OR NULL XLIB:WINDOW) XLIB::CHILD) ; (XLIB:INT16 XLIB::ROOT-X XLIB::ROOT-Y XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::STATE) ; (BOOLEAN XLIB::SAME-SCREEN-P)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G2237 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :MOTION-NOTIFY ; ((DATA BOOLEAN) HINT-P) ; (CARD16 SEQUENCE) ; ((OR NULL CARD32) TIME) ; (WINDOW ROOT (WINDOW EVENT-WINDOW)) ; ((OR NULL WINDOW) CHILD) ; (INT16 ROOT-X ROOT-Y X Y) ; (CARD16 STATE) ; (BOOLEAN SAME-SCREEN-P)) ; compiling (DECLARE-EVENT (:ENTER-NOTIFY :LEAVE-NOTIFY) ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT (:ENTER-NOTIFY :LEAVE-NOTIFY) ; (XLIB:DECLARE-EVENT (:ENTER-NOTIFY :LEAVE-NOTIFY) ; ((XLIB::DATA ; (XLIB::MEMBER8 :ANCESTOR :VIRTUAL :INFERIOR :NONLINEAR ; :NONLINEAR-VIRTUAL)) ; XLIB::KIND) ; (XLIB:CARD16 SEQUENCE) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:WINDOW XLIB::ROOT (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; ((OR NULL XLIB:WINDOW) XLIB::CHILD) ; (XLIB:INT16 XLIB::ROOT-X XLIB::ROOT-Y XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::STATE) ; ((XLIB::MEMBER8 :NORMAL :GRAB :UNGRAB) XLIB::MODE) ; ((BIT 0) XLIB::FOCUS-P) ; ((BIT 1) XLIB::SAME-SCREEN-P)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G2403 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT (:ENTER-NOTIFY :LEAVE-NOTIFY) ; ((DATA ; (MEMBER8 :ANCESTOR :VIRTUAL :INFERIOR :NONLINEAR ; :NONLINEAR-VIRTUAL)) ; KIND) ; (CARD16 SEQUENCE) ; ((OR NULL CARD32) TIME) ; (WINDOW ROOT (WINDOW EVENT-WINDOW)) ; ((OR NULL WINDOW) CHILD) ; (INT16 ROOT-X ROOT-Y X Y) ; (CARD16 STATE) ; ((MEMBER8 :NORMAL :GRAB :UNGRAB) MODE) ; ((BIT 0) FOCUS-P) ; ((BIT 1) SAME-SCREEN-P)) ; compiling (DECLARE-EVENT (:FOCUS-IN :FOCUS-OUT) ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT (:FOCUS-IN :FOCUS-OUT) ; (XLIB:DECLARE-EVENT (:FOCUS-IN :FOCUS-OUT) ; ((XLIB::DATA ; (XLIB::MEMBER8 :ANCESTOR :VIRTUAL :INFERIOR :NONLINEAR :NONLINEAR-VIRTUAL ; :POINTER :POINTER-ROOT :NONE)) ; XLIB::KIND) ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; ((XLIB::MEMBER8 :NORMAL :WHILE-GRABBED :GRAB :UNGRAB) XLIB::MODE)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G2704 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT (:FOCUS-IN :FOCUS-OUT) ; ((DATA ; (MEMBER8 :ANCESTOR :VIRTUAL :INFERIOR :NONLINEAR :NONLINEAR-VIRTUAL ; :POINTER :POINTER-ROOT :NONE)) ; KIND) ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; ((MEMBER8 :NORMAL :WHILE-GRABBED :GRAB :UNGRAB) MODE)) ; compiling (DECLARE-EVENT :KEYMAP-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :KEYMAP-NOTIFY ; (XLIB:DECLARE-EVENT :KEYMAP-NOTIFY ; ((XLIB::BIT-VECTOR256 0) XLIB::KEYMAP)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G2955 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :KEYMAP-NOTIFY ; ((BIT-VECTOR256 0) KEYMAP)) ; compiling (DECLARE-EVENT :EXPOSURE ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :EXPOSURE ; (XLIB:DECLARE-EVENT :EXPOSURE ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (XLIB:CARD16 XLIB::X XLIB::Y XLIB::WIDTH XLIB::HEIGHT COUNT)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G3046 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :EXPOSURE ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; (CARD16 X Y WIDTH HEIGHT COUNT)) ; compiling (DECLARE-EVENT :GRAPHICS-EXPOSURE ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :GRAPHICS-EXPOSURE ; (XLIB:DECLARE-EVENT :GRAPHICS-EXPOSURE ; (XLIB:CARD16 SEQUENCE) ; (XLIB:DRAWABLE (XLIB:DRAWABLE XLIB::EVENT-WINDOW)) ; (XLIB:CARD16 XLIB::X XLIB::Y XLIB::WIDTH XLIB::HEIGHT) ; (XLIB:CARD16 XLIB::MINOR) ; (XLIB:CARD16 COUNT) ; (XLIB:CARD8 XLIB::MAJOR)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G3152 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :GRAPHICS-EXPOSURE ; (CARD16 SEQUENCE) ; (DRAWABLE (DRAWABLE EVENT-WINDOW)) ; (CARD16 X Y WIDTH HEIGHT) ; (CARD16 MINOR) ; (CARD16 COUNT) ; (CARD8 MAJOR)) ; compiling (DECLARE-EVENT :NO-EXPOSURE ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :NO-EXPOSURE ; (XLIB:DECLARE-EVENT :NO-EXPOSURE ; (XLIB:CARD16 SEQUENCE) ; (XLIB:DRAWABLE (XLIB:DRAWABLE XLIB::EVENT-WINDOW)) ; (XLIB:CARD16 XLIB::MINOR) ; (XLIB:CARD8 XLIB::MAJOR)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G3263 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :NO-EXPOSURE ; (CARD16 SEQUENCE) ; (DRAWABLE (DRAWABLE EVENT-WINDOW)) ; (CARD16 MINOR) ; (CARD8 MAJOR)) ; compiling (DECLARE-EVENT :VISIBILITY-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :VISIBILITY-NOTIFY ; (XLIB:DECLARE-EVENT :VISIBILITY-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; ((XLIB::MEMBER8 :UNOBSCURED :PARTIALLY-OBSCURED :FULLY-OBSCURED) ; XLIB::STATE)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G3366 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :VISIBILITY-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; ((MEMBER8 :UNOBSCURED :PARTIALLY-OBSCURED :FULLY-OBSCURED) STATE)) ; compiling (DECLARE-EVENT :CREATE-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :CREATE-NOTIFY ; (XLIB:DECLARE-EVENT :CREATE-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB::PARENT XLIB::EVENT-WINDOW) XLIB:WINDOW) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH) ; (BOOLEAN XLIB::OVERRIDE-REDIRECT-P)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G3532 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :CREATE-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW (PARENT EVENT-WINDOW) WINDOW) ; (INT16 X Y) ; (CARD16 WIDTH HEIGHT BORDER-WIDTH) ; (BOOLEAN OVERRIDE-REDIRECT-P)) ; compiling (DECLARE-EVENT :DESTROY-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :DESTROY-NOTIFY ; (XLIB:DECLARE-EVENT :DESTROY-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G3641 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :DESTROY-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW EVENT-WINDOW WINDOW)) ; compiling (DECLARE-EVENT :UNMAP-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :UNMAP-NOTIFY ; (XLIB:DECLARE-EVENT :UNMAP-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW) ; (BOOLEAN XLIB::CONFIGURE-P)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G3732 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :UNMAP-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW EVENT-WINDOW WINDOW) ; (BOOLEAN CONFIGURE-P)) ; compiling (DECLARE-EVENT :MAP-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :MAP-NOTIFY ; (XLIB:DECLARE-EVENT :MAP-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW) ; (BOOLEAN XLIB::OVERRIDE-REDIRECT-P)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G3831 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :MAP-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW EVENT-WINDOW WINDOW) ; (BOOLEAN OVERRIDE-REDIRECT-P)) ; compiling (DECLARE-EVENT :MAP-REQUEST ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :MAP-REQUEST ; (XLIB:DECLARE-EVENT :MAP-REQUEST ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB::PARENT XLIB::EVENT-WINDOW) XLIB:WINDOW)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G3930 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :MAP-REQUEST ; (CARD16 SEQUENCE) ; (WINDOW (PARENT EVENT-WINDOW) WINDOW)) ; compiling (DECLARE-EVENT :REPARENT-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :REPARENT-NOTIFY ; (XLIB:DECLARE-EVENT :REPARENT-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW XLIB::PARENT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (BOOLEAN XLIB::OVERRIDE-REDIRECT-P)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G4025 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :REPARENT-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW EVENT-WINDOW WINDOW PARENT) ; (INT16 X Y) ; (BOOLEAN OVERRIDE-REDIRECT-P)) ; compiling (DECLARE-EVENT :CONFIGURE-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :CONFIGURE-NOTIFY ; (XLIB:DECLARE-EVENT :CONFIGURE-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW) ; ((OR NULL XLIB:WINDOW) XLIB::ABOVE-SIBLING) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH) ; (BOOLEAN XLIB::OVERRIDE-REDIRECT-P)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G4147 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :CONFIGURE-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW EVENT-WINDOW WINDOW) ; ((OR NULL WINDOW) ABOVE-SIBLING) ; (INT16 X Y) ; (CARD16 WIDTH HEIGHT BORDER-WIDTH) ; (BOOLEAN OVERRIDE-REDIRECT-P)) ; compiling (DECLARE-EVENT :CONFIGURE-REQUEST ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :CONFIGURE-REQUEST ; (XLIB:DECLARE-EVENT :CONFIGURE-REQUEST ; ((XLIB::DATA (XLIB::MEMBER8 :ABOVE :BELOW :TOP-IF :BOTTOM-IF :OPPOSITE)) ; XLIB::STACK-MODE) ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB::PARENT XLIB::EVENT-WINDOW) XLIB:WINDOW) ; ((OR NULL XLIB:WINDOW) XLIB::ABOVE-SIBLING) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH XLIB::VALUE-MASK)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G4282 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :CONFIGURE-REQUEST ; ((DATA (MEMBER8 :ABOVE :BELOW :TOP-IF :BOTTOM-IF :OPPOSITE)) ; STACK-MODE) ; (CARD16 SEQUENCE) ; (WINDOW (PARENT EVENT-WINDOW) WINDOW) ; ((OR NULL WINDOW) ABOVE-SIBLING) ; (INT16 X Y) ; (CARD16 WIDTH HEIGHT BORDER-WIDTH VALUE-MASK)) ; compiling (DECLARE-EVENT :GRAVITY-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :GRAVITY-NOTIFY ; (XLIB:DECLARE-EVENT :GRAVITY-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X XLIB::Y)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G4472 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :GRAVITY-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW EVENT-WINDOW WINDOW) ; (INT16 X Y)) ; compiling (DECLARE-EVENT :RESIZE-REQUEST ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :RESIZE-REQUEST ; (XLIB:DECLARE-EVENT :RESIZE-REQUEST ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G4568 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :RESIZE-REQUEST ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; (CARD16 WIDTH HEIGHT)) ; compiling (DECLARE-EVENT :CIRCULATE-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :CIRCULATE-NOTIFY ; (XLIB:DECLARE-EVENT :CIRCULATE-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW XLIB::PARENT) ; ((XLIB::MEMBER8 :TOP :BOTTOM) XLIB::PLACE)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G4666 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :CIRCULATE-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW EVENT-WINDOW WINDOW PARENT) ; ((MEMBER8 :TOP :BOTTOM) PLACE)) ; compiling (DECLARE-EVENT :CIRCULATE-REQUEST ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :CIRCULATE-REQUEST ; (XLIB:DECLARE-EVENT :CIRCULATE-REQUEST ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB::PARENT XLIB::EVENT-WINDOW) XLIB:WINDOW) ; (XLIB::PAD16 1 2) ; ((XLIB::MEMBER8 :TOP :BOTTOM) XLIB::PLACE)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G4833 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :CIRCULATE-REQUEST ; (CARD16 SEQUENCE) ; (WINDOW (PARENT EVENT-WINDOW) WINDOW) ; (PAD16 1 2) ; ((MEMBER8 :TOP :BOTTOM) PLACE)) ; compiling (DECLARE-EVENT :PROPERTY-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :PROPERTY-NOTIFY ; (XLIB:DECLARE-EVENT :PROPERTY-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (KEYWORD ATOM) ; ((OR NULL XLIB:CARD32) TIME) ; ((XLIB::MEMBER8 :NEW-VALUE :DELETED) XLIB::STATE)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G5012 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :PROPERTY-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; (KEYWORD ATOM) ; ((OR NULL CARD32) TIME) ; ((MEMBER8 :NEW-VALUE :DELETED) STATE)) ; compiling (DECLARE-EVENT :SELECTION-CLEAR ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :SELECTION-CLEAR ; (XLIB:DECLARE-EVENT :SELECTION-CLEAR ; (XLIB:CARD16 SEQUENCE) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (KEYWORD XLIB::SELECTION)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G5192 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :SELECTION-CLEAR ; (CARD16 SEQUENCE) ; ((OR NULL CARD32) TIME) ; (WINDOW (WINDOW EVENT-WINDOW)) ; (KEYWORD SELECTION)) ; compiling (DECLARE-EVENT :SELECTION-REQUEST ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :SELECTION-REQUEST ; (XLIB:DECLARE-EVENT :SELECTION-REQUEST ; (XLIB:CARD16 SEQUENCE) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW) XLIB::REQUESTOR) ; (KEYWORD XLIB::SELECTION XLIB::TARGET) ; ((OR NULL KEYWORD) XLIB::PROPERTY)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G5316 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :SELECTION-REQUEST ; (CARD16 SEQUENCE) ; ((OR NULL CARD32) TIME) ; (WINDOW (WINDOW EVENT-WINDOW) REQUESTOR) ; (KEYWORD SELECTION TARGET) ; ((OR NULL KEYWORD) PROPERTY)) ; compiling (DECLARE-EVENT :SELECTION-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :SELECTION-NOTIFY ; (XLIB:DECLARE-EVENT :SELECTION-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (KEYWORD XLIB::SELECTION XLIB::TARGET) ; ((OR NULL KEYWORD) XLIB::PROPERTY)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G5449 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :SELECTION-NOTIFY ; (CARD16 SEQUENCE) ; ((OR NULL CARD32) TIME) ; (WINDOW (WINDOW EVENT-WINDOW)) ; (KEYWORD SELECTION TARGET) ; ((OR NULL KEYWORD) PROPERTY)) ; compiling (DECLARE-EVENT :COLORMAP-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :COLORMAP-NOTIFY ; (XLIB:DECLARE-EVENT :COLORMAP-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; ((OR NULL XLIB:COLORMAP) XLIB:COLORMAP) ; (BOOLEAN XLIB::NEW-P XLIB::INSTALLED-P)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G5567 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :COLORMAP-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; ((OR NULL COLORMAP) COLORMAP) ; (BOOLEAN NEW-P INSTALLED-P)) ; compiling (DECLARE-EVENT :CLIENT-MESSAGE ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :CLIENT-MESSAGE ; (XLIB:DECLARE-EVENT :CLIENT-MESSAGE ; (XLIB::DATA FORMAT) ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (KEYWORD TYPE) ; ((XLIB::CLIENT-MESSAGE-SEQUENCE FORMAT) XLIB::DATA)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK ; --> XLIB::READING-EVENT XLIB::WITH-BUFFER-INPUT LET LET* FUNCALL ; --> SB-C::%FUNCALL XLIB::CLIENT-MESSAGE-SEQUENCE-GET ; --> XLIB::CLIENT-MESSAGE-EVENT-GET-SEQUENCE LET* MAKE-ARRAY LOCALLY ; ==> ; (MAKE-ARRAY (CEILING 160 FORMAT) :ELEMENT-TYPE `(UNSIGNED-BYTE ,FORMAT)) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK ; --> XLIB::READING-EVENT XLIB::WITH-BUFFER-INPUT LET LET* FUNCALL ; --> SB-C::%FUNCALL XLIB::CLIENT-MESSAGE-SEQUENCE-GET ; --> XLIB::CLIENT-MESSAGE-EVENT-GET-SEQUENCE LET* DO BLOCK LET TAGBODY TAGBODY ; --> CASE LET COND IF PROGN SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK ; --> XLIB::READING-EVENT XLIB::WITH-BUFFER-INPUT LET LET* FUNCALL ; --> SB-C::%FUNCALL XLIB::CLIENT-MESSAGE-SEQUENCE-GET ; --> XLIB::CLIENT-MESSAGE-EVENT-GET-SEQUENCE LET* DO BLOCK LET TAGBODY TAGBODY ; --> CASE LET COND IF COND IF PROGN SETF LET* MULTIPLE-VALUE-BIND LET FUNCALL ; --> SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK ; --> XLIB::READING-EVENT XLIB::WITH-BUFFER-INPUT LET LET* FUNCALL ; --> SB-C::%FUNCALL XLIB::CLIENT-MESSAGE-SEQUENCE-GET ; --> XLIB::CLIENT-MESSAGE-EVENT-GET-SEQUENCE LET* DO BLOCK LET TAGBODY TAGBODY ; --> CASE LET COND IF COND IF COND IF PROGN SETF LET* MULTIPLE-VALUE-BIND LET ; --> FUNCALL SB-C::%FUNCALL (SETF AREF) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (SIMPLE-ARRAY * (*)), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G5708 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :CLIENT-MESSAGE ; (DATA FORMAT) ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; (KEYWORD TYPE) ; ((CLIENT-MESSAGE-SEQUENCE FORMAT) DATA)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CLIENT-MESSAGE-SEQUENCE-PUT ; --> XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ECASE LET COND IF PROGN ; --> XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD8 MIN LET ; ==> ; (LENGTH XLIB::DATA) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CLIENT-MESSAGE-SEQUENCE-PUT ; --> XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ECASE LET COND IF COND IF PROGN ; --> XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD16 MIN LET ; ==> ; (LENGTH XLIB::DATA) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN BLOCK ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CLIENT-MESSAGE-SEQUENCE-PUT ; --> XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ECASE LET COND IF COND IF COND IF ; --> PROGN XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD32 MIN LET ; ==> ; (LENGTH XLIB::DATA) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DECLARE-EVENT :MAPPING-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DECLARE-EVENT :MAPPING-NOTIFY ; (XLIB:DECLARE-EVENT :MAPPING-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; ((XLIB::MEMBER8 :MODIFIER :KEYBOARD :POINTER) XLIB::REQUEST) ; (XLIB:CARD8 XLIB::START) ; (XLIB:CARD8 COUNT)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G5833 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :MAPPING-NOTIFY ; (CARD16 SEQUENCE) ; ((MEMBER8 :MODIFIER :KEYBOARD :POINTER) REQUEST) ; (CARD8 START) ; (CARD8 COUNT)) ; compiling (DEFUN EVENT-LOOP-SETUP ...) ; compiling (DEFUN EVENT-LOOP-STEP-BEFORE ...) ; compiling (DEFUN DEQUEUE-EVENT ...) ; compiling (DEFUN EVENT-LOOP-STEP-AFTER ...) ; compiling (DEFMACRO EVENT-LOOP ...) ; compiling (DEFUN DISCARD-CURRENT-EVENT ...) ; compiling (DEFUN PROCESS-EVENT ...) ; compiling (DEFUN MAKE-EVENT-HANDLERS ...) ; compiling (DEFUN EVENT-HANDLER ...) ; compiling (DEFUN SET-EVENT-HANDLER ...) ; compiling (DEFSETF EVENT-HANDLER ...) ; compiling (DEFMACRO EVENT-CASE ...) ; compiling (DEFMACRO EVENT-COND ...) ; compiling (DEFUN GET-EVENT-CODE ...) ; compiling (DEFUN UNIVERSAL-EVENT-GET-MACRO ...) ; compiling (DEFMACRO EVENT-DISPATCH ...) ; compiling (DEFMACRO BINDING-EVENT-VALUES ...) ; compiling (DEFPARAMETER *XERROR-VECTOR* ...) ; compiling (DEFUN MAKE-ERROR ...) ; file: /usr/share/common-lisp/source/clx/input.lisp ; in: DEFUN MAKE-ERROR ; (FUNCALL XLIB::ERROR-DECODE-FUNCTION XLIB:DISPLAY XLIB::EVENT) ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN XLIB::ERROR-DECODE-FUNCTION) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; compiling (DEFUN REPORT-ERROR ...) ; compiling (DEFUN REQUEST-NAME ...) ; compiling (DEFUN REPORT-REQUEST-ERROR ...) ; compiling (DEFINE-CONDITION REQUEST-ERROR ...) ; compiling (DEFINE-CONDITION RESOURCE-ERROR ...) ; compiling (DEFINE-CONDITION UNKNOWN-ERROR ...) ; compiling (DEFINE-CONDITION ACCESS-ERROR ...) ; compiling (DEFINE-CONDITION ALLOC-ERROR ...) ; compiling (DEFINE-CONDITION ATOM-ERROR ...) ; compiling (DEFINE-CONDITION COLORMAP-ERROR ...) ; compiling (DEFINE-CONDITION CURSOR-ERROR ...) ; compiling (DEFINE-CONDITION DRAWABLE-ERROR ...) ; compiling (DEFINE-CONDITION FONT-ERROR ...) ; compiling (DEFINE-CONDITION GCONTEXT-ERROR ...) ; compiling (DEFINE-CONDITION ID-CHOICE-ERROR ...) ; compiling (DEFINE-CONDITION ILLEGAL-REQUEST-ERROR ...) ; compiling (DEFINE-CONDITION LENGTH-ERROR ...) ; compiling (DEFINE-CONDITION MATCH-ERROR ...) ; compiling (DEFINE-CONDITION NAME-ERROR ...) ; compiling (DEFINE-CONDITION PIXMAP-ERROR ...) ; compiling (DEFINE-CONDITION VALUE-ERROR ...) ; compiling (DEFINE-CONDITION WINDOW-ERROR ...) ; compiling (DEFINE-CONDITION IMPLEMENTATION-ERROR ...) ; compiling (DEFINE-CONDITION X-TYPE-ERROR ...) ; compiling (DEFINE-CONDITION CLOSED-DISPLAY ...) ; compiling (DEFINE-CONDITION LOOKUP-ERROR ...) ; compiling (DEFINE-CONDITION CONNECTION-FAILURE ...) ; compiling (DEFINE-CONDITION REPLY-LENGTH-ERROR ...) ; compiling (DEFINE-CONDITION REPLY-TIMEOUT ...) ; compiling (DEFINE-CONDITION SEQUENCE-ERROR ...) ; compiling (DEFINE-CONDITION UNEXPECTED-REPLY ...) ; compiling (DEFINE-CONDITION MISSING-PARAMETER ...) ; compiling (DEFINE-CONDITION INVALID-FONT ...) ; compiling (DEFINE-CONDITION DEVICE-BUSY ...) ; compiling (DEFINE-CONDITION UNIMPLEMENTED-EVENT ...) ; compiling (DEFINE-CONDITION UNDEFINED-EVENT ...) ; compiling (DEFINE-CONDITION ABSENT-EXTENSION ...) ; compiling (DEFINE-CONDITION INCONSISTENT-PARAMETERS ...) ; compiling (DEFINE-CONDITION RESOURCE-IDS-EXHAUSTED ...) ; compiling (DEFUN GET-ERROR-KEY ...) ; compiling (DEFMACRO DEFINE-ERROR ...) ; compiling (DEFUN DECODE-CORE-ERROR ...) ; compiling (DEFUN DECODE-RESOURCE-ERROR ...) ; compiling (DEFINE-ERROR UNKNOWN-ERROR ...) ; compiling (DEFINE-ERROR REQUEST-ERROR ...) ; compiling (DEFINE-ERROR VALUE-ERROR ...) ; compiling (DEFINE-ERROR WINDOW-ERROR ...) ; compiling (DEFINE-ERROR PIXMAP-ERROR ...) ; compiling (DEFINE-ERROR ATOM-ERROR ...) ; compiling (DEFINE-ERROR CURSOR-ERROR ...) ; compiling (DEFINE-ERROR FONT-ERROR ...) ; compiling (DEFINE-ERROR MATCH-ERROR ...) ; compiling (DEFINE-ERROR DRAWABLE-ERROR ...) ; compiling (DEFINE-ERROR ACCESS-ERROR ...) ; compiling (DEFINE-ERROR ALLOC-ERROR ...) ; compiling (DEFINE-ERROR COLORMAP-ERROR ...) ; compiling (DEFINE-ERROR GCONTEXT-ERROR ...) ; compiling (DEFINE-ERROR ID-CHOICE-ERROR ...) ; compiling (DEFINE-ERROR NAME-ERROR ...) ; compiling (DEFINE-ERROR LENGTH-ERROR ...) ; compiling (DEFINE-ERROR IMPLEMENTATION-ERROR ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/input-TMP.fasl written ; compilation finished in 0:00:01.507 ; compiling file "/usr/share/common-lisp/source/clx/requests.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFUN CREATE-WINDOW ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CREATE-WINDOW ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:WINDOW 'XLIB:WINDOW) ; --> XLIB:WITH-DISPLAY XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK LET FUNCALL ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEWINDOW+) ; (XLIB::DATA XLIB::DEPTH) ; (XLIB:RESOURCE-ID XLIB::WID) ; (XLIB:WINDOW XLIB::PARENT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH) ; ((XLIB::MEMBER16 :COPY :INPUT-OUTPUT :INPUT-ONLY) CLASS) ; (XLIB:RESOURCE-ID ; (COND ((EQ XLIB::VISUAL :COPY) 0) ; ((TYPEP XLIB::VISUAL 'XLIB:RESOURCE-ID) XLIB::VISUAL) ; (T (XLIB:VISUAL-INFO-ID XLIB::VISUAL)))) ; (XLIB::MASK ; (XLIB:CARD32 XLIB::BACK-PIXMAP XLIB::BACK-PIXEL XLIB::BORDER-PIXMAP ; XLIB::BORDER-PIXEL) ; ((XLIB::MEMBER-VECTOR XLIB::+BIT-GRAVITY-VECTOR+) XLIB:BIT-GRAVITY) ; ((XLIB::MEMBER-VECTOR XLIB::+WIN-GRAVITY-VECTOR+) XLIB::GRAVITY) ; ((MEMBER :NOT-USEFUL :WHEN-MAPPED :ALWAYS) XLIB::BACKING-STORE) ; (XLIB:CARD32 XLIB::BACKING-PLANES XLIB::BACKING-PIXEL) ; ((MEMBER :OFF :ON) XLIB::OVERRIDE-REDIRECT XLIB::SAVE-UNDER) ; (XLIB:CARD32 XLIB:EVENT-MASK XLIB::DO-NOT-PROPAGATE-MASK) ; ((OR (MEMBER :COPY) XLIB:COLORMAP) XLIB:COLORMAP) ; ((OR (MEMBER :NONE) XLIB:CURSOR) XLIB:CURSOR))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* LET ; --> UNLESS IF PROGN SETQ THE ; ==> ; (LOGIOR XLIB::%MASK 2) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 4) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 8) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 16) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 32) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 64) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 128) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 256) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 512) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 1024) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 2048) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 4096) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 8192) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 16384) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* LET ; --> INCF LET* ; ==> ; (+ (XLIB::BUFFER-BOFFSET #:%BUFFER136) #:G137) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DESTROY-WINDOW ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN DESTROY-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-DESTROYWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DESTROY-SUBWINDOWS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN DESTROY-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-DESTROYSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN ADD-TO-SAVE-SET ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN ADD-TO-SAVE-SET ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CHANGESAVESET+) ; (XLIB::DATA 0) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN REMOVE-FROM-SAVE-SET ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN REMOVE-FROM-SAVE-SET ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CHANGESAVESET+) ; (XLIB::DATA 1) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN REPARENT-WINDOW ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN REPARENT-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-REPARENTWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW XLIB::PARENT) ; (XLIB:INT16 XLIB::X XLIB::Y)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN MAP-WINDOW ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN MAP-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-MAPWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN MAP-SUBWINDOWS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN MAP-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-MAPSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN UNMAP-WINDOW ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN UNMAP-WINDOW ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNMAPWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN UNMAP-SUBWINDOWS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN UNMAP-SUBWINDOWS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNMAPSUBWINDOWS+) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CIRCULATE-WINDOW-UP ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CIRCULATE-WINDOW-UP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CIRCULATEWINDOW+) ; (XLIB::DATA 0) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CIRCULATE-WINDOW-DOWN ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CIRCULATE-WINDOW-DOWN ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CIRCULATEWINDOW+) ; (XLIB::DATA 1) ; (XLIB:WINDOW XLIB:WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN QUERY-TREE ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN QUERY-TREE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYTREE+ NIL ; :SIZES (8 16 32)) ; ((XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::WINDOW-GET 8) (XLIB::RESOURCE-ID-GET 12) ; (XLIB::SEQUENCE-GET :LENGTH (XLIB::CARD16-GET 16) :RESULT-TYPE ; XLIB::RESULT-TYPE :INDEX XLIB::+REPLYSIZE+))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN INTERN-ATOM ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN INTERN-ATOM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-INTERNATOM+ 12 ; :SIZES 32) ; ((XLIB::DATA 0) (XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::RESOURCE-ID-GET 8))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FIND-ATOM ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN FIND-ATOM ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-INTERNATOM+ 12 ; :SIZES 32) ; ((XLIB::DATA 1) (XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::OR-GET 8 NULL XLIB:RESOURCE-ID))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN ATOM-NAME ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN ATOM-NAME ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETATOMNAME+ NIL ; :SIZES (16)) ; ((XLIB:RESOURCE-ID XLIB::ATOM-ID)) ; (VALUES (XLIB::STRING-GET (XLIB::CARD16-GET 8) XLIB::+REPLYSIZE+))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN LOOKUP-XATOM ...) ; compiling (DEFUN CHANGE-PROPERTY ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CHANGE-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEPROPERTY+) ; ((XLIB::DATA (MEMBER :REPLACE :PREPEND :APPEND)) XLIB::MODE) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID XLIB::TYPE-ID) ; (XLIB:CARD8 FORMAT) ; (XLIB:CARD32 LENGTH) ; (PROGN ; (ECASE FORMAT ; (8 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD8 :START XLIB::START ; :END XLIB::END :TRANSFORM XLIB::TRANSFORM)) ; (16 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD16 :START ; XLIB::START :END XLIB::END :TRANSFORM ; XLIB::TRANSFORM)) ; (32 ; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD32 :START ; XLIB::START :END XLIB::END :TRANSFORM ; XLIB::TRANSFORM))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DELETE-PROPERTY ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN DELETE-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-DELETEPROPERTY+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GET-PROPERTY ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN GET-PROPERTY ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETPROPERTY+ NIL ; :SIZES (8 32)) ; (((XLIB::DATA BOOLEAN) XLIB::DELETE-P) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID) ; ((OR NULL XLIB:RESOURCE-ID) XLIB::TYPE-ID) (XLIB:CARD32 XLIB::START) ; (XLIB:CARD32 (XLIB::INDEX- (OR XLIB::END 64000) XLIB::START))) ; (LET ((XLIB::REPLY-FORMAT (XLIB::CARD8-GET 1)) ; (XLIB::REPLY-TYPE (XLIB::CARD32-GET 8)) ; (XLIB::BYTES-AFTER (XLIB::CARD32-GET 12)) ; (XLIB::NITEMS (XLIB::CARD32-GET 16))) ; (VALUES XLIB::REPLY-FORMAT XLIB::REPLY-TYPE XLIB::BYTES-AFTER ; (AND (PLUSP XLIB::NITEMS) (ECASE XLIB::REPLY-FORMAT # # # #))))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN ROTATE-PROPERTIES ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN ROTATE-PROPERTIES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-ROTATEPROPERTIES+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 LENGTH) ; (XLIB:INT16 (- XLIB::DELTA)) ; ((SEQUENCE :END LENGTH) SEQUENCE)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN LIST-PROPERTIES ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN LIST-PROPERTIES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LISTPROPERTIES+ ; NIL :SIZES 16) ; ((XLIB:WINDOW XLIB:WINDOW)) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; (XLIB::CARD16-GET 8) :INDEX XLIB::+REPLYSIZE+))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SELECTION-OWNER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN SELECTION-OWNER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-GETSELECTIONOWNER+ 12 :SIZES ; 32) ; ((XLIB:RESOURCE-ID XLIB::SELECTION-ID)) ; (VALUES (XLIB::RESOURCE-ID-OR-NIL-GET 8))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SET-SELECTION-OWNER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN SET-SELECTION-OWNER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETSELECTIONOWNER+) ; ((OR NULL XLIB:WINDOW) XLIB::OWNER) ; (XLIB:RESOURCE-ID XLIB::SELECTION-ID) ; ((OR NULL XLIB:CARD32) TIME)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFSETF SELECTION-OWNER ...) ; compiling (DEFUN CONVERT-SELECTION ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CONVERT-SELECTION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CONVERTSELECTION+) ; (XLIB:WINDOW XLIB::REQUESTOR) ; (XLIB:RESOURCE-ID XLIB::SELECTION-ID XLIB::TYPE-ID) ; ((OR NULL XLIB:RESOURCE-ID) XLIB::PROPERTY-ID) ; ((OR NULL XLIB:CARD32) TIME)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SEND-EVENT ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN SEND-EVENT ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE) ; XLIB:DISPLAY XLIB::ARGS) ; --> MULTIPLE-VALUE-CALL ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN ; (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SENDEVENT+) ; ((XLIB::DATA BOOLEAN) XLIB::PROPAGATE-P) ; (LENGTH 11) ; ((OR (MEMBER :POINTER-WINDOW :INPUT-FOCUS) XLIB:WINDOW) XLIB:WINDOW) ; (XLIB:CARD32 (XLIB::ENCODE-EVENT-MASK XLIB:EVENT-MASK)) ; (XLIB:CARD8 XLIB::EXTERNAL-EVENT-CODE) ; (PROGN ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE) ; XLIB:DISPLAY XLIB::ARGS) ; (SETF (XLIB::BUFFER-BOFFSET XLIB:DISPLAY) ; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 44)))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GRAB-POINTER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN GRAB-POINTER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GRABPOINTER+ NIL ; :SIZES 8) ; (((XLIB::DATA BOOLEAN) XLIB::OWNER-P) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK)) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P)) ; ((OR NULL XLIB:WINDOW) XLIB::CONFINE-TO) ; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ((OR NULL XLIB:CARD32) TIME)) ; (VALUES ; (XLIB::MEMBER8-GET 1 :SUCCESS :ALREADY-GRABBED :INVALID-TIME :NOT-VIEWABLE ; :FROZEN))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN UNGRAB-POINTER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN UNGRAB-POINTER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-UNGRABPOINTER+) ; ((OR NULL XLIB:CARD32) TIME)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GRAB-BUTTON ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN GRAB-BUTTON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-GRABBUTTON+) ; ((XLIB::DATA BOOLEAN) XLIB::OWNER-P) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK)) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P)) ; ((OR NULL XLIB:WINDOW) XLIB::CONFINE-TO) ; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ; (XLIB:CARD8 ; (IF (EQ XLIB::BUTTON :ANY) ; 0 ; XLIB::BUTTON)) ; (XLIB::PAD8 1) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN UNGRAB-BUTTON ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN UNGRAB-BUTTON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNGRABBUTTON+) ; (XLIB::DATA ; (IF (EQ XLIB::BUTTON :ANY) ; 0 ; XLIB::BUTTON)) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CHANGE-ACTIVE-POINTER-GRAB ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CHANGE-ACTIVE-POINTER-GRAB ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEACTIVEPOINTERGRAB+) ; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ; ((OR NULL XLIB:CARD32) TIME) ; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GRAB-KEYBOARD ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN GRAB-KEYBOARD ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GRABKEYBOARD+ NIL ; :SIZES 8) ; (((XLIB::DATA BOOLEAN) XLIB::OWNER-P) (XLIB:WINDOW XLIB:WINDOW) ; ((OR NULL XLIB:CARD32) TIME) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P))) ; (VALUES ; (XLIB::MEMBER8-GET 1 :SUCCESS :ALREADY-GRABBED :INVALID-TIME :NOT-VIEWABLE ; :FROZEN))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN UNGRAB-KEYBOARD ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN UNGRAB-KEYBOARD ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-UNGRABKEYBOARD+) ; ((OR NULL XLIB:CARD32) TIME)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GRAB-KEY ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN GRAB-KEY ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-GRABKEY+) ; ((XLIB::DATA BOOLEAN) XLIB::OWNER-P) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS)) ; (XLIB:CARD8 ; (IF (EQ XLIB::KEY :ANY) ; 0 ; XLIB::KEY)) ; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN UNGRAB-KEY ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN UNGRAB-KEY ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-UNGRABKEY+) ; (XLIB::DATA ; (IF (EQ XLIB::KEY :ANY) ; 0 ; XLIB::KEY)) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN ALLOW-EVENTS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN ALLOW-EVENTS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-ALLOWEVENTS+) ; ((XLIB::DATA ; (MEMBER :ASYNC-POINTER :SYNC-POINTER :REPLAY-POINTER :ASYNC-KEYBOARD ; :SYNC-KEYBOARD :REPLAY-KEYBOARD :ASYNC-BOTH :SYNC-BOTH)) ; XLIB::MODE) ; ((OR NULL XLIB:CARD32) TIME)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GRAB-SERVER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN GRAB-SERVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-GRABSERVER+)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN UNGRAB-SERVER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN UNGRAB-SERVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-UNGRABSERVER+)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFMACRO WITH-SERVER-GRABBED ...) ; compiling (DEFUN QUERY-POINTER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN QUERY-POINTER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYPOINTER+ 26 ; :SIZES (8 16 32)) ; ((XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::INT16-GET 20) (XLIB::INT16-GET 22) (XLIB::BOOLEAN-GET 1) ; (XLIB::OR-GET 12 NULL XLIB:WINDOW) (XLIB::CARD16-GET 24) ; (XLIB::INT16-GET 16) (XLIB::INT16-GET 18) (XLIB::WINDOW-GET 8))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN POINTER-POSITION ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN POINTER-POSITION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYPOINTER+ 24 ; :SIZES (8 16)) ; ((XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::INT16-GET 20) (XLIB::INT16-GET 22) (XLIB::BOOLEAN-GET 1))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GLOBAL-POINTER-POSITION ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN GLOBAL-POINTER-POSITION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYPOINTER+ 20 ; :SIZES (16 32)) ; ((XLIB:WINDOW (XLIB:SCREEN-ROOT (FIRST #)))) ; (VALUES (XLIB::INT16-GET 16) (XLIB::INT16-GET 18) (XLIB::WINDOW-GET 8))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN MOTION-EVENTS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN MOTION-EVENTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETMOTIONEVENTS+ ; NIL :SIZES 32) ; ((XLIB:WINDOW XLIB:WINDOW) ((OR NULL XLIB:CARD32) XLIB::START XLIB::STOP)) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; (XLIB::INDEX* (XLIB::CARD32-GET 8) 3) :INDEX ; XLIB::+REPLYSIZE+))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN TRANSLATE-COORDINATES ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN TRANSLATE-COORDINATES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-TRANSLATECOORDS+ ; 16 :SIZES (8 16 32)) ; ((XLIB:WINDOW XLIB::SRC XLIB::DST) (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y)) ; (AND (XLIB::BOOLEAN-GET 1) ; (VALUES (XLIB::INT16-GET 12) (XLIB::INT16-GET 14) ; (XLIB::OR-GET 8 NULL XLIB:WINDOW)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN WARP-POINTER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN WARP-POINTER ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::DST) ; XLIB::+X-WARPPOINTER+) ; (XLIB:RESOURCE-ID 0) ; (XLIB:WINDOW XLIB::DST) ; (XLIB:INT16 0 0) ; (XLIB:CARD16 0 0) ; (XLIB:INT16 XLIB::DST-X XLIB::DST-Y)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN WARP-POINTER-RELATIVE ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN WARP-POINTER-RELATIVE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-WARPPOINTER+) ; (XLIB:RESOURCE-ID 0) ; (XLIB:RESOURCE-ID 0) ; (XLIB:INT16 0 0) ; (XLIB:CARD16 0 0) ; (XLIB:INT16 XLIB::X-OFF XLIB::Y-OFF)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN WARP-POINTER-IF-INSIDE ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN WARP-POINTER-IF-INSIDE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::DST) ; XLIB::+X-WARPPOINTER+) ; (XLIB:WINDOW XLIB::SRC XLIB::DST) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y) ; (XLIB:CARD16 (OR XLIB::SRC-WIDTH 0) (OR XLIB::SRC-HEIGHT 0)) ; (XLIB:INT16 XLIB::DST-X XLIB::DST-Y)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN WARP-POINTER-RELATIVE-IF-INSIDE ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN WARP-POINTER-RELATIVE-IF-INSIDE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::SRC) ; XLIB::+X-WARPPOINTER+) ; (XLIB:WINDOW XLIB::SRC) ; (XLIB:RESOURCE-ID 0) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y) ; (XLIB:CARD16 (OR XLIB::SRC-WIDTH 0) (OR XLIB::SRC-HEIGHT 0)) ; (XLIB:INT16 XLIB::X-OFF XLIB::Y-OFF)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SET-INPUT-FOCUS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN SET-INPUT-FOCUS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETINPUTFOCUS+) ; ((XLIB::DATA (MEMBER :NONE :POINTER-ROOT :PARENT)) XLIB::REVERT-TO) ; ((OR XLIB:WINDOW (MEMBER :NONE :POINTER-ROOT)) XLIB::FOCUS) ; ((OR NULL XLIB:CARD32) TIME)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN INPUT-FOCUS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN INPUT-FOCUS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETINPUTFOCUS+ 16 ; :SIZES (8 32)) ; NIL ; (VALUES (XLIB::OR-GET 8 XLIB:WINDOW (MEMBER :NONE :POINTER-ROOT)) ; (XLIB::MEMBER8-GET 1 :NONE :POINTER-ROOT :PARENT))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN QUERY-KEYMAP ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN QUERY-KEYMAP ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYKEYMAP+ 40 ; :SIZES 8) ; NIL ; (VALUES (XLIB::BIT-VECTOR256-GET 8 8 BIT-VECTOR))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CREATE-PIXMAP ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CREATE-PIXMAP ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:PIXMAP 'XLIB:PIXMAP) ; --> XLIB:WITH-DISPLAY XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK LET FUNCALL ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEPIXMAP+) ; (XLIB::DATA XLIB::DEPTH) ; (XLIB:RESOURCE-ID XLIB::PID) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FREE-PIXMAP ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN FREE-PIXMAP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREEPIXMAP+) ; (XLIB:PIXMAP XLIB:PIXMAP)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CLEAR-AREA ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CLEAR-AREA ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CLEARTOBACKGROUND+) ; ((XLIB::DATA BOOLEAN) XLIB::EXPOSURES-P) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 (OR XLIB::WIDTH 0) (OR XLIB::HEIGHT 0))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN COPY-AREA ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN COPY-AREA ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB::SRC) ; XLIB::+X-COPYAREA+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB::SRC XLIB::DST) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y XLIB::DST-X XLIB::DST-Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN COPY-PLANE ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN COPY-PLANE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB::SRC) ; XLIB::+X-COPYPLANE+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB::SRC XLIB::DST) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y XLIB::DST-X XLIB::DST-Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) ; (XLIB:CARD32 XLIB::PLANE)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CREATE-COLORMAP ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CREATE-COLORMAP ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:COLORMAP 'XLIB:COLORMAP) ; --> XLIB:WITH-DISPLAY XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK LET FUNCALL ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATECOLORMAP+) ; ((XLIB::DATA BOOLEAN) XLIB::ALLOC-P) ; (XLIB:CARD29 XLIB::ID) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD29 (XLIB:VISUAL-INFO-ID XLIB:VISUAL-INFO))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FREE-COLORMAP ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN FREE-COLORMAP ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREECOLORMAP+) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN COPY-COLORMAP-AND-FREE ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN COPY-COLORMAP-AND-FREE ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB::NEW-COLORMAP 'XLIB:COLORMAP) ; --> XLIB:WITH-DISPLAY XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK LET FUNCALL ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYCOLORMAPANDFREE+) ; (XLIB:RESOURCE-ID XLIB::ID) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN INSTALL-COLORMAP ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN INSTALL-COLORMAP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-INSTALLCOLORMAP+) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN UNINSTALL-COLORMAP ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN UNINSTALL-COLORMAP ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-UNINSTALLCOLORMAP+) ; (XLIB:COLORMAP XLIB:COLORMAP)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN INSTALLED-COLORMAPS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN INSTALLED-COLORMAPS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-LISTINSTALLEDCOLORMAPS+ NIL ; :SIZES 16) ; ((XLIB:WINDOW XLIB:WINDOW)) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; (XLIB::CARD16-GET 8) :TRANSFORM #'XLIB::GET-COLORMAP ; :INDEX XLIB::+REPLYSIZE+))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN ALLOC-COLOR ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN ALLOC-COLOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCNAMEDCOLOR+ ; 24 :SIZES (16 32)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (XLIB:CARD16 LENGTH) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::CARD32-GET 8) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 18) :GREEN ; (XLIB::RGB-VAL-GET 20) :BLUE ; (XLIB::RGB-VAL-GET 22)) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 12) :GREEN ; (XLIB::RGB-VAL-GET 14) :BLUE ; (XLIB::RGB-VAL-GET 16)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLOR+ 20 ; :SIZES (16 32)) ; ((XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB:COLOR) (XLIB:COLOR-GREEN XLIB:COLOR) ; (XLIB:COLOR-BLUE XLIB:COLOR)) ; (XLIB::PAD16 NIL)) ; (VALUES (XLIB::CARD32-GET 16) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 8) :GREEN ; (XLIB::RGB-VAL-GET 10) :BLUE ; (XLIB::RGB-VAL-GET 12)) ; XLIB:COLOR)) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCNAMEDCOLOR+ ; 24 :SIZES (16 32)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (XLIB:CARD16 LENGTH) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES (XLIB::CARD32-GET 8) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 18) :GREEN ; (XLIB::RGB-VAL-GET 20) :BLUE ; (XLIB::RGB-VAL-GET 22)) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 12) :GREEN ; (XLIB::RGB-VAL-GET 14) :BLUE ; (XLIB::RGB-VAL-GET 16)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN ALLOC-COLOR-CELLS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN ALLOC-COLOR-CELLS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLORCELLS+ ; NIL :SIZES 16) ; (((XLIB::DATA BOOLEAN) XLIB::CONTIGUOUS-P) (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD16 XLIB::COLORS XLIB::PLANES)) ; (LET ((XLIB::PIXEL-LENGTH (XLIB::CARD16-GET 8)) ; (XLIB::MASK-LENGTH (XLIB::CARD16-GET 10))) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::PIXEL-LENGTH :INDEX XLIB::+REPLYSIZE+) ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; XLIB::MASK-LENGTH :INDEX ; (XLIB::INDEX+ XLIB::+REPLYSIZE+ #))))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN ALLOC-COLOR-PLANES ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN ALLOC-COLOR-PLANES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLORPLANES+ ; NIL :SIZES (16 32)) ; (((XLIB::DATA BOOLEAN) XLIB::CONTIGUOUS-P) (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD16 XLIB::COLORS XLIB::REDS XLIB::GREENS XLIB::BLUES)) ; (LET ((XLIB::RED-MASK (XLIB::CARD32-GET 12)) ; (XLIB::GREEN-MASK (XLIB::CARD32-GET 16)) ; (XLIB::BLUE-MASK (XLIB::CARD32-GET 20))) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH ; (XLIB::CARD16-GET 8) :INDEX XLIB::+REPLYSIZE+) ; XLIB::RED-MASK XLIB::GREEN-MASK XLIB::BLUE-MASK))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FREE-COLORS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN FREE-COLORS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-FREECOLORS+) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB::PLANE-MASK) ; (SEQUENCE XLIB::PIXELS)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::PIXELS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN STORE-COLOR ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN STORE-COLOR ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORENAMEDCOLOR+) ; ((XLIB::DATA XLIB:CARD8) XLIB::FLAGS) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB:PIXEL) ; (XLIB:CARD16 LENGTH) ; (XLIB::PAD16 NIL) ; (STRING STRING)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORECOLORS+) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB:PIXEL) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::SPEC) (XLIB:COLOR-GREEN XLIB::SPEC) ; (XLIB:COLOR-BLUE XLIB::SPEC)) ; (XLIB:CARD8 XLIB::FLAGS) ; (XLIB::PAD8 NIL)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORENAMEDCOLOR+) ; ((XLIB::DATA XLIB:CARD8) XLIB::FLAGS) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB:PIXEL) ; (XLIB:CARD16 LENGTH) ; (XLIB::PAD16 NIL) ; (STRING STRING)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN STORE-COLORS ...) ; compiling (DEFUN QUERY-COLORS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN QUERY-COLORS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYCOLORS+ NIL ; :SIZES (8 16)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (SEQUENCE XLIB::PIXELS)) ; (LET ((SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE #))) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+) ; (DOTIMES (XLIB::I (LENGTH SEQUENCE) SEQUENCE) ; (SETF # #) ; (XLIB::ADVANCE-BUFFER-OFFSET 8)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::PIXELS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (SETF (ELT SEQUENCE XLIB::I) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 0) :GREEN ; (XLIB::RGB-VAL-GET 2) :BLUE (XLIB::RGB-VAL-GET 4))) ; ==> ; (SB-KERNEL:%SETELT SEQUENCE XLIB::I ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 0) :GREEN ; (XLIB::RGB-VAL-GET 2) :BLUE ; (XLIB::RGB-VAL-GET 4))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYCOLORS+ NIL ; :SIZES (8 16)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (SEQUENCE XLIB::PIXELS)) ; (LET ((SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE #))) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+) ; (DOTIMES (XLIB::I (LENGTH SEQUENCE) SEQUENCE) ; (SETF # #) ; (XLIB::ADVANCE-BUFFER-OFFSET 8)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN LOOKUP-COLOR ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN LOOKUP-COLOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LOOKUPCOLOR+ 20 ; :SIZES 16) ; ((XLIB:COLORMAP XLIB:COLORMAP) (XLIB:CARD16 LENGTH) (XLIB::PAD16 NIL) ; (STRING STRING)) ; (VALUES ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 14) :GREEN (XLIB::RGB-VAL-GET 16) ; :BLUE (XLIB::RGB-VAL-GET 18)) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 8) :GREEN (XLIB::RGB-VAL-GET 10) ; :BLUE (XLIB::RGB-VAL-GET 12)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CREATE-CURSOR ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CREATE-CURSOR ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR) ; --> XLIB:WITH-DISPLAY XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK LET FUNCALL ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATECURSOR+) ; (XLIB:RESOURCE-ID XLIB::CID) ; (XLIB:PIXMAP XLIB::SOURCE) ; ((OR NULL XLIB:PIXMAP) XLIB::MASK) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND) ; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND)) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND) ; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND)) ; (XLIB:CARD16 XLIB::X XLIB::Y)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CREATE-GLYPH-CURSOR ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CREATE-GLYPH-CURSOR ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR) ; --> XLIB:WITH-DISPLAY XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK LET FUNCALL ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEGLYPHCURSOR+) ; (XLIB:RESOURCE-ID XLIB::CID XLIB::SOURCE-FONT-ID XLIB::MASK-FONT-ID) ; (XLIB:CARD16 XLIB::SOURCE-CHAR) ; (XLIB:CARD16 XLIB::MASK-CHAR) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND) ; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND)) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND) ; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FREE-CURSOR ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN FREE-CURSOR ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FREECURSOR+) ; (XLIB:CURSOR XLIB:CURSOR)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN RECOLOR-CURSOR ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN RECOLOR-CURSOR ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:CURSOR-DISPLAY XLIB:CURSOR) ; XLIB::+X-RECOLORCURSOR+) ; (XLIB:CURSOR XLIB:CURSOR) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND) ; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND)) ; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND) ; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN QUERY-BEST-CURSOR ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN QUERY-BEST-CURSOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12 ; :SIZES 16) ; ((XLIB::DATA 0) (XLIB:WINDOW XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN QUERY-BEST-TILE ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN QUERY-BEST-TILE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12 ; :SIZES 16) ; ((XLIB::DATA 1) (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN QUERY-BEST-STIPPLE ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN QUERY-BEST-STIPPLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12 ; :SIZES 16) ; ((XLIB::DATA 2) (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN QUERY-EXTENSION ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN QUERY-EXTENSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYEXTENSION+ ; 12 :SIZES 8) ; ((XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) (STRING STRING)) ; (AND (XLIB::BOOLEAN-GET 8) ; (VALUES (XLIB::CARD8-GET 9) (XLIB::CARD8-GET 10) ; (XLIB::CARD8-GET 11)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN LIST-EXTENSIONS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN LIST-EXTENSIONS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LISTEXTENSIONS+ ; XLIB::SIZE :SIZES 8) ; NIL ; (VALUES ; (XLIB::READ-SEQUENCE-STRING XLIB::BUFFER-BBUF ; (XLIB::INDEX- XLIB::SIZE XLIB::+REPLYSIZE+) ; (XLIB::CARD8-GET 1) XLIB::RESULT-TYPE ; XLIB::+REPLYSIZE+))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CHANGE-KEYBOARD-CONTROL ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CHANGE-KEYBOARD-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEKEYBOARDCONTROL+ ; :SIZES (32)) ; (XLIB::MASK ; (INTEGER XLIB::KEY-CLICK-PERCENT XLIB::BELL-PERCENT XLIB::BELL-PITCH ; XLIB::BELL-DURATION) ; (XLIB:CARD32 XLIB::LED) ((MEMBER :OFF :ON) XLIB::LED-MODE) ; (XLIB:CARD32 XLIB::KEY) ; ((MEMBER :OFF :ON :DEFAULT) XLIB::AUTO-REPEAT-MODE))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* LET ; --> UNLESS IF PROGN SETQ THE ; ==> ; (LOGIOR XLIB::%MASK 2) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 4) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 8) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 16) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 32) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 64) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; ==> ; (LOGIOR XLIB::%MASK 128) ; ; note: forced to do static-fun Two-arg-ior (cost 53) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* LET ; --> INCF LET* ; ==> ; (+ (XLIB::BUFFER-BOFFSET #:%BUFFER7753) #:G7754) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN KEYBOARD-CONTROL ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN KEYBOARD-CONTROL ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-GETKEYBOARDCONTROL+ 32 :SIZES ; (8 16 32)) ; NIL ; (VALUES (XLIB::CARD8-GET 12) (XLIB::CARD8-GET 13) (XLIB::CARD16-GET 14) ; (XLIB::CARD16-GET 16) (XLIB::CARD32-GET 8) ; (XLIB::MEMBER8-GET 1 :OFF :ON) (XLIB::BIT-VECTOR256-GET 20))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN BELL ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN BELL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-BELL+) ; (XLIB::DATA (XLIB::INT8->CARD8 XLIB::PERCENT-FROM-NORMAL))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN POINTER-MAPPING ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN POINTER-MAPPING ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-GETPOINTERMAPPING+ NIL :SIZES ; 8) ; NIL ; (VALUES ; (XLIB::SEQUENCE-GET :LENGTH (XLIB::CARD8-GET 1) :RESULT-TYPE ; XLIB::RESULT-TYPE :FORMAT XLIB:CARD8 :INDEX ; XLIB::+REPLYSIZE+))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SET-POINTER-MAPPING ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN SET-POINTER-MAPPING ; (LENGTH MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-SETPOINTERMAPPING+ 2 :SIZES 8) ; ((XLIB::DATA (LENGTH MAP)) ((SEQUENCE :FORMAT XLIB:CARD8) MAP)) ; (VALUES (XLIB::BOOLEAN-GET 1))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFSETF POINTER-MAPPING ...) ; compiling (DEFUN CHANGE-POINTER-CONTROL ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CHANGE-POINTER-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEPOINTERCONTROL+) ; (XLIB:INT16 NUMERATOR DENOMINATOR XLIB::THRESHOLD) ; (XLIB:CARD8 XLIB::ACCELERATION-P XLIB::THRESHOLD-P)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN POINTER-CONTROL ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN POINTER-CONTROL ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-GETPOINTERCONTROL+ 16 :SIZES ; 16) ; NIL ; (VALUES (/ (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10)) ; (XLIB::CARD16-GET 12))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SET-SCREEN-SAVER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN SET-SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETSCREENSAVER+) ; (XLIB:INT16 XLIB::TIMEOUT XLIB::INTERVAL) ; ((XLIB::MEMBER8 :ON :OFF :DEFAULT) XLIB::BLANKING XLIB::EXPOSURES)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SCREEN-SAVER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETSCREENSAVER+ ; 14 :SIZES (8 16)) ; NIL ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10) ; (XLIB::MEMBER8-GET 12 :ON :OFF :DEFAULT) ; (XLIB::MEMBER8-GET 13 :ON :OFF :DEFAULT))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN ACTIVATE-SCREEN-SAVER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN ACTIVATE-SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FORCESCREENSAVER+) ; (XLIB::DATA 1)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN RESET-SCREEN-SAVER ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN RESET-SCREEN-SAVER ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-FORCESCREENSAVER+) ; (XLIB::DATA 0)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN ADD-ACCESS-HOST ...) ; compiling (DEFUN REMOVE-ACCESS-HOST ...) ; compiling (DEFUN CHANGE-ACCESS-HOST ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN CHANGE-ACCESS-HOST ; (LENGTH XLIB::ADDRESS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEHOSTS+) ; ((XLIB::DATA BOOLEAN) XLIB::REMOVE-P) ; (XLIB:CARD8 ; (XLIB::ENCODE-TYPE (OR NULL (MEMBER :INTERNET :DECNET :CHAOS) XLIB:CARD32) ; XLIB::FAMILY)) ; (XLIB:CARD16 (LENGTH XLIB::ADDRESS)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::ADDRESS)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::ADDRESS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN ACCESS-HOSTS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN ACCESS-HOSTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LISTHOSTS+ NIL ; :SIZES (8 16)) ; NIL ; (LET* ((XLIB::ENABLED-P (XLIB::BOOLEAN-GET 1)) ; (XLIB::NHOSTS (XLIB::CARD16-GET 8)) ; (SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE XLIB::NHOSTS))) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+) ; (DOTIMES (XLIB::I XLIB::NHOSTS) ; (LET (# #) ; (SETF #) ; (XLIB::ADVANCE-BUFFER-OFFSET #))) ; (VALUES SEQUENCE XLIB::ENABLED-P))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: 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)))) ; ==> ; (SB-KERNEL:%SETELT SEQUENCE XLIB::I ; (CONS ; (IF (< XLIB::FAMILY 3) ; (SVREF '#(:INTERNET :DECNET :CHAOS) XLIB::FAMILY) ; XLIB::FAMILY) ; (XLIB::SEQUENCE-GET :LENGTH XLIB::LEN :FORMAT XLIB:CARD8 ; :RESULT-TYPE 'LIST :INDEX ; (+ XLIB::BUFFER-BOFFSET 4)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS NULL ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LISTHOSTS+ NIL ; :SIZES (8 16)) ; NIL ; (LET* ((XLIB::ENABLED-P (XLIB::BOOLEAN-GET 1)) ; (XLIB::NHOSTS (XLIB::CARD16-GET 8)) ; (SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE XLIB::NHOSTS))) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+) ; (DOTIMES (XLIB::I XLIB::NHOSTS) ; (LET (# #) ; (SETF #) ; (XLIB::ADVANCE-BUFFER-OFFSET #))) ; (VALUES SEQUENCE XLIB::ENABLED-P))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN ACCESS-CONTROL ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN ACCESS-CONTROL ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LISTHOSTS+ 2 ; :SIZES 8) ; NIL ; (XLIB::BOOLEAN-GET 1)) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SET-ACCESS-CONTROL ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN SET-ACCESS-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEACCESSCONTROL+) ; ((XLIB::DATA BOOLEAN) XLIB::ENABLED-P)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFSETF ACCESS-CONTROL ...) ; compiling (DEFUN CLOSE-DOWN-MODE ...) ; compiling (DEFUN SET-CLOSE-DOWN-MODE ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN SET-CLOSE-DOWN-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGECLOSEDOWNMODE+ :SIZES ; (32)) ; ((XLIB::DATA (MEMBER :DESTROY :RETAIN-PERMANENT :RETAIN-TEMPORARY)) ; XLIB::MODE)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFSETF CLOSE-DOWN-MODE ...) ; compiling (DEFUN KILL-CLIENT ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN KILL-CLIENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-KILLCLIENT+) ; (XLIB:RESOURCE-ID XLIB:RESOURCE-ID)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN KILL-TEMPORARY-CLIENTS ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN KILL-TEMPORARY-CLIENTS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-KILLCLIENT+) ; (XLIB:RESOURCE-ID 0)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN NO-OPERATION ...) ; file: /usr/share/common-lisp/source/clx/requests.lisp ; in: DEFUN NO-OPERATION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-NOOPERATION+)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/requests-TMP.fasl written ; compilation finished in 0:00:02.556 ; compiling file "/usr/share/common-lisp/source/clx/fonts.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFTYPE CHAR-INFO-VEC ...) ; compiling (DEF-CHAR-INFO-ACCESSORS IGNORE ...) ; compiling (DEFUN OPEN-FONT ...) ; file: /usr/share/common-lisp/source/clx/fonts.lisp ; in: DEFUN OPEN-FONT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:FONT 'XLIB:FONT) ; --> XLIB:WITH-DISPLAY XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK LET FUNCALL ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-OPENFONT+) ; (XLIB:RESOURCE-ID XLIB:FONT-ID) ; (XLIB:CARD16 (LENGTH XLIB::NAME-STRING)) ; (XLIB::PAD16 NIL) ; (STRING XLIB::NAME-STRING)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN OPEN-FONT-INTERNAL ...) ; file: /usr/share/common-lisp/source/clx/fonts.lisp ; in: DEFUN OPEN-FONT-INTERNAL ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:FONT 'XLIB:FONT) ; --> XLIB:WITH-DISPLAY XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK LET FUNCALL ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; (LENGTH XLIB::NAME-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-OPENFONT+) ; (XLIB:RESOURCE-ID XLIB::ID) ; (XLIB:CARD16 (LENGTH XLIB::NAME-STRING)) ; (XLIB::PAD16 NIL) ; (STRING XLIB::NAME-STRING)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::STRING-PUT LET ; ==> ; (LENGTH XLIB::NAME-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DISCARD-FONT-INFO ...) ; compiling (DEFUN QUERY-FONT ...) ; file: /usr/share/common-lisp/source/clx/fonts.lisp ; in: DEFUN QUERY-FONT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYFONT+ 60) ; ((XLIB:RESOURCE-ID XLIB:FONT-ID)) ; (LET* ((XLIB::MIN-BYTE2 (XLIB::CARD16-GET 40)) ; (XLIB::MAX-BYTE2 (XLIB::CARD16-GET 42)) ; (XLIB::MIN-BYTE1 (XLIB::CARD8-GET 49)) ; (XLIB::MAX-BYTE1 (XLIB::CARD8-GET 50)) ; (XLIB::MIN-CHAR XLIB::MIN-BYTE2) ; (XLIB::MAX-CHAR (XLIB::INDEX+ # XLIB::MAX-BYTE2)) ; (XLIB::NFONT-PROPS (XLIB::CARD16-GET 46)) ; (XLIB::NCHAR-INFOS (XLIB::INDEX* # 6)) ; (XLIB::CHAR-INFO ; (MAKE-ARRAY XLIB::NCHAR-INFOS :ELEMENT-TYPE 'XLIB:INT16))) ; (SETQ XLIB::FONT-INFO ; (XLIB::MAKE-FONT-INFO :DIRECTION # :MIN-CHAR XLIB::MIN-CHAR ; :MAX-CHAR XLIB::MAX-CHAR :MIN-BYTE1 ; XLIB::MIN-BYTE1 :MAX-BYTE1 XLIB::MAX-BYTE1 ; :MIN-BYTE2 ...)) ; (SETQ XLIB::PROPS ; (XLIB::SEQUENCE-GET :LENGTH # :FORMAT XLIB:INT32 :RESULT-TYPE ; 'LIST :INDEX 60)) ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NCHAR-INFOS :FORMAT XLIB:INT16 :DATA ; XLIB::CHAR-INFO :INDEX ; (XLIB::INDEX+ 60 ; (XLIB::INDEX* 2 XLIB::NFONT-PROPS 4))) ; (SETF (XLIB::FONT-CHAR-INFOS-INTERNAL XLIB:FONT) XLIB::CHAR-INFO) ; (SETF (XLIB::FONT-FONT-INFO-INTERNAL XLIB:FONT) XLIB::FONT-INFO))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CLOSE-FONT ...) ; file: /usr/share/common-lisp/source/clx/fonts.lisp ; in: DEFUN CLOSE-FONT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CLOSEFONT+) ; (XLIB:RESOURCE-ID XLIB::ID)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN LIST-FONT-NAMES ...) ; file: /usr/share/common-lisp/source/clx/fonts.lisp ; in: DEFUN LIST-FONT-NAMES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LISTFONTS+ ; XLIB::SIZE :SIZES (8 16)) ; ((XLIB:CARD16 XLIB::MAX-FONTS (LENGTH STRING)) (STRING STRING)) ; (VALUES ; (XLIB::READ-SEQUENCE-STRING XLIB::BUFFER-BBUF ; (XLIB::INDEX- XLIB::SIZE XLIB::+REPLYSIZE+) ; (XLIB::CARD16-GET 8) XLIB::RESULT-TYPE ; XLIB::+REPLYSIZE+))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN LIST-FONTS ...) ; file: /usr/share/common-lisp/source/clx/fonts.lisp ; in: DEFUN LIST-FONTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-LISTFONTSWITHINFO+ 60 :SIZES ; (8 16) :MULTIPLE-REPLY T) ; ((XLIB:CARD16 XLIB::MAX-FONTS (LENGTH STRING)) (STRING STRING)) ; (COND ((ZEROP (XLIB::CARD8-GET 1)) T) ; (T ; (LET* (# # # # # # # # #) ; (SETF #) ; (PUSH XLIB:FONT XLIB::RESULT)) ; NIL))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FONT-PATH ...) ; file: /usr/share/common-lisp/source/clx/fonts.lisp ; in: DEFUN FONT-PATH ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETFONTPATH+ ; XLIB::SIZE :SIZES (8 16)) ; NIL ; (VALUES ; (XLIB::READ-SEQUENCE-STRING XLIB::BUFFER-BBUF ; (XLIB::INDEX- XLIB::SIZE XLIB::+REPLYSIZE+) ; (XLIB::CARD16-GET 8) XLIB::RESULT-TYPE ; XLIB::+REPLYSIZE+))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SET-FONT-PATH ...) ; file: /usr/share/common-lisp/source/clx/fonts.lisp ; in: DEFUN SET-FONT-PATH ; (ELT XLIB::PATHS XLIB::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (STRING (ELT XLIB::PATHS XLIB::I)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (VECTOR CHARACTER) (VECTOR NIL) BASE-STRING ; SYMBOL CHARACTER), not a SYMBOL. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETFONTPATH+ :LENGTH ; XLIB::REQUEST-LENGTH) ; (LENGTH (CEILING XLIB::REQUEST-LENGTH 4)) ; (XLIB:CARD16 XLIB::PATH-LENGTH) ; (XLIB::PAD16 NIL) ; (PROGN ; (INCF XLIB::BUFFER-BOFFSET 8) ; (DOTIMES (XLIB::I XLIB::PATH-LENGTH) ; (LET* (# #) ; (XLIB::CARD8-PUT 0 XLIB::LEN) ; (XLIB::STRING-PUT 1 STRING :APPENDING T :HEADER-LENGTH 1) ; (INCF XLIB::BUFFER-BOFFSET #))) ; (SETF (XLIB::BUFFER-BOFFSET XLIB:DISPLAY) ; (XLIB::LROUND XLIB::BUFFER-BOFFSET)))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CEILING XLIB::REQUEST-LENGTH 4) ; --> LET ; ==> ; (+ SB-C::X 3) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 8), not a FIXNUM. ; The result is a (VALUES (INTEGER 11) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 8), not a FIXNUM. ; The result is a (VALUES (INTEGER 11) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; --> LET VALUES ; ==> ; (ASH SB-C::X -2) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (INTEGER 11), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER 11), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETFONTPATH+ :LENGTH ; XLIB::REQUEST-LENGTH) ; (LENGTH (CEILING XLIB::REQUEST-LENGTH 4)) ; (XLIB:CARD16 XLIB::PATH-LENGTH) ; (XLIB::PAD16 NIL) ; (PROGN ; (INCF XLIB::BUFFER-BOFFSET 8) ; (DOTIMES (XLIB::I XLIB::PATH-LENGTH) ; (LET* (# #) ; (XLIB::CARD8-PUT 0 XLIB::LEN) ; (XLIB::STRING-PUT 1 STRING :APPENDING T :HEADER-LENGTH 1) ; (INCF XLIB::BUFFER-BOFFSET #))) ; (SETF (XLIB::BUFFER-BOFFSET XLIB:DISPLAY) ; (XLIB::LROUND XLIB::BUFFER-BOFFSET)))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFSETF FONT-PATH ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/fonts-TMP.fasl written ; compilation finished in 0:00:00.314 ; compiling file "/usr/share/common-lisp/source/clx/graphics.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFVAR *INHIBIT-APPENDING* ...) ; compiling (DEFUN DRAW-POINT ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; in: DEFUN DRAW-POINT ; (XLIB::COMPARE-REQUEST (4) ; (XLIB::DATA 0) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> MACROLET MACROLET AND IF AND IF XLIB::CHECK-PUT XLIB::DRAWABLE-PUT ; --> XLIB::WRITE-CARD29 ; ==> ; (= (XLIB:DRAWABLE-ID XLIB:DRAWABLE) (XLIB::READ-CARD29 4)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET MACROLET AND IF AND IF AND THE XLIB::CHECK-PUT ; --> XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 = IF ; ==> ; (= (XLIB:GCONTEXT-ID XLIB:GCONTEXT) (XLIB::READ-CARD29 8)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-POINTS ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; in: DEFUN DRAW-POINTS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYPOINT+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-LINE ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; in: DEFUN DRAW-LINE ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> MACROLET MACROLET AND IF XLIB::CHECK-PUT XLIB::DRAWABLE-PUT ; --> XLIB::WRITE-CARD29 ; ==> ; (= (XLIB:DRAWABLE-ID XLIB:DRAWABLE) (XLIB::READ-CARD29 4)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET MACROLET AND IF AND THE XLIB::CHECK-PUT XLIB::GCONTEXT-PUT ; --> XLIB::WRITE-CARD29 = IF ; ==> ; (= (XLIB:GCONTEXT-ID XLIB:GCONTEXT) (XLIB::READ-CARD29 8)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-LINES ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; in: DEFUN DRAW-LINES ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYLINE+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FILL-POLYGON ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; in: DEFUN FILL-POLYGON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-FILLPOLY+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((XLIB::MEMBER8 :COMPLEX :NON-CONVEX :CONVEX) XLIB::SHAPE) ; (BOOLEAN XLIB::RELATIVE-P) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-SEGMENTS ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; in: DEFUN DRAW-SEGMENTS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYSEGMENT+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::SEGMENTS)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::SEGMENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-RECTANGLE ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; in: DEFUN DRAW-RECTANGLE ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> MACROLET MACROLET AND IF XLIB::CHECK-PUT XLIB::DRAWABLE-PUT ; --> XLIB::WRITE-CARD29 ; ==> ; (= (XLIB:DRAWABLE-ID XLIB:DRAWABLE) (XLIB::READ-CARD29 4)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET MACROLET AND IF AND THE XLIB::CHECK-PUT XLIB::GCONTEXT-PUT ; --> XLIB::WRITE-CARD29 = IF ; ==> ; (= (XLIB:GCONTEXT-ID XLIB:GCONTEXT) (XLIB::READ-CARD29 8)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-RECTANGLES ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; in: DEFUN DRAW-RECTANGLES ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; (IF XLIB::FILL-P ; XLIB::+X-POLYFILLRECTANGLE+ ; XLIB::+X-POLYRECTANGLE+) ; :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::RECTANGLES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-ARC ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; in: DEFUN DRAW-ARC ; (XLIB::COMPARE-REQUEST (4) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT)) ; --> MACROLET MACROLET AND IF XLIB::CHECK-PUT XLIB::DRAWABLE-PUT ; --> XLIB::WRITE-CARD29 ; ==> ; (= (XLIB:DRAWABLE-ID XLIB:DRAWABLE) (XLIB::READ-CARD29 4)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; --> MACROLET MACROLET AND IF AND THE XLIB::CHECK-PUT XLIB::GCONTEXT-PUT ; --> XLIB::WRITE-CARD29 = IF ; ==> ; (= (XLIB:GCONTEXT-ID XLIB:GCONTEXT) (XLIB::READ-CARD29 8)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (XLIB::BUFFER-NEW-REQUEST-NUMBER XLIB:DISPLAY) ; --> BLOCK SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-ARCS-LIST ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; in: DEFUN DRAW-ARCS-LIST ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::REQUEST :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (PROGN ; (XLIB::CARD16-PUT 2 (XLIB::INDEX+ (XLIB::INDEX-ASH LENGTH -1) 3)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)) ; (DO ((XLIB::ARC XLIB::ARCS)) ; ((ENDP XLIB::ARC) (SETF #)) ; (WHEN (XLIB::INDEX>= XLIB::BUFFER-BOFFSET XLIB::LIMIT) ; (SETF #) ; (XLIB::BUFFER-FLUSH XLIB:DISPLAY) ; (XLIB::SET-BUFFER-OFFSET #)) ; (XLIB::INT16-PUT 0 (POP XLIB::ARC)) ; (XLIB::INT16-PUT 2 (POP XLIB::ARC)) ; (XLIB::CARD16-PUT 4 (POP XLIB::ARC)) ; (XLIB::CARD16-PUT 6 (POP XLIB::ARC)) ; (XLIB::ANGLE-PUT 8 (POP XLIB::ARC)) ; (XLIB::ANGLE-PUT 10 (POP XLIB::ARC)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-ARCS-VECTOR ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; in: DEFUN DRAW-ARCS-VECTOR ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 0)) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 1)) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 2)) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 3)) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 4)) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 5)) ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::REQUEST :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (PROGN ; (XLIB::CARD16-PUT 2 (XLIB::INDEX+ (XLIB::INDEX-ASH LENGTH -1) 3)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)) ; (DO ((XLIB::N 0 #) ; (LENGTH #)) ; ((XLIB::INDEX>= XLIB::N LENGTH) (SETF #)) ; (WHEN (XLIB::INDEX>= XLIB::BUFFER-BOFFSET XLIB::LIMIT) ; (SETF #) ; (XLIB::BUFFER-FLUSH XLIB:DISPLAY) ; (XLIB::SET-BUFFER-OFFSET #)) ; (XLIB::INT16-PUT 0 (AREF XLIB::ARCS #)) ; (XLIB::INT16-PUT 2 (AREF XLIB::ARCS #)) ; (XLIB::CARD16-PUT 4 (AREF XLIB::ARCS #)) ; (XLIB::CARD16-PUT 6 (AREF XLIB::ARCS #)) ; (XLIB::ANGLE-PUT 8 (AREF XLIB::ARCS #)) ; (XLIB::ANGLE-PUT 10 (AREF XLIB::ARCS #)) ; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-ARCS ...) ; compiling (DEFUN PUT-RAW-IMAGE ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; in: DEFUN PUT-RAW-IMAGE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-PUTIMAGE+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA (MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP)) FORMAT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 XLIB::LEFT-PAD XLIB::DEPTH) ; (XLIB::PAD16 NIL) ; ((SEQUENCE :FORMAT XLIB:CARD8 :START XLIB::START) XLIB::DATA)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::DATA) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GET-RAW-IMAGE ...) ; file: /usr/share/common-lisp/source/clx/graphics.lisp ; in: DEFUN GET-RAW-IMAGE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETIMAGE+ NIL ; :SIZES (8 32)) ; (((XLIB::DATA (MEMBER ERROR :XY-PIXMAP :Z-PIXMAP)) FORMAT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) (XLIB:CARD32 XLIB::PLANE-MASK)) ; (LET ((XLIB::DEPTH (XLIB::CARD8-GET 1)) ; (LENGTH (* 4 #)) ; (XLIB::VISUAL (XLIB::RESOURCE-ID-GET 8))) ; (VALUES ; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :FORMAT XLIB:CARD8 ; :LENGTH LENGTH :START XLIB::START :DATA XLIB::DATA ; :INDEX ...) ; XLIB::DEPTH (XLIB:VISUAL-INFO XLIB:DISPLAY XLIB::VISUAL)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/graphics-TMP.fasl written ; compilation finished in 0:00:00.509 ; compiling file "/usr/share/common-lisp/source/clx/text.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFPARAMETER *MAX-STRING-SIZE* ...) ; compiling (DEFTYPE TRANSLATION-FUNCTION ...) ; compiling (DEFUN TRANSLATE-DEFAULT ...) ; compiling (DEFUN TEXT-EXTENTS ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; in: DEFUN TEXT-EXTENTS ; (LENGTH SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFUN TEXT-WIDTH ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; in: DEFUN TEXT-WIDTH ; (LENGTH SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (INCF XLIB::WIDTH ; (IF (OR (XLIB::FONT-CHAR-INFOS-INTERNAL XLIB:FONT) ; (XLIB::FONT-LOCAL-ONLY-P XLIB:FONT)) ; (XLIB::TEXT-EXTENTS-LOCAL XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END ; :WIDTH-ONLY) ; (XLIB::TEXT-WIDTH-SERVER XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END))) ; --> LET* ; ==> ; (+ XLIB::WIDTH #:G263) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; etc. ; compiling (DEFUN TEXT-EXTENTS-SERVER ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; in: DEFUN TEXT-EXTENTS-SERVER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYTEXTEXTENTS+ ; 28 :SIZES (8 16 32)) ; (((XLIB::DATA BOOLEAN) (ODDP LENGTH)) ; (LENGTH (XLIB::INDEX+ (XLIB::INDEX-CEILING LENGTH 2) 2)) ; (XLIB:RESOURCE-ID XLIB:FONT-ID) ; ((SEQUENCE :FORMAT XLIB::CHAR2B :START XLIB::START :END XLIB::END ; :APPENDING T) ; SEQUENCE)) ; (VALUES (XLIB::INTEGER-GET 16) (XLIB::INT16-GET 12) (XLIB::INT16-GET 14) ; (XLIB::INTEGER-GET 20) (XLIB::INTEGER-GET 24) (XLIB::INT16-GET 8) ; (XLIB::INT16-GET 10) ; (XLIB::MEMBER8-GET 1 :LEFT-TO-RIGHT :RIGHT-TO-LEFT))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN TEXT-WIDTH-SERVER ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; in: DEFUN TEXT-WIDTH-SERVER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYTEXTEXTENTS+ ; 28 :SIZES 32) ; (((XLIB::DATA BOOLEAN) (ODDP LENGTH)) ; (LENGTH (XLIB::INDEX+ (XLIB::INDEX-CEILING LENGTH 2) 2)) ; (XLIB:RESOURCE-ID XLIB:FONT-ID) ; ((SEQUENCE :FORMAT XLIB::CHAR2B :START XLIB::START :END XLIB::END ; :APPENDING T) ; SEQUENCE)) ; (VALUES (XLIB::INTEGER-GET 16))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN TEXT-EXTENTS-LOCAL ...) ; compiling (DEFTYPE INDEX-SIZE ...) ; compiling (DEFUN DRAW-GLYPH ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; in: DEFUN DRAW-GLYPH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 1 0) ; (XLIB:CARD8 (LDB (BYTE 8 0) ELT)) ; (XLIB:CARD8 (LDB (BYTE 8 8) ELT))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (LDB (BYTE 8 8) ELT) ; --> SB-KERNEL:%LDB LOGAND ; ==> ; (ASH INT (- SB-C::POSN)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 1 0) ; (XLIB:CARD8 (LDB (BYTE 8 0) ELT)) ; (XLIB:CARD8 (LDB (BYTE 8 8) ELT))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-GLYPHS ...) ; compiling (DEFUN DRAW-GLYPHS8 ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; in: DEFUN DRAW-GLYPHS8 ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT8+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (DO* (# ; # ; # ; # ; # ; #) ; (# # # # # #) ; (DECLARE # ; # ; #) ; (SETQ #) ; (MULTIPLE-VALUE-BIND # # # # # # #))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (DEFUN XLIB::DRAW-GLYPHS8 ; (XLIB:DRAWABLE XLIB:GCONTEXT XLIB::X XLIB::Y SEQUENCE XLIB::START ; XLIB::END XLIB::TRANSLATE XLIB::WIDTH) ; (DECLARE (TYPE XLIB:DRAWABLE XLIB:DRAWABLE) ; (TYPE XLIB:GCONTEXT XLIB:GCONTEXT) ; (TYPE XLIB:INT16 XLIB::X XLIB::Y) ; (TYPE XLIB:ARRAY-INDEX XLIB::START) ; (TYPE SEQUENCE SEQUENCE) ; (TYPE (OR NULL XLIB:ARRAY-INDEX) XLIB::END) ; (TYPE (OR NULL XLIB:INT32) XLIB::WIDTH)) ; (DECLARE ; (XLIB::CLX-VALUES (OR NULL XLIB:ARRAY-INDEX) (OR NULL XLIB:INT32))) ; (DECLARE (TYPE XLIB:TRANSLATION-FUNCTION XLIB::TRANSLATE) ; (DYNAMIC-EXTENT XLIB::TRANSLATE)) ; (LET* ((XLIB::SRC-START XLIB::START) ; (XLIB::SRC-END (OR XLIB::END #)) ; (XLIB::NEXT-START NIL) ; (LENGTH (XLIB::INDEX- XLIB::SRC-END XLIB::SRC-START)) ; (XLIB::REQUEST-LENGTH (* LENGTH 2)) ; (XLIB:DISPLAY (XLIB:GCONTEXT-DISPLAY XLIB:GCONTEXT)) ; (XLIB:FONT (XLIB:GCONTEXT-FONT XLIB:GCONTEXT NIL))) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-START XLIB::SRC-END LENGTH) ; (TYPE (OR NULL XLIB:ARRAY-INDEX) XLIB::NEXT-START) ; (TYPE XLIB:DISPLAY XLIB:DISPLAY)) ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT8+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED # ; #))) ; (VALUES XLIB::NEXT-START XLIB::WIDTH))) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G1204 ; ; note: could not stack allocate TRANSLATE in: ; (DEFUN DRAW-GLYPHS8 ; (DRAWABLE GCONTEXT X Y SEQUENCE START END TRANSLATE WIDTH) ; (DECLARE (TYPE DRAWABLE DRAWABLE) ; (TYPE GCONTEXT GCONTEXT) ; (TYPE INT16 X Y) ; (TYPE ARRAY-INDEX START) ; (TYPE SEQUENCE SEQUENCE) ; (TYPE (OR NULL ARRAY-INDEX) END) ; (TYPE (OR NULL INT32) WIDTH)) ; (DECLARE (CLX-VALUES (OR NULL ARRAY-INDEX) (OR NULL INT32))) ; (DECLARE (TYPE TRANSLATION-FUNCTION TRANSLATE) ; (DYNAMIC-EXTENT TRANSLATE)) ; (LET* ((SRC-START START) ; (SRC-END (OR END (LENGTH SEQUENCE))) ; (NEXT-START NIL) ; (LENGTH (INDEX- SRC-END SRC-START)) ; (REQUEST-LENGTH (* LENGTH 2)) ; (DISPLAY (GCONTEXT-DISPLAY GCONTEXT)) ; (FONT (GCONTEXT-FONT GCONTEXT NIL))) ; (DECLARE (TYPE ARRAY-INDEX SRC-START SRC-END LENGTH) ; (TYPE (OR NULL ARRAY-INDEX) NEXT-START) ; (TYPE DISPLAY DISPLAY)) ; (WITH-BUFFER-REQUEST (DISPLAY +X-POLYTEXT8+ :GC-FORCE GCONTEXT ; :LENGTH REQUEST-LENGTH) ; (DRAWABLE DRAWABLE) ; (GCONTEXT GCONTEXT) ; (INT16 X Y) ; (PROGN ; (WITH-BUFFER-FLUSH-INHIBITED (DISPLAY) ; (DO* ((BOFFSET (INDEX+ BUFFER-BOFFSET 16)) ; (SRC-CHUNK 0) ; (DST-CHUNK 0) ; (OFFSET 0) ; (OVERALL-WIDTH 0) ; (STOP-P NIL)) ; ((OR STOP-P (ZEROP LENGTH)) ; (DO ((END (THE ARRAY-INDEX (LROUND BOFFSET)))) ; ((INDEX>= BOFFSET END)) ; (SETF (AREF BUFFER-BBUF BOFFSET) 0) ; (INDEX-INCF BOFFSET)) ; (LENGTH-PUT 2 ; (INDEX-ASH (INDEX- BOFFSET BUFFER-BOFFSET) ; -2)) ; (SETF (BUFFER-BOFFSET DISPLAY) BOFFSET) ; (UNLESS (INDEX-ZEROP LENGTH) (SETQ NEXT-START SRC-START)) ; (WHEN OVERALL-WIDTH (SETQ WIDTH OVERALL-WIDTH))) ; (DECLARE (TYPE ARRAY-INDEX SRC-CHUNK DST-CHUNK OFFSET) ; (TYPE (OR NULL INT32) OVERALL-WIDTH) ; (TYPE GENERALIZED-BOOLEAN STOP-P)) ; (SETQ SRC-CHUNK (INDEX-MIN LENGTH *MAX-STRING-SIZE*)) ; (MULTIPLE-VALUE-BIND (NEW-START NEW-FONT TRANSLATED-WIDTH) ; (FUNCALL TRANSLATE SEQUENCE SRC-START ; (INDEX+ SRC-START SRC-CHUNK) FONT BUFFER-BBUF ; (INDEX+ BOFFSET 2)) ; (SETQ DST-CHUNK (INDEX- NEW-START SRC-START) ; LENGTH (INDEX- LENGTH DST-CHUNK) ; SRC-START NEW-START) ; (IF TRANSLATED-WIDTH ; (WHEN OVERALL-WIDTH ; (INCF OVERALL-WIDTH TRANSLATED-WIDTH)) ; (SETQ OVERALL-WIDTH NIL)) ; (WHEN (INDEX-PLUSP DST-CHUNK) ; (SETF (AREF BUFFER-BBUF BOFFSET) DST-CHUNK) ; (SETF (AREF BUFFER-BBUF (INDEX+ BOFFSET 1)) OFFSET) ; (INCF BOFFSET (INDEX+ DST-CHUNK 2))) ; (SETQ OFFSET 0) ; (COND ; ((NULL NEW-FONT) ; (UNLESS (INDEX= SRC-CHUNK DST-CHUNK) (SETQ STOP-P T))) ; ((INTEGERP NEW-FONT) (SETQ OFFSET NEW-FONT)) ; ((TYPE? NEW-FONT 'FONT) (SETQ FONT NEW-FONT) ; (LET ((FONT-ID (FONT-ID FONT)) (BUFFER-BOFFSET BOFFSET)) ; (DECLARE (TYPE RESOURCE-ID FONT-ID) ; (TYPE ARRAY-INDEX BUFFER-BOFFSET)) ; (LET ((LOCAL-STATE (GCONTEXT-LOCAL-STATE GCONTEXT)) ; (SERVER-STATE (GCONTEXT-SERVER-STATE GCONTEXT))) ; (DECLARE ; (TYPE GCONTEXT-STATE LOCAL-STATE SERVER-STATE)) ; (SETF (GCONTEXT-INTERNAL-FONT-OBJ SERVER-STATE) FONT ; (GCONTEXT-INTERNAL-FONT SERVER-STATE) FONT-ID) ; (WITHOUT-INTERRUPTS ; (SETF (GCONTEXT-INTERNAL-FONT-OBJ LOCAL-STATE) FONT ; (GCONTEXT-INTERNAL-FONT LOCAL-STATE) ; FONT-ID))) ; (CARD8-PUT 0 255) ; (CARD8-PUT 1 (LDB (BYTE 8 24) FONT-ID)) ; (CARD8-PUT 2 (LDB (BYTE 8 16) FONT-ID)) ; (CARD8-PUT 3 (LDB (BYTE 8 8) FONT-ID)) ; (CARD8-PUT 4 (LDB (BYTE 8 0) FONT-ID))) ; (INDEX-INCF BOFFSET 5)))))))) ; (VALUES NEXT-START WIDTH))) ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT8+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (DO* (# ; # ; # ; # ; # ; #) ; (# # # # # #) ; (DECLARE # ; # ; #) ; (SETQ #) ; (MULTIPLE-VALUE-BIND # # # # # # #))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-C::%%ALLOCATE-CLOSURES ; ==> ; (SB-C::%ALLOCATE-CLOSURES ; '(# ; :WHERE-FROM :DEFINED ; :VARS NIL {1003AFA463}>)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of CLOSURE-INIT ; (INCF XLIB::BOFFSET (XLIB::INDEX+ XLIB::DST-CHUNK 2)) ; --> LET* ; ==> ; (SETQ XLIB::BOFFSET #:NEW1141) ; ; note: doing signed word to integer coercion (cost 20) to BOFFSET ; compiling (DEFUN DRAW-GLYPHS16 ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; in: DEFUN DRAW-GLYPHS16 ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT16+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (DO* (# ; # ; # ; # ; # ; #) ; (# # # # # #) ; (DECLARE # ; # ; #) ; (SETQ #) ; (MULTIPLE-VALUE-BIND # # # # # # # #))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (DEFUN XLIB::DRAW-GLYPHS16 ; (XLIB:DRAWABLE XLIB:GCONTEXT XLIB::X XLIB::Y SEQUENCE XLIB::START ; XLIB::END XLIB::TRANSLATE XLIB::WIDTH) ; (DECLARE (TYPE XLIB:DRAWABLE XLIB:DRAWABLE) ; (TYPE XLIB:GCONTEXT XLIB:GCONTEXT) ; (TYPE XLIB:INT16 XLIB::X XLIB::Y) ; (TYPE XLIB:ARRAY-INDEX XLIB::START) ; (TYPE SEQUENCE SEQUENCE) ; (TYPE (OR NULL XLIB:ARRAY-INDEX) XLIB::END) ; (TYPE (OR NULL XLIB:INT32) XLIB::WIDTH)) ; (DECLARE ; (XLIB::CLX-VALUES (OR NULL XLIB:ARRAY-INDEX) (OR NULL XLIB:INT32))) ; (DECLARE (TYPE XLIB:TRANSLATION-FUNCTION XLIB::TRANSLATE) ; (DYNAMIC-EXTENT XLIB::TRANSLATE)) ; (LET* ((XLIB::SRC-START XLIB::START) ; (XLIB::SRC-END (OR XLIB::END #)) ; (XLIB::NEXT-START NIL) ; (LENGTH (XLIB::INDEX- XLIB::SRC-END XLIB::SRC-START)) ; (XLIB::REQUEST-LENGTH (* LENGTH 3)) ; (XLIB:DISPLAY (XLIB:GCONTEXT-DISPLAY XLIB:GCONTEXT)) ; (XLIB:FONT (XLIB:GCONTEXT-FONT XLIB:GCONTEXT NIL)) ; (XLIB::BUFFER (XLIB::DISPLAY-TBUF16 XLIB:DISPLAY))) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-START XLIB::SRC-END LENGTH) ; (TYPE (OR NULL XLIB:ARRAY-INDEX) XLIB::NEXT-START) ; (TYPE XLIB:DISPLAY XLIB:DISPLAY) ; (TYPE XLIB::BUFFER-TEXT16 XLIB::BUFFER)) ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT16+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED # ; #))) ; (VALUES XLIB::NEXT-START XLIB::WIDTH))) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G1420 ; ; note: could not stack allocate TRANSLATE in: ; (DEFUN DRAW-GLYPHS16 ; (DRAWABLE GCONTEXT X Y SEQUENCE START END TRANSLATE WIDTH) ; (DECLARE (TYPE DRAWABLE DRAWABLE) ; (TYPE GCONTEXT GCONTEXT) ; (TYPE INT16 X Y) ; (TYPE ARRAY-INDEX START) ; (TYPE SEQUENCE SEQUENCE) ; (TYPE (OR NULL ARRAY-INDEX) END) ; (TYPE (OR NULL INT32) WIDTH)) ; (DECLARE (CLX-VALUES (OR NULL ARRAY-INDEX) (OR NULL INT32))) ; (DECLARE (TYPE TRANSLATION-FUNCTION TRANSLATE) ; (DYNAMIC-EXTENT TRANSLATE)) ; (LET* ((SRC-START START) ; (SRC-END (OR END (LENGTH SEQUENCE))) ; (NEXT-START NIL) ; (LENGTH (INDEX- SRC-END SRC-START)) ; (REQUEST-LENGTH (* LENGTH 3)) ; (DISPLAY (GCONTEXT-DISPLAY GCONTEXT)) ; (FONT (GCONTEXT-FONT GCONTEXT NIL)) ; (BUFFER (DISPLAY-TBUF16 DISPLAY))) ; (DECLARE (TYPE ARRAY-INDEX SRC-START SRC-END LENGTH) ; (TYPE (OR NULL ARRAY-INDEX) NEXT-START) ; (TYPE DISPLAY DISPLAY) ; (TYPE BUFFER-TEXT16 BUFFER)) ; (WITH-BUFFER-REQUEST (DISPLAY +X-POLYTEXT16+ :GC-FORCE GCONTEXT ; :LENGTH REQUEST-LENGTH) ; (DRAWABLE DRAWABLE) ; (GCONTEXT GCONTEXT) ; (INT16 X Y) ; (PROGN ; (WITH-BUFFER-FLUSH-INHIBITED (DISPLAY) ; (DO* ((BOFFSET (INDEX+ BUFFER-BOFFSET 16)) ; (SRC-CHUNK 0) ; (DST-CHUNK 0) ; (OFFSET 0) ; (OVERALL-WIDTH 0) ; (STOP-P NIL)) ; ((OR STOP-P (ZEROP LENGTH)) ; (DO ((END (LROUND BOFFSET))) ; ((INDEX>= BOFFSET END)) ; (SETF (AREF BUFFER-BBUF BOFFSET) 0) ; (INDEX-INCF BOFFSET)) ; (LENGTH-PUT 2 ; (INDEX-ASH (INDEX- BOFFSET BUFFER-BOFFSET) ; -2)) ; (SETF (BUFFER-BOFFSET DISPLAY) BOFFSET) ; (UNLESS (ZEROP LENGTH) (SETQ NEXT-START SRC-START)) ; (WHEN OVERALL-WIDTH (SETQ WIDTH OVERALL-WIDTH))) ; (DECLARE ; (TYPE ARRAY-INDEX BOFFSET SRC-CHUNK DST-CHUNK OFFSET) ; (TYPE (OR NULL INT32) OVERALL-WIDTH) ; (TYPE GENERALIZED-BOOLEAN STOP-P)) ; (SETQ SRC-CHUNK (INDEX-MIN LENGTH *MAX-STRING-SIZE*)) ; (MULTIPLE-VALUE-BIND (NEW-START NEW-FONT TRANSLATED-WIDTH) ; (FUNCALL TRANSLATE SEQUENCE SRC-START ; (INDEX+ SRC-START SRC-CHUNK) FONT BUFFER 0) ; (SETQ DST-CHUNK (INDEX- NEW-START SRC-START) ; LENGTH (INDEX- LENGTH DST-CHUNK) ; SRC-START NEW-START) ; (WRITE-SEQUENCE-CHAR2B DISPLAY (INDEX+ BOFFSET 2) BUFFER 0 ; DST-CHUNK) ; (IF TRANSLATED-WIDTH ; (WHEN OVERALL-WIDTH ; (INCF OVERALL-WIDTH TRANSLATED-WIDTH)) ; (SETQ OVERALL-WIDTH NIL)) ; (WHEN (INDEX-PLUSP DST-CHUNK) ; (SETF (AREF BUFFER-BBUF BOFFSET) DST-CHUNK) ; (SETF (AREF BUFFER-BBUF (INDEX+ BOFFSET 1)) OFFSET) ; (INDEX-INCF BOFFSET (INDEX+ DST-CHUNK DST-CHUNK 2))) ; (SETQ OFFSET 0) ; (COND ; ((NULL NEW-FONT) ; (UNLESS (INDEX= SRC-CHUNK DST-CHUNK) (SETQ STOP-P T))) ; ((INTEGERP NEW-FONT) (SETQ OFFSET NEW-FONT)) ; ((TYPE? NEW-FONT 'FONT) (SETQ FONT NEW-FONT) ; (LET ((FONT-ID (FONT-ID FONT)) (BUFFER-BOFFSET BOFFSET)) ; (DECLARE (TYPE RESOURCE-ID FONT-ID) ; (TYPE ARRAY-INDEX BUFFER-BOFFSET)) ; (LET ((LOCAL-STATE (GCONTEXT-LOCAL-STATE GCONTEXT)) ; (SERVER-STATE (GCONTEXT-SERVER-STATE GCONTEXT))) ; (DECLARE ; (TYPE GCONTEXT-STATE LOCAL-STATE SERVER-STATE)) ; (SETF (GCONTEXT-INTERNAL-FONT-OBJ SERVER-STATE) FONT ; (GCONTEXT-INTERNAL-FONT SERVER-STATE) FONT-ID) ; (WITHOUT-INTERRUPTS ; (SETF (GCONTEXT-INTERNAL-FONT-OBJ LOCAL-STATE) FONT ; (GCONTEXT-INTERNAL-FONT LOCAL-STATE) ; FONT-ID))) ; (CARD8-PUT 0 255) ; (CARD8-PUT 1 (LDB (BYTE 8 24) FONT-ID)) ; (CARD8-PUT 2 (LDB (BYTE 8 16) FONT-ID)) ; (CARD8-PUT 3 (LDB (BYTE 8 8) FONT-ID)) ; (CARD8-PUT 4 (LDB (BYTE 8 0) FONT-ID))) ; (INDEX-INCF BOFFSET 5)))))))) ; (VALUES NEXT-START WIDTH))) ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT16+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (DO* (# ; # ; # ; # ; # ; #) ; (# # # # # #) ; (DECLARE # ; # ; #) ; (SETQ #) ; (MULTIPLE-VALUE-BIND # # # # # # # #))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-C::%%ALLOCATE-CLOSURES ; ==> ; (SB-C::%ALLOCATE-CLOSURES ; '(# ; :WHERE-FROM :DEFINED ; :VARS NIL {10043BE3D3}>)) ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the second argument of CLOSURE-INIT ; compiling (DEFUN DRAW-IMAGE-GLYPH ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; in: DEFUN DRAW-IMAGE-GLYPH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB::DATA 1) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 (LDB (BYTE 8 0) ELT)) ; (XLIB:CARD8 (LDB (BYTE 8 8) ELT))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (LDB (BYTE 8 8) ELT) ; --> SB-KERNEL:%LDB LOGAND ; ==> ; (ASH INT (- SB-C::POSN)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB::DATA 1) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD8 (LDB (BYTE 8 0) ELT)) ; (XLIB:CARD8 (LDB (BYTE 8 8) ELT))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-IMAGE-GLYPHS ...) ; compiling (DEFUN DRAW-IMAGE-GLYPHS8 ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; in: DEFUN DRAW-IMAGE-GLYPHS8 ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-IMAGETEXT8+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (MULTIPLE-VALUE-SETQ (XLIB::NEW-START XLIB:FONT XLIB::TRANSLATED-WIDTH) ; (FUNCALL # SEQUENCE XLIB::START XLIB::END XLIB:FONT XLIB::BUFFER-BBUF ; #)) ; (SETQ XLIB::CHUNK #) ; (WHEN (AND # #) (SETQ #) (RETURN-FROM XLIB::CHANGE-FONT)) ; (WHEN (XLIB::INDEX-ZEROP XLIB::CHUNK) ; (RETURN-FROM XLIB::DRAW-IMAGE-GLYPHS8 XLIB::NEW-START)) ; (XLIB::DATA-PUT 1 XLIB::CHUNK) ; (LET (#) ; (XLIB::LENGTH-PUT 2 #) ; (SETF #))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (DEFUN XLIB::DRAW-IMAGE-GLYPHS8 ; (XLIB:DRAWABLE XLIB:GCONTEXT XLIB::X XLIB::Y SEQUENCE XLIB::START ; XLIB::END XLIB::TRANSLATE XLIB::WIDTH) ; (DECLARE (TYPE XLIB:DRAWABLE XLIB:DRAWABLE) ; (TYPE XLIB:GCONTEXT XLIB:GCONTEXT) ; (TYPE XLIB:INT16 XLIB::X XLIB::Y) ; (TYPE XLIB:ARRAY-INDEX XLIB::START) ; (TYPE SEQUENCE SEQUENCE) ; (TYPE (OR NULL XLIB:ARRAY-INDEX) XLIB::END) ; (TYPE (OR NULL XLIB:INT32) XLIB::WIDTH)) ; (DECLARE (TYPE (OR NULL XLIB:TRANSLATION-FUNCTION) XLIB::TRANSLATE) ; (DYNAMIC-EXTENT XLIB::TRANSLATE)) ; (DECLARE ; (XLIB::CLX-VALUES (OR NULL XLIB:ARRAY-INDEX) (OR NULL XLIB:INT32))) ; (DO* ((XLIB:DISPLAY (XLIB:GCONTEXT-DISPLAY XLIB:GCONTEXT)) ; (LENGTH (XLIB::INDEX- XLIB::END XLIB::START)) ; (XLIB:FONT (XLIB:GCONTEXT-FONT XLIB:GCONTEXT NIL)) ; (XLIB::FONT-CHANGE NIL) ; (XLIB::NEW-START) ; (XLIB::TRANSLATED-WIDTH) ; (XLIB::CHUNK)) ; (NIL) ; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY) ; (TYPE XLIB:ARRAY-INDEX LENGTH) ; (TYPE (OR NULL XLIB:ARRAY-INDEX) XLIB::NEW-START XLIB::CHUNK)) ; (WHEN XLIB::FONT-CHANGE (SETF # XLIB:FONT)) ; (BLOCK XLIB::CHANGE-FONT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-IMAGETEXT8+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN #)) ; (RETURN-FROM XLIB::DRAW-IMAGE-GLYPHS8 (VALUES # #))))) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 ; --> LET ; ==> ; #:G1902 ; ; note: could not stack allocate TRANSLATE in: ; (DEFUN DRAW-IMAGE-GLYPHS8 ; (DRAWABLE GCONTEXT X Y SEQUENCE START END TRANSLATE WIDTH) ; (DECLARE (TYPE DRAWABLE DRAWABLE) ; (TYPE GCONTEXT GCONTEXT) ; (TYPE INT16 X Y) ; (TYPE ARRAY-INDEX START) ; (TYPE SEQUENCE SEQUENCE) ; (TYPE (OR NULL ARRAY-INDEX) END) ; (TYPE (OR NULL INT32) WIDTH)) ; (DECLARE (TYPE (OR NULL TRANSLATION-FUNCTION) TRANSLATE) ; (DYNAMIC-EXTENT TRANSLATE)) ; (DECLARE (CLX-VALUES (OR NULL ARRAY-INDEX) (OR NULL INT32))) ; (DO* ((DISPLAY (GCONTEXT-DISPLAY GCONTEXT)) ; (LENGTH (INDEX- END START)) ; (FONT (GCONTEXT-FONT GCONTEXT NIL)) ; (FONT-CHANGE NIL) ; (NEW-START) ; (TRANSLATED-WIDTH) ; (CHUNK)) ; (NIL) ; (DECLARE (TYPE DISPLAY DISPLAY) ; (TYPE ARRAY-INDEX LENGTH) ; (TYPE (OR NULL ARRAY-INDEX) NEW-START CHUNK)) ; (WHEN FONT-CHANGE (SETF (GCONTEXT-FONT GCONTEXT) FONT)) ; (BLOCK CHANGE-FONT ; (WITH-BUFFER-REQUEST (DISPLAY +X-IMAGETEXT8+ :GC-FORCE GCONTEXT ; :LENGTH LENGTH) ; (DRAWABLE DRAWABLE) ; (GCONTEXT GCONTEXT) ; (INT16 X Y) ; (PROGN ; (WITH-BUFFER-FLUSH-INHIBITED (DISPLAY) ; (MULTIPLE-VALUE-SETQ (NEW-START FONT TRANSLATED-WIDTH) ; (FUNCALL (OR TRANSLATE #'TRANSLATE-DEFAULT) SEQUENCE START ; END FONT BUFFER-BBUF (INDEX+ BUFFER-BOFFSET 16))) ; (SETQ CHUNK (INDEX- NEW-START START)) ; (WHEN (AND (INDEX-ZEROP CHUNK) (TYPE? FONT 'FONT)) ; (SETQ FONT-CHANGE T) ; (RETURN-FROM CHANGE-FONT)) ; (WHEN (INDEX-ZEROP CHUNK) ; (RETURN-FROM DRAW-IMAGE-GLYPHS8 NEW-START)) ; (DATA-PUT 1 CHUNK) ; (LET ((BLEN (LROUND (INDEX+ 16 CHUNK)))) ; (LENGTH-PUT 2 (INDEX-ASH BLEN -2)) ; (SETF (BUFFER-BOFFSET DISPLAY) ; (INDEX+ BUFFER-BOFFSET BLEN)))))) ; (RETURN-FROM DRAW-IMAGE-GLYPHS8 ; (VALUES ; (IF (INDEX= CHUNK LENGTH) ; NIL ; NEW-START) ; (OR TRANSLATED-WIDTH WIDTH)))))) ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-IMAGETEXT8+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (MULTIPLE-VALUE-SETQ (XLIB::NEW-START XLIB:FONT XLIB::TRANSLATED-WIDTH) ; (FUNCALL # SEQUENCE XLIB::START XLIB::END XLIB:FONT XLIB::BUFFER-BBUF ; #)) ; (SETQ XLIB::CHUNK #) ; (WHEN (AND # #) (SETQ #) (RETURN-FROM XLIB::CHANGE-FONT)) ; (WHEN (XLIB::INDEX-ZEROP XLIB::CHUNK) ; (RETURN-FROM XLIB::DRAW-IMAGE-GLYPHS8 XLIB::NEW-START)) ; (XLIB::DATA-PUT 1 XLIB::CHUNK) ; (LET (#) ; (XLIB::LENGTH-PUT 2 #) ; (SETF #))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DRAW-IMAGE-GLYPHS16 ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; in: DEFUN DRAW-IMAGE-GLYPHS16 ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-IMAGETEXT16+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (MULTIPLE-VALUE-SETQ (XLIB::NEW-START XLIB:FONT XLIB::TRANSLATED-WIDTH) ; (FUNCALL # SEQUENCE XLIB::START XLIB::END XLIB:FONT XLIB::BUFFER 0)) ; (SETQ XLIB::CHUNK #) ; (WHEN (AND # #) (SETQ #) (RETURN-FROM XLIB::CHANGE-FONT)) ; (WHEN (XLIB::INDEX-ZEROP XLIB::CHUNK) ; (RETURN-FROM XLIB::DRAW-IMAGE-GLYPHS16 XLIB::NEW-START)) ; (XLIB::WRITE-SEQUENCE-CHAR2B XLIB:DISPLAY ; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16) ; XLIB::BUFFER 0 XLIB::CHUNK) ; (XLIB::DATA-PUT 1 XLIB::CHUNK) ; (LET (#) ; (XLIB::LENGTH-PUT 2 #) ; (SETF #))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (DEFUN XLIB::DRAW-IMAGE-GLYPHS16 ; (XLIB:DRAWABLE XLIB:GCONTEXT XLIB::X XLIB::Y SEQUENCE XLIB::START ; XLIB::END XLIB::TRANSLATE XLIB::WIDTH) ; (DECLARE (TYPE XLIB:DRAWABLE XLIB:DRAWABLE) ; (TYPE XLIB:GCONTEXT XLIB:GCONTEXT) ; (TYPE XLIB:INT16 XLIB::X XLIB::Y) ; (TYPE XLIB:ARRAY-INDEX XLIB::START) ; (TYPE SEQUENCE SEQUENCE) ; (TYPE (OR NULL XLIB:ARRAY-INDEX) XLIB::END) ; (TYPE (OR NULL XLIB:INT32) XLIB::WIDTH)) ; (DECLARE (TYPE (OR NULL XLIB:TRANSLATION-FUNCTION) XLIB::TRANSLATE) ; (DYNAMIC-EXTENT XLIB::TRANSLATE)) ; (DECLARE ; (XLIB::CLX-VALUES (OR NULL XLIB:ARRAY-INDEX) (OR NULL XLIB:INT32))) ; (DO* ((XLIB:DISPLAY (XLIB:GCONTEXT-DISPLAY XLIB:GCONTEXT)) ; (LENGTH (XLIB::INDEX- XLIB::END XLIB::START)) ; (XLIB:FONT (XLIB:GCONTEXT-FONT XLIB:GCONTEXT NIL)) ; (XLIB::FONT-CHANGE NIL) ; (XLIB::NEW-START) ; (XLIB::TRANSLATED-WIDTH) ; (XLIB::CHUNK) ; (XLIB::BUFFER (XLIB::BUFFER-TBUF16 XLIB:DISPLAY))) ; (NIL) ; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY) ; (TYPE XLIB:ARRAY-INDEX LENGTH) ; (TYPE (OR NULL XLIB:ARRAY-INDEX) XLIB::NEW-START XLIB::CHUNK) ; (TYPE XLIB::BUFFER-TEXT16 XLIB::BUFFER)) ; (WHEN XLIB::FONT-CHANGE (SETF # XLIB:FONT)) ; (BLOCK XLIB::CHANGE-FONT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-IMAGETEXT16+ ; :GC-FORCE XLIB:GCONTEXT :LENGTH LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN #)) ; (RETURN-FROM XLIB::DRAW-IMAGE-GLYPHS16 (VALUES # #))))) ; --> PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET VALUES PROG1 ; --> LET ; ==> ; #:G2060 ; ; note: could not stack allocate TRANSLATE in: ; (DEFUN DRAW-IMAGE-GLYPHS16 ; (DRAWABLE GCONTEXT X Y SEQUENCE START END TRANSLATE WIDTH) ; (DECLARE (TYPE DRAWABLE DRAWABLE) ; (TYPE GCONTEXT GCONTEXT) ; (TYPE INT16 X Y) ; (TYPE ARRAY-INDEX START) ; (TYPE SEQUENCE SEQUENCE) ; (TYPE (OR NULL ARRAY-INDEX) END) ; (TYPE (OR NULL INT32) WIDTH)) ; (DECLARE (TYPE (OR NULL TRANSLATION-FUNCTION) TRANSLATE) ; (DYNAMIC-EXTENT TRANSLATE)) ; (DECLARE (CLX-VALUES (OR NULL ARRAY-INDEX) (OR NULL INT32))) ; (DO* ((DISPLAY (GCONTEXT-DISPLAY GCONTEXT)) ; (LENGTH (INDEX- END START)) ; (FONT (GCONTEXT-FONT GCONTEXT NIL)) ; (FONT-CHANGE NIL) ; (NEW-START) ; (TRANSLATED-WIDTH) ; (CHUNK) ; (BUFFER (BUFFER-TBUF16 DISPLAY))) ; (NIL) ; (DECLARE (TYPE DISPLAY DISPLAY) ; (TYPE ARRAY-INDEX LENGTH) ; (TYPE (OR NULL ARRAY-INDEX) NEW-START CHUNK) ; (TYPE BUFFER-TEXT16 BUFFER)) ; (WHEN FONT-CHANGE (SETF (GCONTEXT-FONT GCONTEXT) FONT)) ; (BLOCK CHANGE-FONT ; (WITH-BUFFER-REQUEST (DISPLAY +X-IMAGETEXT16+ :GC-FORCE GCONTEXT ; :LENGTH LENGTH) ; (DRAWABLE DRAWABLE) ; (GCONTEXT GCONTEXT) ; (INT16 X Y) ; (PROGN ; (WITH-BUFFER-FLUSH-INHIBITED (DISPLAY) ; (MULTIPLE-VALUE-SETQ (NEW-START FONT TRANSLATED-WIDTH) ; (FUNCALL (OR TRANSLATE #'TRANSLATE-DEFAULT) SEQUENCE START ; END FONT BUFFER 0)) ; (SETQ CHUNK (INDEX- NEW-START START)) ; (WHEN (AND (INDEX-ZEROP CHUNK) (TYPE? FONT 'FONT)) ; (SETQ FONT-CHANGE T) ; (RETURN-FROM CHANGE-FONT)) ; (WHEN (INDEX-ZEROP CHUNK) ; (RETURN-FROM DRAW-IMAGE-GLYPHS16 NEW-START)) ; (WRITE-SEQUENCE-CHAR2B DISPLAY (INDEX+ BUFFER-BOFFSET 16) ; BUFFER 0 CHUNK) ; (DATA-PUT 1 CHUNK) ; (LET ((BLEN (LROUND (INDEX+ 16 (INDEX-ASH CHUNK 1))))) ; (LENGTH-PUT 2 (INDEX-ASH BLEN -2)) ; (SETF (BUFFER-BOFFSET DISPLAY) ; (INDEX+ BUFFER-BOFFSET BLEN)))))) ; (RETURN-FROM DRAW-IMAGE-GLYPHS16 ; (VALUES ; (IF (INDEX= CHUNK LENGTH) ; NIL ; NEW-START) ; (OR TRANSLATED-WIDTH WIDTH)))))) ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-IMAGETEXT16+ :GC-FORCE ; XLIB:GCONTEXT :LENGTH LENGTH) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (PROGN ; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY) ; (MULTIPLE-VALUE-SETQ (XLIB::NEW-START XLIB:FONT XLIB::TRANSLATED-WIDTH) ; (FUNCALL # SEQUENCE XLIB::START XLIB::END XLIB:FONT XLIB::BUFFER 0)) ; (SETQ XLIB::CHUNK #) ; (WHEN (AND # #) (SETQ #) (RETURN-FROM XLIB::CHANGE-FONT)) ; (WHEN (XLIB::INDEX-ZEROP XLIB::CHUNK) ; (RETURN-FROM XLIB::DRAW-IMAGE-GLYPHS16 XLIB::NEW-START)) ; (XLIB::WRITE-SEQUENCE-CHAR2B XLIB:DISPLAY ; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16) ; XLIB::BUFFER 0 XLIB::CHUNK) ; (XLIB::DATA-PUT 1 XLIB::CHUNK) ; (LET (#) ; (XLIB::LENGTH-PUT 2 #) ; (SETF #))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DISPLAY-KEYCODE-RANGE ...) ; compiling (DEFUN SET-MODIFIER-MAPPING ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; in: DEFUN SET-MODIFIER-MAPPING ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-SETMODIFIERMAPPING+ 4 :SIZES 8) ; ((XLIB::DATA XLIB::KEYCODES-PER-MODIFIER) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::DATA)) ; (VALUES (XLIB::MEMBER8-GET 1 :SUCCESS :BUSY :FAILED))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN MODIFIER-MAPPING ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; in: DEFUN MODIFIER-MAPPING ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-GETMODIFIERMAPPING+ NIL :SIZES ; 8) ; NIL ; (DO* ((XLIB::KEYCODES-PER-MODIFIER (XLIB::CARD8-GET 1)) ; (XLIB::ADVANCE-BY XLIB::+REPLYSIZE+ XLIB::KEYCODES-PER-MODIFIER) ; (XLIB::KEYS NIL NIL) ; (XLIB::I 0 (XLIB::INDEX+ XLIB::I 1))) ; ((XLIB::INDEX= XLIB::I 8)) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::ADVANCE-BY) ; (DOTIMES (XLIB::J XLIB::KEYCODES-PER-MODIFIER) ; (LET (#) ; (UNLESS # #))) ; (PUSH (NREVERSE XLIB::KEYS) XLIB::LISTS))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CHANGE-KEYBOARD-MAPPING ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; in: DEFUN CHANGE-KEYBOARD-MAPPING ; (AREF XLIB::KEYSYMS XLIB::I XLIB::J) ; --> LET* ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-REF ARRAY SB-INT:INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETKEYBOARDMAPPING+ :LENGTH ; (XLIB::INDEX-ASH XLIB::REQUEST-LENGTH 2) :SIZES ; (32)) ; (XLIB::DATA LENGTH) ; (LENGTH XLIB::REQUEST-LENGTH) ; (XLIB:CARD8 XLIB::FIRST-KEYCODE XLIB::KEYSYMS-PER-KEYCODE) ; (PROGN ; (DO ((XLIB::LIMIT #) ; (XLIB::W #) ; (XLIB::I XLIB::START #)) ; ((XLIB::INDEX>= XLIB::I XLIB::KEYCODE-END) (SETF #)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::LIMIT XLIB::W XLIB::I)) ; (WHEN (XLIB::INDEX> XLIB::W XLIB::LIMIT) ; (XLIB::BUFFER-FLUSH XLIB:DISPLAY) ; (SETQ #)) ; (DO (#) ; (#) ; (DECLARE #) ; (XLIB::CARD29-PUT # #) ; (XLIB::INDEX-INCF XLIB::W))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN KEYBOARD-MAPPING ...) ; file: /usr/share/common-lisp/source/clx/text.lisp ; in: DEFUN KEYBOARD-MAPPING ; (1+ XLIB::I) ; ==> ; (+ XLIB::I 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SETF (AREF XLIB::RESULT XLIB::I XLIB::J) (XLIB::CARD29-GET (* XLIB::J 4))) ; --> LET* MULTIPLE-VALUE-BIND LET FUNCALL SB-C::%FUNCALL (SETF AREF) LET* ; ==> ; (SB-KERNEL:HAIRY-DATA-VECTOR-SET ARRAY SB-INT:INDEX SB-C::NEW-VALUE) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-GETKEYBOARDMAPPING+ NIL :SIZES ; (8 32)) ; ((XLIB:CARD8 XLIB::FIRST-KEYCODE (XLIB::INDEX- XLIB::END XLIB::START))) ; (DO* ((XLIB::KEYSYMS-PER-KEYCODE (XLIB::CARD8-GET 1)) ; (XLIB::BYTES-PER-KEYCODE (* XLIB::KEYSYMS-PER-KEYCODE 4)) ; (XLIB::ADVANCE-BY XLIB::+REPLYSIZE+ XLIB::BYTES-PER-KEYCODE) ; (XLIB::KEYCODE-COUNT (FLOOR # XLIB::KEYSYMS-PER-KEYCODE) ; (XLIB::INDEX- XLIB::KEYCODE-COUNT 1)) ; (XLIB::RESULT (IF # ; XLIB::DATA ; #)) ; (XLIB::I XLIB::START (1+ XLIB::I))) ; ((ZEROP XLIB::KEYCODE-COUNT) (SETQ XLIB::DATA XLIB::RESULT)) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::ADVANCE-BY) ; (DOTIMES (XLIB::J XLIB::KEYSYMS-PER-KEYCODE) (SETF # #)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (1+ XLIB::I) ; ==> ; (+ XLIB::I 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/text-TMP.fasl written ; compilation finished in 0:00:00.717 ; compiling file "/usr/share/common-lisp/source/clx/attributes.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFCONSTANT +ATTRIBUTE-SIZE+ ...) ; compiling (DEFCONSTANT +GEOMETRY-SIZE+ ...) ; compiling (DEFCONSTANT +CONTEXT-SIZE+ ...) ; compiling (DEFVAR *WINDOW-ATTRIBUTES* ...) ; compiling (DEFVAR *CONTEXT-FREE-LIST* ...) ; compiling (DEFUN ALLOCATE-CONTEXT ...) ; compiling (DEFUN DEALLOCATE-CONTEXT ...) ; compiling (DEFMACRO STATE-ATTRIBUTES ...) ; compiling (DEFMACRO STATE-ATTRIBUTE-CHANGES ...) ; compiling (DEFMACRO STATE-GEOMETRY ...) ; compiling (DEFMACRO STATE-GEOMETRY-CHANGES ...) ; compiling (DEFMACRO DRAWABLE-EQUAL-FUNCTION ...) ; compiling (DEFMACRO WINDOW-EQUAL-FUNCTION ...) ; compiling (DEFMACRO WITH-STATE ...) ; compiling (DEFUN CLEANUP-STATE-ENTRY ...) ; compiling (DEFUN CHANGE-WINDOW-ATTRIBUTE ...) ; file: /usr/share/common-lisp/source/clx/attributes.lisp ; in: DEFUN CHANGE-WINDOW-ATTRIBUTE ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CHANGEWINDOWATTRIBUTES+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 (ASH 1 NUMBER) XLIB::VALUE)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (ASH 1 NUMBER) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW) ; XLIB::+X-CHANGEWINDOWATTRIBUTES+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 (ASH 1 NUMBER) XLIB::VALUE)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CHANGE-DRAWABLE-GEOMETRY ...) ; file: /usr/share/common-lisp/source/clx/attributes.lisp ; in: DEFUN CHANGE-DRAWABLE-GEOMETRY ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-CONFIGUREWINDOW+) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 (ASH 1 NUMBER)) ; (XLIB:CARD29 XLIB::VALUE)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (ASH 1 NUMBER) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline ASH (cost 3) because: ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-CONFIGUREWINDOW+) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:CARD16 (ASH 1 NUMBER)) ; (XLIB:CARD29 XLIB::VALUE)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GET-WINDOW-ATTRIBUTES-BUFFER ...) ; file: /usr/share/common-lisp/source/clx/attributes.lisp ; in: DEFUN GET-WINDOW-ATTRIBUTES-BUFFER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-GETWINDOWATTRIBUTES+ ; XLIB::SIZE :SIZES (8)) ; ((XLIB:WINDOW XLIB:WINDOW)) ; (LET ((XLIB::REPBUF (OR # #))) ; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPBUF)) ; (XLIB::BUFFER-REPLACE (XLIB::REPLY-IBUF8 XLIB::REPBUF) XLIB::BUFFER-BBUF ; 0 XLIB::SIZE) ; (WHEN XLIB::STATE-ENTRY (SETF # XLIB::REPBUF)) ; XLIB::REPBUF)) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER PROGN ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GET-DRAWABLE-GEOMETRY-BUFFER ...) ; file: /usr/share/common-lisp/source/clx/attributes.lisp ; in: DEFUN GET-DRAWABLE-GEOMETRY-BUFFER ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETGEOMETRY+ ; XLIB::SIZE :SIZES (8)) ; ((XLIB:DRAWABLE XLIB:DRAWABLE)) ; (LET ((XLIB::REPBUF (OR # #))) ; (DECLARE (TYPE XLIB::REPLY-BUFFER XLIB::REPBUF)) ; (XLIB::BUFFER-REPLACE (XLIB::REPLY-IBUF8 XLIB::REPBUF) XLIB::BUFFER-BBUF ; 0 XLIB::SIZE) ; (WHEN XLIB::STATE-ENTRY (SETF # XLIB::REPBUF)) ; XLIB::REPBUF)) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER PROGN ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN PUT-WINDOW-ATTRIBUTE-CHANGES ...) ; file: /usr/share/common-lisp/source/clx/attributes.lisp ; in: DEFUN PUT-WINDOW-ATTRIBUTE-CHANGES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEWINDOWATTRIBUTES+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD32 XLIB::MASK) ; (PROGN ; (DO ((XLIB::BITS XLIB::MASK #) ; (XLIB::REQUEST-SIZE 2) ; (XLIB::I 1 #)) ; ((ZEROP XLIB::BITS) (XLIB::CARD16-PUT 2 #) (XLIB::INDEX-INCF # #)) ; (DECLARE (TYPE XLIB:MASK32 XLIB::BITS) ; (TYPE XLIB:ARRAY-INDEX XLIB::I XLIB::REQUEST-SIZE)) ; (WHEN (ODDP XLIB::BITS) (XLIB::CARD32-PUT # #))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN PUT-DRAWABLE-GEOMETRY-CHANGES ...) ; file: /usr/share/common-lisp/source/clx/attributes.lisp ; in: DEFUN PUT-DRAWABLE-GEOMETRY-CHANGES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CONFIGUREWINDOW+) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD16 XLIB::MASK) ; (PROGN ; (DO ((XLIB::BITS XLIB::MASK #) ; (XLIB::REQUEST-SIZE 2) ; (XLIB::I 1 #)) ; ((ZEROP XLIB::BITS) (XLIB::CARD16-PUT 2 #) (XLIB::INDEX-INCF # #)) ; (DECLARE (TYPE XLIB:MASK16 XLIB::BITS) ; (TYPE FIXNUM XLIB::REQUEST-SIZE) ; (TYPE XLIB:ARRAY-INDEX XLIB::I)) ; (WHEN (ODDP XLIB::BITS) (XLIB::CARD29-PUT # #))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFMACRO WITH-ATTRIBUTES ...) ; compiling (DEFMACRO WITH-GEOMETRY ...) ; compiling (DEFUN WINDOW-VISUAL ...) ; compiling (DEFUN WINDOW-VISUAL-INFO ...) ; compiling (DEFUN WINDOW-CLASS ...) ; compiling (DEFUN SET-WINDOW-BACKGROUND ...) ; compiling (DEFSETF WINDOW-BACKGROUND ...) ; compiling (DEFUN SET-WINDOW-BORDER ...) ; compiling (DEFSETF WINDOW-BORDER ...) ; compiling (DEFUN WINDOW-BIT-GRAVITY ...) ; compiling (DEFUN SET-WINDOW-BIT-GRAVITY ...) ; compiling (DEFSETF WINDOW-BIT-GRAVITY ...) ; compiling (DEFUN WINDOW-GRAVITY ...) ; compiling (DEFUN SET-WINDOW-GRAVITY ...) ; compiling (DEFSETF WINDOW-GRAVITY ...) ; compiling (DEFUN WINDOW-BACKING-STORE ...) ; compiling (DEFUN SET-WINDOW-BACKING-STORE ...) ; compiling (DEFSETF WINDOW-BACKING-STORE ...) ; compiling (DEFUN WINDOW-BACKING-PLANES ...) ; compiling (DEFUN SET-WINDOW-BACKING-PLANES ...) ; compiling (DEFSETF WINDOW-BACKING-PLANES ...) ; compiling (DEFUN WINDOW-BACKING-PIXEL ...) ; compiling (DEFUN SET-WINDOW-BACKING-PIXEL ...) ; compiling (DEFSETF WINDOW-BACKING-PIXEL ...) ; compiling (DEFUN WINDOW-SAVE-UNDER ...) ; compiling (DEFUN SET-WINDOW-SAVE-UNDER ...) ; compiling (DEFSETF WINDOW-SAVE-UNDER ...) ; compiling (DEFUN WINDOW-OVERRIDE-REDIRECT ...) ; compiling (DEFUN SET-WINDOW-OVERRIDE-REDIRECT ...) ; compiling (DEFSETF WINDOW-OVERRIDE-REDIRECT ...) ; compiling (DEFUN WINDOW-EVENT-MASK ...) ; compiling (DEFSETF WINDOW-EVENT-MASK ...) ; compiling (DEFUN WINDOW-DO-NOT-PROPAGATE-MASK ...) ; compiling (DEFSETF WINDOW-DO-NOT-PROPAGATE-MASK ...) ; compiling (DEFUN WINDOW-COLORMAP ...) ; compiling (DEFUN SET-WINDOW-COLORMAP ...) ; compiling (DEFSETF WINDOW-COLORMAP ...) ; compiling (DEFUN WINDOW-CURSOR ...) ; compiling (DEFUN SET-WINDOW-CURSOR ...) ; compiling (DEFSETF WINDOW-CURSOR ...) ; compiling (DEFUN WINDOW-COLORMAP-INSTALLED-P ...) ; compiling (DEFUN WINDOW-ALL-EVENT-MASKS ...) ; compiling (DEFUN WINDOW-MAP-STATE ...) ; compiling (DEFUN DRAWABLE-ROOT ...) ; compiling (DEFUN DRAWABLE-X ...) ; compiling (DEFUN SET-DRAWABLE-X ...) ; compiling (DEFSETF DRAWABLE-X ...) ; compiling (DEFUN DRAWABLE-Y ...) ; compiling (DEFUN SET-DRAWABLE-Y ...) ; compiling (DEFSETF DRAWABLE-Y ...) ; compiling (DEFUN DRAWABLE-WIDTH ...) ; compiling (DEFUN SET-DRAWABLE-WIDTH ...) ; compiling (DEFSETF DRAWABLE-WIDTH ...) ; compiling (DEFUN DRAWABLE-HEIGHT ...) ; compiling (DEFUN SET-DRAWABLE-HEIGHT ...) ; compiling (DEFSETF DRAWABLE-HEIGHT ...) ; compiling (DEFUN DRAWABLE-DEPTH ...) ; compiling (DEFUN DRAWABLE-BORDER-WIDTH ...) ; compiling (DEFUN SET-DRAWABLE-BORDER-WIDTH ...) ; compiling (DEFSETF DRAWABLE-BORDER-WIDTH ...) ; compiling (DEFUN SET-WINDOW-PRIORITY ...) ; compiling (DEFSETF WINDOW-PRIORITY ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/attributes-TMP.fasl written ; compilation finished in 0:00:00.431 ; compiling file "/usr/share/common-lisp/source/clx/translate.lisp" (written 01 MAY 2012 12:23:25 AM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFVAR *KEYSYM-SETS* ...) ; compiling (DEFUN DEFINE-KEYSYM-SET ...) ; compiling (DEFUN KEYSYM-SET ...) ; compiling (DEFMACRO KEYSYM ...) ; compiling (DEFVAR *KEYSYM->CHARACTER-MAP* ...) ; compiling (DEFMACRO KEYSYM-MAPPING-OBJECT ...) ; compiling (DEFMACRO KEYSYM-MAPPING-TRANSLATE ...) ; compiling (DEFMACRO KEYSYM-MAPPING-LOWERCASE ...) ; compiling (DEFMACRO KEYSYM-MAPPING-MODIFIERS ...) ; compiling (DEFMACRO KEYSYM-MAPPING-MASK ...) ; compiling (DEFVAR *DEFAULT-KEYSYM-TRANSLATE-MASK* ...) ; compiling (DEFUN DEFINE-KEYSYM ...) ; compiling (DEFUN UNDEFINE-KEYSYM ...) ; compiling (DEFUN KEYSYM-DOWNCASE ...) ; compiling (DEFUN KEYSYM-UPPERCASE-ALPHABETIC-P ...) ; compiling (DEFUN CHARACTER->KEYSYMS ...) ; compiling (DEFCONSTANT CHARACTER-SET-SWITCH-KEYSYM ...) ; compiling (DEFCONSTANT LEFT-SHIFT-KEYSYM ...) ; compiling (DEFCONSTANT RIGHT-SHIFT-KEYSYM ...) ; compiling (DEFCONSTANT LEFT-CONTROL-KEYSYM ...) ; compiling (DEFCONSTANT RIGHT-CONTROL-KEYSYM ...) ; compiling (DEFCONSTANT CAPS-LOCK-KEYSYM ...) ; compiling (DEFCONSTANT SHIFT-LOCK-KEYSYM ...) ; compiling (DEFCONSTANT LEFT-META-KEYSYM ...) ; compiling (DEFCONSTANT RIGHT-META-KEYSYM ...) ; compiling (DEFCONSTANT LEFT-ALT-KEYSYM ...) ; compiling (DEFCONSTANT RIGHT-ALT-KEYSYM ...) ; compiling (DEFCONSTANT LEFT-SUPER-KEYSYM ...) ; compiling (DEFCONSTANT RIGHT-SUPER-KEYSYM ...) ; compiling (DEFCONSTANT LEFT-HYPER-KEYSYM ...) ; compiling (DEFCONSTANT RIGHT-HYPER-KEYSYM ...) ; compiling (DEFUN DISPLAY-KEYBOARD-MAPPING ...) ; compiling (DEFUN KEYCODE->KEYSYM ...) ; compiling (DEFUN KEYSYM->CHARACTER ...) ; compiling (DEFUN MAPPING-MATCHES-P ...) ; compiling (DEFUN DEFAULT-KEYSYM-INDEX ...) ; compiling (DEFUN KEYSYM-SHIFT-P ...) ; compiling (DEFUN KEYCODE->CHARACTER ...) ; compiling (DEFUN GET-DISPLAY-MODIFIER-MAPPING ...) ; compiling (DEFUN STATE-KEYSYMP ...) ; compiling (DEFUN MAPPING-NOTIFY ...) ; compiling (DEFUN KEYSYM-IN-MAP-P ...) ; compiling (DEFUN CHARACTER-IN-MAP-P ...) ; compiling (DEFUN KEYSYM->KEYCODES ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/translate-TMP.fasl written ; compilation finished in 0:00:00.180 ; compiling file "/usr/share/common-lisp/source/clx/keysyms.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFINE-KEYSYM-SET :LATIN-1 ...) ; compiling (DEFINE-KEYSYM-SET :LATIN-2 ...) ; compiling (DEFINE-KEYSYM-SET :LATIN-3 ...) ; compiling (DEFINE-KEYSYM-SET :LATIN-4 ...) ; compiling (DEFINE-KEYSYM-SET :KANA ...) ; compiling (DEFINE-KEYSYM-SET :ARABIC ...) ; compiling (DEFINE-KEYSYM-SET :CYRILLIC ...) ; compiling (DEFINE-KEYSYM-SET :GREEK ...) ; compiling (DEFINE-KEYSYM-SET :TECH ...) ; compiling (DEFINE-KEYSYM-SET :SPECIAL ...) ; compiling (DEFINE-KEYSYM-SET :PUBLISH ...) ; compiling (DEFINE-KEYSYM-SET :APL ...) ; compiling (DEFINE-KEYSYM-SET :HEBREW ...) ; compiling (DEFINE-KEYSYM-SET :THAI ...) ; compiling (DEFINE-KEYSYM-SET :KOREAN ...) ; compiling (DEFINE-KEYSYM-SET :LATIN-5 ...) ; compiling (DEFINE-KEYSYM-SET :LATIN-6 ...) ; compiling (DEFINE-KEYSYM-SET :LATIN-7 ...) ; compiling (DEFINE-KEYSYM-SET :LATIN-8 ...) ; compiling (DEFINE-KEYSYM-SET :LATIN-9 ...) ; compiling (DEFINE-KEYSYM-SET :CURRENCY ...) ; compiling (DEFINE-KEYSYM-SET :|3270| ...) ; compiling (DEFINE-KEYSYM-SET :XKB ...) ; compiling (DEFINE-KEYSYM-SET :KEYBOARD ...) ; compiling (DEFINE-KEYSYM :CHARACTER-SET-SWITCH ...) ; compiling (DEFINE-KEYSYM :LEFT-SHIFT ...) ; compiling (DEFINE-KEYSYM :RIGHT-SHIFT ...) ; compiling (DEFINE-KEYSYM :LEFT-CONTROL ...) ; compiling (DEFINE-KEYSYM :RIGHT-CONTROL ...) ; compiling (DEFINE-KEYSYM :CAPS-LOCK ...) ; compiling (DEFINE-KEYSYM :SHIFT-LOCK ...) ; compiling (DEFINE-KEYSYM :LEFT-META ...) ; compiling (DEFINE-KEYSYM :RIGHT-META ...) ; compiling (DEFINE-KEYSYM :LEFT-ALT ...) ; compiling (DEFINE-KEYSYM :RIGHT-ALT ...) ; compiling (DEFINE-KEYSYM :LEFT-SUPER ...) ; compiling (DEFINE-KEYSYM :RIGHT-SUPER ...) ; compiling (DEFINE-KEYSYM :LEFT-HYPER ...) ; compiling (DEFINE-KEYSYM :RIGHT-HYPER ...) ; compiling (DEFINE-KEYSYM #\ ...) ; compiling (DEFINE-KEYSYM #\! ...) ; compiling (DEFINE-KEYSYM #\" ...) ; compiling (DEFINE-KEYSYM #\# ...) ; compiling (DEFINE-KEYSYM #\$ ...) ; compiling (DEFINE-KEYSYM #\% ...) ; compiling (DEFINE-KEYSYM #\& ...) ; compiling (DEFINE-KEYSYM #\' ...) ; compiling (DEFINE-KEYSYM #\( ...) ; compiling (DEFINE-KEYSYM #\) ...) ; compiling (DEFINE-KEYSYM #\* ...) ; compiling (DEFINE-KEYSYM #\+ ...) ; compiling (DEFINE-KEYSYM #\, ...) ; compiling (DEFINE-KEYSYM #\- ...) ; compiling (DEFINE-KEYSYM #\. ...) ; compiling (DEFINE-KEYSYM #\/ ...) ; compiling (DEFINE-KEYSYM #\0 ...) ; compiling (DEFINE-KEYSYM #\1 ...) ; compiling (DEFINE-KEYSYM #\2 ...) ; compiling (DEFINE-KEYSYM #\3 ...) ; compiling (DEFINE-KEYSYM #\4 ...) ; compiling (DEFINE-KEYSYM #\5 ...) ; compiling (DEFINE-KEYSYM #\6 ...) ; compiling (DEFINE-KEYSYM #\7 ...) ; compiling (DEFINE-KEYSYM #\8 ...) ; compiling (DEFINE-KEYSYM #\9 ...) ; compiling (DEFINE-KEYSYM #\: ...) ; compiling (DEFINE-KEYSYM #\; ...) ; compiling (DEFINE-KEYSYM #\< ...) ; compiling (DEFINE-KEYSYM #\= ...) ; compiling (DEFINE-KEYSYM #\> ...) ; compiling (DEFINE-KEYSYM #\? ...) ; compiling (DEFINE-KEYSYM #\@ ...) ; compiling (DEFINE-KEYSYM #\A ...) ; compiling (DEFINE-KEYSYM #\B ...) ; compiling (DEFINE-KEYSYM #\C ...) ; compiling (DEFINE-KEYSYM #\D ...) ; compiling (DEFINE-KEYSYM #\E ...) ; compiling (DEFINE-KEYSYM #\F ...) ; compiling (DEFINE-KEYSYM #\G ...) ; compiling (DEFINE-KEYSYM #\H ...) ; compiling (DEFINE-KEYSYM #\I ...) ; compiling (DEFINE-KEYSYM #\J ...) ; compiling (DEFINE-KEYSYM #\K ...) ; compiling (DEFINE-KEYSYM #\L ...) ; compiling (DEFINE-KEYSYM #\M ...) ; compiling (DEFINE-KEYSYM #\N ...) ; compiling (DEFINE-KEYSYM #\O ...) ; compiling (DEFINE-KEYSYM #\P ...) ; compiling (DEFINE-KEYSYM #\Q ...) ; compiling (DEFINE-KEYSYM #\R ...) ; compiling (DEFINE-KEYSYM #\S ...) ; compiling (DEFINE-KEYSYM #\T ...) ; compiling (DEFINE-KEYSYM #\U ...) ; compiling (DEFINE-KEYSYM #\V ...) ; compiling (DEFINE-KEYSYM #\W ...) ; compiling (DEFINE-KEYSYM #\X ...) ; compiling (DEFINE-KEYSYM #\Y ...) ; compiling (DEFINE-KEYSYM #\Z ...) ; compiling (DEFINE-KEYSYM #\[ ...) ; compiling (DEFINE-KEYSYM #\\ ...) ; compiling (DEFINE-KEYSYM #\] ...) ; compiling (DEFINE-KEYSYM #\^ ...) ; compiling (DEFINE-KEYSYM #\_ ...) ; compiling (DEFINE-KEYSYM #\` ...) ; compiling (DEFINE-KEYSYM #\a ...) ; compiling (DEFINE-KEYSYM #\b ...) ; compiling (DEFINE-KEYSYM #\c ...) ; compiling (DEFINE-KEYSYM #\d ...) ; compiling (DEFINE-KEYSYM #\e ...) ; compiling (DEFINE-KEYSYM #\f ...) ; compiling (DEFINE-KEYSYM #\g ...) ; compiling (DEFINE-KEYSYM #\h ...) ; compiling (DEFINE-KEYSYM #\i ...) ; compiling (DEFINE-KEYSYM #\j ...) ; compiling (DEFINE-KEYSYM #\k ...) ; compiling (DEFINE-KEYSYM #\l ...) ; compiling (DEFINE-KEYSYM #\m ...) ; compiling (DEFINE-KEYSYM #\n ...) ; compiling (DEFINE-KEYSYM #\o ...) ; compiling (DEFINE-KEYSYM #\p ...) ; compiling (DEFINE-KEYSYM #\q ...) ; compiling (DEFINE-KEYSYM #\r ...) ; compiling (DEFINE-KEYSYM #\s ...) ; compiling (DEFINE-KEYSYM #\t ...) ; compiling (DEFINE-KEYSYM #\u ...) ; compiling (DEFINE-KEYSYM #\v ...) ; compiling (DEFINE-KEYSYM #\w ...) ; compiling (DEFINE-KEYSYM #\x ...) ; compiling (DEFINE-KEYSYM #\y ...) ; compiling (DEFINE-KEYSYM #\z ...) ; compiling (DEFINE-KEYSYM #\{ ...) ; compiling (DEFINE-KEYSYM #\| ...) ; compiling (DEFINE-KEYSYM #\} ...) ; compiling (DEFINE-KEYSYM #\~ ...) ; compiling (DEFINE-KEYSYM #\Rubout ...) ; compiling (DEFINE-KEYSYM #\Tab ...) ; compiling (DEFINE-KEYSYM #\Newline ...) ; compiling (DEFINE-KEYSYM #\Page ...) ; compiling (DEFINE-KEYSYM #\Return ...) ; compiling (DEFINE-KEYSYM #\Backspace ...) ; compiling (DO (#) ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/keysyms-TMP.fasl written ; compilation finished in 0:00:00.013 ; compiling file "/usr/share/common-lisp/source/clx/manager.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFUN WM-NAME ...) ; compiling (DEFSETF WM-NAME ...) ; compiling (DEFUN SET-STRING-PROPERTY ...) ; compiling (DEFUN WM-ICON-NAME ...) ; compiling (DEFSETF WM-ICON-NAME ...) ; compiling (DEFUN WM-CLIENT-MACHINE ...) ; compiling (DEFSETF WM-CLIENT-MACHINE ...) ; compiling (DEFUN GET-WM-CLASS ...) ; compiling (DEFUN SET-WM-CLASS ...) ; compiling (DEFUN WM-COMMAND ...) ; compiling (DEFSETF WM-COMMAND ...) ; compiling (DEFUN SET-WM-COMMAND ...) ; compiling (DEF-CLX-CLASS (WM-HINTS) ...) ; compiling (DEFUN WM-HINTS ...) ; compiling (DEFSETF WM-HINTS ...) ; compiling (DEFUN SET-WM-HINTS ...) ; compiling (DEFUN DECODE-WM-HINTS ...) ; compiling (DEFUN ENCODE-WM-HINTS ...) ; compiling (DEF-CLX-CLASS (WM-SIZE-HINTS) ...) ; compiling (DEFUN WM-NORMAL-HINTS ...) ; compiling (DEFSETF WM-NORMAL-HINTS ...) ; compiling (DEFUN SET-WM-NORMAL-HINTS ...) ; compiling (DEFUN WM-ZOOM-HINTS ...) ; compiling (DEFSETF WM-ZOOM-HINTS ...) ; compiling (DEFUN SET-WM-ZOOM-HINTS ...) ; compiling (DEFUN DECODE-WM-SIZE-HINTS ...) ; compiling (DEFUN ENCODE-WM-SIZE-HINTS ...) ; compiling (DEFUN ICON-SIZES ...) ; compiling (DEFSETF ICON-SIZES ...) ; compiling (DEFUN SET-ICON-SIZES ...) ; compiling (DEFUN WM-PROTOCOLS ...) ; compiling (DEFSETF WM-PROTOCOLS ...) ; compiling (DEFUN SET-WM-PROTOCOLS ...) ; compiling (DEFUN WM-COLORMAP-WINDOWS ...) ; compiling (DEFSETF WM-COLORMAP-WINDOWS ...) ; compiling (DEFUN SET-WM-COLORMAP-WINDOWS ...) ; compiling (DEFUN TRANSIENT-FOR ...) ; compiling (DEFSETF TRANSIENT-FOR ...) ; compiling (DEFUN SET-TRANSIENT-FOR ...) ; compiling (DEFUN SET-WM-PROPERTIES ...) ; compiling (DEFUN SET-STANDARD-PROPERTIES ...) ; compiling (DEFUN ICONIFY-WINDOW ...) ; compiling (DEFUN WITHDRAW-WINDOW ...) ; compiling (DEF-CLX-CLASS (STANDARD-COLORMAP # ...) ...) ; compiling (DEFUN RGB-COLORMAPS ...) ; compiling (DEFSETF RGB-COLORMAPS ...) ; compiling (DEFUN SET-RGB-COLORMAPS ...) ; compiling (DEFUN GET-STANDARD-COLORMAP ...) ; compiling (DEFUN SET-STANDARD-COLORMAP ...) ; compiling (DEFUN CUT-BUFFER ...) ; compiling (DEFUN (SETF CUT-BUFFER) ...) ; compiling (DEFUN ROTATE-CUT-BUFFERS ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/manager-TMP.fasl written ; compilation finished in 0:00:00.596 STYLE-WARNING: Implicitly creating new generic function XLIB::COPY-WM-HINTS. STYLE-WARNING: Implicitly creating new generic function XLIB::COPY-WM-SIZE-HINTS. ; compiling file "/usr/share/common-lisp/source/clx/image.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFMACRO WITH-IMAGE-DATA-BUFFER ...) ; compiling (DEF-CLX-CLASS (IMAGE # ...) ...) ; compiling (DEFMACRO IMAGE-NAME ...) ; compiling (DEFMACRO IMAGE-X-HOT ...) ; compiling (DEFMACRO IMAGE-Y-HOT ...) ; compiling (DEFMACRO IMAGE-RED-MASK ...) ; compiling (DEFMACRO IMAGE-BLUE-MASK ...) ; compiling (DEFMACRO IMAGE-GREEN-MASK ...) ; compiling (DEFUN PRINT-IMAGE ...) ; compiling (DEFCONSTANT +EMPTY-DATA-X+ ...) ; compiling (DEFCONSTANT +EMPTY-DATA-Z+ ...) ; compiling (DEF-CLX-CLASS (IMAGE-X # ...) ...) ; compiling (DEF-CLX-CLASS (IMAGE-XY # ...) ...) ; compiling (DEF-CLX-CLASS (IMAGE-Z # ...) ...) ; compiling (DEFUN CREATE-IMAGE ...) ; compiling (DEFUN IMAGE-NOSWAP ...) ; compiling (DEFUN IMAGE-SWAP-TWO-BYTES ...) ; compiling (DEFUN IMAGE-SWAP-THREE-BYTES ...) ; compiling (DEFUN IMAGE-SWAP-FOUR-BYTES ...) ; compiling (DEFUN IMAGE-SWAP-WORDS ...) ; compiling (DEFUN IMAGE-SWAP-NIBBLES ...) ; compiling (DEFUN IMAGE-SWAP-NIBBLES-LEFT ...) ; compiling (DEFCONSTANT +IMAGE-BYTE-REVERSE+ ...) ; compiling (DEFUN IMAGE-SWAP-BITS ...) ; compiling (DEFUN IMAGE-SWAP-BITS-AND-TWO-BYTES ...) ; compiling (DEFUN IMAGE-SWAP-BITS-AND-FOUR-BYTES ...) ; compiling (DEFUN IMAGE-SWAP-BITS-AND-WORDS ...) ; compiling (DEFCONSTANT +IMAGE-SWAP-FUNCTION+ ...) ; compiling (DEFCONSTANT +IMAGE-SWAP-LSB-FIRST-P+ ...) ; compiling (DEFUN IMAGE-SWAP-FUNCTION ...) ; compiling (DEFUN READ-PIXARRAY-1 ...) ; compiling (DEFUN READ-PIXARRAY-4 ...) ; compiling (DEFUN READ-PIXARRAY-8 ...) ; compiling (DEFUN READ-PIXARRAY-16 ...) ; compiling (DEFUN READ-PIXARRAY-24 ...) ; compiling (DEFUN READ-PIXARRAY-32 ...) ; compiling (DEFUN READ-PIXARRAY-INTERNAL ...) ; compiling (DEFUN READ-PIXARRAY ...) ; compiling (DEFUN READ-XY-FORMAT-IMAGE-X ...) ; compiling (DEFUN READ-Z-FORMAT-IMAGE-X ...) ; compiling (DEFUN READ-IMAGE-XY ...) ; compiling (DEFUN READ-IMAGE-Z ...) ; compiling (DEFUN GET-IMAGE ...) ; file: /usr/share/common-lisp/source/clx/image.lisp ; in: DEFUN GET-IMAGE ; (ZEROP (XLIB:VISUAL-INFO-RED-MASK XLIB:VISUAL-INFO)) ; ==> ; (= (XLIB:VISUAL-INFO-RED-MASK XLIB:VISUAL-INFO) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (ZEROP (XLIB:VISUAL-INFO-GREEN-MASK XLIB:VISUAL-INFO)) ; ==> ; (= (XLIB:VISUAL-INFO-GREEN-MASK XLIB:VISUAL-INFO) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (ZEROP (XLIB:VISUAL-INFO-BLUE-MASK XLIB:VISUAL-INFO)) ; ==> ; (= (XLIB:VISUAL-INFO-BLUE-MASK XLIB:VISUAL-INFO) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (FIND XLIB::DEPTH (XLIB:DISPLAY-PIXMAP-FORMATS XLIB:DISPLAY) :KEY ; #'XLIB:PIXMAP-FORMAT-DEPTH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETIMAGE+ NIL ; :SIZES (8 32)) ; (((XLIB::DATA (MEMBER ERROR :XY-PIXMAP :Z-PIXMAP)) FORMAT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) (XLIB:CARD32 XLIB::PLANE-MASK)) ; (LET* ((XLIB::DEPTH (XLIB::CARD8-GET 1)) ; (LENGTH (XLIB::INDEX* 4 #)) ; (XLIB:VISUAL-INFO (XLIB:VISUAL-INFO XLIB:DISPLAY #)) ; (XLIB:BITMAP-FORMAT (XLIB:DISPLAY-BITMAP-FORMAT XLIB:DISPLAY)) ; (XLIB::UNIT (XLIB:BITMAP-FORMAT-UNIT XLIB:BITMAP-FORMAT)) ; (XLIB::BYTE-LSB-FIRST-P ; (XLIB:DISPLAY-IMAGE-LSB-FIRST-P XLIB:DISPLAY)) ; (XLIB::BIT-LSB-FIRST-P ; (XLIB:BITMAP-FORMAT-LSB-FIRST-P XLIB:BITMAP-FORMAT))) ; (DECLARE (TYPE XLIB:IMAGE-DEPTH XLIB::DEPTH) ; (TYPE XLIB:ARRAY-INDEX LENGTH) ; (TYPE (OR NULL XLIB:VISUAL-INFO) XLIB:VISUAL-INFO) ; (TYPE XLIB:BITMAP-FORMAT XLIB:BITMAP-FORMAT) ; (TYPE (MEMBER 8 16 32) XLIB::UNIT) ; (TYPE XLIB:GENERALIZED-BOOLEAN XLIB::BYTE-LSB-FIRST-P ; XLIB::BIT-LSB-FIRST-P)) ; (MULTIPLE-VALUE-BIND (XLIB::PAD XLIB::BITS-PER-PIXEL) ; (ECASE FORMAT (:XY-PIXMAP #) (:Z-PIXMAP #)) ; (DECLARE (TYPE # XLIB::PAD) ; (TYPE # XLIB::BITS-PER-PIXEL)) ; (LET* (# # # # #) ; (DECLARE # ; #) ; (WHEN XLIB:VISUAL-INFO # # #) ; (VALUES XLIB:IMAGE XLIB:VISUAL-INFO))))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN WRITE-PIXARRAY-1 ...) ; compiling (DEFUN WRITE-PIXARRAY-4 ...) ; compiling (DEFUN WRITE-PIXARRAY-8 ...) ; compiling (DEFUN WRITE-PIXARRAY-16 ...) ; compiling (DEFUN WRITE-PIXARRAY-24 ...) ; compiling (DEFUN WRITE-PIXARRAY-32 ...) ; compiling (DEFUN WRITE-PIXARRAY-INTERNAL ...) ; compiling (DEFUN WRITE-PIXARRAY ...) ; compiling (DEFUN WRITE-XY-FORMAT-IMAGE-X-DATA ...) ; compiling (DEFUN WRITE-XY-FORMAT-IMAGE-X ...) ; compiling (DEFUN WRITE-Z-FORMAT-IMAGE-X-DATA ...) ; compiling (DEFUN WRITE-Z-FORMAT-IMAGE-X ...) ; compiling (DEFUN WRITE-IMAGE-XY ...) ; compiling (DEFUN WRITE-IMAGE-Z ...) ; compiling (DEFUN PUT-IMAGE ...) ; file: /usr/share/common-lisp/source/clx/image.lisp ; in: DEFUN PUT-IMAGE ; (ETYPECASE XLIB:IMAGE ; (XLIB:IMAGE-X ; (ECASE (XLIB::IMAGE-X-FORMAT (THE XLIB:IMAGE-X XLIB:IMAGE)) ; ((:BITMAP :XY-PIXMAP) ; (XLIB::WRITE-XY-FORMAT-IMAGE-X XLIB:DISPLAY XLIB:IMAGE ; XLIB::LEFT-PADDED-SRC-X XLIB::REQUEST-SRC-Y XLIB::LEFT-PADDED-WIDTH ; XLIB::REQUEST-HEIGHT XLIB::PADDED-BYTES-PER-LINE XLIB::UNIT ; XLIB::BYTE-LSB-FIRST-P XLIB::BIT-LSB-FIRST-P)) ; (:Z-PIXMAP ; (XLIB::WRITE-Z-FORMAT-IMAGE-X XLIB:DISPLAY XLIB:IMAGE ; XLIB::LEFT-PADDED-SRC-X XLIB::REQUEST-SRC-Y XLIB::LEFT-PADDED-WIDTH ; XLIB::REQUEST-HEIGHT XLIB::PADDED-BYTES-PER-LINE XLIB::UNIT ; XLIB::BYTE-LSB-FIRST-P XLIB::BIT-LSB-FIRST-P)))) ; (XLIB:IMAGE-XY ; (XLIB::WRITE-IMAGE-XY XLIB:DISPLAY XLIB:IMAGE XLIB::LEFT-PADDED-SRC-X ; XLIB::REQUEST-SRC-Y XLIB::LEFT-PADDED-WIDTH XLIB::REQUEST-HEIGHT ; XLIB::PADDED-BYTES-PER-LINE XLIB::UNIT XLIB::BYTE-LSB-FIRST-P ; XLIB::BIT-LSB-FIRST-P)) ; (XLIB:IMAGE-Z ; (XLIB::WRITE-IMAGE-Z XLIB:DISPLAY XLIB:IMAGE XLIB::LEFT-PADDED-SRC-X ; XLIB::REQUEST-SRC-Y XLIB::LEFT-PADDED-WIDTH XLIB::REQUEST-HEIGHT ; XLIB::PADDED-BYTES-PER-LINE XLIB::UNIT XLIB::BYTE-LSB-FIRST-P ; XLIB::BIT-LSB-FIRST-P))) ; --> LET COND IF ; ==> ; (TYPEP #:G4276 'XLIB:IMAGE-X) ; ; note: can't open-code test of unknown type IMAGE-X ; --> LET COND IF COND IF ; ==> ; (TYPEP #:G4276 'XLIB:IMAGE-XY) ; ; note: can't open-code test of unknown type IMAGE-XY ; --> LET COND IF COND IF COND IF ; ==> ; (TYPEP #:G4276 'XLIB:IMAGE-Z) ; ; note: can't open-code test of unknown type IMAGE-Z ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-PUTIMAGE+ :GC-FORCE ; XLIB:GCONTEXT) ; ((XLIB::DATA (MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP)) ; (COND ((OR # XLIB::BITMAP-P) :BITMAP) ((PLUSP XLIB::LEFT-PAD) :XY-PIXMAP) ; (T FORMAT))) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 XLIB::WIDTH XLIB::REQUEST-HEIGHT) ; (XLIB:INT16 XLIB::X XLIB::REQUEST-Y) ; (XLIB:CARD8 XLIB::LEFT-PAD XLIB::DEPTH) ; (XLIB::PAD16 NIL) ; (PROGN ; (XLIB::LENGTH-PUT 2 XLIB::REQUEST-LENGTH) ; (SETF (XLIB::BUFFER-BOFFSET XLIB:DISPLAY) ; (XLIB::ADVANCE-BUFFER-OFFSET 24)) ; (ETYPECASE XLIB:IMAGE ; (XLIB:IMAGE-X (ECASE # # #)) ; (XLIB:IMAGE-XY ; (XLIB::WRITE-IMAGE-XY XLIB:DISPLAY XLIB:IMAGE XLIB::LEFT-PADDED-SRC-X ; XLIB::REQUEST-SRC-Y XLIB::LEFT-PADDED-WIDTH XLIB::REQUEST-HEIGHT ; XLIB::PADDED-BYTES-PER-LINE XLIB::UNIT XLIB::BYTE-LSB-FIRST-P ; XLIB::BIT-LSB-FIRST-P)) ; (XLIB:IMAGE-Z ; (XLIB::WRITE-IMAGE-Z XLIB:DISPLAY XLIB:IMAGE XLIB::LEFT-PADDED-SRC-X ; XLIB::REQUEST-SRC-Y XLIB::LEFT-PADDED-WIDTH XLIB::REQUEST-HEIGHT ; XLIB::PADDED-BYTES-PER-LINE XLIB::UNIT XLIB::BYTE-LSB-FIRST-P ; XLIB::BIT-LSB-FIRST-P))) ; (XLIB::BUFFER-PAD-REQUEST XLIB:DISPLAY ; (XLIB::INDEX- ; (XLIB::INDEX* XLIB::REQUEST-WORDS 4) ; XLIB::REQUEST-BYTES)))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XY-FORMAT-IMAGE-X->IMAGE-X ...) ; compiling (DEFUN Z-FORMAT-IMAGE-X->IMAGE-X ...) ; compiling (DEFUN IMAGE-X->IMAGE-X ...) ; compiling (DEFUN IMAGE-X->IMAGE-XY ...) ; compiling (DEFUN IMAGE-X->IMAGE-Z ...) ; compiling (DEFUN COPY-PIXARRAY ...) ; file: /usr/share/common-lisp/source/clx/image.lisp ; in: DEFUN COPY-PIXARRAY ; (MAKE-ARRAY (LIST XLIB::HEIGHT XLIB::PADDED-WIDTH) :ELEMENT-TYPE ; (ARRAY-ELEMENT-TYPE ARRAY)) ; --> LOCALLY ; ==> ; (MAKE-ARRAY (LIST XLIB::HEIGHT XLIB::PADDED-WIDTH) :ELEMENT-TYPE ; (ARRAY-ELEMENT-TYPE ARRAY)) ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; compiling (DEFUN IMAGE-XY->IMAGE-X ...) ; compiling (DEFUN IMAGE-XY->IMAGE-XY ...) ; compiling (DEFUN IMAGE-XY->IMAGE-Z ...) ; compiling (DEFUN IMAGE-Z->IMAGE-X ...) ; compiling (DEFUN IMAGE-Z->IMAGE-XY ...) ; compiling (DEFUN IMAGE-Z->IMAGE-Z ...) ; compiling (DEFUN COPY-IMAGE ...) ; compiling (DEFUN READ-BITMAP-FILE ...) ; compiling (DEFUN WRITE-BITMAP-FILE ...) ; compiling (DEFUN BITMAP-IMAGE ...) ; compiling (DEFUN IMAGE-PIXMAP ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/image-TMP.fasl written ; compilation finished in 0:00:01.441 ; compiling file "/usr/share/common-lisp/source/clx/resource.lisp" (written 01 MAY 2012 12:23:25 AM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFSTRUCT (RESOURCE-DATABASE # ...) ...) ; compiling (DEFUN PRINT-RESOURCE-DATABASE ...) ; compiling (DEFUN MAKE-RESOURCE-DATABASE ...) ; compiling (DEFUN RESOURCE-DATABASE-TIMESTAMP ...) ; compiling (DEFUN INCF-RESOURCE-DATABASE-TIMESTAMP ...) ; compiling (DEFUN PRINT-DB ...) ; compiling (DEFPARAMETER *UPPERCASE-RESOURCE-SYMBOLS* ...) ; compiling (DEFUN RESOURCE-KEY ...) ; compiling (DEFUN STRINGABLE-EQUAL ...) ; compiling (DEFUN ADD-RESOURCE ...) ; compiling (DEFUN DELETE-RESOURCE ...) ; compiling (DEFUN DELETE-RESOURCE-INTERNAL ...) ; file: /usr/share/common-lisp/source/clx/resource.lisp ; in: DEFUN DELETE-RESOURCE-INTERNAL ; (SETQ XLIB::LOOSE-P NIL) ; ; note: deleting unreachable code ; compiling (DEFUN GET-RESOURCE ...) ; compiling (DEFUN GET-ENTRY-LOOKUP ...) ; compiling (DEFUN GET-ENTRY ...) ; compiling (DEFUN GET-SEARCH-RESOURCE ...) ; compiling (DEFVAR *GET-TABLE-RESULT*) ; compiling (DEFUN GET-SEARCH-TABLE ...) ; compiling (DEFUN GET-TABLES-LOOKUP ...) ; compiling (DEFUN GET-TABLES ...) ; compiling (DEFUN MAP-RESOURCE ...) ; file: /usr/share/common-lisp/source/clx/resource.lisp ; in: DEFUN MAP-RESOURCE ; (XLIB::MAP-RESOURCE-INTERNAL XLIB::RESOURCE FUNCTION XLIB::ARGS XLIB::NAME) ; ==> ; FUNCTION ; ; note: could not stack allocate FUNCTION in: ; (MAP-RESOURCE-INTERNAL RESOURCE FUNCTION ARGS NAME) ; ; note: could not stack allocate FUNCTION in: ; (MAP-RESOURCE-INTERNAL RESOURCE FUNCTION ARGS NAME) ; compiling (DEFUN MERGE-RESOURCES ...) ; compiling (DEFUN CHAR-MEMQ ...) ; compiling (DEFMACRO RESOURCE-WITH-OPEN-FILE ...) ; compiling (DEFUN READ-RESOURCES ...) ; compiling (DEFUN PARSE-RESOURCE ...) ; compiling (DEFUN WRITE-RESOURCES ...) ; compiling (DEFUN WM-RESOURCES ...) ; compiling (DEFUN SET-WM-RESOURCES ...) ; compiling (DEFUN ROOT-RESOURCES ...) ; compiling (DEFUN SET-ROOT-RESOURCES ...) ; compiling (DEFSETF ROOT-RESOURCES ...) ; compiling (DEFUN INITIALIZE-RESOURCE-DATABASE ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/resource-TMP.fasl written ; compilation finished in 0:00:00.225 ; compiling file "/usr/share/common-lisp/source/clx/shape.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (EXPORT (QUOTE #) ...) ; compiling (DEFINE-EXTENSION "SHAPE" ...) ; compiling (DECLARE-EVENT :SHAPE-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/shape.lisp ; in: DECLARE-EVENT :SHAPE-NOTIFY ; (XLIB:DECLARE-EVENT :SHAPE-NOTIFY ; ((XLIB::DATA (XLIB::MEMBER8 :BOUNDING :CLIP)) XLIB::KIND) ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (XLIB:INT16 XLIB::X) ; (XLIB:INT16 XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH) ; (XLIB:CARD16 XLIB::HEIGHT) ; ((OR NULL XLIB:CARD32) TIME) ; (BOOLEAN XLIB::SHAPED-P)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G57 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :SHAPE-NOTIFY ; ((DATA (MEMBER8 :BOUNDING :CLIP)) KIND) ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; (INT16 X) ; (INT16 Y) ; (CARD16 WIDTH) ; (CARD16 HEIGHT) ; ((OR NULL CARD32) TIME) ; (BOOLEAN SHAPED-P)) ; compiling (DEFUN ENCODE-SHAPE-KIND ...) ; compiling (DEFUN ENCODE-SHAPE-OPERATION ...) ; compiling (DEFUN ENCODE-SHAPE-RECTANGLE-ORDERING ...) ; compiling (DEFUN SHAPE-QUERY-VERSION ...) ; file: /usr/share/common-lisp/source/clx/shape.lisp ; in: DEFUN SHAPE-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "SHAPE") ; NIL :SIZES 16) ; ((XLIB::DATA 0)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SHAPE-RECTANGLES ...) ; file: /usr/share/common-lisp/source/clx/shape.lisp ; in: DEFUN SHAPE-RECTANGLES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 1) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-RECTANGLE-ORDERING XLIB::ORDERING)) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::RECTANGLES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SHAPE-MASK ...) ; file: /usr/share/common-lisp/source/clx/shape.lisp ; in: DEFUN SHAPE-MASK ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 2) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD16 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET) ; ((OR XLIB:PIXMAP (MEMBER :NONE)) XLIB:PIXMAP)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SHAPE-COMBINE ...) ; file: /usr/share/common-lisp/source/clx/shape.lisp ; in: DEFUN SHAPE-COMBINE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 3) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::SOURCE-KIND)) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET) ; (XLIB:WINDOW XLIB::SOURCE-WINDOW)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SHAPE-OFFSET ...) ; file: /usr/share/common-lisp/source/clx/shape.lisp ; in: DEFUN SHAPE-OFFSET ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 4) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 0) ; (XLIB:CARD8 0) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SHAPE-QUERY-EXTENTS ...) ; file: /usr/share/common-lisp/source/clx/shape.lisp ; in: DEFUN SHAPE-QUERY-EXTENTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "SHAPE") ; NIL :SIZES (8 16 32)) ; ((XLIB::DATA 5) (XLIB:WINDOW XLIB:WINDOW)) ; (VALUES (XLIB::BOOLEAN-GET 8) (XLIB::BOOLEAN-GET 9) (XLIB::INT16-GET 12) ; (XLIB::INT16-GET 14) (XLIB::CARD16-GET 16) (XLIB::CARD16-GET 18) ; (XLIB::INT16-GET 20) (XLIB::INT16-GET 22) (XLIB::CARD16-GET 24) ; (XLIB::CARD16-GET 26))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SHAPE-SELECT-INPUT ...) ; file: /usr/share/common-lisp/source/clx/shape.lisp ; in: DEFUN SHAPE-SELECT-INPUT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 6) ; (XLIB:WINDOW XLIB:WINDOW) ; (BOOLEAN XLIB::SELECTED-P)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SHAPE-INPUT-SELECTED-P ...) ; file: /usr/share/common-lisp/source/clx/shape.lisp ; in: DEFUN SHAPE-INPUT-SELECTED-P ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "SHAPE") ; NIL :SIZES (8)) ; ((XLIB::DATA 7) (XLIB:WINDOW XLIB:WINDOW)) ; (XLIB::BOOLEAN-GET 1)) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SHAPE-GET-RECTANGLES ...) ; file: /usr/share/common-lisp/source/clx/shape.lisp ; in: DEFUN SHAPE-GET-RECTANGLES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "SHAPE") ; NIL :SIZES (8 16 32)) ; ((XLIB::DATA 8) (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:CARD8 (ECASE XLIB::KIND (:BOUNDING 0) (:CLIP 1)))) ; (VALUES ; (XLIB::SEQUENCE-GET :LENGTH (PRINT (* 4 #)) :RESULT-TYPE XLIB::RESULT-TYPE ; :FORMAT XLIB:INT16 :INDEX XLIB::+REPLYSIZE+) ; (ECASE (XLIB::CARD8-GET 1) ; (0 :UNSORTED) ; (1 :Y-SORTED) ; (2 :YX-SORTED) ; (3 :YX-BANDED)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/shape-TMP.fasl written ; compilation finished in 0:00:00.212 ; compiling file "/usr/share/common-lisp/source/clx/big-requests.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE "XLIB") ; compiling (DEFINE-EXTENSION "BIG-REQUESTS") ; compiling (DEFUN ENABLE-BIG-REQUESTS ...) ; file: /usr/share/common-lisp/source/clx/big-requests.lisp ; in: DEFUN ENABLE-BIG-REQUESTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::OPCODE NIL) ; ((XLIB::DATA 0)) ; (LET ((XLIB::MAXIMUM-REQUEST-LENGTH (XLIB::CARD32-GET 8))) ; (SETF (XLIB:DISPLAY-EXTENDED-MAX-REQUEST-LENGTH XLIB:DISPLAY) ; XLIB::MAXIMUM-REQUEST-LENGTH))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/big-requests-TMP.fasl written ; compilation finished in 0:00:00.016 ; compiling file "/usr/share/common-lisp/source/clx/xvidmode.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (EXPORT (QUOTE #) ...) ; compiling (DEFCONSTANT +XF86VIDMODE-MAJOR-VERSION+ ...) ; compiling (DEFCONSTANT +XF86VIDMODE-MINOR-VERSION+ ...) ; compiling (DEFCONSTANT +QUERY-VERSION+ ...) ; compiling (DEFCONSTANT +GET-MODE-LINE+ ...) ; compiling (DEFCONSTANT +MOD-MODE-LINE+ ...) ; compiling (DEFCONSTANT +SWITCH-MODE+ ...) ; compiling (DEFCONSTANT +GET-MONITOR+ ...) ; compiling (DEFCONSTANT +LOCK-MODE-SWITCH+ ...) ; compiling (DEFCONSTANT +GET-ALL-MODE-LINES+ ...) ; compiling (DEFCONSTANT +ADD-MODE-LINE+ ...) ; compiling (DEFCONSTANT +DELETE-MODE-LINE+ ...) ; compiling (DEFCONSTANT +VALIDATE-MODE-LINE+ ...) ; compiling (DEFCONSTANT +SWITCH-TO-MODE+ ...) ; compiling (DEFCONSTANT +GET-VIEWPORT+ ...) ; compiling (DEFCONSTANT +SET-VIEWPORT+ ...) ; compiling (DEFCONSTANT +GET-DOT-CLOCKS+ ...) ; compiling (DEFCONSTANT +SET-CLIENT-VERSION+ ...) ; compiling (DEFCONSTANT +SET-GAMMA+ ...) ; compiling (DEFCONSTANT +GET-GAMMA+ ...) ; compiling (DEFCONSTANT +GET-GAMMA-RAMP+ ...) ; compiling (DEFCONSTANT +SET-GAMMA-RAMP+ ...) ; compiling (DEFCONSTANT +GET-GAMMA-RAMP-SIZE+ ...) ; compiling (DEFCONSTANT +GET-PERMISIONS+ ...) ; compiling (DEFINE-EXTENSION "XFree86-VidModeExtension" ...) ; compiling (DEFINE-CONDITION XF86-VIDMODE-BAD-CLOCK ...) ; compiling (DEFINE-CONDITION XF86-VIDMODE-BAD-HTIMINGS ...) ; compiling (DEFINE-CONDITION XF86-VIDMODE-BAD-VTIMINGS ...) ; compiling (DEFINE-CONDITION XF86-VIDMODE-MODE-UNSUITABLE ...) ; compiling (DEFINE-CONDITION XF86-VIDMODE-EXTENSION-DISABLED ...) ; compiling (DEFINE-CONDITION XF86-VIDMODE-CLIENT-NOT-LOCAL ...) ; compiling (DEFINE-CONDITION XF86-VIDMODE-ZOOM-LOCKED ...) ; compiling (DEFINE-ERROR XF86-VIDMODE-BAD-CLOCK ...) ; compiling (DEFINE-ERROR XF86-VIDMODE-BAD-HTIMINGS ...) ; compiling (DEFINE-ERROR XF86-VIDMODE-BAD-VTIMINGS ...) ; compiling (DEFINE-ERROR XF86-VIDMODE-MODE-UNSUITABLE ...) ; compiling (DEFINE-ERROR XF86-VIDMODE-EXTENSION-DISABLED ...) ; compiling (DEFINE-ERROR XF86-VIDMODE-CLIENT-NOT-LOCAL ...) ; compiling (DEFINE-ERROR XF86-VIDMODE-ZOOM-LOCKED ...) ; compiling (DECLARE-EVENT :XFREE86-VIDMODE-NOTIFY ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DECLARE-EVENT :XFREE86-VIDMODE-NOTIFY ; (XLIB:DECLARE-EVENT :XFREE86-VIDMODE-NOTIFY ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (XLIB:INT16 XLIB::STATE) ; (XLIB:INT16 XLIB::KIND) ; (BOOLEAN XLIB::FORCED-P) ; ((OR NULL XLIB:CARD32) TIME)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G72 ; ; note: could not stack allocate HANDLER in: ; (DECLARE-EVENT :XFREE86-VIDMODE-NOTIFY ; (CARD16 SEQUENCE) ; (WINDOW (WINDOW EVENT-WINDOW)) ; (INT16 STATE) ; (INT16 KIND) ; (BOOLEAN FORCED-P) ; ((OR NULL CARD32) TIME)) ; compiling (DEFSTRUCT MODE-INFO ...) ; compiling (DEFMACRO VIDMODE-OPCODE ...) ; compiling (DECLAIM (INLINE SCREEN-POSITION)) ; compiling (DEFUN SCREEN-POSITION ...) ; compiling (DEFUN XFREE86-VIDMODE-QUERY-VERSION ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES 16) ; ((XLIB::DATA XLIB::+QUERY-VERSION+)) ; (LET ((XLIB::MAJOR (XLIB::CARD16-GET 8)) ; (XLIB::MINOR (XLIB::CARD16-GET 10))) ; (DECLARE (TYPE XLIB:CARD16 XLIB::MAJOR XLIB::MINOR)) ; (WHEN (>= XLIB::MAJOR 2) ; (XLIB::XFREE86-VIDMODE-SET-CLIENT-VERSION XLIB:DISPLAY)) ; (VALUES XLIB::MAJOR XLIB::MINOR))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-SET-CLIENT-VERSION ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-SET-CLIENT-VERSION ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SET-CLIENT-VERSION+) ; (XLIB:CARD16 XLIB::+XF86VIDMODE-MAJOR-VERSION+) ; (XLIB:CARD16 XLIB::+XF86VIDMODE-MINOR-VERSION+)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-GET-PERMISSIONS ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-GET-PERMISSIONS ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-PERMISIONS+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-MOD-MODE-LINE ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-MOD-MODE-LINE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+MOD-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; ((SEQUENCE :FORMAT XLIB:CARD16 :START 2) XLIB::V)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+MOD-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; ((SEQUENCE :FORMAT XLIB:CARD16 :START 2) XLIB::V)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-GET-MODE-LINE ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-GET-MODE-LINE ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MODE-LINE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0)) ; (LET ((XLIB::MODE-INFO ; (XLIB::MAKE-MODE-INFO :DOTCLOCK # :HDISPLAY # :HSYNCSTART # ; :HSYNCEND # :HTOTAL # :HSKEW ...)) ; (XLIB::SIZE (XLIB::CARD32-GET #))) ; (DECLARE (TYPE XLIB:CARD32 XLIB::SIZE)) ; (INCF XLIB::OFFSET 4) ; (SETF (XLIB::MODE-INFO-PRIVSIZE XLIB::MODE-INFO) XLIB::SIZE ; (XLIB::MODE-INFO-PRIVATE XLIB::MODE-INFO) ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD32 :INDEX XLIB::OFFSET ; :LENGTH XLIB::SIZE :RESULT-TYPE 'LIST)) ; XLIB::MODE-INFO)) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-GET-ALL-MODE-LINES ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-GET-ALL-MODE-LINES ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-ALL-MODE-LINES+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY))) ; (VALUES ; (LOOP XLIB::WITH XLIB::BUG-P = (AND (= XLIB::MAJOR 0) (< XLIB::MINOR 8)) ; XLIB::WITH XLIB::OFFSET XLIB::OF-TYPE FIXNUM = 32 ; XLIB::FOR ...))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-ADD-MODE-LINE ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-ADD-MODE-LINE ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+ADD-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-DELETE-MODE-LINE ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-DELETE-MODE-LINE ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+DELETE-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+DELETE-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFCONSTANT +MODE-STATUS+ ...) ; compiling (DEFUN DECODE-STATUS-MODE ...) ; compiling (DEFUN XFREE86-VIDMODE-VALIDATE-MODE-LINE ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-VALIDATE-MODE-LINE ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+VALIDATE-MODE-LINE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V)) ; (LET ((XLIB::STATUS (XLIB::INTEGER-GET 8))) ; (DECLARE (TYPE XLIB:INT32 XLIB::STATUS)) ; (WHEN XLIB::STATUS (XLIB::DECODE-STATUS-MODE XLIB::STATUS)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-GET-GAMMA ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA ; (/ (THE XLIB:CARD32 (OR (XLIB::CARD32-GET 8) 0)) 10000.0) ; ==> ; (/ (FLOAT SB-C::X SB-C::Y) SB-C::Y) ; ; note: unable to ; convert to multiplication by reciprocal ; because: ; 10000.0 does not have an exact reciprocal ; (/ (THE XLIB:CARD32 (OR (XLIB::CARD32-GET 12) 0)) 10000.0) ; ==> ; (/ (FLOAT SB-C::X SB-C::Y) SB-C::Y) ; ; note: unable to ; convert to multiplication by reciprocal ; because: ; 10000.0 does not have an exact reciprocal ; (/ (THE XLIB:CARD32 (OR (XLIB::CARD32-GET 16) 0)) 10000.0) ; ==> ; (/ (FLOAT SB-C::X SB-C::Y) SB-C::Y) ; ; note: unable to ; convert to multiplication by reciprocal ; because: ; 10000.0 does not have an exact reciprocal ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0) (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0) ; (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0)) ; (VALUES (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 0) (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0) ; (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0)) ; (VALUES (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0) ; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-SET-GAMMA ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-SET-GAMMA ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+SET-GAMMA+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 0) ; (XLIB:CARD32 (TRUNCATE (* XLIB::RED 10000))) ; (XLIB:CARD32 (TRUNCATE (* XLIB::GREEN 10000))) ; (XLIB:CARD32 (TRUNCATE (* XLIB::BLUE 10000))) ; (XLIB:CARD32 0) ; (XLIB:CARD32 0) ; (XLIB:CARD32 0)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+SET-GAMMA+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 0) ; (XLIB:CARD32 (TRUNCATE (* XLIB::RED 10000))) ; (XLIB:CARD32 (TRUNCATE (* XLIB::GREEN 10000))) ; (XLIB:CARD32 (TRUNCATE (* XLIB::BLUE 10000))) ; (XLIB:CARD32 0) ; (XLIB:CARD32 0) ; (XLIB:CARD32 0)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE)) ; (LET ((XLIB::REP-SIZE (* # 2))) ; (DECLARE (TYPE FIXNUM XLIB::REP-SIZE)) ; (UNLESS (ZEROP XLIB::REP-SIZE) ; (LET* (# #) ; (DECLARE #) ; (VALUES # # #))))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-SET-GAMMA-RAMP ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-SET-GAMMA-RAMP ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+SET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE) ; ((SEQUENCE :FORMAT XLIB:CARD16) ; (IF (ZEROP (MOD XLIB::SIZE 2)) ; (CONCATENATE 'VECTOR XLIB::RED XLIB::GREEN XLIB::BLUE) ; (CONCATENATE 'VECTOR XLIB::RED '#(0) XLIB::GREEN '#(0) XLIB::BLUE ; '#(0))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+SET-GAMMA-RAMP+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY)) ; (XLIB:CARD16 XLIB::SIZE) ; ((SEQUENCE :FORMAT XLIB:CARD16) ; (IF (ZEROP (MOD XLIB::SIZE 2)) ; (CONCATENATE 'VECTOR XLIB::RED XLIB::GREEN XLIB::BLUE) ; (CONCATENATE 'VECTOR XLIB::RED '#(0) XLIB::GREEN '#(0) XLIB::BLUE ; '#(0))))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP-SIZE ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-GET-GAMMA-RAMP-SIZE ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-GAMMA-RAMP-SIZE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (XLIB::CARD16-GET 8)) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-LOCK-MODE-SWITCH ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-LOCK-MODE-SWITCH ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+LOCK-MODE-SWITCH+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 ; (IF XLIB::LOCK-P ; 1 ; 0))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-SWITCH-TO-MODE ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-SWITCH-TO-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-TO-MODE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-TO-MODE+) ; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-SWITCH-MODE ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-SWITCH-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 XLIB::ZOOM)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 XLIB::ZOOM)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-SELECT-NEXT-MODE ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-SELECT-NEXT-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 1)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 1)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-SELECT-PREV-MODE ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-SELECT-PREV-MODE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 65535)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XLIB::+SWITCH-MODE+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY)) ; (XLIB:CARD16 65535)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-GET-MONITOR ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-GET-MONITOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MONITOR+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (LET* ((XLIB::VENDOR-NAME-LENGTH (XLIB::CARD8-GET 8)) ; (XLIB::MODEL-NAME-LENGTH (XLIB::CARD8-GET 9)) ; (XLIB::PAD (- 4 #)) ; (XLIB::NHSYNC (XLIB::CARD8-GET 10)) ; (XLIB::NVSYNC (XLIB::CARD8-GET 11)) ; (XLIB::VINDEX (+ 32 #)) ; (XLIB::MINDEX (+ XLIB::VINDEX XLIB::VENDOR-NAME-LENGTH XLIB::PAD)) ; (XLIB::HSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NHSYNC :INDEX 32 :RESULT-TYPE ; 'LIST)) ; (XLIB::VSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NVSYNC :INDEX # :RESULT-TYPE ; 'LIST))) ; (DECLARE ; (TYPE XLIB:CARD8 XLIB::NHSYNC XLIB::NVSYNC XLIB::VENDOR-NAME-LENGTH ; XLIB::MODEL-NAME-LENGTH) ; (TYPE FIXNUM XLIB::PAD XLIB::VINDEX XLIB::MINDEX)) ; (VALUES ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::HSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::VSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (XLIB::STRING-GET XLIB::VENDOR-NAME-LENGTH XLIB::VINDEX) ; (XLIB::STRING-GET XLIB::MODEL-NAME-LENGTH XLIB::MINDEX)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-MONITOR+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (LET* ((XLIB::VENDOR-NAME-LENGTH (XLIB::CARD8-GET 8)) ; (XLIB::MODEL-NAME-LENGTH (XLIB::CARD8-GET 9)) ; (XLIB::PAD (- 4 #)) ; (XLIB::NHSYNC (XLIB::CARD8-GET 10)) ; (XLIB::NVSYNC (XLIB::CARD8-GET 11)) ; (XLIB::VINDEX (+ 32 #)) ; (XLIB::MINDEX (+ XLIB::VINDEX XLIB::VENDOR-NAME-LENGTH XLIB::PAD)) ; (XLIB::HSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NHSYNC :INDEX 32 :RESULT-TYPE ; 'LIST)) ; (XLIB::VSYNC ; (XLIB::SEQUENCE-GET :LENGTH XLIB::NVSYNC :INDEX # :RESULT-TYPE ; 'LIST))) ; (DECLARE ; (TYPE XLIB:CARD8 XLIB::NHSYNC XLIB::NVSYNC XLIB::VENDOR-NAME-LENGTH ; XLIB::MODEL-NAME-LENGTH) ; (TYPE FIXNUM XLIB::PAD XLIB::VINDEX XLIB::MINDEX)) ; (VALUES ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::HSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (LOOP XLIB::FOR XLIB::I XLIB::OF-TYPE XLIB:CARD32 XLIB::IN XLIB::VSYNC ; XLIB::COLLECT (/ # 100) ; XLIB::COLLECT (/ # 100)) ; (XLIB::STRING-GET XLIB::VENDOR-NAME-LENGTH XLIB::VINDEX) ; (XLIB::STRING-GET XLIB::MODEL-NAME-LENGTH XLIB::MINDEX)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-GET-VIEWPORT ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-GET-VIEWPORT ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-VIEWPORT+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-SET-VIEWPORT ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-SET-VIEWPORT ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY)) ; (XLIB::DATA XLIB::+SET-VIEWPORT+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0) ; (XLIB:CARD32 XLIB::X) ; (XLIB:CARD32 XLIB::Y)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XFREE86-VIDMODE-GET-DOTCLOCKS ...) ; file: /usr/share/common-lisp/source/clx/xvidmode.lisp ; in: DEFUN XFREE86-VIDMODE-GET-DOTCLOCKS ; (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY) ; --> BLOCK LET ; ==> ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY ; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL ; :SIZES (8 16 32)) ; ((XLIB::DATA XLIB::+GET-DOT-CLOCKS+) ; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY)) ; (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 16) ; (XLIB::SEQUENCE-GET :LENGTH (XLIB::CARD32-GET 12) :FORMAT ; XLIB:CARD32 :INDEX 32 :RESULT-TYPE 'LIST))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN MODE-INFO->V-CARD16 ...) ; compiling (DECLAIM (INLINE __CARD32->CARD16__)) ; compiling (DEFUN __CARD32->CARD16__ ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/xvidmode-TMP.fasl written ; compilation finished in 0:00:00.682 ; compiling file "/usr/share/common-lisp/source/clx/xrender.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (EXPORT (QUOTE #)) ; compiling (PUSHNEW :CLX-EXT-RENDER ...) ; compiling (DEFINE-EXTENSION "RENDER") ; compiling (DEFCONSTANT +X-RENDERQUERYVERSION+ ...) ; compiling (DEFCONSTANT +X-RENDERQUERYPICTFORMATS+ ...) ; compiling (DEFCONSTANT +X-RENDERQUERYPICTINDEXVALUES+ ...) ; compiling (DEFCONSTANT +X-RENDERQUERYDITHERS+ ...) ; compiling (DEFCONSTANT +X-RENDERCREATEPICTURE+ ...) ; compiling (DEFCONSTANT +X-RENDERCHANGEPICTURE+ ...) ; compiling (DEFCONSTANT +X-RENDERSETPICTURECLIPRECTANGLES+ ...) ; compiling (DEFCONSTANT +X-RENDERFREEPICTURE+ ...) ; compiling (DEFCONSTANT +X-RENDERCOMPOSITE+ ...) ; compiling (DEFCONSTANT +X-RENDERSCALE+ ...) ; compiling (DEFCONSTANT +X-RENDERTRAPEZOIDS+ ...) ; compiling (DEFCONSTANT +X-RENDERTRIANGLES+ ...) ; compiling (DEFCONSTANT +X-RENDERTRISTRIP+ ...) ; compiling (DEFCONSTANT +X-RENDERTRIFAN+ ...) ; compiling (DEFCONSTANT +X-RENDERCOLORTRAPEZOIDS+ ...) ; compiling (DEFCONSTANT +X-RENDERCOLORTRIANGLES+ ...) ; compiling (DEFCONSTANT +X-RENDERTRANSFORM+ ...) ; compiling (DEFCONSTANT +X-RENDERCREATEGLYPHSET+ ...) ; compiling (DEFCONSTANT +X-RENDERREFERENCEGLYPHSET+ ...) ; compiling (DEFCONSTANT +X-RENDERFREEGLYPHSET+ ...) ; compiling (DEFCONSTANT +X-RENDERADDGLYPHS+ ...) ; compiling (DEFCONSTANT +X-RENDERADDGLYPHSFROMPICTURE+ ...) ; compiling (DEFCONSTANT +X-RENDERFREEGLYPHS+ ...) ; compiling (DEFCONSTANT +X-RENDERCOMPOSITEGLYPHS8+ ...) ; compiling (DEFCONSTANT +X-RENDERCOMPOSITEGLYPHS16+ ...) ; compiling (DEFCONSTANT +X-RENDERCOMPOSITEGLYPHS32+ ...) ; compiling (DEFCONSTANT +X-RENDERFILLRECTANGLES+ ...) ; compiling (DEFCONSTANT +X-RENDERCREATECURSOR+ ...) ; compiling (DEFCONSTANT +X-RENDERSETPICTURETRANSFORM+ ...) ; compiling (DEFCONSTANT +X-RENDERQUERYFILTERS+ ...) ; compiling (DEFCONSTANT +X-RENDERSETPICTUREFILTER+ ...) ; compiling (DEFCONSTANT +X-RENDERCREATEANIMCURSOR+ ...) ; compiling (DEFSTRUCT RENDER-INFO ...) ; compiling (DEFUN DISPLAY-RENDER-INFO ...) ; compiling (DEFUN (SETF DISPLAY-RENDER-INFO) ...) ; compiling (DEFUN ENSURE-RENDER-INITIALIZED ...) ; compiling (DEFUN FIND-MATCHING-PICTURE-FORMATS ...) ; compiling (DEFUN FIND-WINDOW-PICTURE-FORMAT ...) ; compiling (DEFINE-ACCESSOR PICTURE ...) ; compiling (DEFINE-ACCESSOR GLYPH-SET ...) ; compiling (DEFSTRUCT PICTURE-FORMAT ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFINE-ACCESSOR PICTURE-FORMAT ...) ; compiling (DEFINE-ACCESSOR RENDER-OP ...) ; compiling (DEFTYPE RENDER-OP ...) ; compiling (DEF-CLX-CLASS (PICTURE #) ...) ; compiling (DEFUN PICTURE-DRAWABLE ...) ; compiling (DEFUN %RENDER-CHANGE-PICTURE-CLIP-RECTANGLES ...) ; compiling (FOO (# REPEAT ...) ...) ; compiling (DEFUN RENDER-FREE-PICTURE ...) ; compiling (DEFUN RENDER-FREE-GLYPH-SET ...) ; compiling (DEFUN RENDER-QUERY-VERSION ...) ; compiling (DEFUN RENDER-QUERY-PICTURE-FORMATS ...) ; compiling (DEFUN RENDER-FILL-RECTANGLE ...) ; compiling (DEFUN RENDER-TRIANGLES-1 ...) ; compiling (DEFUN RENDER-SET-PICTURE-TRANSFORM ...) ; compiling (DEFUN RENDER-QUERY-FILTERS ...) ; compiling (DEFUN RENDER-SET-FILTER ...) ; compiling (DEFUN RENDER-TRAPEZOIDS-1 ...) ; compiling (DEFUN RENDER-COMPOSITE ...) ; compiling (DEF-CLX-CLASS (GLYPH-SET #) ...) ; compiling (DEFUN RENDER-CREATE-GLYPH-SET ...) ; compiling (DEFUN RENDER-REFERENCE-GLYPH-SET ...) ; compiling (DEFUN RENDER-COMPOSITE-GLYPHS-8 ...) ; compiling (DEFMACRO %RENDER-COMPOSITE-GLYPHS ...) ; compiling (DEFUN RENDER-COMPOSITE-GLYPHS ...) ; compiling (DEFUN RENDER-ADD-GLYPH ...) ; compiling (DEFUN RENDER-ADD-GLYPH-FROM-PICTURE ...) ; compiling (DEFUN RENDER-FREE-GLYPHS ...) ; compiling (DEFUN RENDER-CREATE-CURSOR ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/xrender-TMP.fasl written ; compilation finished in 0:00:01.630 ; compiling file "/usr/share/common-lisp/source/clx/glx.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (DEFPACKAGE :GLX ...) ; compiling (IN-PACKAGE :GLX) ; compiling (DECLAIM (OPTIMIZE # ...)) ; compiling (DEFINE-EXTENSION "GLX" ...) ; compiling (DEFCONSTANT +RENDER+ ...) ; compiling (DEFCONSTANT +CREATE-CONTEXT+ ...) ; compiling (DEFCONSTANT +DESTROY-CONTEXT+ ...) ; compiling (DEFCONSTANT +MAKE-CURRENT+ ...) ; compiling (DEFCONSTANT +IS-DIRECT+ ...) ; compiling (DEFCONSTANT +QUERY-VERSION+ ...) ; compiling (DEFCONSTANT +WAIT-GL+ ...) ; compiling (DEFCONSTANT +WAIT-X+ ...) ; compiling (DEFCONSTANT +COPY-CONTEXT+ ...) ; compiling (DEFCONSTANT +SWAP-BUFFERS+ ...) ; compiling (DEFCONSTANT +GET-VISUAL-CONFIGS+ ...) ; compiling (DEFCONSTANT +DESTROY-GLX-PIXMAP+ ...) ; compiling (DEFCONSTANT +QUERY-SERVER-STRING+ ...) ; compiling (DEFCONSTANT +CLIENT-INFO+ ...) ; compiling (DEFCONSTANT +GET-FB-CONFIGS+ ...) ; compiling (DEFCONSTANT +QUERY-CONTEXT+ ...) ; compiling (DEFCONSTANT +GET-DRAWABLE-ATTRIBUTES+ ...) ; compiling (DEFCONSTANT +VENDOR+ ...) ; compiling (DEFCONSTANT +VERSION+ ...) ; compiling (DEFCONSTANT +EXTENSIONS+ ...) ; compiling (DEFTYPE ATTRIBUTE-PAIR ...) ; compiling (DEFTYPE BITFIELD ...) ; compiling (DEFTYPE BOOL32 ...) ; compiling (DEFTYPE ENUM ...) ; compiling (DEFTYPE FBCONFIGID ...) ; compiling (DEFTYPE FLOAT32 ...) ; compiling (DEFTYPE FLOAT64 ...) ; compiling (DEFTYPE CONTEXT-TAG ...) ; compiling (DEFTYPE GLX-PIXMAP ...) ; compiling (DEFTYPE GLX-PBUFFER ...) ; compiling (DEFTYPE GLX-RENDER-COMMAND ...) ; compiling (DEFTYPE GLX-WINDOW ...) ; compiling (DEF-CLX-CLASS (CONTEXT # ...) ...) ; compiling (DEFUN PRINT-CONTEXT ...) ; compiling (DEF-CLX-CLASS (VISUAL # ...) ...) ; compiling (DEFUN PRINT-VISUAL ...) ; compiling (DEFCONSTANT +DAMAGED+ ...) ; compiling (DEFCONSTANT +SAVED+ ...) ; compiling (DEFCONSTANT +WINDOW+ ...) ; compiling (DEFCONSTANT +PBUFFER+ ...) ; compiling (DECLARE-EVENT :GLX-PBUFFER-CLOBBER ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DECLARE-EVENT :GLX-PBUFFER-CLOBBER ; (XLIB:DECLARE-EVENT :GLX-PBUFFER-CLOBBER ; (XLIB:CARD16 SEQUENCE) ; (XLIB:CARD16 GLX::EVENT-TYPE) ; (XLIB:CARD16 GLX::DRAW-TYPE) ; (XLIB:RESOURCE-ID XLIB:DRAWABLE) ; (XLIB:CARD32 GLX::BUFFER-MASK) ; (XLIB:CARD16 GLX::AUX-BUFFER) ; (XLIB:CARD16 GLX::X GLX::Y GLX::WIDTH GLX::HEIGHT COUNT)) ; --> XLIB::WITHIN-DEFINITION PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-C::%FUNCALL ; ==> ; #:G180 ; ; note: could not stack allocate XLIB::HANDLER in: ; (DECLARE-EVENT :GLX-PBUFFER-CLOBBER ; (CARD16 SEQUENCE) ; (CARD16 EVENT-TYPE) ; (CARD16 DRAW-TYPE) ; (RESOURCE-ID DRAWABLE) ; (CARD32 BUFFER-MASK) ; (CARD16 AUX-BUFFER) ; (CARD16 X Y WIDTH HEIGHT COUNT)) ; compiling (DEFINE-CONDITION BAD-CONTEXT ...) ; compiling (DEFINE-CONDITION BAD-CONTEXT-STATE ...) ; compiling (DEFINE-CONDITION BAD-DRAWABLE ...) ; compiling (DEFINE-CONDITION BAD-PIXMAP ...) ; compiling (DEFINE-CONDITION BAD-CONTEXT-TAG ...) ; compiling (DEFINE-CONDITION BAD-CURRENT-WINDOW ...) ; compiling (DEFINE-CONDITION BAD-RENDER-REQUEST ...) ; compiling (DEFINE-CONDITION BAD-LARGE-REQUEST ...) ; compiling (DEFINE-CONDITION UNSUPPORTED-PRIVATE-REQUEST ...) ; compiling (DEFINE-CONDITION BAD-FB-CONFIG ...) ; compiling (DEFINE-CONDITION BAD-PBUFFER ...) ; compiling (DEFINE-CONDITION BAD-CURRENT-DRAWABLE ...) ; compiling (DEFINE-CONDITION BAD-WINDOW ...) ; compiling (DEFINE-ERROR BAD-CONTEXT ...) ; compiling (DEFINE-ERROR BAD-CONTEXT-STATE ...) ; compiling (DEFINE-ERROR BAD-DRAWABLE ...) ; compiling (DEFINE-ERROR BAD-PIXMAP ...) ; compiling (DEFINE-ERROR BAD-CONTEXT-TAG ...) ; compiling (DEFINE-ERROR BAD-CURRENT-WINDOW ...) ; compiling (DEFINE-ERROR BAD-RENDER-REQUEST ...) ; compiling (DEFINE-ERROR BAD-LARGE-REQUEST ...) ; compiling (DEFINE-ERROR UNSUPPORTED-PRIVATE-REQUEST ...) ; compiling (DEFINE-ERROR BAD-FB-CONFIG ...) ; compiling (DEFINE-ERROR BAD-PBUFFER ...) ; compiling (DEFINE-ERROR BAD-CURRENT-DRAWABLE ...) ; compiling (DEFINE-ERROR BAD-WINDOW ...) ; compiling (DEFUN QUERY-VERSION ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GLX::+QUERY-VERSION+) (XLIB:CARD32 1) (XLIB:CARD32 3)) ; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN QUERY-SERVER-STRING ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN QUERY-SERVER-STRING ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY) :TEST #'EQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GLX::+QUERY-SERVER-STRING+) ; (XLIB:CARD32 (OR (POSITION XLIB:SCREEN # :TEST #'EQ) 0)) ; (XLIB:CARD32 GLX::NAME)) ; (LET* ((LENGTH (XLIB::CARD32-GET 12)) ; (GLX::BYTES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD8 :RESULT-TYPE '# :INDEX 32 ; :LENGTH LENGTH))) ; (DECLARE (TYPE (SIMPLE-ARRAY XLIB:CARD8 #) GLX::BYTES) ; (TYPE FIXNUM LENGTH)) ; (MAP-INTO (MAKE-STRING (1- LENGTH)) #'CODE-CHAR GLX::BYTES))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CLIENT-INFO ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN CLIENT-INFO ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA GLX::+CLIENT-INFO+) ; (XLIB:CARD32 4) ; (XLIB:CARD32 1) ; (XLIB:CARD32 3) ; (XLIB:CARD32 0)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN MAKE-CONTEXT ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN MAKE-CONTEXT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY GLX::CTX 'GLX::CONTEXT) ; --> XLIB:WITH-DISPLAY XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK FUNCALL ; --> SB-C::%FUNCALL THE ; ==> ; (SB-KERNEL:%COERCE-CALLABLE-TO-FUN (XLIB:DISPLAY-XID XLIB:DISPLAY)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; not known to be a function ; compiling (DEFUN CREATE-CONTEXT ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN CREATE-CONTEXT ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY) :TEST #'EQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA GLX::+CREATE-CONTEXT+) ; (XLIB:RESOURCE-ID (GLX::CONTEXT-ID GLX::CTX)) ; (XLIB:RESOURCE-ID GLX::VISUAL) ; (XLIB:CARD32 ; (OR (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY) :TEST #'EQ) 0)) ; (XLIB:RESOURCE-ID GLX::SHARE-LIST) ; (BOOLEAN GLX:IS-DIRECT)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFVAR *CURRENT-CONTEXT* ...) ; compiling (DEFUN DESTROY-CONTEXT ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN DESTROY-CONTEXT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA GLX::+DESTROY-CONTEXT+) ; (XLIB:RESOURCE-ID GLX::ID)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN IS-DIRECT ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN IS-DIRECT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GLX::+IS-DIRECT+) ; (XLIB:RESOURCE-ID (GLX::CONTEXT-ID GLX::CTX))) ; (XLIB::CARD8-GET 8)) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN QUERY-CONTEXT ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN QUERY-CONTEXT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GLX::+QUERY-CONTEXT+) ; (XLIB:RESOURCE-ID (GLX::CONTEXT-ID GLX::CTX))) ; (LET ((GLX::NUM-ATTRIBUTES (XLIB::CARD32-GET 8))) ; (DECLARE (TYPE FIXNUM GLX::NUM-ATTRIBUTES)) ; (LOOP GLX::REPEAT GLX::NUM-ATTRIBUTES ; GLX::FOR GLX::I FIXNUM GLX::UPFROM 32 GLX::BY 8 ; GLX::COLLECTING (CONS (XLIB::CARD32-GET GLX::I) ; (XLIB::CARD32-GET #))))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (LOOP GLX::REPEAT GLX::NUM-ATTRIBUTES ; GLX::FOR GLX::I FIXNUM GLX::UPFROM 32 GLX::BY 8 ; GLX::COLLECTING (CONS (XLIB::CARD32-GET GLX::I) ; (XLIB::CARD32-GET (+ GLX::I 4)))) ; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB-LOOP::LOOP-BODY ; --> TAGBODY IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; etc. ; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB-LOOP::LOOP-BODY ; --> TAGBODY IF DECF LET* ; ==> ; (- #:LOOP-REPEAT-864 #:G875) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GLX::+QUERY-CONTEXT+) ; (XLIB:RESOURCE-ID (GLX::CONTEXT-ID GLX::CTX))) ; (LET ((GLX::NUM-ATTRIBUTES (XLIB::CARD32-GET 8))) ; (DECLARE (TYPE FIXNUM GLX::NUM-ATTRIBUTES)) ; (LOOP GLX::REPEAT GLX::NUM-ATTRIBUTES ; GLX::FOR GLX::I FIXNUM GLX::UPFROM 32 GLX::BY 8 ; GLX::COLLECTING (CONS (XLIB::CARD32-GET GLX::I) ; (XLIB::CARD32-GET #))))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GET-DRAWABLE-ATTRIBUTES ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN GET-DRAWABLE-ATTRIBUTES ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GLX::+GET-DRAWABLE-ATTRIBUTES+) ; (XLIB:DRAWABLE XLIB:DRAWABLE)) ; (LET ((GLX::NUM-ATTRIBUTES (XLIB::CARD32-GET 8))) ; (DECLARE (TYPE FIXNUM GLX::NUM-ATTRIBUTES)) ; (LOOP GLX::REPEAT GLX::NUM-ATTRIBUTES ; GLX::FOR GLX::I FIXNUM GLX::UPFROM 32 GLX::BY 8 ; GLX::COLLECTING (CONS (XLIB::CARD32-GET GLX::I) ; (XLIB::CARD32-GET #))))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (LOOP GLX::REPEAT GLX::NUM-ATTRIBUTES ; GLX::FOR GLX::I FIXNUM GLX::UPFROM 32 GLX::BY 8 ; GLX::COLLECTING (CONS (XLIB::CARD32-GET GLX::I) ; (XLIB::CARD32-GET (+ GLX::I 4)))) ; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB-LOOP::LOOP-BODY ; --> TAGBODY IF <= IF ; ==> ; (> SB-C::X SB-C::Y) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; etc. ; --> BLOCK LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* SB-LOOP::LOOP-BODY ; --> TAGBODY IF DECF LET* ; ==> ; (- #:LOOP-REPEAT-960 #:G971) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &REST T). ; etc. ; compiling (DEFUN MAKE-CURRENT ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN MAKE-CURRENT ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GLX::+MAKE-CURRENT+) ; (XLIB:RESOURCE-ID (XLIB:DRAWABLE-ID XLIB:DRAWABLE)) ; (XLIB:RESOURCE-ID (GLX::CONTEXT-ID GLX::CTX)) (XLIB:CARD32 GLX::OLD-TAG)) ; (LET ((GLX::NEW-TAG (XLIB::CARD32-GET 8))) ; (SETF (GLX::CONTEXT-TAG GLX::CTX) GLX::NEW-TAG ; (GLX::CONTEXT-DRAWABLE GLX::CTX) XLIB:DRAWABLE ; (GLX::CONTEXT-DISPLAY GLX::CTX) XLIB:DISPLAY ; GLX::*CURRENT-CONTEXT* GLX::CTX))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (GENERATE-CONFIG-PROPERTIES) ; compiling (DEFUN MAKE-VISUAL ...) ; compiling (DEFUN VISUAL-ATTRIBUTE ...) ; compiling (DEFUN GET-VISUAL-CONFIGS ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN GET-VISUAL-CONFIGS ; (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY) :TEST #'EQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GLX::+GET-VISUAL-CONFIGS+) ; (XLIB:CARD32 (OR (POSITION XLIB:SCREEN # :TEST #'EQ) 0))) ; (LET* ((GLX::NUM-VISUALS (XLIB::CARD32-GET 8)) ; (GLX::NUM-PROPERTIES (XLIB::CARD32-GET 12)) ; (GLX::NUM-ORDERED (LENGTH GLX::*VISUAL-CONFIG-PROPERTIES*))) ; (DECLARE ; (TYPE FIXNUM GLX::NUM-ORDERED GLX::NUM-VISUALS GLX::NUM-PROPERTIES)) ; (LOOP GLX::WITH GLX::INDEX FIXNUM = 28 ; GLX::REPEAT GLX::NUM-VISUALS ; GLX::COLLECTING (GLX::MAKE-VISUAL (NCONC # #))))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (LOOP GLX::REPEAT (/ (- GLX::NUM-PROPERTIES GLX::NUM-ORDERED) 2) ; GLX::COLLECTING (CONS (XLIB::CARD32-GET (INCF GLX::INDEX 4)) ; (XLIB::CARD32-GET (INCF GLX::INDEX 4)))) ; --> BLOCK LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> TRUNCATE LET VALUES ; ==> ; (- SB-C::X SB-C::RES) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (RATIONAL -4294967293/2 4294967295/2), not a FIXNUM. ; The result is a (VALUES (RATIONAL (-1) (1)) &OPTIONAL), not a (VALUES ; FIXNUM ; &REST T). ; unable to do inline (signed-byte 64) arithmetic (cost 5) because: ; The first argument is a (RATIONAL -4294967293/2 4294967295/2), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES (RATIONAL (-1) (1)) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE ; 64) ; &REST T). ; etc. ; --> BLOCK LET CEILING CEILING MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> FUNCTION IF AND IF AND THE IF PLUSP ; ==> ; (> NUMBER 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (RATIONAL -4294967293/2 4294967295/2), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (RATIONAL -4294967293/2 4294967295/2), not a FIXNUM. ; etc. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GLX::+GET-VISUAL-CONFIGS+) ; (XLIB:CARD32 (OR (POSITION XLIB:SCREEN # :TEST #'EQ) 0))) ; (LET* ((GLX::NUM-VISUALS (XLIB::CARD32-GET 8)) ; (GLX::NUM-PROPERTIES (XLIB::CARD32-GET 12)) ; (GLX::NUM-ORDERED (LENGTH GLX::*VISUAL-CONFIG-PROPERTIES*))) ; (DECLARE ; (TYPE FIXNUM GLX::NUM-ORDERED GLX::NUM-VISUALS GLX::NUM-PROPERTIES)) ; (LOOP GLX::WITH GLX::INDEX FIXNUM = 28 ; GLX::REPEAT GLX::NUM-VISUALS ; GLX::COLLECTING (GLX::MAKE-VISUAL (NCONC # #))))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN CHOOSE-VISUAL ...) ; compiling (DEFUN RENDER ...) ; compiling (DEFUN SWAP-BUFFERS ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN SWAP-BUFFERS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA GLX::+SWAP-BUFFERS+) ; (XLIB:CARD32 (GLX::CONTEXT-TAG GLX::CTX)) ; (XLIB:RESOURCE-ID (XLIB:DRAWABLE-ID (GLX::CONTEXT-DRAWABLE GLX::CTX)))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN WAIT-GL ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN WAIT-GL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA GLX::+WAIT-GL+) ; (XLIB:CARD32 (GLX::CONTEXT-TAG GLX::CTX))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN WAIT-X ...) ; file: /usr/share/common-lisp/source/clx/glx.lisp ; in: DEFUN WAIT-X ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA GLX::+WAIT-X+) ; (XLIB:CARD32 (GLX::CONTEXT-TAG GLX::CTX))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/glx-TMP.fasl written ; compilation finished in 0:00:00.390 ; compiling file "/usr/share/common-lisp/source/clx/gl.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (DEFPACKAGE :GL ...) ; compiling (IN-PACKAGE :GL) ; compiling (DEFCONSTANT +GET-STRING+ ...) ; compiling (DEFCONSTANT +NEW-LIST+ ...) ; compiling (DEFCONSTANT +END-LIST+ ...) ; compiling (DEFCONSTANT +GEN-LISTS+ ...) ; compiling (DEFCONSTANT +FINISH+ ...) ; compiling (DEFCONSTANT +DISABLE+ ...) ; compiling (DEFCONSTANT +ENABLE+ ...) ; compiling (DEFCONSTANT +FLUSH+ ...) ; compiling (DEFCONSTANT +FALSE+ ...) ; compiling (DEFCONSTANT +TRUE+ ...) ; compiling (DEFCONSTANT +BYTE+ ...) ; compiling (DEFCONSTANT +UNSIGNED-BYTE+ ...) ; compiling (DEFCONSTANT +SHORT+ ...) ; compiling (DEFCONSTANT +UNSIGNED-SHORT+ ...) ; compiling (DEFCONSTANT +INT+ ...) ; compiling (DEFCONSTANT +UNSIGNED-INT+ ...) ; compiling (DEFCONSTANT +FLOAT+ ...) ; compiling (DEFCONSTANT +DOUBLE+ ...) ; compiling (DEFCONSTANT +2-BYTES+ ...) ; compiling (DEFCONSTANT +3-BYTES+ ...) ; compiling (DEFCONSTANT +4-BYTES+ ...) ; compiling (DEFCONSTANT +POINTS+ ...) ; compiling (DEFCONSTANT +LINES+ ...) ; compiling (DEFCONSTANT +LINE-LOOP+ ...) ; compiling (DEFCONSTANT +LINE-STRIP+ ...) ; compiling (DEFCONSTANT +TRIANGLES+ ...) ; compiling (DEFCONSTANT +TRIANGLE-STRIP+ ...) ; compiling (DEFCONSTANT +TRIANGLE-FAN+ ...) ; compiling (DEFCONSTANT +QUADS+ ...) ; compiling (DEFCONSTANT +QUAD-STRIP+ ...) ; compiling (DEFCONSTANT +POLYGON+ ...) ; compiling (DEFCONSTANT +VERTEX-ARRAY+ ...) ; compiling (DEFCONSTANT +NORMAL-ARRAY+ ...) ; compiling (DEFCONSTANT +COLOR-ARRAY+ ...) ; compiling (DEFCONSTANT +INDEX-ARRAY+ ...) ; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY+ ...) ; compiling (DEFCONSTANT +EDGE-FLAG-ARRAY+ ...) ; compiling (DEFCONSTANT +VERTEX-ARRAY-SIZE+ ...) ; compiling (DEFCONSTANT +VERTEX-ARRAY-TYPE+ ...) ; compiling (DEFCONSTANT +VERTEX-ARRAY-STRIDE+ ...) ; compiling (DEFCONSTANT +NORMAL-ARRAY-TYPE+ ...) ; compiling (DEFCONSTANT +NORMAL-ARRAY-STRIDE+ ...) ; compiling (DEFCONSTANT +COLOR-ARRAY-SIZE+ ...) ; compiling (DEFCONSTANT +COLOR-ARRAY-TYPE+ ...) ; compiling (DEFCONSTANT +COLOR-ARRAY-STRIDE+ ...) ; compiling (DEFCONSTANT +INDEX-ARRAY-TYPE+ ...) ; compiling (DEFCONSTANT +INDEX-ARRAY-STRIDE+ ...) ; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-SIZE+ ...) ; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-TYPE+ ...) ; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-STRIDE+ ...) ; compiling (DEFCONSTANT +EDGE-FLAG-ARRAY-STRIDE+ ...) ; compiling (DEFCONSTANT +VERTEX-ARRAY-POINTER+ ...) ; compiling (DEFCONSTANT +NORMAL-ARRAY-POINTER+ ...) ; compiling (DEFCONSTANT +COLOR-ARRAY-POINTER+ ...) ; compiling (DEFCONSTANT +INDEX-ARRAY-POINTER+ ...) ; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-POINTER+ ...) ; compiling (DEFCONSTANT +EDGE-FLAG-ARRAY-POINTER+ ...) ; compiling (DEFCONSTANT +V2F+ ...) ; compiling (DEFCONSTANT +V3F+ ...) ; compiling (DEFCONSTANT +C4UB-V2F+ ...) ; compiling (DEFCONSTANT +C4UB-V3F+ ...) ; compiling (DEFCONSTANT +C3F-V3F+ ...) ; compiling (DEFCONSTANT +N3F-V3F+ ...) ; compiling (DEFCONSTANT +C4F-N3F-V3F+ ...) ; compiling (DEFCONSTANT +T2F-V3F+ ...) ; compiling (DEFCONSTANT +T4F-V4F+ ...) ; compiling (DEFCONSTANT +T2F-C4UB-V3F+ ...) ; compiling (DEFCONSTANT +T2F-C3F-V3F+ ...) ; compiling (DEFCONSTANT +T2F-N3F-V3F+ ...) ; compiling (DEFCONSTANT +T2F-C4F-N3F-V3F+ ...) ; compiling (DEFCONSTANT +T4F-C4F-N3F-V4F+ ...) ; compiling (DEFCONSTANT +MATRIX-MODE+ ...) ; compiling (DEFCONSTANT +MODELVIEW+ ...) ; compiling (DEFCONSTANT +PROJECTION+ ...) ; compiling (DEFCONSTANT +TEXTURE+ ...) ; compiling (DEFCONSTANT +POINT-SMOOTH+ ...) ; compiling (DEFCONSTANT +POINT-SIZE+ ...) ; compiling (DEFCONSTANT +POINT-SIZE-GRANULARITY+ ...) ; compiling (DEFCONSTANT +POINT-SIZE-RANGE+ ...) ; compiling (DEFCONSTANT +LINE-SMOOTH+ ...) ; compiling (DEFCONSTANT +LINE-STIPPLE+ ...) ; compiling (DEFCONSTANT +LINE-STIPPLE-PATTERN+ ...) ; compiling (DEFCONSTANT +LINE-STIPPLE-REPEAT+ ...) ; compiling (DEFCONSTANT +LINE-WIDTH+ ...) ; compiling (DEFCONSTANT +LINE-WIDTH-GRANULARITY+ ...) ; compiling (DEFCONSTANT +LINE-WIDTH-RANGE+ ...) ; compiling (DEFCONSTANT +POINT+ ...) ; compiling (DEFCONSTANT +LINE+ ...) ; compiling (DEFCONSTANT +FILL+ ...) ; compiling (DEFCONSTANT +CW+ ...) ; compiling (DEFCONSTANT +CCW+ ...) ; compiling (DEFCONSTANT +FRONT+ ...) ; compiling (DEFCONSTANT +BACK+ ...) ; compiling (DEFCONSTANT +POLYGON-MODE+ ...) ; compiling (DEFCONSTANT +POLYGON-SMOOTH+ ...) ; compiling (DEFCONSTANT +POLYGON-STIPPLE+ ...) ; compiling (DEFCONSTANT +EDGE-FLAG+ ...) ; compiling (DEFCONSTANT +CULL-FACE+ ...) ; compiling (DEFCONSTANT +CULL-FACE-MODE+ ...) ; compiling (DEFCONSTANT +FRONT-FACE+ ...) ; compiling (DEFCONSTANT +POLYGON-OFFSET-FACTOR+ ...) ; compiling (DEFCONSTANT +POLYGON-OFFSET-UNITS+ ...) ; compiling (DEFCONSTANT +POLYGON-OFFSET-POINT+ ...) ; compiling (DEFCONSTANT +POLYGON-OFFSET-LINE+ ...) ; compiling (DEFCONSTANT +POLYGON-OFFSET-FILL+ ...) ; compiling (DEFCONSTANT +COMPILE+ ...) ; compiling (DEFCONSTANT +COMPILE-AND-EXECUTE+ ...) ; compiling (DEFCONSTANT +LIST-BASE+ ...) ; compiling (DEFCONSTANT +LIST-INDEX+ ...) ; compiling (DEFCONSTANT +LIST-MODE+ ...) ; compiling (DEFCONSTANT +NEVER+ ...) ; compiling (DEFCONSTANT +LESS+ ...) ; compiling (DEFCONSTANT +EQUAL+ ...) ; compiling (DEFCONSTANT +LEQUAL+ ...) ; compiling (DEFCONSTANT +GREATER+ ...) ; compiling (DEFCONSTANT +NOTEQUAL+ ...) ; compiling (DEFCONSTANT +GEQUAL+ ...) ; compiling (DEFCONSTANT +ALWAYS+ ...) ; compiling (DEFCONSTANT +DEPTH-TEST+ ...) ; compiling (DEFCONSTANT +DEPTH-BITS+ ...) ; compiling (DEFCONSTANT +DEPTH-CLEAR-VALUE+ ...) ; compiling (DEFCONSTANT +DEPTH-FUNC+ ...) ; compiling (DEFCONSTANT +DEPTH-RANGE+ ...) ; compiling (DEFCONSTANT +DEPTH-WRITEMASK+ ...) ; compiling (DEFCONSTANT +DEPTH-COMPONENT+ ...) ; compiling (DEFCONSTANT +LIGHTING+ ...) ; compiling (DEFCONSTANT +LIGHT0+ ...) ; compiling (DEFCONSTANT +LIGHT1+ ...) ; compiling (DEFCONSTANT +LIGHT2+ ...) ; compiling (DEFCONSTANT +LIGHT3+ ...) ; compiling (DEFCONSTANT +LIGHT4+ ...) ; compiling (DEFCONSTANT +LIGHT5+ ...) ; compiling (DEFCONSTANT +LIGHT6+ ...) ; compiling (DEFCONSTANT +LIGHT7+ ...) ; compiling (DEFCONSTANT +SPOT-EXPONENT+ ...) ; compiling (DEFCONSTANT +SPOT-CUTOFF+ ...) ; compiling (DEFCONSTANT +CONSTANT-ATTENUATION+ ...) ; compiling (DEFCONSTANT +LINEAR-ATTENUATION+ ...) ; compiling (DEFCONSTANT +QUADRATIC-ATTENUATION+ ...) ; compiling (DEFCONSTANT +AMBIENT+ ...) ; compiling (DEFCONSTANT +DIFFUSE+ ...) ; compiling (DEFCONSTANT +SPECULAR+ ...) ; compiling (DEFCONSTANT +SHININESS+ ...) ; compiling (DEFCONSTANT +EMISSION+ ...) ; compiling (DEFCONSTANT +POSITION+ ...) ; compiling (DEFCONSTANT +SPOT-DIRECTION+ ...) ; compiling (DEFCONSTANT +AMBIENT-AND-DIFFUSE+ ...) ; compiling (DEFCONSTANT +COLOR-INDEXES+ ...) ; compiling (DEFCONSTANT +LIGHT-MODEL-TWO-SIDE+ ...) ; compiling (DEFCONSTANT +LIGHT-MODEL-LOCAL-VIEWER+ ...) ; compiling (DEFCONSTANT +LIGHT-MODEL-AMBIENT+ ...) ; compiling (DEFCONSTANT +FRONT-AND-BACK+ ...) ; compiling (DEFCONSTANT +SHADE-MODEL+ ...) ; compiling (DEFCONSTANT +FLAT+ ...) ; compiling (DEFCONSTANT +SMOOTH+ ...) ; compiling (DEFCONSTANT +COLOR-MATERIAL+ ...) ; compiling (DEFCONSTANT +COLOR-MATERIAL-FACE+ ...) ; compiling (DEFCONSTANT +COLOR-MATERIAL-PARAMETER+ ...) ; compiling (DEFCONSTANT +NORMALIZE+ ...) ; compiling (DEFCONSTANT +CLIP-PLANE0+ ...) ; compiling (DEFCONSTANT +CLIP-PLANE1+ ...) ; compiling (DEFCONSTANT +CLIP-PLANE2+ ...) ; compiling (DEFCONSTANT +CLIP-PLANE3+ ...) ; compiling (DEFCONSTANT +CLIP-PLANE4+ ...) ; compiling (DEFCONSTANT +CLIP-PLANE5+ ...) ; compiling (DEFCONSTANT +ACCUM-RED-BITS+ ...) ; compiling (DEFCONSTANT +ACCUM-GREEN-BITS+ ...) ; compiling (DEFCONSTANT +ACCUM-BLUE-BITS+ ...) ; compiling (DEFCONSTANT +ACCUM-ALPHA-BITS+ ...) ; compiling (DEFCONSTANT +ACCUM-CLEAR-VALUE+ ...) ; compiling (DEFCONSTANT +ACCUM+ ...) ; compiling (DEFCONSTANT +ADD+ ...) ; compiling (DEFCONSTANT +LOAD+ ...) ; compiling (DEFCONSTANT +MULT+ ...) ; compiling (DEFCONSTANT +RETURN+ ...) ; compiling (DEFCONSTANT +ALPHA-TEST+ ...) ; compiling (DEFCONSTANT +ALPHA-TEST-REF+ ...) ; compiling (DEFCONSTANT +ALPHA-TEST-FUNC+ ...) ; compiling (DEFCONSTANT +BLEND+ ...) ; compiling (DEFCONSTANT +BLEND-SRC+ ...) ; compiling (DEFCONSTANT +BLEND-DST+ ...) ; compiling (DEFCONSTANT +ZERO+ ...) ; compiling (DEFCONSTANT +ONE+ ...) ; compiling (DEFCONSTANT +SRC-COLOR+ ...) ; compiling (DEFCONSTANT +ONE-MINUS-SRC-COLOR+ ...) ; compiling (DEFCONSTANT +DST-COLOR+ ...) ; compiling (DEFCONSTANT +ONE-MINUS-DST-COLOR+ ...) ; compiling (DEFCONSTANT +SRC-ALPHA+ ...) ; compiling (DEFCONSTANT +ONE-MINUS-SRC-ALPHA+ ...) ; compiling (DEFCONSTANT +DST-ALPHA+ ...) ; compiling (DEFCONSTANT +ONE-MINUS-DST-ALPHA+ ...) ; compiling (DEFCONSTANT +SRC-ALPHA-SATURATE+ ...) ; compiling (DEFCONSTANT +CONSTANT-COLOR+ ...) ; compiling (DEFCONSTANT +ONE-MINUS-CONSTANT-COLOR+ ...) ; compiling (DEFCONSTANT +CONSTANT-ALPHA+ ...) ; compiling (DEFCONSTANT +ONE-MINUS-CONSTANT-ALPHA+ ...) ; compiling (DEFCONSTANT +FEEDBACK+ ...) ; compiling (DEFCONSTANT +RENDER+ ...) ; compiling (DEFCONSTANT +SELECT+ ...) ; compiling (DEFCONSTANT +2D+ ...) ; compiling (DEFCONSTANT +3D+ ...) ; compiling (DEFCONSTANT +3D-COLOR+ ...) ; compiling (DEFCONSTANT +3D-COLOR-TEXTURE+ ...) ; compiling (DEFCONSTANT +4D-COLOR-TEXTURE+ ...) ; compiling (DEFCONSTANT +POINT-TOKEN+ ...) ; compiling (DEFCONSTANT +LINE-TOKEN+ ...) ; compiling (DEFCONSTANT +LINE-RESET-TOKEN+ ...) ; compiling (DEFCONSTANT +POLYGON-TOKEN+ ...) ; compiling (DEFCONSTANT +BITMAP-TOKEN+ ...) ; compiling (DEFCONSTANT +DRAW-PIXEL-TOKEN+ ...) ; compiling (DEFCONSTANT +COPY-PIXEL-TOKEN+ ...) ; compiling (DEFCONSTANT +PASS-THROUGH-TOKEN+ ...) ; compiling (DEFCONSTANT +FEEDBACK-BUFFER-POINTER+ ...) ; compiling (DEFCONSTANT +FEEDBACK-BUFFER-SIZE+ ...) ; compiling (DEFCONSTANT +FEEDBACK-BUFFER-TYPE+ ...) ; compiling (DEFCONSTANT +SELECTION-BUFFER-POINTER+ ...) ; compiling (DEFCONSTANT +SELECTION-BUFFER-SIZE+ ...) ; compiling (DEFCONSTANT +FOG+ ...) ; compiling (DEFCONSTANT +FOG-MODE+ ...) ; compiling (DEFCONSTANT +FOG-DENSITY+ ...) ; compiling (DEFCONSTANT +FOG-COLOR+ ...) ; compiling (DEFCONSTANT +FOG-INDEX+ ...) ; compiling (DEFCONSTANT +FOG-START+ ...) ; compiling (DEFCONSTANT +FOG-END+ ...) ; compiling (DEFCONSTANT +LINEAR+ ...) ; compiling (DEFCONSTANT +EXP+ ...) ; compiling (DEFCONSTANT +EXP2+ ...) ; compiling (DEFCONSTANT +LOGIC-OP+ ...) ; compiling (DEFCONSTANT +INDEX-LOGIC-OP+ ...) ; compiling (DEFCONSTANT +COLOR-LOGIC-OP+ ...) ; compiling (DEFCONSTANT +LOGIC-OP-MODE+ ...) ; compiling (DEFCONSTANT +CLEAR+ ...) ; compiling (DEFCONSTANT +SET+ ...) ; compiling (DEFCONSTANT +COPY+ ...) ; compiling (DEFCONSTANT +COPY-INVERTED+ ...) ; compiling (DEFCONSTANT +NOOP+ ...) ; compiling (DEFCONSTANT +INVERT+ ...) ; compiling (DEFCONSTANT +AND+ ...) ; compiling (DEFCONSTANT +NAND+ ...) ; compiling (DEFCONSTANT +OR+ ...) ; compiling (DEFCONSTANT +NOR+ ...) ; compiling (DEFCONSTANT +XOR+ ...) ; compiling (DEFCONSTANT +EQUIV+ ...) ; compiling (DEFCONSTANT +AND-REVERSE+ ...) ; compiling (DEFCONSTANT +AND-INVERTED+ ...) ; compiling (DEFCONSTANT +OR-REVERSE+ ...) ; compiling (DEFCONSTANT +OR-INVERTED+ ...) ; compiling (DEFCONSTANT +STENCIL-TEST+ ...) ; compiling (DEFCONSTANT +STENCIL-WRITEMASK+ ...) ; compiling (DEFCONSTANT +STENCIL-BITS+ ...) ; compiling (DEFCONSTANT +STENCIL-FUNC+ ...) ; compiling (DEFCONSTANT +STENCIL-VALUE-MASK+ ...) ; compiling (DEFCONSTANT +STENCIL-REF+ ...) ; compiling (DEFCONSTANT +STENCIL-FAIL+ ...) ; compiling (DEFCONSTANT +STENCIL-PASS-DEPTH-PASS+ ...) ; compiling (DEFCONSTANT +STENCIL-PASS-DEPTH-FAIL+ ...) ; compiling (DEFCONSTANT +STENCIL-CLEAR-VALUE+ ...) ; compiling (DEFCONSTANT +STENCIL-INDEX+ ...) ; compiling (DEFCONSTANT +KEEP+ ...) ; compiling (DEFCONSTANT +REPLACE+ ...) ; compiling (DEFCONSTANT +INCR+ ...) ; compiling (DEFCONSTANT +DECR+ ...) ; compiling (DEFCONSTANT +NONE+ ...) ; compiling (DEFCONSTANT +LEFT+ ...) ; compiling (DEFCONSTANT +RIGHT+ ...) ; compiling (DEFCONSTANT +FRONT-LEFT+ ...) ; compiling (DEFCONSTANT +FRONT-RIGHT+ ...) ; compiling (DEFCONSTANT +BACK-LEFT+ ...) ; compiling (DEFCONSTANT +BACK-RIGHT+ ...) ; compiling (DEFCONSTANT +AUX0+ ...) ; compiling (DEFCONSTANT +AUX1+ ...) ; compiling (DEFCONSTANT +AUX2+ ...) ; compiling (DEFCONSTANT +AUX3+ ...) ; compiling (DEFCONSTANT +COLOR-INDEX+ ...) ; compiling (DEFCONSTANT +RED+ ...) ; compiling (DEFCONSTANT +GREEN+ ...) ; compiling (DEFCONSTANT +BLUE+ ...) ; compiling (DEFCONSTANT +ALPHA+ ...) ; compiling (DEFCONSTANT +LUMINANCE+ ...) ; compiling (DEFCONSTANT +LUMINANCE-ALPHA+ ...) ; compiling (DEFCONSTANT +ALPHA-BITS+ ...) ; compiling (DEFCONSTANT +RED-BITS+ ...) ; compiling (DEFCONSTANT +GREEN-BITS+ ...) ; compiling (DEFCONSTANT +BLUE-BITS+ ...) ; compiling (DEFCONSTANT +INDEX-BITS+ ...) ; compiling (DEFCONSTANT +SUBPIXEL-BITS+ ...) ; compiling (DEFCONSTANT +AUX-BUFFERS+ ...) ; compiling (DEFCONSTANT +READ-BUFFER+ ...) ; compiling (DEFCONSTANT +DRAW-BUFFER+ ...) ; compiling (DEFCONSTANT +DOUBLEBUFFER+ ...) ; compiling (DEFCONSTANT +STEREO+ ...) ; compiling (DEFCONSTANT +BITMAP+ ...) ; compiling (DEFCONSTANT +COLOR+ ...) ; compiling (DEFCONSTANT +DEPTH+ ...) ; compiling (DEFCONSTANT +STENCIL+ ...) ; compiling (DEFCONSTANT +DITHER+ ...) ; compiling (DEFCONSTANT +RGB+ ...) ; compiling (DEFCONSTANT +RGBA+ ...) ; compiling (DEFCONSTANT +MAX-LIST-NESTING+ ...) ; compiling (DEFCONSTANT +MAX-ATTRIB-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +MAX-MODELVIEW-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +MAX-NAME-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +MAX-PROJECTION-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +MAX-TEXTURE-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +MAX-EVAL-ORDER+ ...) ; compiling (DEFCONSTANT +MAX-LIGHTS+ ...) ; compiling (DEFCONSTANT +MAX-CLIP-PLANES+ ...) ; compiling (DEFCONSTANT +MAX-TEXTURE-SIZE+ ...) ; compiling (DEFCONSTANT +MAX-PIXEL-MAP-TABLE+ ...) ; compiling (DEFCONSTANT +MAX-VIEWPORT-DIMS+ ...) ; compiling (DEFCONSTANT +MAX-CLIENT-ATTRIB-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +ATTRIB-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +CLIENT-ATTRIB-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +COLOR-CLEAR-VALUE+ ...) ; compiling (DEFCONSTANT +COLOR-WRITEMASK+ ...) ; compiling (DEFCONSTANT +CURRENT-INDEX+ ...) ; compiling (DEFCONSTANT +CURRENT-COLOR+ ...) ; compiling (DEFCONSTANT +CURRENT-NORMAL+ ...) ; compiling (DEFCONSTANT +CURRENT-RASTER-COLOR+ ...) ; compiling (DEFCONSTANT +CURRENT-RASTER-DISTANCE+ ...) ; compiling (DEFCONSTANT +CURRENT-RASTER-INDEX+ ...) ; compiling (DEFCONSTANT +CURRENT-RASTER-POSITION+ ...) ; compiling (DEFCONSTANT +CURRENT-RASTER-TEXTURE-COORDS+ ...) ; compiling (DEFCONSTANT +CURRENT-RASTER-POSITION-VALID+ ...) ; compiling (DEFCONSTANT +CURRENT-TEXTURE-COORDS+ ...) ; compiling (DEFCONSTANT +INDEX-CLEAR-VALUE+ ...) ; compiling (DEFCONSTANT +INDEX-MODE+ ...) ; compiling (DEFCONSTANT +INDEX-WRITEMASK+ ...) ; compiling (DEFCONSTANT +MODELVIEW-MATRIX+ ...) ; compiling (DEFCONSTANT +MODELVIEW-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +NAME-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +PROJECTION-MATRIX+ ...) ; compiling (DEFCONSTANT +PROJECTION-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +RENDER-MODE+ ...) ; compiling (DEFCONSTANT +RGBA-MODE+ ...) ; compiling (DEFCONSTANT +TEXTURE-MATRIX+ ...) ; compiling (DEFCONSTANT +TEXTURE-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +VIEWPORT+ ...) ; compiling (DEFCONSTANT +AUTO-NORMAL+ ...) ; compiling (DEFCONSTANT +MAP1-COLOR-4+ ...) ; compiling (DEFCONSTANT +MAP1-GRID-DOMAIN+ ...) ; compiling (DEFCONSTANT +MAP1-GRID-SEGMENTS+ ...) ; compiling (DEFCONSTANT +MAP1-INDEX+ ...) ; compiling (DEFCONSTANT +MAP1-NORMAL+ ...) ; compiling (DEFCONSTANT +MAP1-TEXTURE-COORD-1+ ...) ; compiling (DEFCONSTANT +MAP1-TEXTURE-COORD-2+ ...) ; compiling (DEFCONSTANT +MAP1-TEXTURE-COORD-3+ ...) ; compiling (DEFCONSTANT +MAP1-TEXTURE-COORD-4+ ...) ; compiling (DEFCONSTANT +MAP1-VERTEX-3+ ...) ; compiling (DEFCONSTANT +MAP1-VERTEX-4+ ...) ; compiling (DEFCONSTANT +MAP2-COLOR-4+ ...) ; compiling (DEFCONSTANT +MAP2-GRID-DOMAIN+ ...) ; compiling (DEFCONSTANT +MAP2-GRID-SEGMENTS+ ...) ; compiling (DEFCONSTANT +MAP2-INDEX+ ...) ; compiling (DEFCONSTANT +MAP2-NORMAL+ ...) ; compiling (DEFCONSTANT +MAP2-TEXTURE-COORD-1+ ...) ; compiling (DEFCONSTANT +MAP2-TEXTURE-COORD-2+ ...) ; compiling (DEFCONSTANT +MAP2-TEXTURE-COORD-3+ ...) ; compiling (DEFCONSTANT +MAP2-TEXTURE-COORD-4+ ...) ; compiling (DEFCONSTANT +MAP2-VERTEX-3+ ...) ; compiling (DEFCONSTANT +MAP2-VERTEX-4+ ...) ; compiling (DEFCONSTANT +COEFF+ ...) ; compiling (DEFCONSTANT +DOMAIN+ ...) ; compiling (DEFCONSTANT +ORDER+ ...) ; compiling (DEFCONSTANT +FOG-HINT+ ...) ; compiling (DEFCONSTANT +LINE-SMOOTH-HINT+ ...) ; compiling (DEFCONSTANT +PERSPECTIVE-CORRECTION-HINT+ ...) ; compiling (DEFCONSTANT +POINT-SMOOTH-HINT+ ...) ; compiling (DEFCONSTANT +POLYGON-SMOOTH-HINT+ ...) ; compiling (DEFCONSTANT +DONT-CARE+ ...) ; compiling (DEFCONSTANT +FASTEST+ ...) ; compiling (DEFCONSTANT +NICEST+ ...) ; compiling (DEFCONSTANT +SCISSOR-TEST+ ...) ; compiling (DEFCONSTANT +SCISSOR-BOX+ ...) ; compiling (DEFCONSTANT +MAP-COLOR+ ...) ; compiling (DEFCONSTANT +MAP-STENCIL+ ...) ; compiling (DEFCONSTANT +INDEX-SHIFT+ ...) ; compiling (DEFCONSTANT +INDEX-OFFSET+ ...) ; compiling (DEFCONSTANT +RED-SCALE+ ...) ; compiling (DEFCONSTANT +RED-BIAS+ ...) ; compiling (DEFCONSTANT +GREEN-SCALE+ ...) ; compiling (DEFCONSTANT +GREEN-BIAS+ ...) ; compiling (DEFCONSTANT +BLUE-SCALE+ ...) ; compiling (DEFCONSTANT +BLUE-BIAS+ ...) ; compiling (DEFCONSTANT +ALPHA-SCALE+ ...) ; compiling (DEFCONSTANT +ALPHA-BIAS+ ...) ; compiling (DEFCONSTANT +DEPTH-SCALE+ ...) ; compiling (DEFCONSTANT +DEPTH-BIAS+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-S-TO-S-SIZE+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-I-SIZE+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-R-SIZE+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-G-SIZE+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-B-SIZE+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-A-SIZE+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-R-TO-R-SIZE+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-G-TO-G-SIZE+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-B-TO-B-SIZE+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-A-TO-A-SIZE+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-S-TO-S+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-I+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-R+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-G+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-B+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-I-TO-A+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-R-TO-R+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-G-TO-G+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-B-TO-B+ ...) ; compiling (DEFCONSTANT +PIXEL-MAP-A-TO-A+ ...) ; compiling (DEFCONSTANT +PACK-ALIGNMENT+ ...) ; compiling (DEFCONSTANT +PACK-LSB-FIRST+ ...) ; compiling (DEFCONSTANT +PACK-ROW-LENGTH+ ...) ; compiling (DEFCONSTANT +PACK-SKIP-PIXELS+ ...) ; compiling (DEFCONSTANT +PACK-SKIP-ROWS+ ...) ; compiling (DEFCONSTANT +PACK-SWAP-BYTES+ ...) ; compiling (DEFCONSTANT +UNPACK-ALIGNMENT+ ...) ; compiling (DEFCONSTANT +UNPACK-LSB-FIRST+ ...) ; compiling (DEFCONSTANT +UNPACK-ROW-LENGTH+ ...) ; compiling (DEFCONSTANT +UNPACK-SKIP-PIXELS+ ...) ; compiling (DEFCONSTANT +UNPACK-SKIP-ROWS+ ...) ; compiling (DEFCONSTANT +UNPACK-SWAP-BYTES+ ...) ; compiling (DEFCONSTANT +ZOOM-X+ ...) ; compiling (DEFCONSTANT +ZOOM-Y+ ...) ; compiling (DEFCONSTANT +TEXTURE-ENV+ ...) ; compiling (DEFCONSTANT +TEXTURE-ENV-MODE+ ...) ; compiling (DEFCONSTANT +TEXTURE-1D+ ...) ; compiling (DEFCONSTANT +TEXTURE-2D+ ...) ; compiling (DEFCONSTANT +TEXTURE-WRAP-S+ ...) ; compiling (DEFCONSTANT +TEXTURE-WRAP-T+ ...) ; compiling (DEFCONSTANT +TEXTURE-MAG-FILTER+ ...) ; compiling (DEFCONSTANT +TEXTURE-MIN-FILTER+ ...) ; compiling (DEFCONSTANT +TEXTURE-ENV-COLOR+ ...) ; compiling (DEFCONSTANT +TEXTURE-GEN-S+ ...) ; compiling (DEFCONSTANT +TEXTURE-GEN-T+ ...) ; compiling (DEFCONSTANT +TEXTURE-GEN-MODE+ ...) ; compiling (DEFCONSTANT +TEXTURE-BORDER-COLOR+ ...) ; compiling (DEFCONSTANT +TEXTURE-WIDTH+ ...) ; compiling (DEFCONSTANT +TEXTURE-HEIGHT+ ...) ; compiling (DEFCONSTANT +TEXTURE-BORDER+ ...) ; compiling (DEFCONSTANT +TEXTURE-COMPONENTS+ ...) ; compiling (DEFCONSTANT +TEXTURE-RED-SIZE+ ...) ; compiling (DEFCONSTANT +TEXTURE-GREEN-SIZE+ ...) ; compiling (DEFCONSTANT +TEXTURE-BLUE-SIZE+ ...) ; compiling (DEFCONSTANT +TEXTURE-ALPHA-SIZE+ ...) ; compiling (DEFCONSTANT +TEXTURE-LUMINANCE-SIZE+ ...) ; compiling (DEFCONSTANT +TEXTURE-INTENSITY-SIZE+ ...) ; compiling (DEFCONSTANT +NEAREST-MIPMAP-NEAREST+ ...) ; compiling (DEFCONSTANT +NEAREST-MIPMAP-LINEAR+ ...) ; compiling (DEFCONSTANT +LINEAR-MIPMAP-NEAREST+ ...) ; compiling (DEFCONSTANT +LINEAR-MIPMAP-LINEAR+ ...) ; compiling (DEFCONSTANT +OBJECT-LINEAR+ ...) ; compiling (DEFCONSTANT +OBJECT-PLANE+ ...) ; compiling (DEFCONSTANT +EYE-LINEAR+ ...) ; compiling (DEFCONSTANT +EYE-PLANE+ ...) ; compiling (DEFCONSTANT +SPHERE-MAP+ ...) ; compiling (DEFCONSTANT +DECAL+ ...) ; compiling (DEFCONSTANT +MODULATE+ ...) ; compiling (DEFCONSTANT +NEAREST+ ...) ; compiling (DEFCONSTANT +REPEAT+ ...) ; compiling (DEFCONSTANT +CLAMP+ ...) ; compiling (DEFCONSTANT +S+ ...) ; compiling (DEFCONSTANT +T+ ...) ; compiling (DEFCONSTANT +R+ ...) ; compiling (DEFCONSTANT +Q+ ...) ; compiling (DEFCONSTANT +TEXTURE-GEN-R+ ...) ; compiling (DEFCONSTANT +TEXTURE-GEN-Q+ ...) ; compiling (DEFCONSTANT +PROXY-TEXTURE-1D+ ...) ; compiling (DEFCONSTANT +PROXY-TEXTURE-2D+ ...) ; compiling (DEFCONSTANT +TEXTURE-PRIORITY+ ...) ; compiling (DEFCONSTANT +TEXTURE-RESIDENT+ ...) ; compiling (DEFCONSTANT +TEXTURE-BINDING-1D+ ...) ; compiling (DEFCONSTANT +TEXTURE-BINDING-2D+ ...) ; compiling (DEFCONSTANT +TEXTURE-INTERNAL-FORMAT+ ...) ; compiling (DEFCONSTANT +PACK-SKIP-IMAGES+ ...) ; compiling (DEFCONSTANT +PACK-IMAGE-HEIGHT+ ...) ; compiling (DEFCONSTANT +UNPACK-SKIP-IMAGES+ ...) ; compiling (DEFCONSTANT +UNPACK-IMAGE-HEIGHT+ ...) ; compiling (DEFCONSTANT +TEXTURE-3D+ ...) ; compiling (DEFCONSTANT +PROXY-TEXTURE-3D+ ...) ; compiling (DEFCONSTANT +TEXTURE-DEPTH+ ...) ; compiling (DEFCONSTANT +TEXTURE-WRAP-R+ ...) ; compiling (DEFCONSTANT +MAX-3D-TEXTURE-SIZE+ ...) ; compiling (DEFCONSTANT +TEXTURE-BINDING-3D+ ...) ; compiling (DEFCONSTANT +ALPHA4+ ...) ; compiling (DEFCONSTANT +ALPHA8+ ...) ; compiling (DEFCONSTANT +ALPHA12+ ...) ; compiling (DEFCONSTANT +ALPHA16+ ...) ; compiling (DEFCONSTANT +LUMINANCE4+ ...) ; compiling (DEFCONSTANT +LUMINANCE8+ ...) ; compiling (DEFCONSTANT +LUMINANCE12+ ...) ; compiling (DEFCONSTANT +LUMINANCE16+ ...) ; compiling (DEFCONSTANT +LUMINANCE4-ALPHA4+ ...) ; compiling (DEFCONSTANT +LUMINANCE6-ALPHA2+ ...) ; compiling (DEFCONSTANT +LUMINANCE8-ALPHA8+ ...) ; compiling (DEFCONSTANT +LUMINANCE12-ALPHA4+ ...) ; compiling (DEFCONSTANT +LUMINANCE12-ALPHA12+ ...) ; compiling (DEFCONSTANT +LUMINANCE16-ALPHA16+ ...) ; compiling (DEFCONSTANT +INTENSITY+ ...) ; compiling (DEFCONSTANT +INTENSITY4+ ...) ; compiling (DEFCONSTANT +INTENSITY8+ ...) ; compiling (DEFCONSTANT +INTENSITY12+ ...) ; compiling (DEFCONSTANT +INTENSITY16+ ...) ; compiling (DEFCONSTANT +R3-G3-B2+ ...) ; compiling (DEFCONSTANT +RGB4+ ...) ; compiling (DEFCONSTANT +RGB5+ ...) ; compiling (DEFCONSTANT +RGB8+ ...) ; compiling (DEFCONSTANT +RGB10+ ...) ; compiling (DEFCONSTANT +RGB12+ ...) ; compiling (DEFCONSTANT +RGB16+ ...) ; compiling (DEFCONSTANT +RGBA2+ ...) ; compiling (DEFCONSTANT +RGBA4+ ...) ; compiling (DEFCONSTANT +RGB5-A1+ ...) ; compiling (DEFCONSTANT +RGBA8+ ...) ; compiling (DEFCONSTANT +RGB10-A2+ ...) ; compiling (DEFCONSTANT +RGBA12+ ...) ; compiling (DEFCONSTANT +RGBA16+ ...) ; compiling (DEFCONSTANT +VENDOR+ ...) ; compiling (DEFCONSTANT +RENDERER+ ...) ; compiling (DEFCONSTANT +VERSION+ ...) ; compiling (DEFCONSTANT +EXTENSIONS+ ...) ; compiling (DEFCONSTANT +NO-ERROR+ ...) ; compiling (DEFCONSTANT +INVALID-VALUE+ ...) ; compiling (DEFCONSTANT +INVALID-ENUM+ ...) ; compiling (DEFCONSTANT +INVALID-OPERATION+ ...) ; compiling (DEFCONSTANT +STACK-OVERFLOW+ ...) ; compiling (DEFCONSTANT +STACK-UNDERFLOW+ ...) ; compiling (DEFCONSTANT +OUT-OF-MEMORY+ ...) ; compiling (DEFCONSTANT +RESCALE-NORMAL+ ...) ; compiling (DEFCONSTANT +CLAMP-TO-EDGE+ ...) ; compiling (DEFCONSTANT +MAX-ELEMENTS-VERTICES+ ...) ; compiling (DEFCONSTANT +MAX-ELEMENTS-INDICES+ ...) ; compiling (DEFCONSTANT +BGR+ ...) ; compiling (DEFCONSTANT +BGRA+ ...) ; compiling (DEFCONSTANT +UNSIGNED-BYTE-3-3-2+ ...) ; compiling (DEFCONSTANT +UNSIGNED-BYTE-2-3-3-REV+ ...) ; compiling (DEFCONSTANT +UNSIGNED-SHORT-5-6-5+ ...) ; compiling (DEFCONSTANT +UNSIGNED-SHORT-5-6-5-REV+ ...) ; compiling (DEFCONSTANT +UNSIGNED-SHORT-4-4-4-4+ ...) ; compiling (DEFCONSTANT +UNSIGNED-SHORT-4-4-4-4-REV+ ...) ; compiling (DEFCONSTANT +UNSIGNED-SHORT-5-5-5-1+ ...) ; compiling (DEFCONSTANT +UNSIGNED-SHORT-1-5-5-5-REV+ ...) ; compiling (DEFCONSTANT +UNSIGNED-INT-8-8-8-8+ ...) ; compiling (DEFCONSTANT +UNSIGNED-INT-8-8-8-8-REV+ ...) ; compiling (DEFCONSTANT +UNSIGNED-INT-10-10-10-2+ ...) ; compiling (DEFCONSTANT +UNSIGNED-INT-2-10-10-10-REV+ ...) ; compiling (DEFCONSTANT +LIGHT-MODEL-COLOR-CONTROL+ ...) ; compiling (DEFCONSTANT +SINGLE-COLOR+ ...) ; compiling (DEFCONSTANT +SEPARATE-SPECULAR-COLOR+ ...) ; compiling (DEFCONSTANT +TEXTURE-MIN-LOD+ ...) ; compiling (DEFCONSTANT +TEXTURE-MAX-LOD+ ...) ; compiling (DEFCONSTANT +TEXTURE-BASE-LEVEL+ ...) ; compiling (DEFCONSTANT +TEXTURE-MAX-LEVEL+ ...) ; compiling (DEFCONSTANT +SMOOTH-POINT-SIZE-RANGE+ ...) ; compiling (DEFCONSTANT +SMOOTH-POINT-SIZE-GRANULARITY+ ...) ; compiling (DEFCONSTANT +SMOOTH-LINE-WIDTH-RANGE+ ...) ; compiling (DEFCONSTANT +SMOOTH-LINE-WIDTH-GRANULARITY+ ...) ; compiling (DEFCONSTANT +ALIASED-POINT-SIZE-RANGE+ ...) ; compiling (DEFCONSTANT +ALIASED-LINE-WIDTH-RANGE+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE+ ...) ; compiling (DEFCONSTANT +POST-CONVOLUTION-COLOR-TABLE+ ...) ; compiling (DEFCONSTANT +POST-COLOR-MATRIX-COLOR-TABLE+ ...) ; compiling (DEFCONSTANT +PROXY-COLOR-TABLE+ ...) ; compiling (DEFCONSTANT +PROXY-POST-CONVOLUTION-COLOR-TABLE+ ...) ; compiling (DEFCONSTANT +PROXY-POST-COLOR-MATRIX-COLOR-TABLE+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-SCALE+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-BIAS+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-FORMAT+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-WIDTH+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-RED-SIZE+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-GREEN-SIZE+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-BLUE-SIZE+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-ALPHA-SIZE+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-LUMINANCE-SIZE+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-INTENSITY-SIZE+ ...) ; compiling (DEFCONSTANT +CONVOLUTION-1D+ ...) ; compiling (DEFCONSTANT +CONVOLUTION-2D+ ...) ; compiling (DEFCONSTANT +SEPARABLE-2D+ ...) ; compiling (DEFCONSTANT +CONVOLUTION-BORDER-MODE+ ...) ; compiling (DEFCONSTANT +CONVOLUTION-FILTER-SCALE+ ...) ; compiling (DEFCONSTANT +CONVOLUTION-FILTER-BIAS+ ...) ; compiling (DEFCONSTANT +REDUCE+ ...) ; compiling (DEFCONSTANT +CONVOLUTION-FORMAT+ ...) ; compiling (DEFCONSTANT +CONVOLUTION-WIDTH+ ...) ; compiling (DEFCONSTANT +CONVOLUTION-HEIGHT+ ...) ; compiling (DEFCONSTANT +MAX-CONVOLUTION-WIDTH+ ...) ; compiling (DEFCONSTANT +MAX-CONVOLUTION-HEIGHT+ ...) ; compiling (DEFCONSTANT +POST-CONVOLUTION-RED-SCALE+ ...) ; compiling (DEFCONSTANT +POST-CONVOLUTION-GREEN-SCALE+ ...) ; compiling (DEFCONSTANT +POST-CONVOLUTION-BLUE-SCALE+ ...) ; compiling (DEFCONSTANT +POST-CONVOLUTION-ALPHA-SCALE+ ...) ; compiling (DEFCONSTANT +POST-CONVOLUTION-RED-BIAS+ ...) ; compiling (DEFCONSTANT +POST-CONVOLUTION-GREEN-BIAS+ ...) ; compiling (DEFCONSTANT +POST-CONVOLUTION-BLUE-BIAS+ ...) ; compiling (DEFCONSTANT +POST-CONVOLUTION-ALPHA-BIAS+ ...) ; compiling (DEFCONSTANT +CONSTANT-BORDER+ ...) ; compiling (DEFCONSTANT +REPLICATE-BORDER+ ...) ; compiling (DEFCONSTANT +CONVOLUTION-BORDER-COLOR+ ...) ; compiling (DEFCONSTANT +COLOR-MATRIX+ ...) ; compiling (DEFCONSTANT +COLOR-MATRIX-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +MAX-COLOR-MATRIX-STACK-DEPTH+ ...) ; compiling (DEFCONSTANT +POST-COLOR-MATRIX-RED-SCALE+ ...) ; compiling (DEFCONSTANT +POST-COLOR-MATRIX-GREEN-SCALE+ ...) ; compiling (DEFCONSTANT +POST-COLOR-MATRIX-BLUE-SCALE+ ...) ; compiling (DEFCONSTANT +POST-COLOR-MATRIX-ALPHA-SCALE+ ...) ; compiling (DEFCONSTANT +POST-COLOR-MATRIX-RED-BIAS+ ...) ; compiling (DEFCONSTANT +POST-COLOR-MATRIX-GREEN-BIAS+ ...) ; compiling (DEFCONSTANT +POST-COLOR-MATRIX-BLUE-BIAS+ ...) ; compiling (DEFCONSTANT +POST-COLOR-MATRIX-ALPHA-BIAS+ ...) ; compiling (DEFCONSTANT +HISTOGRAM+ ...) ; compiling (DEFCONSTANT +PROXY-HISTOGRAM+ ...) ; compiling (DEFCONSTANT +HISTOGRAM-WIDTH+ ...) ; compiling (DEFCONSTANT +HISTOGRAM-FORMAT+ ...) ; compiling (DEFCONSTANT +HISTOGRAM-RED-SIZE+ ...) ; compiling (DEFCONSTANT +HISTOGRAM-GREEN-SIZE+ ...) ; compiling (DEFCONSTANT +HISTOGRAM-BLUE-SIZE+ ...) ; compiling (DEFCONSTANT +HISTOGRAM-ALPHA-SIZE+ ...) ; compiling (DEFCONSTANT +HISTOGRAM-LUMINANCE-SIZE+ ...) ; compiling (DEFCONSTANT +HISTOGRAM-SINK+ ...) ; compiling (DEFCONSTANT +MINMAX+ ...) ; compiling (DEFCONSTANT +MINMAX-FORMAT+ ...) ; compiling (DEFCONSTANT +MINMAX-SINK+ ...) ; compiling (DEFCONSTANT +TABLE-TOO-LARGE+ ...) ; compiling (DEFCONSTANT +BLEND-EQUATION+ ...) ; compiling (DEFCONSTANT +MIN+ ...) ; compiling (DEFCONSTANT +MAX+ ...) ; compiling (DEFCONSTANT +FUNC-ADD+ ...) ; compiling (DEFCONSTANT +FUNC-SUBTRACT+ ...) ; compiling (DEFCONSTANT +FUNC-REVERSE-SUBTRACT+ ...) ; compiling (DEFCONSTANT +CURRENT-BIT+ ...) ; compiling (DEFCONSTANT +POINT-BIT+ ...) ; compiling (DEFCONSTANT +LINE-BIT+ ...) ; compiling (DEFCONSTANT +POLYGON-BIT+ ...) ; compiling (DEFCONSTANT +POLYGON-STIPPLE-BIT+ ...) ; compiling (DEFCONSTANT +PIXEL-MODE-BIT+ ...) ; compiling (DEFCONSTANT +LIGHTING-BIT+ ...) ; compiling (DEFCONSTANT +FOG-BIT+ ...) ; compiling (DEFCONSTANT +DEPTH-BUFFER-BIT+ ...) ; compiling (DEFCONSTANT +ACCUM-BUFFER-BIT+ ...) ; compiling (DEFCONSTANT +STENCIL-BUFFER-BIT+ ...) ; compiling (DEFCONSTANT +VIEWPORT-BIT+ ...) ; compiling (DEFCONSTANT +TRANSFORM-BIT+ ...) ; compiling (DEFCONSTANT +ENABLE-BIT+ ...) ; compiling (DEFCONSTANT +COLOR-BUFFER-BIT+ ...) ; compiling (DEFCONSTANT +HINT-BIT+ ...) ; compiling (DEFCONSTANT +EVAL-BIT+ ...) ; compiling (DEFCONSTANT +LIST-BIT+ ...) ; compiling (DEFCONSTANT +TEXTURE-BIT+ ...) ; compiling (DEFCONSTANT +SCISSOR-BIT+ ...) ; compiling (DEFCONSTANT +ALL-ATTRIB-BITS+ ...) ; compiling (DEFCONSTANT +CLIENT-PIXEL-STORE-BIT+ ...) ; compiling (DEFCONSTANT +CLIENT-VERTEX-ARRAY-BIT+ ...) ; compiling (DEFCONSTANT +CLIENT-ALL-ATTRIB-BITS+ ...) ; compiling (DEFCONSTANT +ARB-MULTITEXTURE+ ...) ; compiling (DEFCONSTANT +TEXTURE0-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE1-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE2-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE3-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE4-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE5-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE6-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE7-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE8-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE9-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE10-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE11-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE12-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE13-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE14-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE15-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE16-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE17-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE18-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE19-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE20-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE21-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE22-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE23-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE24-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE25-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE26-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE27-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE28-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE29-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE30-ARB+ ...) ; compiling (DEFCONSTANT +TEXTURE31-ARB+ ...) ; compiling (DEFCONSTANT +ACTIVE-TEXTURE-ARB+ ...) ; compiling (DEFCONSTANT +CLIENT-ACTIVE-TEXTURE-ARB+ ...) ; compiling (DEFCONSTANT +MAX-TEXTURE-UNITS-ARB+ ...) ; compiling (DEFCONSTANT +EXT-ABGR+ ...) ; compiling (DEFCONSTANT +ABGR-EXT+ ...) ; compiling (DEFCONSTANT +EXT-BLEND-COLOR+ ...) ; compiling (DEFCONSTANT +CONSTANT-COLOR-EXT+ ...) ; compiling (DEFCONSTANT +ONE-MINUS-CONSTANT-COLOR-EXT+ ...) ; compiling (DEFCONSTANT +CONSTANT-ALPHA-EXT+ ...) ; compiling (DEFCONSTANT +ONE-MINUS-CONSTANT-ALPHA-EXT+ ...) ; compiling (DEFCONSTANT +BLEND-COLOR-EXT+ ...) ; compiling (DEFCONSTANT +EXT-POLYGON-OFFSET+ ...) ; compiling (DEFCONSTANT +POLYGON-OFFSET-EXT+ ...) ; compiling (DEFCONSTANT +POLYGON-OFFSET-FACTOR-EXT+ ...) ; compiling (DEFCONSTANT +POLYGON-OFFSET-BIAS-EXT+ ...) ; compiling (DEFCONSTANT +EXT-TEXTURE3D+ ...) ; compiling (DEFCONSTANT +PACK-SKIP-IMAGES-EXT+ ...) ; compiling (DEFCONSTANT +PACK-IMAGE-HEIGHT-EXT+ ...) ; compiling (DEFCONSTANT +UNPACK-SKIP-IMAGES-EXT+ ...) ; compiling (DEFCONSTANT +UNPACK-IMAGE-HEIGHT-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-3D-EXT+ ...) ; compiling (DEFCONSTANT +PROXY-TEXTURE-3D-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-DEPTH-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-WRAP-R-EXT+ ...) ; compiling (DEFCONSTANT +MAX-3D-TEXTURE-SIZE-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-3D-BINDING-EXT+ ...) ; compiling (DEFCONSTANT +EXT-TEXTURE-OBJECT+ ...) ; compiling (DEFCONSTANT +TEXTURE-PRIORITY-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-RESIDENT-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-1D-BINDING-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-2D-BINDING-EXT+ ...) ; compiling (DEFCONSTANT +EXT-RESCALE-NORMAL+ ...) ; compiling (DEFCONSTANT +RESCALE-NORMAL-EXT+ ...) ; compiling (DEFCONSTANT +EXT-VERTEX-ARRAY+ ...) ; compiling (DEFCONSTANT +VERTEX-ARRAY-EXT+ ...) ; compiling (DEFCONSTANT +NORMAL-ARRAY-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-ARRAY-EXT+ ...) ; compiling (DEFCONSTANT +INDEX-ARRAY-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-EXT+ ...) ; compiling (DEFCONSTANT +EDGE-FLAG-ARRAY-EXT+ ...) ; compiling (DEFCONSTANT +VERTEX-ARRAY-SIZE-EXT+ ...) ; compiling (DEFCONSTANT +VERTEX-ARRAY-TYPE-EXT+ ...) ; compiling (DEFCONSTANT +VERTEX-ARRAY-STRIDE-EXT+ ...) ; compiling (DEFCONSTANT +VERTEX-ARRAY-COUNT-EXT+ ...) ; compiling (DEFCONSTANT +NORMAL-ARRAY-TYPE-EXT+ ...) ; compiling (DEFCONSTANT +NORMAL-ARRAY-STRIDE-EXT+ ...) ; compiling (DEFCONSTANT +NORMAL-ARRAY-COUNT-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-ARRAY-SIZE-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-ARRAY-TYPE-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-ARRAY-STRIDE-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-ARRAY-COUNT-EXT+ ...) ; compiling (DEFCONSTANT +INDEX-ARRAY-TYPE-EXT+ ...) ; compiling (DEFCONSTANT +INDEX-ARRAY-STRIDE-EXT+ ...) ; compiling (DEFCONSTANT +INDEX-ARRAY-COUNT-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-SIZE-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-TYPE-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-STRIDE-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-COUNT-EXT+ ...) ; compiling (DEFCONSTANT +EDGE-FLAG-ARRAY-STRIDE-EXT+ ...) ; compiling (DEFCONSTANT +EDGE-FLAG-ARRAY-COUNT-EXT+ ...) ; compiling (DEFCONSTANT +VERTEX-ARRAY-POINTER-EXT+ ...) ; compiling (DEFCONSTANT +NORMAL-ARRAY-POINTER-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-ARRAY-POINTER-EXT+ ...) ; compiling (DEFCONSTANT +INDEX-ARRAY-POINTER-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-COORD-ARRAY-POINTER-EXT+ ...) ; compiling (DEFCONSTANT +EDGE-FLAG-ARRAY-POINTER-EXT+ ...) ; compiling (DEFCONSTANT +SGIS-TEXTURE-EDGE-CLAMP+ ...) ; compiling (DEFCONSTANT +CLAMP-TO-EDGE-SGIS+ ...) ; compiling (DEFCONSTANT +EXT-BLEND-MINMAX+ ...) ; compiling (DEFCONSTANT +FUNC-ADD-EXT+ ...) ; compiling (DEFCONSTANT +MIN-EXT+ ...) ; compiling (DEFCONSTANT +MAX-EXT+ ...) ; compiling (DEFCONSTANT +BLEND-EQUATION-EXT+ ...) ; compiling (DEFCONSTANT +EXT-BLEND-SUBTRACT+ ...) ; compiling (DEFCONSTANT +FUNC-SUBTRACT-EXT+ ...) ; compiling (DEFCONSTANT +FUNC-REVERSE-SUBTRACT-EXT+ ...) ; compiling (DEFCONSTANT +EXT-BLEND-LOGIC-OP+ ...) ; compiling (DEFCONSTANT +EXT-POINT-PARAMETERS+ ...) ; compiling (DEFCONSTANT +POINT-SIZE-MIN-EXT+ ...) ; compiling (DEFCONSTANT +POINT-SIZE-MAX-EXT+ ...) ; compiling (DEFCONSTANT +POINT-FADE-THRESHOLD-SIZE-EXT+ ...) ; compiling (DEFCONSTANT +DISTANCE-ATTENUATION-EXT+ ...) ; compiling (DEFCONSTANT +EXT-PALETTED-TEXTURE+ ...) ; compiling (DEFCONSTANT +TABLE-TOO-LARGE-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-FORMAT-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-WIDTH-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-RED-SIZE-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-GREEN-SIZE-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-BLUE-SIZE-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-ALPHA-SIZE-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-LUMINANCE-SIZE-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-TABLE-INTENSITY-SIZE-EXT+ ...) ; compiling (DEFCONSTANT +TEXTURE-INDEX-SIZE-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-INDEX1-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-INDEX2-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-INDEX4-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-INDEX8-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-INDEX12-EXT+ ...) ; compiling (DEFCONSTANT +COLOR-INDEX16-EXT+ ...) ; compiling (DEFCONSTANT +EXT-CLIP-VOLUME-HINT+ ...) ; compiling (DEFCONSTANT +CLIP-VOLUME-CLIPPING-HINT-EXT+ ...) ; compiling (DEFCONSTANT +EXT-COMPILED-VERTEX-ARRAY+ ...) ; compiling (DEFCONSTANT +ARRAY-ELEMENT-LOCK-FIRST-EXT+ ...) ; compiling (DEFCONSTANT +ARRAY-ELEMENT-LOCK-COUNT-EXT+ ...) ; compiling (DEFCONSTANT +HP-OCCLUSION-TEST+ ...) ; compiling (DEFCONSTANT +OCCLUSION-TEST-HP+ ...) ; compiling (DEFCONSTANT +OCCLUSION-TEST-RESULT-HP+ ...) ; compiling (DEFCONSTANT +EXT-SHARED-TEXTURE-PALETTE+ ...) ; compiling (DEFCONSTANT +SHARED-TEXTURE-PALETTE-EXT+ ...) ; compiling (DEFCONSTANT +EXT-STENCIL-WRAP+ ...) ; compiling (DEFCONSTANT +INCR-WRAP-EXT+ ...) ; compiling (DEFCONSTANT +DECR-WRAP-EXT+ ...) ; compiling (DEFCONSTANT +NV-TEXGEN-REFLECTION+ ...) ; compiling (DEFCONSTANT +NORMAL-MAP-NV+ ...) ; compiling (DEFCONSTANT +REFLECTION-MAP-NV+ ...) ; compiling (DEFCONSTANT +EXT-TEXTURE-ENV-ADD+ ...) ; compiling (DEFCONSTANT +MESA-WINDOW-POS+ ...) ; compiling (DEFCONSTANT +MESA-RESIZE-BUFFERS+ ...) ; compiling (DEFTYPE BOOL ...) ; compiling (DEFTYPE FLOAT32 ...) ; compiling (DEFTYPE FLOAT64 ...) ; compiling (DECLAIM (INLINE ASET-FLOAT32 ...)) ; compiling (DEFUN ASET-FLOAT32 ...) ; compiling (DEFUN ASET-FLOAT64 ...) ; compiling (DEFUN BYTE-WIDTH ...) ; compiling (DEFUN SETTER ...) ; compiling (DEFUN SEQUENCE-SETTER ...) ; compiling (DEFMACRO DEFINE-SEQUENCE-SETTER ...) ; compiling (DEFINE-SEQUENCE-SETTER INT8) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFINE-SEQUENCE-SETTER INT8 ; (GL::DEFINE-SEQUENCE-SETTER XLIB:INT8) ; --> DEFUN PROGN SB-IMPL::%DEFUN BLOCK ASSERT TAGBODY LET ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> DEFUN PROGN SB-IMPL::%DEFUN BLOCK ASSERT TAGBODY LET ; --> SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFINE-SEQUENCE-SETTER INT16) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFINE-SEQUENCE-SETTER INT16 ; (GL::DEFINE-SEQUENCE-SETTER XLIB:INT16) ; --> DEFUN PROGN SB-IMPL::%DEFUN BLOCK ASSERT TAGBODY LET ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> DEFUN PROGN SB-IMPL::%DEFUN BLOCK ASSERT TAGBODY LET ; --> SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFINE-SEQUENCE-SETTER INT32) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFINE-SEQUENCE-SETTER INT32 ; (GL::DEFINE-SEQUENCE-SETTER XLIB:INT32) ; --> DEFUN PROGN SB-IMPL::%DEFUN BLOCK ASSERT TAGBODY LET ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> DEFUN PROGN SB-IMPL::%DEFUN BLOCK ASSERT TAGBODY LET ; --> SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFINE-SEQUENCE-SETTER BOOL) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFINE-SEQUENCE-SETTER BOOL ; (GL::DEFINE-SEQUENCE-SETTER GL::BOOL) ; --> DEFUN PROGN SB-IMPL::%DEFUN BLOCK ASSERT TAGBODY LET ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> DEFUN PROGN SB-IMPL::%DEFUN BLOCK ASSERT TAGBODY LET ; --> SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFINE-SEQUENCE-SETTER CARD8) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFINE-SEQUENCE-SETTER CARD8 ; (GL::DEFINE-SEQUENCE-SETTER XLIB:CARD8) ; --> DEFUN PROGN SB-IMPL::%DEFUN BLOCK ASSERT TAGBODY LET ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> DEFUN PROGN SB-IMPL::%DEFUN BLOCK ASSERT TAGBODY LET ; --> SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFINE-SEQUENCE-SETTER CARD16) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFINE-SEQUENCE-SETTER CARD16 ; (GL::DEFINE-SEQUENCE-SETTER XLIB:CARD16) ; --> DEFUN PROGN SB-IMPL::%DEFUN BLOCK ASSERT TAGBODY LET ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> DEFUN PROGN SB-IMPL::%DEFUN BLOCK ASSERT TAGBODY LET ; --> SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFINE-SEQUENCE-SETTER CARD32) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFINE-SEQUENCE-SETTER CARD32 ; (GL::DEFINE-SEQUENCE-SETTER XLIB:CARD32) ; --> DEFUN PROGN SB-IMPL::%DEFUN BLOCK ASSERT TAGBODY LET ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> DEFUN PROGN SB-IMPL::%DEFUN BLOCK ASSERT TAGBODY LET ; --> SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFINE-SEQUENCE-SETTER FLOAT32) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFINE-SEQUENCE-SETTER FLOAT32 ; (GL::DEFINE-SEQUENCE-SETTER GL::FLOAT32) ; --> DEFUN PROGN SB-IMPL::%DEFUN BLOCK ASSERT TAGBODY LET ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> DEFUN PROGN SB-IMPL::%DEFUN BLOCK ASSERT TAGBODY LET ; --> SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFINE-SEQUENCE-SETTER FLOAT64) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFINE-SEQUENCE-SETTER FLOAT64 ; (GL::DEFINE-SEQUENCE-SETTER GL::FLOAT64) ; --> DEFUN PROGN SB-IMPL::%DEFUN BLOCK ASSERT TAGBODY LET ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> DEFUN PROGN SB-IMPL::%DEFUN BLOCK ASSERT TAGBODY LET ; --> SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; compiling (DEFUN MAKE-ARGSPECS ...) ; compiling (DEFUN BYTE-WIDTH-CALCULATION ...) ; compiling (DEFUN COMPOSITE-ARGS ...) ; compiling (DEFUN MAKE-SETTER-FORMS ...) ; compiling (DEFMACRO DEFINE-RENDERING-COMMAND ...) ; compiling (DEFUN GET-STRING ...) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFUN GET-STRING ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GL::+GET-STRING+) (XLIB:CARD32 (GLX::CONTEXT-TAG GL::CTX)) ; (XLIB:CARD32 GL::NAME)) ; (LET* ((LENGTH (XLIB::CARD32-GET 12)) ; (GL::BYTES ; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD8 :RESULT-TYPE '# :INDEX 32 ; :LENGTH LENGTH))) ; (DECLARE (TYPE (SIMPLE-ARRAY XLIB:CARD8 #) GL::BYTES) ; (TYPE FIXNUM LENGTH)) ; (MAP-INTO (MAKE-STRING (1- LENGTH)) #'CODE-CHAR GL::BYTES))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFINE-RENDERING-COMMAND ACCUM ...) ; compiling (DEFINE-RENDERING-COMMAND ACTIVE-TEXTURE-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND ALPHA-FUNC ...) ; compiling (DEFINE-RENDERING-COMMAND BEGIN ...) ; compiling (DEFINE-RENDERING-COMMAND BIND-TEXTURE ...) ; compiling (DEFINE-RENDERING-COMMAND BLEND-COLOR ...) ; compiling (DEFINE-RENDERING-COMMAND BLEND-EQUOTION ...) ; compiling (DEFINE-RENDERING-COMMAND BLEND-FUNC ...) ; compiling (DEFINE-RENDERING-COMMAND CALL-LIST ...) ; compiling (DEFINE-RENDERING-COMMAND CLEAR ...) ; compiling (DEFINE-RENDERING-COMMAND CLEAR-ACCUM ...) ; compiling (DEFINE-RENDERING-COMMAND CLEAR-COLOR ...) ; compiling (DEFINE-RENDERING-COMMAND CLEAR-DEPTH ...) ; compiling (DEFINE-RENDERING-COMMAND CLEAR-INDEX ...) ; compiling (DEFINE-RENDERING-COMMAND CLEAR-STENCIL ...) ; compiling (DEFINE-RENDERING-COMMAND CLIP-PLANE ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-3B ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-3D ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-3F ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-3I ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-3S ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-3UB ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-3UI ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-3US ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-4B ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-4D ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-4F ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-4I ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-4S ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-4UB ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-4UI ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-4US ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-MASK ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-MATERIAL ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-TABLE-PARAMETER-FV ...) ; compiling (DEFINE-RENDERING-COMMAND COLOR-TABLE-PARAMETER-IV ...) ; compiling (DEFINE-RENDERING-COMMAND CONVOLUTION-PARAMETER-F ...) ; compiling (DEFINE-RENDERING-COMMAND CONVOLUTION-PARAMETER-FV ...) ; compiling (DEFINE-RENDERING-COMMAND CONVOLUTION-PARAMETER-I ...) ; compiling (DEFINE-RENDERING-COMMAND CONVOLUTION-PARAMETER-IV ...) ; compiling (DEFINE-RENDERING-COMMAND COPY-COLOR-SUB-TABLE ...) ; compiling (DEFINE-RENDERING-COMMAND COPY-COLOR-TABLE ...) ; compiling (DEFINE-RENDERING-COMMAND COPY-CONVOLUTION-FILTER-ID ...) ; compiling (DEFINE-RENDERING-COMMAND COPY-CONVOLUTION-FILTER-2D ...) ; compiling (DEFINE-RENDERING-COMMAND COPY-PIXELS ...) ; compiling (DEFINE-RENDERING-COMMAND COPY-TEX-IMAGE-1D ...) ; compiling (DEFINE-RENDERING-COMMAND COPY-TEX-IMAGE-2D ...) ; compiling (DEFINE-RENDERING-COMMAND COPY-TEX-SUB-IMAGE-1D ...) ; compiling (DEFINE-RENDERING-COMMAND COPY-TEX-SUB-IMAGE-2D ...) ; compiling (DEFINE-RENDERING-COMMAND COPY-TEX-SUB-IMAGE-3D ...) ; compiling (DEFINE-RENDERING-COMMAND CULL-FACE ...) ; compiling (DEFINE-RENDERING-COMMAND DEPTH-FUNC ...) ; compiling (DEFINE-RENDERING-COMMAND DEPTH-MASK ...) ; compiling (DEFINE-RENDERING-COMMAND DEPTH-RANGE ...) ; compiling (DEFINE-RENDERING-COMMAND DRAW-BUFFER ...) ; compiling (DEFINE-RENDERING-COMMAND EDGE-FLAG-V ...) ; compiling (DEFINE-RENDERING-COMMAND END ...) ; compiling (DEFINE-RENDERING-COMMAND EVAL-COORD-1D ...) ; compiling (DEFINE-RENDERING-COMMAND EVAL-COORD-1F ...) ; compiling (DEFINE-RENDERING-COMMAND EVAL-COORD-2D ...) ; compiling (DEFINE-RENDERING-COMMAND EVAL-COORD-2F ...) ; compiling (DEFINE-RENDERING-COMMAND EVAL-MESH-1 ...) ; compiling (DEFINE-RENDERING-COMMAND EVAL-MESH-2 ...) ; compiling (DEFINE-RENDERING-COMMAND EVAL-POINT-1 ...) ; compiling (DEFINE-RENDERING-COMMAND EVAL-POINT-2 ...) ; compiling (DEFINE-RENDERING-COMMAND FOG-F ...) ; compiling (DEFINE-RENDERING-COMMAND FOG-FV ...) ; compiling (DEFINE-RENDERING-COMMAND FOG-I ...) ; compiling (DEFINE-RENDERING-COMMAND FOG-IV ...) ; compiling (DEFINE-RENDERING-COMMAND FRONT-FACE ...) ; compiling (DEFINE-RENDERING-COMMAND FRUSTUM ...) ; compiling (DEFINE-RENDERING-COMMAND HINT ...) ; compiling (DEFINE-RENDERING-COMMAND HISTOGRAM ...) ; compiling (DEFINE-RENDERING-COMMAND INDEX-MASK ...) ; compiling (DEFINE-RENDERING-COMMAND INDEX-D ...) ; compiling (DEFINE-RENDERING-COMMAND INDEX-F ...) ; compiling (DEFINE-RENDERING-COMMAND INDEX-I ...) ; compiling (DEFINE-RENDERING-COMMAND INDEX-S ...) ; compiling (DEFINE-RENDERING-COMMAND INDEX-UB ...) ; compiling (DEFINE-RENDERING-COMMAND INIT-NAMES ...) ; compiling (DEFINE-RENDERING-COMMAND LIGHT-MODEL-F ...) ; compiling (DEFINE-RENDERING-COMMAND LIGHT-MODEL-FV ...) ; compiling (DEFINE-RENDERING-COMMAND LIGHT-MODEL-I ...) ; compiling (DEFINE-RENDERING-COMMAND LIGHT-MODEL-IV ...) ; compiling (DEFINE-RENDERING-COMMAND LIGHT-F ...) ; compiling (DEFINE-RENDERING-COMMAND LIGHT-FV ...) ; compiling (DEFINE-RENDERING-COMMAND LIGHT-I ...) ; compiling (DEFINE-RENDERING-COMMAND LIGHT-IV ...) ; compiling (DEFINE-RENDERING-COMMAND LINE-STIPPLE ...) ; compiling (DEFINE-RENDERING-COMMAND LINE-WIDTH ...) ; compiling (DEFINE-RENDERING-COMMAND LIST-BASE ...) ; compiling (DEFINE-RENDERING-COMMAND LOAD-IDENTITY ...) ; compiling (DEFINE-RENDERING-COMMAND LOAD-MATRIX-D ...) ; compiling (DEFINE-RENDERING-COMMAND LOAD-MATRIX-F ...) ; compiling (DEFINE-RENDERING-COMMAND LOAD-NAME ...) ; compiling (DEFINE-RENDERING-COMMAND LOGIC-OP ...) ; compiling (DEFINE-RENDERING-COMMAND MAP-GRID-1D ...) ; compiling (DEFINE-RENDERING-COMMAND MAP-GRID-1F ...) ; compiling (DEFINE-RENDERING-COMMAND MAP-GRID-2D ...) ; compiling (DEFINE-RENDERING-COMMAND MAP-GRID-2F ...) ; compiling (DEFINE-RENDERING-COMMAND MATERIAL-F ...) ; compiling (DEFINE-RENDERING-COMMAND MATERIAL-FV ...) ; compiling (DEFINE-RENDERING-COMMAND MATERIAL-I ...) ; compiling (DEFINE-RENDERING-COMMAND MATERIAL-IV ...) ; compiling (DEFINE-RENDERING-COMMAND MATRIX-MODE ...) ; compiling (DEFINE-RENDERING-COMMAND MINMAX ...) ; compiling (DEFINE-RENDERING-COMMAND MULT-MATRIX-D ...) ; compiling (DEFINE-RENDERING-COMMAND MULT-MATRIX-F ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-1D-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-1F-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-1I-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-1S-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-2D-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-2F-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-2I-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-2S-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-3D-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-3F-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-3I-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-3S-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-4D-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-4F-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-4I-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-4S-ARB ...) ; compiling (DEFINE-RENDERING-COMMAND NORMAL-3B ...) ; compiling (DEFINE-RENDERING-COMMAND NORMAL-3D ...) ; compiling (DEFINE-RENDERING-COMMAND NORMAL-3F ...) ; compiling (DEFINE-RENDERING-COMMAND NORMAL-3I ...) ; compiling (DEFINE-RENDERING-COMMAND NORMAL-3S ...) ; compiling (DEFINE-RENDERING-COMMAND ORTHO ...) ; compiling (DEFINE-RENDERING-COMMAND PASS-THROUGH ...) ; compiling (DEFINE-RENDERING-COMMAND PIXEL-TRANSFER-F ...) ; compiling (DEFINE-RENDERING-COMMAND PIXEL-TRANSFER-I ...) ; compiling (DEFINE-RENDERING-COMMAND PIXEL-ZOOM ...) ; compiling (DEFINE-RENDERING-COMMAND POINT-SIZE ...) ; compiling (DEFINE-RENDERING-COMMAND POLYGON-MODE ...) ; compiling (DEFINE-RENDERING-COMMAND POLYGON-OFFSET ...) ; compiling (DEFINE-RENDERING-COMMAND POP-ATTRIB ...) ; compiling (DEFINE-RENDERING-COMMAND POP-MATRIX ...) ; compiling (DEFINE-RENDERING-COMMAND POP-NAME ...) ; compiling (DEFINE-RENDERING-COMMAND PRIORITIZE-TEXTURES ...) ; compiling (DEFINE-RENDERING-COMMAND PUSH-ATTRIB ...) ; compiling (DEFINE-RENDERING-COMMAND PUSH-MATRIX ...) ; compiling (DEFINE-RENDERING-COMMAND PUSH-NAME ...) ; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-2D ...) ; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-2F ...) ; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-2I ...) ; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-2S ...) ; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-3D ...) ; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-3F ...) ; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-3I ...) ; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-3S ...) ; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-4D ...) ; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-4F ...) ; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-4I ...) ; compiling (DEFINE-RENDERING-COMMAND RASTER-POS-4S ...) ; compiling (DEFINE-RENDERING-COMMAND READ-BUFFER ...) ; compiling (DEFINE-RENDERING-COMMAND RECT-D ...) ; compiling (DEFINE-RENDERING-COMMAND RECT-F ...) ; compiling (DEFINE-RENDERING-COMMAND RECT-I ...) ; compiling (DEFINE-RENDERING-COMMAND RECT-S ...) ; compiling (DEFINE-RENDERING-COMMAND RESET-HISTOGRAM ...) ; compiling (DEFINE-RENDERING-COMMAND RESET-MINMAX ...) ; compiling (DEFINE-RENDERING-COMMAND ROTATE-D ...) ; compiling (DEFINE-RENDERING-COMMAND ROTATE-F ...) ; compiling (DEFINE-RENDERING-COMMAND SCALE-D ...) ; compiling (DEFINE-RENDERING-COMMAND SCALE-F ...) ; compiling (DEFINE-RENDERING-COMMAND SCISSOR ...) ; compiling (DEFINE-RENDERING-COMMAND SHADE-MODEL ...) ; compiling (DEFINE-RENDERING-COMMAND STENCIL-FUNC ...) ; compiling (DEFINE-RENDERING-COMMAND STENCIL-MASK ...) ; compiling (DEFINE-RENDERING-COMMAND STENCIL-OP ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-ENV-F ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-ENV-FV ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-ENV-I ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-ENV-IV ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-GEN-D ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-GEN-DV ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-GEN-F ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-GEN-FV ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-GEN-I ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-GEN-IV ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-PARAMETER-F ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-PARAMETER-FV ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-PARAMETER-I ...) ; compiling (DEFINE-RENDERING-COMMAND TEX-PARAMETER-IV ...) ; compiling (DEFINE-RENDERING-COMMAND TRANSLATE-D ...) ; compiling (DEFINE-RENDERING-COMMAND TRANSLATE-F ...) ; compiling (DEFINE-RENDERING-COMMAND VERTEX-2D ...) ; compiling (DEFINE-RENDERING-COMMAND VERTEX-2F ...) ; compiling (DEFINE-RENDERING-COMMAND VERTEX-2I ...) ; compiling (DEFINE-RENDERING-COMMAND VERTEX-2S ...) ; compiling (DEFINE-RENDERING-COMMAND VERTEX-3D ...) ; compiling (DEFINE-RENDERING-COMMAND VERTEX-3F ...) ; compiling (DEFINE-RENDERING-COMMAND VERTEX-3I ...) ; compiling (DEFINE-RENDERING-COMMAND VERTEX-3S ...) ; compiling (DEFINE-RENDERING-COMMAND VERTEX-4D ...) ; compiling (DEFINE-RENDERING-COMMAND VERTEX-4F ...) ; compiling (DEFINE-RENDERING-COMMAND VERTEX-4I ...) ; compiling (DEFINE-RENDERING-COMMAND VERTEX-4S ...) ; compiling (DEFINE-RENDERING-COMMAND VIEWPORT ...) ; compiling (DEFUN NEW-LIST ...) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFUN NEW-LIST ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA GL::+NEW-LIST+) ; (XLIB:CARD32 (GLX::CONTEXT-TAG GL::CTX)) ; (XLIB:CARD32 LIST) ; (XLIB:CARD32 GL::MODE)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GEN-LISTS ...) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFUN GEN-LISTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GL::+GEN-LISTS+) (XLIB:CARD32 (GLX::CONTEXT-TAG GL::CTX)) ; (INTEGER GL::RANGE)) ; (XLIB::CARD32-GET 8)) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN END-LIST ...) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFUN END-LIST ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA GL::+END-LIST+) ; (XLIB:CARD32 (GLX::CONTEXT-TAG GL::CTX))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN ENABLE ...) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFUN ENABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GL::+ENABLE+) (XLIB:CARD32 (GLX::CONTEXT-TAG GL::CTX)) ; (XLIB:CARD32 GL::CAP))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FLUSH ...) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFUN FLUSH ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX")) ; (XLIB::DATA GL::+FLUSH+) ; (XLIB:CARD32 (GLX::CONTEXT-TAG GL::CTX))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FINISH ...) ; file: /usr/share/common-lisp/source/clx/gl.lisp ; in: DEFUN FINISH ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "GLX") ; NIL) ; ((XLIB::DATA GL::+FINISH+) (XLIB:CARD32 (GLX::CONTEXT-TAG GL::CTX)))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/gl-TMP.fasl written ; compilation finished in 0:00:01.533 ; compiling file "/usr/share/common-lisp/source/clx/dpms.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (DEFPACKAGE :DPMS ...) ; compiling (IN-PACKAGE :DPMS) ; compiling (DEFINE-EXTENSION "DPMS") ; compiling (DEFMACRO DPMS-OPCODE ...) ; compiling (DEFCONSTANT +GET-VERSION+ ...) ; compiling (DEFCONSTANT +CAPABLE+ ...) ; compiling (DEFCONSTANT +GET-TIMEOUTS+ ...) ; compiling (DEFCONSTANT +SET-TIMEOUTS+ ...) ; compiling (DEFCONSTANT +ENABLE+ ...) ; compiling (DEFCONSTANT +DISABLE+ ...) ; compiling (DEFCONSTANT +FORCE-LEVEL+ ...) ; compiling (DEFCONSTANT +INFO+ ...) ; compiling (DEFUN DPMS-GET-VERSION ...) ; file: /usr/share/common-lisp/source/clx/dpms.lisp ; in: DEFUN DPMS-GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (DPMS::DPMS-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA DPMS::+GET-VERSION+) (XLIB:CARD16 DPMS::MAJOR-VERSION) ; (XLIB:CARD16 DPMS::MINOR-VERSION)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DPMS-CAPABLE ...) ; file: /usr/share/common-lisp/source/clx/dpms.lisp ; in: DEFUN DPMS-CAPABLE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (DPMS::DPMS-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA DPMS::+CAPABLE+)) ; (XLIB::BOOLEAN-GET 8)) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DPMS-GET-TIMEOUTS ...) ; file: /usr/share/common-lisp/source/clx/dpms.lisp ; in: DEFUN DPMS-GET-TIMEOUTS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (DPMS::DPMS-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA DPMS::+GET-TIMEOUTS+)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10) (XLIB::CARD16-GET 12))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DPMS-SET-TIMEOUTS ...) ; file: /usr/share/common-lisp/source/clx/dpms.lisp ; in: DEFUN DPMS-SET-TIMEOUTS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA DPMS::+SET-TIMEOUTS+) ; (XLIB:CARD16 DPMS::STANDBY) ; (XLIB:CARD16 DPMS::SUSPEND) ; (XLIB:CARD16 DPMS::OFF) ; (XLIB:CARD16 0)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DPMS-ENABLE ...) ; file: /usr/share/common-lisp/source/clx/dpms.lisp ; in: DEFUN DPMS-ENABLE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA DPMS::+ENABLE+)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DPMS-DISABLE ...) ; file: /usr/share/common-lisp/source/clx/dpms.lisp ; in: DEFUN DPMS-DISABLE ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; ((XLIB::DATA DPMS::+DISABLE+))) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DPMS-FORCE-LEVEL ...) ; file: /usr/share/common-lisp/source/clx/dpms.lisp ; in: DEFUN DPMS-FORCE-LEVEL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (DPMS::DPMS-OPCODE XLIB:DISPLAY)) ; (XLIB::DATA DPMS::+FORCE-LEVEL+) ; (XLIB:CARD16 ; (ECASE DPMS::POWER-LEVEL ; (:DPMS-MODE-ON 0) ; (:DPMS-MODE-STANDBY 1) ; (:DPMS-MODE-SUSPEND 2) ; (:DPMS-MODE-OFF 3))) ; (XLIB:CARD16 0)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN DPMS-INFO ...) ; file: /usr/share/common-lisp/source/clx/dpms.lisp ; in: DEFUN DPMS-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (DPMS::DPMS-OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA DPMS::+INFO+)) ; (LET ((DPMS::STATE ; (IF # ; :DPMS-ENABLED ; :DPMS-DISABLED))) ; (VALUES (UNLESS (EQ DPMS::STATE :DPMS-DISABLED) (ECASE # # # # #)) ; DPMS::STATE))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/dpms-TMP.fasl written ; compilation finished in 0:00:00.115 ; compiling file "/usr/share/common-lisp/source/clx/xtest.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (DEFPACKAGE :XTEST ...) ; compiling (IN-PACKAGE :XTEST) ; compiling (DEFINE-EXTENSION "XTEST") ; compiling (DEFMACRO OPCODE ...) ; compiling (DEFCONSTANT +MAJOR-VERSION+ ...) ; compiling (DEFCONSTANT +MINOR-VERSION+ ...) ; compiling (DEFCONSTANT +NONE+ ...) ; compiling (DEFCONSTANT +CURRENT-CURSOR+ ...) ; compiling (DEFCONSTANT +GET-VERSION+ ...) ; compiling (DEFCONSTANT +COMPARE-CURSOR+ ...) ; compiling (DEFCONSTANT +FAKE-INPUT+ ...) ; compiling (DEFCONSTANT +GRAB-CONTROL+ ...) ; compiling (DEFCONSTANT +FAKE-KEY-PRESS+ ...) ; compiling (DEFCONSTANT +FAKE-KEY-RELEASE+ ...) ; compiling (DEFCONSTANT +FAKE-BUTTON-PRESS+ ...) ; compiling (DEFCONSTANT +FAKE-BUTTON-RELEASE+ ...) ; compiling (DEFCONSTANT +FAKE-MOTION-NOTIFY+ ...) ; compiling (DEFUN SET-GC-CONTEXT-OF-GC ...) ; compiling (DEFUN GET-VERSION ...) ; file: /usr/share/common-lisp/source/clx/xtest.lisp ; in: DEFUN GET-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XTEST::OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XTEST::+GET-VERSION+) (XLIB:CARD8 XTEST::MAJOR) ; (XLIB:CARD16 XTEST::MINOR)) ; (VALUES (XLIB::CARD8-GET 1) (XLIB::CARD16-GET 8))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN COMPARE-CURSOR ...) ; file: /usr/share/common-lisp/source/clx/xtest.lisp ; in: DEFUN COMPARE-CURSOR ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XTEST::OPCODE XLIB:DISPLAY) NIL) ; ((XLIB::DATA XTEST::+COMPARE-CURSOR+) ; (XLIB:RESOURCE-ID (XLIB:WINDOW-ID XLIB:WINDOW)) ; (XLIB:RESOURCE-ID XLIB:CURSOR-ID)) ; (VALUES (XLIB::CARD8-GET 1))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FAKE-MOTION-EVENT ...) ; file: /usr/share/common-lisp/source/clx/xtest.lisp ; in: DEFUN FAKE-MOTION-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 XTEST::+FAKE-MOTION-NOTIFY+) ; (XLIB:CARD8 ; (IF XTEST::RELATIVE ; 1 ; 0)) ; (XTEST::PAD16 0) ; (XLIB:CARD32 XTEST::DELAY) ; (XLIB:CARD32 XTEST::ROOT-WINDOW-ID) ; (XTEST::PAD32 0 0) ; (XLIB:CARD16 XTEST::X) ; (XLIB:CARD16 XTEST::Y) ; (XTEST::PAD32 0 0)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FAKE-BUTTON-EVENT ...) ; file: /usr/share/common-lisp/source/clx/xtest.lisp ; in: DEFUN FAKE-BUTTON-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 ; (IF XTEST::PRESSED ; XTEST::+FAKE-BUTTON-PRESS+ ; XTEST::+FAKE-BUTTON-RELEASE+)) ; (XLIB:CARD8 XTEST::BUTTON) ; (XTEST::PAD16 0) ; (XLIB:CARD32 XTEST::DELAY) ; (XTEST::PAD32 0 0 0 0 0 0)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN FAKE-KEY-EVENT ...) ; file: /usr/share/common-lisp/source/clx/xtest.lisp ; in: DEFUN FAKE-KEY-EVENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XTEST::+FAKE-INPUT+) ; (XLIB:CARD8 ; (IF XTEST::PRESSED ; XTEST::+FAKE-KEY-PRESS+ ; XTEST::+FAKE-KEY-RELEASE+)) ; (XLIB:CARD8 XTEST::KEYCODE) ; (XTEST::PAD16 0) ; (XLIB:CARD32 XTEST::DELAY) ; (XTEST::PAD32 0 0 0 0 0 0)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN GRAB-CONTROL ...) ; file: /usr/share/common-lisp/source/clx/xtest.lisp ; in: DEFUN GRAB-CONTROL ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XTEST::OPCODE XLIB:DISPLAY)) ; (XLIB::DATA XTEST::+GRAB-CONTROL+) ; (XLIB:CARD8 ; (IF XTEST::GRAB? ; 1 ; 0)) ; (XTEST::PAD8 0) ; (XTEST::PAD16 0)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/xtest-TMP.fasl written ; compilation finished in 0:00:00.139 ; compiling file "/usr/share/common-lisp/source/clx/screensaver.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (EXPORT (QUOTE #) ...) ; compiling (DEFINE-EXTENSION "MIT-SCREEN-SAVER") ; compiling (DEFUN SCREEN-SAVER-QUERY-VERSION ...) ; file: /usr/share/common-lisp/source/clx/screensaver.lisp ; in: DEFUN SCREEN-SAVER-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "MIT-SCREEN-SAVER") ; NIL) ; ((XLIB::DATA 0) (XLIB:CARD8 1) (XLIB:CARD8 0) (XLIB:CARD16 0)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SCREEN-SAVER-QUERY-INFO ...) ; file: /usr/share/common-lisp/source/clx/screensaver.lisp ; in: DEFUN SCREEN-SAVER-QUERY-INFO ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY ; "MIT-SCREEN-SAVER") ; NIL) ; ((XLIB::DATA 1) (XLIB:DRAWABLE XLIB:DRAWABLE)) ; (VALUES (XLIB::CARD8-GET 1) (XLIB::WINDOW-GET 8) (XLIB::CARD32-GET 12) ; (XLIB::CARD32-GET 16) (XLIB::CARD8-GET 24))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN SCREEN-SAVER-GET-IDLE ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/screensaver-TMP.fasl written ; compilation finished in 0:00:00.035 ; compiling file "/usr/share/common-lisp/source/clx/xinerama.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (DEFPACKAGE "XLIB.XINERAMA" ...) ; compiling (IN-PACKAGE "XINERAMA") ; compiling (DEFINE-EXTENSION "XINERAMA") ; compiling (DEFUN XINERAMA-OPCODE ...) ; compiling (DEFCONSTANT +MAJOR-VERSION+ ...) ; compiling (DEFCONSTANT +MINOR-VERSION+ ...) ; compiling (DEFCONSTANT +GET-VERSION+ ...) ; compiling (DEFCONSTANT +GET-STATE+ ...) ; compiling (DEFCONSTANT +GET-SCREEN-COUNT+ ...) ; compiling (DEFCONSTANT +GET-SCREEN-SIZE+ ...) ; compiling (DEFCONSTANT +IS-ACTIVE+ ...) ; compiling (DEFCONSTANT +QUERY-SCREENS+ ...) ; compiling (DEFSTRUCT SCREEN-INFO ...) ; compiling (DEFUN XINERAMA-QUERY-VERSION ...) ; file: /usr/share/common-lisp/source/clx/xinerama.lisp ; in: DEFUN XINERAMA-QUERY-VERSION ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB.XINERAMA::XINERAMA-OPCODE ; XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB.XINERAMA::+GET-VERSION+) ; (XLIB:CARD8 XLIB.XINERAMA::+MAJOR-VERSION+) ; (XLIB:CARD8 XLIB.XINERAMA::+MINOR-VERSION+)) ; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XINERAMA-IS-ACTIVE ...) ; file: /usr/share/common-lisp/source/clx/xinerama.lisp ; in: DEFUN XINERAMA-IS-ACTIVE ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB.XINERAMA::XINERAMA-OPCODE ; XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB.XINERAMA::+IS-ACTIVE+)) ; (VALUES (XLIB::BOOLEAN-GET 8))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFUN XINERAMA-QUERY-SCREENS ...) ; file: /usr/share/common-lisp/source/clx/xinerama.lisp ; in: DEFUN XINERAMA-QUERY-SCREENS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; (XLIB.XINERAMA::XINERAMA-OPCODE ; XLIB:DISPLAY) ; NIL) ; ((XLIB::DATA XLIB.XINERAMA::+QUERY-SCREENS+)) ; (VALUES ; (LOOP XLIB.XINERAMA::WITH XLIB.XINERAMA::INDEX = 32 ; XLIB.XINERAMA::FOR NUMBER XLIB.XINERAMA::FROM 0 XLIB.XINERAMA::BELOW (XLIB::CARD32-GET ; 8) ; XLIB.XINERAMA::COLLECT ...))) ; --> LET UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL ; --> BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK ; --> SETF LET* MULTIPLE-VALUE-BIND LET LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (INCF XLIB.XINERAMA::INDEX 8) ; --> LET* ; ==> ; (SETQ XLIB.XINERAMA::INDEX #:NEW364) ; ; note: doing signed word to integer coercion (cost 20) to INDEX ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/xinerama-TMP.fasl written ; compilation finished in 0:00:00.077 ; compiling file "/usr/share/common-lisp/source/clx/demo/bezier.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (EXPORT (QUOTE DRAW-CURVES)) ; compiling (DEFINE-EXTENSION "bezier") ; compiling (DEFUN DRAW-CURVES ...) ; file: /usr/share/common-lisp/source/clx/demo/bezier.lisp ; in: DEFUN DRAW-CURVES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA XLIB:CARD8) 1) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/demo/bezier-TMP.fasl written ; compilation finished in 0:00:00.018 ; compiling file "/usr/share/common-lisp/source/clx/demo/beziertest.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFUN BEZIER-TEST ...) ; file: /usr/share/common-lisp/source/clx/demo/beziertest.lisp ; in: DEFUN BEZIER-TEST ; (ZEROP COUNT) ; ==> ; (= COUNT 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/demo/beziertest-TMP.fasl written ; compilation finished in 0:00:00.031 ; compiling file "/usr/share/common-lisp/source/clx/demo/clclock.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (DEFPACKAGE "XCLCLOCK" ...) ; compiling (IN-PACKAGE "XCLCLOCK") ; compiling (DEFVAR *DISPLAY* ...) ; compiling (DEFVAR *SCREEN* ...) ; compiling (DEFVAR *COLORMAP* ...) ; compiling (DEFVAR *FONT* ...) ; compiling (DEFVAR *WIN*) ; compiling (MULTIPLE-VALUE-BIND (WIDTH ASCENT) ...) ; compiling (DEFVAR *GCONTEXT* ...) ; compiling (DEFVAR *BACKGROUND* ...) ; compiling (DEFVAR *PALETTE* ...) ; compiling (DEFVAR *BLACK* ...) ; compiling (DEFUN ROMANIZE ...) ; compiling (DEFUN CLOCK-STRING ...) ; compiling (DEFUN UPDATE-CLOCKFACE ...) ; compiling (DEFUN CLOCK ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/demo/clclock-TMP.fasl written ; compilation finished in 0:00:00.016 ; compiling file "/usr/share/common-lisp/source/clx/demo/clipboard.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (DEFPACKAGE "CLIPBOARD" ...) ; compiling (IN-PACKAGE "CLIPBOARD") ; compiling (DEFVAR *WINDOW*) ; compiling (DEFVAR *TIME*) ; compiling (DEFVAR *DISPLAY*) ; compiling (DEFUN OWNSELECT ...) ; compiling (DEFUN DESELECT ...) ; compiling (DEFUN ASK-PASTE ...) ; compiling (DEFUN RECV-PASTE ...) ; compiling (DEFUN SEND-COPY ...) ; compiling (DEFUN MAIN ...) ; file: /usr/share/common-lisp/source/clx/demo/clipboard.lisp ; in: DEFUN MAIN ; (XLIB:EVENT-CASE (CLIPBOARD::*DISPLAY*) ; (:BUTTON-PRESS (CLIPBOARD::CODE TIME) (FORMAT T "~&ButtonPress~%") ; (FINISH-OUTPUT) ; (CASE CLIPBOARD::CODE ; (1 (SETF #) (CLIPBOARD::OWNSELECT)) ; (2 (CLIPBOARD::ASK-PASTE)) ; (3 (CLIPBOARD::DESELECT)))) ; (:CLIENT-MESSAGE NIL (FORMAT T "~&ClientMessage~%") (FINISH-OUTPUT)) ; (:SELECTION-CLEAR (CLIPBOARD::SELECTION) ; (FORMAT T "~&SelectionClear ~S~%" CLIPBOARD::SELECTION) (FINISH-OUTPUT)) ; (:SELECTION-NOTIFY ; (CLIPBOARD::SELECTION CLIPBOARD::TARGET CLIPBOARD::PROPERTY) ; (FORMAT T "~&SelectionNotify ~S ~S ~S~%" CLIPBOARD::SELECTION ; CLIPBOARD::TARGET CLIPBOARD::PROPERTY) ; (FINISH-OUTPUT) ; (UNLESS (EQ CLIPBOARD::PROPERTY NIL) ; (CLIPBOARD::RECV-PASTE CLIPBOARD::PROPERTY)) ; (XLIB:DISPLAY-FINISH-OUTPUT CLIPBOARD::*DISPLAY*)) ; (:SELECTION-REQUEST ; (CLIPBOARD::SELECTION CLIPBOARD::TARGET CLIPBOARD::PROPERTY ; CLIPBOARD::REQUESTOR TIME) ; (FORMAT T "~&SelectionRequest ~S ~S ~S~%" CLIPBOARD::SELECTION ; CLIPBOARD::TARGET CLIPBOARD::PROPERTY) ; (FINISH-OUTPUT) ; (CLIPBOARD::SEND-COPY CLIPBOARD::SELECTION CLIPBOARD::TARGET ; CLIPBOARD::PROPERTY CLIPBOARD::REQUESTOR TIME) ; (XLIB:DISPLAY-FINISH-OUTPUT CLIPBOARD::*DISPLAY*)) ; (:PROPERTY-NOTIFY (ATOM CLIPBOARD::STATE) ; (FORMAT T "~&PropertyNotify ~S ~S~%" ATOM CLIPBOARD::STATE) ; (FINISH-OUTPUT))) ; --> XLIB:EVENT-COND LET XLIB::EVENT-LOOP LET XLIB:WITH-EVENT-QUEUE MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION PROGV LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LOOP BLOCK TAGBODY PROGN ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET UNWIND-PROTECT FLET ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP ; --> RETURN-FROM PROGN LET XLIB::EVENT-DISPATCH XLIB::READING-EVENT ; --> XLIB::WITH-BUFFER-INPUT LET LET* LET CASE LET COND IF PROGN ; --> XLIB::BINDING-EVENT-VALUES LET LET LET MACROLET IF ZEROP ; ==> ; (= #:G1969 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; --> XLIB:EVENT-COND LET XLIB::EVENT-LOOP LET XLIB:WITH-EVENT-QUEUE MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION PROGV LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LOOP BLOCK TAGBODY PROGN ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET UNWIND-PROTECT FLET ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP ; --> RETURN-FROM PROGN LET XLIB::EVENT-DISPATCH XLIB::READING-EVENT ; --> XLIB::WITH-BUFFER-INPUT LET LET* LET CASE LET COND IF COND IF COND IF ; --> COND IF PROGN XLIB::BINDING-EVENT-VALUES LET LET LET MACROLET IF ZEROP ; ==> ; (= #:G5388 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; --> XLIB:EVENT-COND LET XLIB::EVENT-LOOP LET XLIB:WITH-EVENT-QUEUE MACROLET ; --> LET XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION PROGV LET ; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK ; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN LOOP BLOCK TAGBODY PROGN ; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET UNWIND-PROTECT FLET ; --> BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK SB-C::%WITHIN-CLEANUP ; --> RETURN-FROM PROGN LET XLIB::EVENT-DISPATCH XLIB::READING-EVENT ; --> XLIB::WITH-BUFFER-INPUT LET LET* LET CASE LET COND IF COND IF COND IF ; --> COND IF COND IF PROGN XLIB::BINDING-EVENT-VALUES LET LET LET MACROLET IF ; --> ZEROP ; ==> ; (= #:G5254 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; ==> ; (= #:G5253 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/demo/clipboard-TMP.fasl written ; compilation finished in 0:00:00.098 ; compiling file "/usr/share/common-lisp/source/clx/demo/clx-demos.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (DEFPACKAGE :DEMOS ...) ; compiling (IN-PACKAGE :DEMOS) ; compiling (DEFPARAMETER *DEMOS* ...) ; compiling (DEFVAR *DISPLAY* ...) ; compiling (DEFVAR *SCREEN* ...) ; compiling (DEFVAR *ROOT* ...) ; compiling (DEFVAR *BLACK-PIXEL* ...) ; compiling (DEFVAR *WHITE-PIXEL* ...) ; compiling (DEFVAR *WINDOW* ...) ; compiling (DEFMACRO DEFDEMO ...) ; compiling (DEFUN DO-ALL-DEMOS ...) ; compiling (DEFVAR *NAME-TO-FUNCTION* ...) ; compiling (DEFVAR *KEYWORD-PACKAGE* ...) ; compiling (DEFUN DEMO ...) ; compiling (DEFUN FULL-WINDOW-STATE ...) ; compiling (DEFUN GREYNETIC ...) ; compiling (DEFVAR *GREYNETIC-PIXMAP-ARRAY* ...) ; compiling (DEFUN GREYNETIC-PIXMAPPER ...) ; compiling (DEFSTRUCT QIX ...) ; compiling (DEFUN CONSTRUCT-QIX ...) ; compiling (DEFUN MAKE-CIRCULAR-LIST ...) ; compiling (DEFUN QIX ...) ; compiling (DEFDEMO QIX-DEMO ...) ; compiling (DEFCONSTANT D360 ...) ; compiling (DEFCONSTANT D270 ...) ; compiling (DEFCONSTANT D180 ...) ; compiling (DEFCONSTANT D90 ...) ; compiling (DEFCONSTANT VECMAX ...) ; compiling (DEFPARAMETER SIN-ARRAY ...) ; compiling (DEFMACRO PSIN ...) ; compiling (DEFMACRO PCOS ...) ; compiling (DEFMACRO HIGH-16BITS-* ...) ; compiling (DEFUN COMPLETE ...) ; compiling (DEFPARAMETER CONTINUOUS ...) ; compiling (DEFPARAMETER STYINC ...) ; compiling (DEFPARAMETER PETINC ...) ; compiling (DEFPARAMETER SCALFAC-FAC ...) ; compiling (DEFUN PETAL ...) ; compiling (DEFDEMO PETAL-DEMO ...) ; compiling (DEFPARAMETER DISK-THICKNESS ...) ; compiling (DEFPARAMETER DISK-SPACING ...) ; compiling (DEFVAR *HORIZONTAL-VELOCITY* ...) ; compiling (DEFVAR *VERTICAL-VELOCITY* ...) ; compiling (DEFVAR *HANOI-WINDOW* ...) ; compiling (DEFVAR *HANOI-WINDOW-HEIGHT* ...) ; compiling (DEFVAR *TRANSFER-HEIGHT* ...) ; compiling (DEFVAR *HANOI-GCONTEXT* ...) ; compiling (DEFSTRUCT DISK ...) ; compiling (DEFSTRUCT NEEDLE ...) ; compiling (DEFUN NEEDLE-TOP-HEIGHT ...) ; compiling (DEFVAR AVAILABLE-DISKS ...) ; compiling (DEFVAR NEEDLE-1 ...) ; compiling (DEFVAR NEEDLE-2 ...) ; compiling (DEFVAR NEEDLE-3 ...) ; compiling (DEFMACRO INVERT-RECTANGLE ...) ; compiling (DEFMACRO UPDATE-SCREEN ...) ; compiling (DEFUN SLIDE-UP ...) ; compiling (DEFUN SLIDE-DOWN ...) ; compiling (DEFUN LIFT-DISK ...) ; compiling (DEFUN DROP-DISK ...) ; compiling (DEFUN DROP-INITIAL-DISK ...) ; compiling (DEFUN SLIDE-RIGHT ...) ; compiling (DEFUN SLIDE-LEFT ...) ; compiling (DEFUN TRANSFER-DISK ...) ; compiling (DEFUN MOVE-ONE-DISK ...) ; compiling (DEFUN MOVE-N-DISKS ...) ; compiling (DEFUN HANOI ...) ; compiling (DEFDEMO SLOW-HANOI-DEMO ...) ; compiling (DEFDEMO FAST-HANOI-DEMO ...) ; compiling (DEFUN BOUNCE-WINDOW ...) ; compiling (DEFDEMO SHOVE-BOUNCE-DEMO ...) ; compiling (DEFDEMO BOUNCE-DEMO ...) ; compiling (DEFUN RECURRENCE ...) ; compiling (DEFUN DRAW-PPICT ...) ; compiling (DEFDEMO RECURRENCE-DEMO ...) ; compiling (DEFMACRO RECT-X ...) ; compiling (DEFMACRO RECT-Y ...) ; compiling (DEFMACRO RECT-WIDTH ...) ; compiling (DEFMACRO RECT-HEIGHT ...) ; compiling (DEFUN PLAID ...) ; compiling (DEFDEMO PLAID-DEMO ...) ; compiling (DEFVAR *BALL-SIZE-X* ...) ; compiling (DEFVAR *BALL-SIZE-Y* ...) ; compiling (DEFMACRO XOR-BALL ...) ; compiling (DEFCONSTANT BBALL-GRAVITY ...) ; compiling (DEFCONSTANT MAXIMUM-X-DRIFT ...) ; compiling (DEFVAR *MAX-BBALL-X*) ; compiling (DEFVAR *MAX-BBALL-Y*) ; compiling (DEFSTRUCT BALL ...) ; compiling (DEFUN GET-BOUNCE-IMAGE ...) ; compiling (DEFUN BOUNCE-1-BALL ...) ; compiling (DEFUN BOUNCE-BALLS ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/demo/clx-demos-TMP.fasl written ; compilation finished in 0:00:00.355 ; compiling file "/usr/share/common-lisp/source/clx/demo/gl-test.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (DEFPACKAGE :GL-TEST ...) ; compiling (IN-PACKAGE :GL-TEST) ; compiling (DEFUN TEST ...) ; compiling (DEFUN NO-FLOATS ...) ; compiling (DEFUN ANIM ...) ; compiling (DEFUN ANIM/LIST ...) ; compiling (DEFCONSTANT +PI+ ...) ; compiling (DECLAIM (TYPE SINGLE-FLOAT ...)) ; compiling (DEFUN GEAR ...) ; compiling (DEFUN DRAW ...) ; compiling (DEFUN RESHAPE ...) ; compiling (DEFUN INIT ...) ; compiling (DEFUN GEARS* ...) ; compiling (DEFUN GEARS ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/demo/gl-test-TMP.fasl written ; compilation finished in 0:00:00.207 ; compiling file "/usr/share/common-lisp/source/clx/demo/mandel.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (DEFPACKAGE "XMANDEL" ...) ; compiling (IN-PACKAGE "XMANDEL") ; compiling (DEFVAR *DISPLAY* ...) ; compiling (DEFVAR *SCREEN* ...) ; compiling (DEFVAR *BACKING-STORE* ...) ; compiling (DEFVAR *COLMAP* ...) ; compiling (DEFVAR *HELPWIN* ...) ; compiling (DEFVAR *ZOOM-TABLE* ...) ; compiling (DEFVAR *ZOOMCOLMAP* ...) ; compiling (DEFVAR *WHITE* ...) ; compiling (DEFVAR *WINMAP* ...) ; compiling (DEFVAR *TEXTMAP* ...) ; compiling (DEFVAR *MODSTATE* ...) ; compiling (DECLAIM (LIST *MODSTATE*)) ; compiling (DEFUN MAKE-SHIFT-FOO ...) ; compiling (DEFSTRUCT (MANDEL-SQUARE #) ...) ; compiling (DEFUN MAKE-QUEUE ...) ; compiling (DEFCLASS QUEUE ...) ; compiling (DEFCLASS OUT-QUEUE ...) ; compiling (DEFVAR *SYSQUEUE* ...) ; compiling (DEFGENERIC EMPTY-P ...) ; compiling (DEFGENERIC EMPTY ...) ; compiling (DEFGENERIC EMPTY-WIN ...) ; compiling (DEFGENERIC ENQUEUE ...) ; compiling (DEFGENERIC QUEUE-PUSH ...) ; compiling (DEFGENERIC DEQUEUE ...) ; compiling (DEFMETHOD EMPTY-P ...) ; compiling (DEFMETHOD EMPTY-P ...) ; compiling (DEFMETHOD EMPTY-P ...) ; compiling (DEFMETHOD EMPTY ...) ; compiling (DEFMETHOD EMPTY ...) ; compiling (DEFMETHOD EMPTY ...) ; compiling (DEFMETHOD EMPTY-WIN ...) ; compiling (DEFMETHOD ENQUEUE ...) ; compiling (DEFMETHOD ENQUEUE ...) ; compiling (DEFMETHOD QUEUE-PUSH ...) ; compiling (DEFMETHOD QUEUE-PUSH ...) ; compiling (DEFMETHOD DEQUEUE ...) ; compiling (DEFMETHOD DEQUEUE ...) ; compiling (DEFUN ITER ...) ; compiling (DEFCLASS ZOOMER ...) ; compiling (DEFUN INIT-COLOURS ...) ; compiling (DEFMACRO MODCOL ...) ; compiling (DEFUN PLOT ...) ; compiling (DEFUN DISPLAY-HELP ...) ; compiling (DEFUN REPAINT-WINDOW ...) ; compiling (DEFUN FILL-SQUARE ...) ; compiling (DEFUN MAKE-SQUARE ...) ; compiling (DEFUN MANDEL-WIN ...) ; compiling (DEFUN NEW-WINDOW ...) ; compiling (DEFUN FILL-SQUARE-P ...) ; compiling (DEFMACRO Z ...) ; compiling (DEFUN DRAW-SQUARE ...) ; compiling (DEFUN CREATE-ZOOM ...) ; compiling (DEFUN UPDATE-ZOOM ...) ; compiling (DEFUN FINISH-ZOOM ...) ; compiling (DEFUN DO-ZOOM ...) ; compiling (DEFUN QUIT-WINDOW ...) ; compiling (DEFUN EVENT-LOOP ...) ; file: /usr/share/common-lisp/source/clx/demo/mandel.lisp ; in: DEFUN EVENT-LOOP ; (1- (+ XMANDEL::X XMANDEL::WIDTH)) ; ==> ; (- (+ XMANDEL::X XMANDEL::WIDTH) 1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -9223372036854775809 9223372036854775805) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -9223372036854775809 9223372036854775805) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (1- (+ XMANDEL::Y XMANDEL::HEIGHT)) ; ==> ; (- (+ XMANDEL::Y XMANDEL::HEIGHT) 1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -9223372036854775809 9223372036854775805) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -9223372036854775809 9223372036854775805) ; &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; (1- (+ XMANDEL::X XMANDEL::WIDTH)) ; ==> ; (- (+ XMANDEL::X XMANDEL::WIDTH) 1) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; (1- (+ XMANDEL::Y XMANDEL::HEIGHT)) ; ==> ; (- (+ XMANDEL::Y XMANDEL::HEIGHT) 1) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-- ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/demo/mandel-TMP.fasl written ; compilation finished in 0:00:00.288 ; compiling file "/usr/share/common-lisp/source/clx/demo/menu.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFSTRUCT (MENU) ...) ; compiling (DEFUN CREATE-MENU ...) ; compiling (DEFUN MENU-SET-ITEM-LIST ...) ; compiling (DEFPARAMETER *MENU-ITEM-MARGIN* ...) ; compiling (DEFUN MENU-RECOMPUTE-GEOMETRY ...) ; compiling (DEFUN MENU-REFRESH ...) ; compiling (DEFUN MENU-CHOOSE ...) ; file: /usr/share/common-lisp/source/clx/demo/menu.lisp ; in: DEFUN MENU-CHOOSE ; (ZEROP COUNT) ; ==> ; (= COUNT 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (ASSOC XLIB::EVENT-WINDOW XLIB::ITEMS) ; ==> ; (SB-KERNEL:%ASSOC SB-C::ITEM LIST) ; ; note: unable to ; optimize ; due to type uncertainty: ; can't tell whether the first argument is a (OR FIXNUM (NOT NUMBER)) ; (POSITION XLIB:WINDOW XLIB::ITEMS :KEY #'FIRST) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR CONS NULL VECTOR). ; (EQL XLIB::MW XLIB:WINDOW) ; ; note: forced to do GENERIC-EQL (cost 10) ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; unable to do inline float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; compiling (DEFUN MENU-HIGHLIGHT-ITEM ...) ; compiling (DEFUN MENU-UNHIGHLIGHT-ITEM ...) ; compiling (DEFUN MENU-PRESENT ...) ; compiling (DEFUN JUST-SAY-LISP ...) ; compiling (DEFUN POP-UP ...) ; file: /usr/share/common-lisp/source/clx/demo/menu.lisp ; in: DEFUN POP-UP ; (ZEROP COUNT) ; ==> ; (= COUNT 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/demo/menu-TMP.fasl written ; compilation finished in 0:00:00.172 ; compiling file "/usr/share/common-lisp/source/clx/demo/zoid.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFINE-EXTENSION "ZoidExtension") ; compiling (DEFUN DRAW-FILLED-TRAPEZOIDS ...) ; file: /usr/share/common-lisp/source/clx/demo/zoid.lisp ; in: DEFUN DRAW-FILLED-TRAPEZOIDS ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA XLIB:CARD8) 1) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; compiling (DEFINE-GCONTEXT-ACCESSOR TRAPEZOID-ALIGNMENT ...) ; compiling (DEFUN SET-TRAPEZOID-ALIGNMENT ...) ; file: /usr/share/common-lisp/source/clx/demo/zoid.lisp ; in: DEFUN SET-TRAPEZOID-ALIGNMENT ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE) ; ((XLIB::DATA XLIB:CARD8) 2) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((XLIB::MEMBER8 XLIB::%ERROR :X :Y) XLIB::ALIGNMENT)) ; --> LET XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET BLOCK ; --> MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::BUFFER-NEW-REQUEST-NUMBER BLOCK SETF LET* MULTIPLE-VALUE-BIND LET ; --> LDB SB-KERNEL:%LDB 1+ ; ==> ; (+ (XLIB::BUFFER-REQUEST-NUMBER XLIB::BUFFER) 1) ; ; note: unable to ; associate +/+ of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/- of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &REST T). ; etc. ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/demo/zoid-TMP.fasl written ; compilation finished in 0:00:00.047 ; compiling file "/usr/share/common-lisp/source/clx/test/image.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *IMAGE-TEST-HOST* ...) ; compiling (DEFVAR *IMAGE-TEST-NIMAGES* ...) ; compiling (DEFVAR *IMAGE-TEST-COPY* ...) ; compiling (DEFVAR *IMAGE-TEST-COPY-RANDOM-SUBIMAGE* ...) ; compiling (DEFVAR *IMAGE-TEST-PUT-RANDOM-SUBIMAGE* ...) ; compiling (DEFVAR *IMAGE-TEST-GET-IMAGE-RESULT-TYPE-CHOICES* ...) ; compiling (DEFVAR *IMAGE-TEST-GET-IMAGE-IMAGE-X-FORMAT-CHOICES* ...) ; compiling (DEFUN IMAGE-TEST ...) ; compiling (DEFUN IMAGE-TEST-CHOOSE ...) ; compiling (DEFUN IMAGE-TEST-GET-IMAGE ...) ; compiling (DEFUN IMAGE-TEST-SUBIMAGE-PARAMETERS ...) ; compiling (DEFUN IMAGE-TEST-COPY-IMAGE ...) ; compiling (DEFUN IMAGE-TEST-PUT-IMAGE ...) ; compiling (DEFUN IMAGE-INFO ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/test/image-TMP.fasl written ; compilation finished in 0:00:00.047 ; compiling file "/usr/share/common-lisp/source/clx/test/trapezoid.lisp" (written 28 NOV 2009 03:43:30 PM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFUN ZOID-TEST ...) ; file: /usr/share/common-lisp/source/clx/test/trapezoid.lisp ; in: DEFUN ZOID-TEST ; (ZEROP COUNT) ; ==> ; (= COUNT 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/usr/share/common-lisp/source/clx/test/trapezoid-TMP.fasl written ; compilation finished in 0:00:00.025 ; compiling file "/build/buildd/stumpwm-0.9.9/package.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (DEFPACKAGE :STUMPWM ...) ; compiling (DEFPACKAGE :STUMPWM-USER ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/package-TMP.fasl written ; compilation finished in 0:00:00.001 ; compiling file "/build/buildd/stumpwm-0.9.9/primitives.lisp" (written 07 MAY 2015 02:23:36 AM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *SUPPRESS-ABORT-MESSAGES* ...) ; compiling (DEFVAR *TIMEOUT-WAIT* ...) ; compiling (DEFVAR *TIMEOUT-FRAME-INDICATOR-WAIT* ...) ; compiling (DEFVAR *FRAME-INDICATOR-TIMER* ...) ; compiling (DEFVAR *FRAME-INDICATOR-TEXT* ...) ; compiling (DEFVAR *SUPPRESS-FRAME-INDICATOR* ...) ; compiling (DEFVAR *SUPPRESS-WINDOW-PLACEMENT-INDICATOR* ...) ; compiling (DEFVAR *MESSAGE-WINDOW-TIMER* ...) ; compiling (DEFVAR *GRAB-POINTER-COUNT* ...) ; compiling (DEFVAR *GRAB-POINTER-FONT* ...) ; compiling (DEFVAR *GRAB-POINTER-CHARACTER* ...) ; compiling (DEFVAR *GRAB-POINTER-CHARACTER-MASK* ...) ; compiling (DEFVAR *GRAB-POINTER-FOREGROUND* ...) ; compiling (DEFVAR *GRAB-POINTER-BACKGROUND* ...) ; compiling (DEFVAR *COMMAND-MODE-START-HOOK* ...) ; compiling (DEFVAR *COMMAND-MODE-END-HOOK* ...) ; compiling (DEFVAR *URGENT-WINDOW-HOOK* ...) ; compiling (DEFVAR *MAP-WINDOW-HOOK* ...) ; compiling (DEFVAR *UNMAP-WINDOW-HOOK* ...) ; compiling (DEFVAR *NEW-WINDOW-HOOK* ...) ; compiling (DEFVAR *DESTROY-WINDOW-HOOK* ...) ; compiling (DEFVAR *FOCUS-WINDOW-HOOK* ...) ; compiling (DEFVAR *PLACE-WINDOW-HOOK* ...) ; compiling (DEFVAR *START-HOOK* ...) ; compiling (DEFVAR *QUIT-HOOK* ...) ; compiling (DEFVAR *INTERNAL-LOOP-HOOK* ...) ; compiling (DEFVAR *EVENT-PROCESSING-HOOK* ...) ; compiling (DEFVAR *FOCUS-FRAME-HOOK* ...) ; compiling (DEFVAR *NEW-FRAME-HOOK* ...) ; compiling (DEFVAR *SPLIT-FRAME-HOOK* ...) ; compiling (DEFVAR *MESSAGE-HOOK* ...) ; compiling (DEFVAR *TOP-LEVEL-ERROR-HOOK* ...) ; compiling (DEFVAR *FOCUS-GROUP-HOOK* ...) ; compiling (DEFVAR *KEY-PRESS-HOOK* ...) ; compiling (DEFVAR *ROOT-CLICK-HOOK* ...) ; compiling (DEFVAR *NEW-MODE-LINE-HOOK* ...) ; compiling (DEFVAR *DESTROY-MODE-LINE-HOOK* ...) ; compiling (DEFVAR *MODE-LINE-CLICK-HOOK* ...) ; compiling (DEFVAR *DISPLAY* ...) ; compiling (DEFVAR *SHELL-PROGRAM* ...) ; compiling (DEFVAR *MAXSIZE-BORDER-WIDTH* ...) ; compiling (DEFVAR *TRANSIENT-BORDER-WIDTH* ...) ; compiling (DEFVAR *NORMAL-BORDER-WIDTH* ...) ; compiling (DEFVAR *TEXT-COLOR* ...) ; compiling (DEFVAR *MENU-MAXIMUM-HEIGHT* ...) ; compiling (DEFVAR *MENU-SCROLLING-STEP* ...) ; compiling (DEFPARAMETER +NETWM-SUPPORTED+ ...) ; compiling (DEFPARAMETER +NETWM-ALLOWED-ACTIONS+ ...) ; compiling (DEFPARAMETER +NETWM-WINDOW-TYPES+ ...) ; compiling (DEFCONSTANT +WITHDRAWN-STATE+ ...) ; compiling (DEFCONSTANT +NORMAL-STATE+ ...) ; compiling (DEFCONSTANT +ICONIC-STATE+ ...) ; compiling (DEFVAR *WINDOW-EVENTS* ...) ; compiling (DEFVAR *WINDOW-PARENT-EVENTS* ...) ; compiling (DEFVAR *MESSAGE-WINDOW-PADDING* ...) ; compiling (DEFVAR *MESSAGE-WINDOW-GRAVITY* ...) ; compiling (DEFVAR *EDITOR-BINDINGS* ...) ; compiling (DEFVAR *INPUT-WINDOW-GRAVITY* ...) ; compiling (DEFPARAMETER +DEFAULT-FOREGROUND-COLOR+ ...) ; compiling (DEFPARAMETER +DEFAULT-BACKGROUND-COLOR+ ...) ; compiling (DEFPARAMETER +DEFAULT-WINDOW-BACKGROUND-COLOR+ ...) ; compiling (DEFPARAMETER +DEFAULT-BORDER-COLOR+ ...) ; compiling (DEFPARAMETER +DEFAULT-FONT-NAME+ ...) ; compiling (DEFPARAMETER +DEFAULT-FOCUS-COLOR+ ...) ; compiling (DEFPARAMETER +DEFAULT-UNFOCUS-COLOR+ ...) ; compiling (DEFPARAMETER +DEFAULT-FLOAT-FOCUS-COLOR+ ...) ; compiling (DEFPARAMETER +DEFAULT-FLOAT-UNFOCUS-COLOR+ ...) ; compiling (DEFPARAMETER +DEFAULT-FRAME-OUTLINE-WIDTH+ ...) ; compiling (DEFVAR *NORMAL-GRAVITY* ...) ; compiling (DEFVAR *MAXSIZE-GRAVITY* ...) ; compiling (DEFVAR *TRANSIENT-GRAVITY* ...) ; compiling (DEFVAR *TOP-LEVEL-ERROR-ACTION* ...) ; compiling (DEFVAR *WINDOW-NAME-SOURCE* ...) ; compiling (DEFSTRUCT FRAME ...) ; compiling (DEFSTRUCT (HEAD #) ...) ; compiling (DEFCLASS SCREEN ...) ; compiling (DEFSTRUCT CCONTEXT ...) ; compiling (DEFUN SCREEN-MESSAGE-WINDOW ...) ; compiling (DEFUN SCREEN-MESSAGE-PIXMAP ...) ; compiling (DEFUN SCREEN-MESSAGE-GC ...) ; compiling (DEFUN SCREEN-FONT ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFVAR *WINDOW-NUMBER-MAP* ...) ; compiling (DEFVAR *GROUP-NUMBER-MAP* ...) ; compiling (DEFVAR *FRAME-NUMBER-MAP* ...) ; compiling (DEFUN GET-FRAME-NUMBER-TRANSLATION ...) ; compiling (DEFSTRUCT MODIFIERS ...) ; compiling (DEFVAR *ALL-MODIFIERS* ...) ; compiling (DEFVAR *MODIFIERS* ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFVAR *SCREEN-LIST* ...) ; compiling (DEFVAR *INITIALIZING* ...) ; compiling (DEFVAR *PROCESSING-EXISTING-WINDOWS* ...) ; compiling (DEFVAR *EXECUTING-STUMPWM-COMMAND* ...) ; compiling (DEFVAR *INTERACTIVEP* ...) ; compiling (DEFMACRO WITH-RESTARTS-MENU ...) ; compiling (DEFUN RUN-HOOK-WITH-ARGS ...) ; compiling (DEFUN RUN-HOOK ...) ; compiling (DEFMACRO ADD-HOOK ...) ; compiling (DEFMACRO REMOVE-HOOK ...) ; compiling (DEFUN CONC1 ...) ; compiling (DEFUN SORT1 ...) ; compiling (DEFUN MAPCAR-HASH ...) ; compiling (DEFUN FIND-FREE-NUMBER ...) ; compiling (DEFUN REMOVE-PLIST ...) ; compiling (DEFUN SCREEN-DISPLAY-STRING ...) ; compiling (DEFUN SPLIT-SEQ ...) ; compiling (DEFUN SPLIT-STRING ...) ; compiling (DEFUN INSERT-BEFORE ...) ; compiling (DEFVAR *DEBUG-LEVEL* ...) ; compiling (DEFVAR *DEBUG-EXPOSE-EVENTS* ...) ; compiling (DEFVAR *DEBUG-STREAM* ...) ; compiling (DEFUN DFORMAT ...) ; compiling (DEFVAR *REDIRECT-STREAM* ...) ; compiling (DEFUN REDIRECT-ALL-OUTPUT ...) ; compiling (DEFUN FORMAT-EXPAND ...) ; compiling (DEFVAR *WINDOW-FORMATTERS* ...) ; compiling (DEFVAR *WINDOW-FORMAT* ...) ; compiling (DEFVAR *WINDOW-INFO-FORMAT* ...) ; compiling (DEFVAR *GROUP-FORMATTERS* ...) ; compiling (DEFVAR *GROUP-FORMAT* ...) ; compiling (DEFVAR *LIST-HIDDEN-GROUPS* ...) ; compiling (DEFVAR *X-SELECTION* ...) ; compiling (DEFVAR *LAST-COMMAND* ...) ; compiling (DEFVAR *MAX-LAST-MESSAGE-SIZE* ...) ; compiling (DEFVAR *RECORD-LAST-MSG-OVERRIDE* ...) ; compiling (DEFVAR *SUPPRESS-ECHO-TIMEOUT* ...) ; compiling (DEFVAR *IGNORE-ECHO-TIMEOUT* ...) ; compiling (DEFVAR *RUN-OR-RAISE-ALL-GROUPS* ...) ; compiling (DEFVAR *RUN-OR-RAISE-ALL-SCREENS* ...) ; compiling (DEFVAR *DENY-MAP-REQUEST* ...) ; compiling (DEFVAR *DENY-RAISE-REQUEST* ...) ; compiling (DEFVAR *SUPPRESS-DENY-MESSAGES* ...) ; compiling (DEFVAR *HONOR-WINDOW-MOVES* ...) ; compiling (DEFVAR *RESIZE-HIDES-WINDOWS* ...) ; compiling (DEFUN DENY-REQUEST-P ...) ; compiling (DEFUN FLATTEN ...) ; compiling (DEFUN LIST-SPLICE-REPLACE ...) ; compiling (DEFVAR *MIN-FRAME-WIDTH* ...) ; compiling (DEFVAR *MIN-FRAME-HEIGHT* ...) ; compiling (DEFVAR *NEW-FRAME-ACTION* ...) ; compiling (DEFVAR *NEW-WINDOW-PREFERRED-FRAME* ...) ; compiling (DEFUN BACKTRACE-STRING ...) ; compiling (DEFVAR *STARTUP-MESSAGE* ...) ; compiling (DEFVAR *DEFAULT-PACKAGE* ...) ; compiling (DEFUN CONCAT ...) ; compiling (DEFVAR *WINDOW-PLACEMENT-RULES* ...) ; compiling (DEFMACRO DEFINE-FRAME-PREFERENCE ...) ; compiling (DEFUN CLEAR-WINDOW-PLACEMENT-RULES ...) ; compiling (DEFVAR *MOUSE-FOCUS-POLICY* ...) ; compiling (DEFVAR *ROOT-CLICK-FOCUSES-FRAME* ...) ; compiling (DEFVAR *BANISH-POINTER-TO* ...) ; compiling (DEFVAR *XWIN-TO-WINDOW* ...) ; compiling (DEFVAR *RESIZE-MAP* ...) ; compiling (DEFVAR *DEFAULT-GROUP-NAME* ...) ; compiling (DEFMACRO WITH-FOCUS ...) ; compiling (DEFVAR *LAST-UNHANDLED-ERROR* ...) ; compiling (DEFVAR *SHOW-COMMAND-BACKTRACE* ...) ; compiling (DEFVAR *WINDOW-BORDER-STYLE* ...) ; compiling (DEFVAR *DATA-DIR* ...) ; compiling (DEFUN DATA-DIR-FILE ...) ; compiling (DEFMACRO WITH-DATA-FILE ...) ; compiling (DEFMACRO MOVE-TO-HEAD ...) ; compiling (DEFINE-CONDITION STUMPWM-ERROR ...) ; compiling (DEFUN INTERN1 ...) ; compiling (DEFUN COMMAND-MODE-START-MESSAGE ...) ; compiling (DEFUN COMMAND-MODE-END-MESSAGE ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/primitives-TMP.fasl written ; compilation finished in 0:00:00.296 ; compiling file "/build/buildd/stumpwm-0.9.9/workarounds.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE :XLIB) ; compiling (DEFUN GET-WM-CLASS ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/workarounds-TMP.fasl written ; compilation finished in 0:00:00.014 STYLE-WARNING: redefining XLIB:GET-WM-CLASS in DEFUN ; compiling file "/build/buildd/stumpwm-0.9.9/wrappers.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFINE-CONDITION NOT-IMPLEMENTED ...) ; compiling (DEFUN RUN-PROG ...) ; compiling (DEFUN RUN-PROG-COLLECT-OUTPUT ...) ; compiling (DEFUN GETENV ...) ; compiling (DEFUN (SETF GETENV) ...) ; compiling (DEFUN PATHNAME-IS-EXECUTABLE-P ...) ; compiling (DEFUN PROBE-PATH ...) ; compiling (DEFUN PORTABLE-FILE-WRITE-DATE ...) ; compiling (DEFUN PRINT-BACKTRACE ...) ; compiling (DEFUN BYTES-TO-STRING ...) ; compiling (DEFUN STRING-TO-BYTES ...) ; compiling (DEFUN UTF8-TO-STRING ...) ; compiling (DEFUN STRING-TO-UTF8 ...) ; compiling (DEFUN MAKE-XLIB-WINDOW ...) ; compiling (DEFUN LOOKUP-ERROR-RECOVERABLE-P ...) ; compiling (DEFUN RECOVER-FROM-LOOKUP-ERROR ...) ; compiling (DEFUN DIRECTORY-NO-DEREF ...) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFUN READ-LINE-FROM-SYSFS ...) ; compiling (DEFUN ARGV ...) ; compiling (DEFUN EXECV ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/wrappers-TMP.fasl written ; compilation finished in 0:00:00.102 ; compiling file "/build/buildd/stumpwm-0.9.9/pathnames.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFUN COMPONENT-PRESENT-P ...) ; compiling (DEFUN DIRECTORY-PATHNAME-P ...) ; compiling (DEFUN PATHNAME-AS-DIRECTORY ...) ; compiling (DEFUN DIRECTORY-WILDCARD ...) ; compiling (DEFUN LIST-DIRECTORY ...) ; compiling (DEFUN LIST-DIRECTORY-RECURSIVE ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/pathnames-TMP.fasl written ; compilation finished in 0:00:00.051 ; compiling file "/build/buildd/stumpwm-0.9.9/font-rendering.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (DEFGENERIC FONT-EXISTS-P ...) ; compiling (DEFGENERIC OPEN-FONT ...) ; compiling (DEFGENERIC CLOSE-FONT ...) ; compiling (DEFGENERIC FONT-ASCENT ...) ; compiling (DEFGENERIC FONT-DESCENT ...) ; compiling (DEFGENERIC FONT-HEIGHT ...) ; compiling (DEFGENERIC TEXT-LINES-HEIGHT ...) ; compiling (DEFGENERIC TEXT-LINE-WIDTH ...) ; compiling (DEFGENERIC DRAW-IMAGE-GLYPHS ...) ; compiling (DEFMETHOD FONT-EXISTS-P ...) ; compiling (DEFMETHOD OPEN-FONT ...) ; compiling (DEFMETHOD CLOSE-FONT ...) ; compiling (DEFMETHOD FONT-ASCENT ...) ; compiling (DEFMETHOD FONT-DESCENT ...) ; compiling (DEFMETHOD FONT-HEIGHT ...) ; compiling (DEFMETHOD TEXT-LINE-WIDTH ...) ; compiling (DEFMETHOD DRAW-IMAGE-GLYPHS ...) ; compiling (DEFMETHOD FONT-HEIGHT ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/font-rendering-TMP.fasl written ; compilation finished in 0:00:00.038 ; compiling file "/build/buildd/stumpwm-0.9.9/keysyms.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (DEFVAR *KEYSYM-NAME-TRANSLATIONS* ...) ; compiling (DEFVAR *NAME-KEYSYM-TRANSLATIONS* ...) ; compiling (DEFUN DEFINE-KEYSYM ...) ; compiling (DEFUN KEYSYM-NAME->KEYSYM ...) ; compiling (DEFUN KEYSYM->KEYSYM-NAME ...) ; compiling (DEFINE-KEYSYM 16777215 ...) ; compiling (DEFINE-KEYSYM 65288 ...) ; compiling (DEFINE-KEYSYM 65289 ...) ; compiling (DEFINE-KEYSYM 65290 ...) ; compiling (DEFINE-KEYSYM 65291 ...) ; compiling (DEFINE-KEYSYM 65293 ...) ; compiling (DEFINE-KEYSYM 65299 ...) ; compiling (DEFINE-KEYSYM 65300 ...) ; compiling (DEFINE-KEYSYM 65301 ...) ; compiling (DEFINE-KEYSYM 65307 ...) ; compiling (DEFINE-KEYSYM 65535 ...) ; compiling (DEFINE-KEYSYM 65312 ...) ; compiling (DEFINE-KEYSYM 65335 ...) ; compiling (DEFINE-KEYSYM 65340 ...) ; compiling (DEFINE-KEYSYM 65341 ...) ; compiling (DEFINE-KEYSYM 65342 ...) ; compiling (DEFINE-KEYSYM 65313 ...) ; compiling (DEFINE-KEYSYM 65314 ...) ; compiling (DEFINE-KEYSYM 65315 ...) ; compiling (DEFINE-KEYSYM 65315 ...) ; compiling (DEFINE-KEYSYM 65316 ...) ; compiling (DEFINE-KEYSYM 65317 ...) ; compiling (DEFINE-KEYSYM 65318 ...) ; compiling (DEFINE-KEYSYM 65319 ...) ; compiling (DEFINE-KEYSYM 65320 ...) ; compiling (DEFINE-KEYSYM 65321 ...) ; compiling (DEFINE-KEYSYM 65322 ...) ; compiling (DEFINE-KEYSYM 65323 ...) ; compiling (DEFINE-KEYSYM 65324 ...) ; compiling (DEFINE-KEYSYM 65325 ...) ; compiling (DEFINE-KEYSYM 65326 ...) ; compiling (DEFINE-KEYSYM 65327 ...) ; compiling (DEFINE-KEYSYM 65328 ...) ; compiling (DEFINE-KEYSYM 65335 ...) ; compiling (DEFINE-KEYSYM 65341 ...) ; compiling (DEFINE-KEYSYM 65342 ...) ; compiling (DEFINE-KEYSYM 65360 ...) ; compiling (DEFINE-KEYSYM 65361 ...) ; compiling (DEFINE-KEYSYM 65362 ...) ; compiling (DEFINE-KEYSYM 65363 ...) ; compiling (DEFINE-KEYSYM 65364 ...) ; compiling (DEFINE-KEYSYM 65365 ...) ; compiling (DEFINE-KEYSYM 65365 ...) ; compiling (DEFINE-KEYSYM 65366 ...) ; compiling (DEFINE-KEYSYM 65366 ...) ; compiling (DEFINE-KEYSYM 65367 ...) ; compiling (DEFINE-KEYSYM 65368 ...) ; compiling (DEFINE-KEYSYM 65376 ...) ; compiling (DEFINE-KEYSYM 65377 ...) ; compiling (DEFINE-KEYSYM 65378 ...) ; compiling (DEFINE-KEYSYM 65379 ...) ; compiling (DEFINE-KEYSYM 65381 ...) ; compiling (DEFINE-KEYSYM 65382 ...) ; compiling (DEFINE-KEYSYM 65383 ...) ; compiling (DEFINE-KEYSYM 65384 ...) ; compiling (DEFINE-KEYSYM 65385 ...) ; compiling (DEFINE-KEYSYM 65386 ...) ; compiling (DEFINE-KEYSYM 65387 ...) ; compiling (DEFINE-KEYSYM 65406 ...) ; compiling (DEFINE-KEYSYM 65406 ...) ; compiling (DEFINE-KEYSYM 65407 ...) ; compiling (DEFINE-KEYSYM 65408 ...) ; compiling (DEFINE-KEYSYM 65417 ...) ; compiling (DEFINE-KEYSYM 65421 ...) ; compiling (DEFINE-KEYSYM 65425 ...) ; compiling (DEFINE-KEYSYM 65426 ...) ; compiling (DEFINE-KEYSYM 65427 ...) ; compiling (DEFINE-KEYSYM 65428 ...) ; compiling (DEFINE-KEYSYM 65429 ...) ; compiling (DEFINE-KEYSYM 65430 ...) ; compiling (DEFINE-KEYSYM 65431 ...) ; compiling (DEFINE-KEYSYM 65432 ...) ; compiling (DEFINE-KEYSYM 65433 ...) ; compiling (DEFINE-KEYSYM 65434 ...) ; compiling (DEFINE-KEYSYM 65434 ...) ; compiling (DEFINE-KEYSYM 65435 ...) ; compiling (DEFINE-KEYSYM 65435 ...) ; compiling (DEFINE-KEYSYM 65436 ...) ; compiling (DEFINE-KEYSYM 65437 ...) ; compiling (DEFINE-KEYSYM 65438 ...) ; compiling (DEFINE-KEYSYM 65439 ...) ; compiling (DEFINE-KEYSYM 65469 ...) ; compiling (DEFINE-KEYSYM 65450 ...) ; compiling (DEFINE-KEYSYM 65451 ...) ; compiling (DEFINE-KEYSYM 65452 ...) ; compiling (DEFINE-KEYSYM 65453 ...) ; compiling (DEFINE-KEYSYM 65454 ...) ; compiling (DEFINE-KEYSYM 65455 ...) ; compiling (DEFINE-KEYSYM 65456 ...) ; compiling (DEFINE-KEYSYM 65457 ...) ; compiling (DEFINE-KEYSYM 65458 ...) ; compiling (DEFINE-KEYSYM 65459 ...) ; compiling (DEFINE-KEYSYM 65460 ...) ; compiling (DEFINE-KEYSYM 65461 ...) ; compiling (DEFINE-KEYSYM 65462 ...) ; compiling (DEFINE-KEYSYM 65463 ...) ; compiling (DEFINE-KEYSYM 65464 ...) ; compiling (DEFINE-KEYSYM 65465 ...) ; compiling (DEFINE-KEYSYM 65470 ...) ; compiling (DEFINE-KEYSYM 65471 ...) ; compiling (DEFINE-KEYSYM 65472 ...) ; compiling (DEFINE-KEYSYM 65473 ...) ; compiling (DEFINE-KEYSYM 65474 ...) ; compiling (DEFINE-KEYSYM 65475 ...) ; compiling (DEFINE-KEYSYM 65476 ...) ; compiling (DEFINE-KEYSYM 65477 ...) ; compiling (DEFINE-KEYSYM 65478 ...) ; compiling (DEFINE-KEYSYM 65479 ...) ; compiling (DEFINE-KEYSYM 65480 ...) ; compiling (DEFINE-KEYSYM 65481 ...) ; compiling (DEFINE-KEYSYM 65482 ...) ; compiling (DEFINE-KEYSYM 65483 ...) ; compiling (DEFINE-KEYSYM 65484 ...) ; compiling (DEFINE-KEYSYM 65485 ...) ; compiling (DEFINE-KEYSYM 65486 ...) ; compiling (DEFINE-KEYSYM 65487 ...) ; compiling (DEFINE-KEYSYM 65488 ...) ; compiling (DEFINE-KEYSYM 65489 ...) ; compiling (DEFINE-KEYSYM 65490 ...) ; compiling (DEFINE-KEYSYM 65491 ...) ; compiling (DEFINE-KEYSYM 65492 ...) ; compiling (DEFINE-KEYSYM 65493 ...) ; compiling (DEFINE-KEYSYM 65494 ...) ; compiling (DEFINE-KEYSYM 65495 ...) ; compiling (DEFINE-KEYSYM 65496 ...) ; compiling (DEFINE-KEYSYM 65497 ...) ; compiling (DEFINE-KEYSYM 65498 ...) ; compiling (DEFINE-KEYSYM 65499 ...) ; compiling (DEFINE-KEYSYM 65500 ...) ; compiling (DEFINE-KEYSYM 65501 ...) ; compiling (DEFINE-KEYSYM 65502 ...) ; compiling (DEFINE-KEYSYM 65503 ...) ; compiling (DEFINE-KEYSYM 65504 ...) ; compiling (DEFINE-KEYSYM 65505 ...) ; compiling (DEFINE-KEYSYM 65506 ...) ; compiling (DEFINE-KEYSYM 65507 ...) ; compiling (DEFINE-KEYSYM 65508 ...) ; compiling (DEFINE-KEYSYM 65509 ...) ; compiling (DEFINE-KEYSYM 65510 ...) ; compiling (DEFINE-KEYSYM 65511 ...) ; compiling (DEFINE-KEYSYM 65512 ...) ; compiling (DEFINE-KEYSYM 65513 ...) ; compiling (DEFINE-KEYSYM 65514 ...) ; compiling (DEFINE-KEYSYM 65515 ...) ; compiling (DEFINE-KEYSYM 65516 ...) ; compiling (DEFINE-KEYSYM 65517 ...) ; compiling (DEFINE-KEYSYM 65518 ...) ; compiling (DEFINE-KEYSYM 65025 ...) ; compiling (DEFINE-KEYSYM 65026 ...) ; compiling (DEFINE-KEYSYM 65027 ...) ; compiling (DEFINE-KEYSYM 65028 ...) ; compiling (DEFINE-KEYSYM 65029 ...) ; compiling (DEFINE-KEYSYM 65406 ...) ; compiling (DEFINE-KEYSYM 65030 ...) ; compiling (DEFINE-KEYSYM 65031 ...) ; compiling (DEFINE-KEYSYM 65032 ...) ; compiling (DEFINE-KEYSYM 65033 ...) ; compiling (DEFINE-KEYSYM 65034 ...) ; compiling (DEFINE-KEYSYM 65035 ...) ; compiling (DEFINE-KEYSYM 65036 ...) ; compiling (DEFINE-KEYSYM 65037 ...) ; compiling (DEFINE-KEYSYM 65038 ...) ; compiling (DEFINE-KEYSYM 65039 ...) ; compiling (DEFINE-KEYSYM 65056 ...) ; compiling (DEFINE-KEYSYM 65057 ...) ; compiling (DEFINE-KEYSYM 65058 ...) ; compiling (DEFINE-KEYSYM 65059 ...) ; compiling (DEFINE-KEYSYM 65060 ...) ; compiling (DEFINE-KEYSYM 65061 ...) ; compiling (DEFINE-KEYSYM 65062 ...) ; compiling (DEFINE-KEYSYM 65063 ...) ; compiling (DEFINE-KEYSYM 65064 ...) ; compiling (DEFINE-KEYSYM 65065 ...) ; compiling (DEFINE-KEYSYM 65066 ...) ; compiling (DEFINE-KEYSYM 65067 ...) ; compiling (DEFINE-KEYSYM 65068 ...) ; compiling (DEFINE-KEYSYM 65069 ...) ; compiling (DEFINE-KEYSYM 65070 ...) ; compiling (DEFINE-KEYSYM 65071 ...) ; compiling (DEFINE-KEYSYM 65072 ...) ; compiling (DEFINE-KEYSYM 65073 ...) ; compiling (DEFINE-KEYSYM 65074 ...) ; compiling (DEFINE-KEYSYM 65075 ...) ; compiling (DEFINE-KEYSYM 65076 ...) ; compiling (DEFINE-KEYSYM 65104 ...) ; compiling (DEFINE-KEYSYM 65105 ...) ; compiling (DEFINE-KEYSYM 65106 ...) ; compiling (DEFINE-KEYSYM 65107 ...) ; compiling (DEFINE-KEYSYM 65108 ...) ; compiling (DEFINE-KEYSYM 65109 ...) ; compiling (DEFINE-KEYSYM 65110 ...) ; compiling (DEFINE-KEYSYM 65111 ...) ; compiling (DEFINE-KEYSYM 65112 ...) ; compiling (DEFINE-KEYSYM 65113 ...) ; compiling (DEFINE-KEYSYM 65114 ...) ; compiling (DEFINE-KEYSYM 65115 ...) ; compiling (DEFINE-KEYSYM 65116 ...) ; compiling (DEFINE-KEYSYM 65117 ...) ; compiling (DEFINE-KEYSYM 65118 ...) ; compiling (DEFINE-KEYSYM 65119 ...) ; compiling (DEFINE-KEYSYM 65120 ...) ; compiling (DEFINE-KEYSYM 65121 ...) ; compiling (DEFINE-KEYSYM 65122 ...) ; compiling (DEFINE-KEYSYM 65232 ...) ; compiling (DEFINE-KEYSYM 65233 ...) ; compiling (DEFINE-KEYSYM 65234 ...) ; compiling (DEFINE-KEYSYM 65236 ...) ; compiling (DEFINE-KEYSYM 65237 ...) ; compiling (DEFINE-KEYSYM 65136 ...) ; compiling (DEFINE-KEYSYM 65137 ...) ; compiling (DEFINE-KEYSYM 65138 ...) ; compiling (DEFINE-KEYSYM 65139 ...) ; compiling (DEFINE-KEYSYM 65140 ...) ; compiling (DEFINE-KEYSYM 65141 ...) ; compiling (DEFINE-KEYSYM 65142 ...) ; compiling (DEFINE-KEYSYM 65143 ...) ; compiling (DEFINE-KEYSYM 65144 ...) ; compiling (DEFINE-KEYSYM 65145 ...) ; compiling (DEFINE-KEYSYM 65146 ...) ; compiling (DEFINE-KEYSYM 65248 ...) ; compiling (DEFINE-KEYSYM 65249 ...) ; compiling (DEFINE-KEYSYM 65250 ...) ; compiling (DEFINE-KEYSYM 65251 ...) ; compiling (DEFINE-KEYSYM 65252 ...) ; compiling (DEFINE-KEYSYM 65253 ...) ; compiling (DEFINE-KEYSYM 65254 ...) ; compiling (DEFINE-KEYSYM 65255 ...) ; compiling (DEFINE-KEYSYM 65256 ...) ; compiling (DEFINE-KEYSYM 65257 ...) ; compiling (DEFINE-KEYSYM 65258 ...) ; compiling (DEFINE-KEYSYM 65259 ...) ; compiling (DEFINE-KEYSYM 65260 ...) ; compiling (DEFINE-KEYSYM 65261 ...) ; compiling (DEFINE-KEYSYM 65262 ...) ; compiling (DEFINE-KEYSYM 65263 ...) ; compiling (DEFINE-KEYSYM 65264 ...) ; compiling (DEFINE-KEYSYM 65265 ...) ; compiling (DEFINE-KEYSYM 65266 ...) ; compiling (DEFINE-KEYSYM 65267 ...) ; compiling (DEFINE-KEYSYM 65268 ...) ; compiling (DEFINE-KEYSYM 65269 ...) ; compiling (DEFINE-KEYSYM 65270 ...) ; compiling (DEFINE-KEYSYM 65271 ...) ; compiling (DEFINE-KEYSYM 65272 ...) ; compiling (DEFINE-KEYSYM 65277 ...) ; compiling (DEFINE-KEYSYM 65273 ...) ; compiling (DEFINE-KEYSYM 65274 ...) ; compiling (DEFINE-KEYSYM 65275 ...) ; compiling (DEFINE-KEYSYM 65276 ...) ; compiling (DEFINE-KEYSYM 64769 ...) ; compiling (DEFINE-KEYSYM 64770 ...) ; compiling (DEFINE-KEYSYM 64771 ...) ; compiling (DEFINE-KEYSYM 64772 ...) ; compiling (DEFINE-KEYSYM 64773 ...) ; compiling (DEFINE-KEYSYM 64774 ...) ; compiling (DEFINE-KEYSYM 64775 ...) ; compiling (DEFINE-KEYSYM 64776 ...) ; compiling (DEFINE-KEYSYM 64777 ...) ; compiling (DEFINE-KEYSYM 64778 ...) ; compiling (DEFINE-KEYSYM 64779 ...) ; compiling (DEFINE-KEYSYM 64780 ...) ; compiling (DEFINE-KEYSYM 64781 ...) ; compiling (DEFINE-KEYSYM 64782 ...) ; compiling (DEFINE-KEYSYM 64783 ...) ; compiling (DEFINE-KEYSYM 64784 ...) ; compiling (DEFINE-KEYSYM 64785 ...) ; compiling (DEFINE-KEYSYM 64786 ...) ; compiling (DEFINE-KEYSYM 64787 ...) ; compiling (DEFINE-KEYSYM 64788 ...) ; compiling (DEFINE-KEYSYM 64789 ...) ; compiling (DEFINE-KEYSYM 64790 ...) ; compiling (DEFINE-KEYSYM 64791 ...) ; compiling (DEFINE-KEYSYM 64792 ...) ; compiling (DEFINE-KEYSYM 64793 ...) ; compiling (DEFINE-KEYSYM 64794 ...) ; compiling (DEFINE-KEYSYM 64795 ...) ; compiling (DEFINE-KEYSYM 64796 ...) ; compiling (DEFINE-KEYSYM 64797 ...) ; compiling (DEFINE-KEYSYM 64798 ...) ; compiling (DEFINE-KEYSYM 32 ...) ; compiling (DEFINE-KEYSYM 33 ...) ; compiling (DEFINE-KEYSYM 34 ...) ; compiling (DEFINE-KEYSYM 35 ...) ; compiling (DEFINE-KEYSYM 36 ...) ; compiling (DEFINE-KEYSYM 37 ...) ; compiling (DEFINE-KEYSYM 38 ...) ; compiling (DEFINE-KEYSYM 39 ...) ; compiling (DEFINE-KEYSYM 39 ...) ; compiling (DEFINE-KEYSYM 40 ...) ; compiling (DEFINE-KEYSYM 41 ...) ; compiling (DEFINE-KEYSYM 42 ...) ; compiling (DEFINE-KEYSYM 43 ...) ; compiling (DEFINE-KEYSYM 44 ...) ; compiling (DEFINE-KEYSYM 45 ...) ; compiling (DEFINE-KEYSYM 46 ...) ; compiling (DEFINE-KEYSYM 47 ...) ; compiling (DEFINE-KEYSYM 48 ...) ; compiling (DEFINE-KEYSYM 49 ...) ; compiling (DEFINE-KEYSYM 50 ...) ; compiling (DEFINE-KEYSYM 51 ...) ; compiling (DEFINE-KEYSYM 52 ...) ; compiling (DEFINE-KEYSYM 53 ...) ; compiling (DEFINE-KEYSYM 54 ...) ; compiling (DEFINE-KEYSYM 55 ...) ; compiling (DEFINE-KEYSYM 56 ...) ; compiling (DEFINE-KEYSYM 57 ...) ; compiling (DEFINE-KEYSYM 58 ...) ; compiling (DEFINE-KEYSYM 59 ...) ; compiling (DEFINE-KEYSYM 60 ...) ; compiling (DEFINE-KEYSYM 61 ...) ; compiling (DEFINE-KEYSYM 62 ...) ; compiling (DEFINE-KEYSYM 63 ...) ; compiling (DEFINE-KEYSYM 64 ...) ; compiling (DEFINE-KEYSYM 65 ...) ; compiling (DEFINE-KEYSYM 66 ...) ; compiling (DEFINE-KEYSYM 67 ...) ; compiling (DEFINE-KEYSYM 68 ...) ; compiling (DEFINE-KEYSYM 69 ...) ; compiling (DEFINE-KEYSYM 70 ...) ; compiling (DEFINE-KEYSYM 71 ...) ; compiling (DEFINE-KEYSYM 72 ...) ; compiling (DEFINE-KEYSYM 73 ...) ; compiling (DEFINE-KEYSYM 74 ...) ; compiling (DEFINE-KEYSYM 75 ...) ; compiling (DEFINE-KEYSYM 76 ...) ; compiling (DEFINE-KEYSYM 77 ...) ; compiling (DEFINE-KEYSYM 78 ...) ; compiling (DEFINE-KEYSYM 79 ...) ; compiling (DEFINE-KEYSYM 80 ...) ; compiling (DEFINE-KEYSYM 81 ...) ; compiling (DEFINE-KEYSYM 82 ...) ; compiling (DEFINE-KEYSYM 83 ...) ; compiling (DEFINE-KEYSYM 84 ...) ; compiling (DEFINE-KEYSYM 85 ...) ; compiling (DEFINE-KEYSYM 86 ...) ; compiling (DEFINE-KEYSYM 87 ...) ; compiling (DEFINE-KEYSYM 88 ...) ; compiling (DEFINE-KEYSYM 89 ...) ; compiling (DEFINE-KEYSYM 90 ...) ; compiling (DEFINE-KEYSYM 91 ...) ; compiling (DEFINE-KEYSYM 92 ...) ; compiling (DEFINE-KEYSYM 93 ...) ; compiling (DEFINE-KEYSYM 94 ...) ; compiling (DEFINE-KEYSYM 95 ...) ; compiling (DEFINE-KEYSYM 96 ...) ; compiling (DEFINE-KEYSYM 96 ...) ; compiling (DEFINE-KEYSYM 97 ...) ; compiling (DEFINE-KEYSYM 98 ...) ; compiling (DEFINE-KEYSYM 99 ...) ; compiling (DEFINE-KEYSYM 100 ...) ; compiling (DEFINE-KEYSYM 101 ...) ; compiling (DEFINE-KEYSYM 102 ...) ; compiling (DEFINE-KEYSYM 103 ...) ; compiling (DEFINE-KEYSYM 104 ...) ; compiling (DEFINE-KEYSYM 105 ...) ; compiling (DEFINE-KEYSYM 106 ...) ; compiling (DEFINE-KEYSYM 107 ...) ; compiling (DEFINE-KEYSYM 108 ...) ; compiling (DEFINE-KEYSYM 109 ...) ; compiling (DEFINE-KEYSYM 110 ...) ; compiling (DEFINE-KEYSYM 111 ...) ; compiling (DEFINE-KEYSYM 112 ...) ; compiling (DEFINE-KEYSYM 113 ...) ; compiling (DEFINE-KEYSYM 114 ...) ; compiling (DEFINE-KEYSYM 115 ...) ; compiling (DEFINE-KEYSYM 116 ...) ; compiling (DEFINE-KEYSYM 117 ...) ; compiling (DEFINE-KEYSYM 118 ...) ; compiling (DEFINE-KEYSYM 119 ...) ; compiling (DEFINE-KEYSYM 120 ...) ; compiling (DEFINE-KEYSYM 121 ...) ; compiling (DEFINE-KEYSYM 122 ...) ; compiling (DEFINE-KEYSYM 123 ...) ; compiling (DEFINE-KEYSYM 124 ...) ; compiling (DEFINE-KEYSYM 125 ...) ; compiling (DEFINE-KEYSYM 126 ...) ; compiling (DEFINE-KEYSYM 160 ...) ; compiling (DEFINE-KEYSYM 161 ...) ; compiling (DEFINE-KEYSYM 162 ...) ; compiling (DEFINE-KEYSYM 163 ...) ; compiling (DEFINE-KEYSYM 164 ...) ; compiling (DEFINE-KEYSYM 165 ...) ; compiling (DEFINE-KEYSYM 166 ...) ; compiling (DEFINE-KEYSYM 167 ...) ; compiling (DEFINE-KEYSYM 168 ...) ; compiling (DEFINE-KEYSYM 169 ...) ; compiling (DEFINE-KEYSYM 170 ...) ; compiling (DEFINE-KEYSYM 171 ...) ; compiling (DEFINE-KEYSYM 172 ...) ; compiling (DEFINE-KEYSYM 173 ...) ; compiling (DEFINE-KEYSYM 174 ...) ; compiling (DEFINE-KEYSYM 175 ...) ; compiling (DEFINE-KEYSYM 176 ...) ; compiling (DEFINE-KEYSYM 177 ...) ; compiling (DEFINE-KEYSYM 178 ...) ; compiling (DEFINE-KEYSYM 179 ...) ; compiling (DEFINE-KEYSYM 180 ...) ; compiling (DEFINE-KEYSYM 181 ...) ; compiling (DEFINE-KEYSYM 182 ...) ; compiling (DEFINE-KEYSYM 183 ...) ; compiling (DEFINE-KEYSYM 184 ...) ; compiling (DEFINE-KEYSYM 185 ...) ; compiling (DEFINE-KEYSYM 186 ...) ; compiling (DEFINE-KEYSYM 187 ...) ; compiling (DEFINE-KEYSYM 188 ...) ; compiling (DEFINE-KEYSYM 189 ...) ; compiling (DEFINE-KEYSYM 190 ...) ; compiling (DEFINE-KEYSYM 191 ...) ; compiling (DEFINE-KEYSYM 192 ...) ; compiling (DEFINE-KEYSYM 193 ...) ; compiling (DEFINE-KEYSYM 194 ...) ; compiling (DEFINE-KEYSYM 195 ...) ; compiling (DEFINE-KEYSYM 196 ...) ; compiling (DEFINE-KEYSYM 197 ...) ; compiling (DEFINE-KEYSYM 198 ...) ; compiling (DEFINE-KEYSYM 199 ...) ; compiling (DEFINE-KEYSYM 200 ...) ; compiling (DEFINE-KEYSYM 201 ...) ; compiling (DEFINE-KEYSYM 202 ...) ; compiling (DEFINE-KEYSYM 203 ...) ; compiling (DEFINE-KEYSYM 204 ...) ; compiling (DEFINE-KEYSYM 205 ...) ; compiling (DEFINE-KEYSYM 206 ...) ; compiling (DEFINE-KEYSYM 207 ...) ; compiling (DEFINE-KEYSYM 208 ...) ; compiling (DEFINE-KEYSYM 208 ...) ; compiling (DEFINE-KEYSYM 209 ...) ; compiling (DEFINE-KEYSYM 210 ...) ; compiling (DEFINE-KEYSYM 211 ...) ; compiling (DEFINE-KEYSYM 212 ...) ; compiling (DEFINE-KEYSYM 213 ...) ; compiling (DEFINE-KEYSYM 214 ...) ; compiling (DEFINE-KEYSYM 215 ...) ; compiling (DEFINE-KEYSYM 216 ...) ; compiling (DEFINE-KEYSYM 216 ...) ; compiling (DEFINE-KEYSYM 217 ...) ; compiling (DEFINE-KEYSYM 218 ...) ; compiling (DEFINE-KEYSYM 219 ...) ; compiling (DEFINE-KEYSYM 220 ...) ; compiling (DEFINE-KEYSYM 221 ...) ; compiling (DEFINE-KEYSYM 222 ...) ; compiling (DEFINE-KEYSYM 222 ...) ; compiling (DEFINE-KEYSYM 223 ...) ; compiling (DEFINE-KEYSYM 224 ...) ; compiling (DEFINE-KEYSYM 225 ...) ; compiling (DEFINE-KEYSYM 226 ...) ; compiling (DEFINE-KEYSYM 227 ...) ; compiling (DEFINE-KEYSYM 228 ...) ; compiling (DEFINE-KEYSYM 229 ...) ; compiling (DEFINE-KEYSYM 230 ...) ; compiling (DEFINE-KEYSYM 231 ...) ; compiling (DEFINE-KEYSYM 232 ...) ; compiling (DEFINE-KEYSYM 233 ...) ; compiling (DEFINE-KEYSYM 234 ...) ; compiling (DEFINE-KEYSYM 235 ...) ; compiling (DEFINE-KEYSYM 236 ...) ; compiling (DEFINE-KEYSYM 237 ...) ; compiling (DEFINE-KEYSYM 238 ...) ; compiling (DEFINE-KEYSYM 239 ...) ; compiling (DEFINE-KEYSYM 240 ...) ; compiling (DEFINE-KEYSYM 241 ...) ; compiling (DEFINE-KEYSYM 242 ...) ; compiling (DEFINE-KEYSYM 243 ...) ; compiling (DEFINE-KEYSYM 244 ...) ; compiling (DEFINE-KEYSYM 245 ...) ; compiling (DEFINE-KEYSYM 246 ...) ; compiling (DEFINE-KEYSYM 247 ...) ; compiling (DEFINE-KEYSYM 248 ...) ; compiling (DEFINE-KEYSYM 248 ...) ; compiling (DEFINE-KEYSYM 249 ...) ; compiling (DEFINE-KEYSYM 250 ...) ; compiling (DEFINE-KEYSYM 251 ...) ; compiling (DEFINE-KEYSYM 252 ...) ; compiling (DEFINE-KEYSYM 253 ...) ; compiling (DEFINE-KEYSYM 254 ...) ; compiling (DEFINE-KEYSYM 255 ...) ; compiling (DEFINE-KEYSYM 417 ...) ; compiling (DEFINE-KEYSYM 418 ...) ; compiling (DEFINE-KEYSYM 419 ...) ; compiling (DEFINE-KEYSYM 421 ...) ; compiling (DEFINE-KEYSYM 422 ...) ; compiling (DEFINE-KEYSYM 425 ...) ; compiling (DEFINE-KEYSYM 426 ...) ; compiling (DEFINE-KEYSYM 427 ...) ; compiling (DEFINE-KEYSYM 428 ...) ; compiling (DEFINE-KEYSYM 430 ...) ; compiling (DEFINE-KEYSYM 431 ...) ; compiling (DEFINE-KEYSYM 433 ...) ; compiling (DEFINE-KEYSYM 434 ...) ; compiling (DEFINE-KEYSYM 435 ...) ; compiling (DEFINE-KEYSYM 437 ...) ; compiling (DEFINE-KEYSYM 438 ...) ; compiling (DEFINE-KEYSYM 439 ...) ; compiling (DEFINE-KEYSYM 441 ...) ; compiling (DEFINE-KEYSYM 442 ...) ; compiling (DEFINE-KEYSYM 443 ...) ; compiling (DEFINE-KEYSYM 444 ...) ; compiling (DEFINE-KEYSYM 445 ...) ; compiling (DEFINE-KEYSYM 446 ...) ; compiling (DEFINE-KEYSYM 447 ...) ; compiling (DEFINE-KEYSYM 448 ...) ; compiling (DEFINE-KEYSYM 451 ...) ; compiling (DEFINE-KEYSYM 453 ...) ; compiling (DEFINE-KEYSYM 454 ...) ; compiling (DEFINE-KEYSYM 456 ...) ; compiling (DEFINE-KEYSYM 458 ...) ; compiling (DEFINE-KEYSYM 460 ...) ; compiling (DEFINE-KEYSYM 463 ...) ; compiling (DEFINE-KEYSYM 464 ...) ; compiling (DEFINE-KEYSYM 465 ...) ; compiling (DEFINE-KEYSYM 466 ...) ; compiling (DEFINE-KEYSYM 469 ...) ; compiling (DEFINE-KEYSYM 472 ...) ; compiling (DEFINE-KEYSYM 473 ...) ; compiling (DEFINE-KEYSYM 475 ...) ; compiling (DEFINE-KEYSYM 478 ...) ; compiling (DEFINE-KEYSYM 480 ...) ; compiling (DEFINE-KEYSYM 483 ...) ; compiling (DEFINE-KEYSYM 485 ...) ; compiling (DEFINE-KEYSYM 486 ...) ; compiling (DEFINE-KEYSYM 488 ...) ; compiling (DEFINE-KEYSYM 490 ...) ; compiling (DEFINE-KEYSYM 492 ...) ; compiling (DEFINE-KEYSYM 495 ...) ; compiling (DEFINE-KEYSYM 496 ...) ; compiling (DEFINE-KEYSYM 497 ...) ; compiling (DEFINE-KEYSYM 498 ...) ; compiling (DEFINE-KEYSYM 501 ...) ; compiling (DEFINE-KEYSYM 507 ...) ; compiling (DEFINE-KEYSYM 504 ...) ; compiling (DEFINE-KEYSYM 505 ...) ; compiling (DEFINE-KEYSYM 510 ...) ; compiling (DEFINE-KEYSYM 511 ...) ; compiling (DEFINE-KEYSYM 673 ...) ; compiling (DEFINE-KEYSYM 678 ...) ; compiling (DEFINE-KEYSYM 681 ...) ; compiling (DEFINE-KEYSYM 683 ...) ; compiling (DEFINE-KEYSYM 684 ...) ; compiling (DEFINE-KEYSYM 689 ...) ; compiling (DEFINE-KEYSYM 694 ...) ; compiling (DEFINE-KEYSYM 697 ...) ; compiling (DEFINE-KEYSYM 699 ...) ; compiling (DEFINE-KEYSYM 700 ...) ; compiling (DEFINE-KEYSYM 709 ...) ; compiling (DEFINE-KEYSYM 710 ...) ; compiling (DEFINE-KEYSYM 725 ...) ; compiling (DEFINE-KEYSYM 728 ...) ; compiling (DEFINE-KEYSYM 733 ...) ; compiling (DEFINE-KEYSYM 734 ...) ; compiling (DEFINE-KEYSYM 741 ...) ; compiling (DEFINE-KEYSYM 742 ...) ; compiling (DEFINE-KEYSYM 757 ...) ; compiling (DEFINE-KEYSYM 760 ...) ; compiling (DEFINE-KEYSYM 765 ...) ; compiling (DEFINE-KEYSYM 766 ...) ; compiling (DEFINE-KEYSYM 930 ...) ; compiling (DEFINE-KEYSYM 930 ...) ; compiling (DEFINE-KEYSYM 931 ...) ; compiling (DEFINE-KEYSYM 933 ...) ; compiling (DEFINE-KEYSYM 934 ...) ; compiling (DEFINE-KEYSYM 938 ...) ; compiling (DEFINE-KEYSYM 939 ...) ; compiling (DEFINE-KEYSYM 940 ...) ; compiling (DEFINE-KEYSYM 947 ...) ; compiling (DEFINE-KEYSYM 949 ...) ; compiling (DEFINE-KEYSYM 950 ...) ; compiling (DEFINE-KEYSYM 954 ...) ; compiling (DEFINE-KEYSYM 955 ...) ; compiling (DEFINE-KEYSYM 956 ...) ; compiling (DEFINE-KEYSYM 957 ...) ; compiling (DEFINE-KEYSYM 959 ...) ; compiling (DEFINE-KEYSYM 960 ...) ; compiling (DEFINE-KEYSYM 967 ...) ; compiling (DEFINE-KEYSYM 972 ...) ; compiling (DEFINE-KEYSYM 975 ...) ; compiling (DEFINE-KEYSYM 977 ...) ; compiling (DEFINE-KEYSYM 978 ...) ; compiling (DEFINE-KEYSYM 979 ...) ; compiling (DEFINE-KEYSYM 985 ...) ; compiling (DEFINE-KEYSYM 989 ...) ; compiling (DEFINE-KEYSYM 990 ...) ; compiling (DEFINE-KEYSYM 992 ...) ; compiling (DEFINE-KEYSYM 999 ...) ; compiling (DEFINE-KEYSYM 1004 ...) ; compiling (DEFINE-KEYSYM 1007 ...) ; compiling (DEFINE-KEYSYM 1009 ...) ; compiling (DEFINE-KEYSYM 1010 ...) ; compiling (DEFINE-KEYSYM 1011 ...) ; compiling (DEFINE-KEYSYM 1017 ...) ; compiling (DEFINE-KEYSYM 1021 ...) ; compiling (DEFINE-KEYSYM 1022 ...) ; compiling (DEFINE-KEYSYM 16784898 ...) ; compiling (DEFINE-KEYSYM 16784899 ...) ; compiling (DEFINE-KEYSYM 16784906 ...) ; compiling (DEFINE-KEYSYM 16785024 ...) ; compiling (DEFINE-KEYSYM 16785026 ...) ; compiling (DEFINE-KEYSYM 16784907 ...) ; compiling (DEFINE-KEYSYM 16785138 ...) ; compiling (DEFINE-KEYSYM 16784926 ...) ; compiling (DEFINE-KEYSYM 16784927 ...) ; compiling (DEFINE-KEYSYM 16784960 ...) ; compiling (DEFINE-KEYSYM 16784961 ...) ; compiling (DEFINE-KEYSYM 16784982 ...) ; compiling (DEFINE-KEYSYM 16785025 ...) ; compiling (DEFINE-KEYSYM 16784983 ...) ; compiling (DEFINE-KEYSYM 16785027 ...) ; compiling (DEFINE-KEYSYM 16784992 ...) ; compiling (DEFINE-KEYSYM 16785139 ...) ; compiling (DEFINE-KEYSYM 16785028 ...) ; compiling (DEFINE-KEYSYM 16785029 ...) ; compiling (DEFINE-KEYSYM 16784993 ...) ; compiling (DEFINE-KEYSYM 16777588 ...) ; compiling (DEFINE-KEYSYM 16785002 ...) ; compiling (DEFINE-KEYSYM 16777590 ...) ; compiling (DEFINE-KEYSYM 16777589 ...) ; compiling (DEFINE-KEYSYM 16785003 ...) ; compiling (DEFINE-KEYSYM 16777591 ...) ; compiling (DEFINE-KEYSYM 5052 ...) ; compiling (DEFINE-KEYSYM 5053 ...) ; compiling (DEFINE-KEYSYM 5054 ...) ; compiling (DEFINE-KEYSYM 1150 ...) ; compiling (DEFINE-KEYSYM 1185 ...) ; compiling (DEFINE-KEYSYM 1186 ...) ; compiling (DEFINE-KEYSYM 1187 ...) ; compiling (DEFINE-KEYSYM 1188 ...) ; compiling (DEFINE-KEYSYM 1189 ...) ; compiling (DEFINE-KEYSYM 1189 ...) ; compiling (DEFINE-KEYSYM 1190 ...) ; compiling (DEFINE-KEYSYM 1191 ...) ; compiling (DEFINE-KEYSYM 1192 ...) ; compiling (DEFINE-KEYSYM 1193 ...) ; compiling (DEFINE-KEYSYM 1194 ...) ; compiling (DEFINE-KEYSYM 1195 ...) ; compiling (DEFINE-KEYSYM 1196 ...) ; compiling (DEFINE-KEYSYM 1197 ...) ; compiling (DEFINE-KEYSYM 1198 ...) ; compiling (DEFINE-KEYSYM 1199 ...) ; compiling (DEFINE-KEYSYM 1199 ...) ; compiling (DEFINE-KEYSYM 1200 ...) ; compiling (DEFINE-KEYSYM 1201 ...) ; compiling (DEFINE-KEYSYM 1202 ...) ; compiling (DEFINE-KEYSYM 1203 ...) ; compiling (DEFINE-KEYSYM 1204 ...) ; compiling (DEFINE-KEYSYM 1205 ...) ; compiling (DEFINE-KEYSYM 1206 ...) ; compiling (DEFINE-KEYSYM 1207 ...) ; compiling (DEFINE-KEYSYM 1208 ...) ; compiling (DEFINE-KEYSYM 1209 ...) ; compiling (DEFINE-KEYSYM 1210 ...) ; compiling (DEFINE-KEYSYM 1211 ...) ; compiling (DEFINE-KEYSYM 1212 ...) ; compiling (DEFINE-KEYSYM 1213 ...) ; compiling (DEFINE-KEYSYM 1214 ...) ; compiling (DEFINE-KEYSYM 1215 ...) ; compiling (DEFINE-KEYSYM 1216 ...) ; compiling (DEFINE-KEYSYM 1217 ...) ; compiling (DEFINE-KEYSYM 1217 ...) ; compiling (DEFINE-KEYSYM 1218 ...) ; compiling (DEFINE-KEYSYM 1218 ...) ; compiling (DEFINE-KEYSYM 1219 ...) ; compiling (DEFINE-KEYSYM 1220 ...) ; compiling (DEFINE-KEYSYM 1221 ...) ; compiling (DEFINE-KEYSYM 1222 ...) ; compiling (DEFINE-KEYSYM 1223 ...) ; compiling (DEFINE-KEYSYM 1224 ...) ; compiling (DEFINE-KEYSYM 1225 ...) ; compiling (DEFINE-KEYSYM 1226 ...) ; compiling (DEFINE-KEYSYM 1227 ...) ; compiling (DEFINE-KEYSYM 1228 ...) ; compiling (DEFINE-KEYSYM 1228 ...) ; compiling (DEFINE-KEYSYM 1229 ...) ; compiling (DEFINE-KEYSYM 1230 ...) ; compiling (DEFINE-KEYSYM 1231 ...) ; compiling (DEFINE-KEYSYM 1232 ...) ; compiling (DEFINE-KEYSYM 1233 ...) ; compiling (DEFINE-KEYSYM 1234 ...) ; compiling (DEFINE-KEYSYM 1235 ...) ; compiling (DEFINE-KEYSYM 1236 ...) ; compiling (DEFINE-KEYSYM 1237 ...) ; compiling (DEFINE-KEYSYM 1238 ...) ; compiling (DEFINE-KEYSYM 1239 ...) ; compiling (DEFINE-KEYSYM 1240 ...) ; compiling (DEFINE-KEYSYM 1241 ...) ; compiling (DEFINE-KEYSYM 1242 ...) ; compiling (DEFINE-KEYSYM 1243 ...) ; compiling (DEFINE-KEYSYM 1244 ...) ; compiling (DEFINE-KEYSYM 1245 ...) ; compiling (DEFINE-KEYSYM 1246 ...) ; compiling (DEFINE-KEYSYM 1247 ...) ; compiling (DEFINE-KEYSYM 65406 ...) ; compiling (DEFINE-KEYSYM 16778992 ...) ; compiling (DEFINE-KEYSYM 16778993 ...) ; compiling (DEFINE-KEYSYM 16778994 ...) ; compiling (DEFINE-KEYSYM 16778995 ...) ; compiling (DEFINE-KEYSYM 16778996 ...) ; compiling (DEFINE-KEYSYM 16778997 ...) ; compiling (DEFINE-KEYSYM 16778998 ...) ; compiling (DEFINE-KEYSYM 16778999 ...) ; compiling (DEFINE-KEYSYM 16779000 ...) ; compiling (DEFINE-KEYSYM 16779001 ...) ; compiling (DEFINE-KEYSYM 16778858 ...) ; compiling (DEFINE-KEYSYM 16778864 ...) ; compiling (DEFINE-KEYSYM 16778873 ...) ; compiling (DEFINE-KEYSYM 16778878 ...) ; compiling (DEFINE-KEYSYM 16778886 ...) ; compiling (DEFINE-KEYSYM 16778888 ...) ; compiling (DEFINE-KEYSYM 16778897 ...) ; compiling (DEFINE-KEYSYM 1452 ...) ; compiling (DEFINE-KEYSYM 16778964 ...) ; compiling (DEFINE-KEYSYM 16778848 ...) ; compiling (DEFINE-KEYSYM 16778849 ...) ; compiling (DEFINE-KEYSYM 16778850 ...) ; compiling (DEFINE-KEYSYM 16778851 ...) ; compiling (DEFINE-KEYSYM 16778852 ...) ; compiling (DEFINE-KEYSYM 16778853 ...) ; compiling (DEFINE-KEYSYM 16778854 ...) ; compiling (DEFINE-KEYSYM 16778855 ...) ; compiling (DEFINE-KEYSYM 16778856 ...) ; compiling (DEFINE-KEYSYM 16778857 ...) ; compiling (DEFINE-KEYSYM 1467 ...) ; compiling (DEFINE-KEYSYM 1471 ...) ; compiling (DEFINE-KEYSYM 1473 ...) ; compiling (DEFINE-KEYSYM 1474 ...) ; compiling (DEFINE-KEYSYM 1475 ...) ; compiling (DEFINE-KEYSYM 1476 ...) ; compiling (DEFINE-KEYSYM 1477 ...) ; compiling (DEFINE-KEYSYM 1478 ...) ; compiling (DEFINE-KEYSYM 1479 ...) ; compiling (DEFINE-KEYSYM 1480 ...) ; compiling (DEFINE-KEYSYM 1481 ...) ; compiling (DEFINE-KEYSYM 1482 ...) ; compiling (DEFINE-KEYSYM 1483 ...) ; compiling (DEFINE-KEYSYM 1484 ...) ; compiling (DEFINE-KEYSYM 1485 ...) ; compiling (DEFINE-KEYSYM 1486 ...) ; compiling (DEFINE-KEYSYM 1487 ...) ; compiling (DEFINE-KEYSYM 1488 ...) ; compiling (DEFINE-KEYSYM 1489 ...) ; compiling (DEFINE-KEYSYM 1490 ...) ; compiling (DEFINE-KEYSYM 1491 ...) ; compiling (DEFINE-KEYSYM 1492 ...) ; compiling (DEFINE-KEYSYM 1493 ...) ; compiling (DEFINE-KEYSYM 1494 ...) ; compiling (DEFINE-KEYSYM 1495 ...) ; compiling (DEFINE-KEYSYM 1496 ...) ; compiling (DEFINE-KEYSYM 1497 ...) ; compiling (DEFINE-KEYSYM 1498 ...) ; compiling (DEFINE-KEYSYM 1504 ...) ; compiling (DEFINE-KEYSYM 1505 ...) ; compiling (DEFINE-KEYSYM 1506 ...) ; compiling (DEFINE-KEYSYM 1507 ...) ; compiling (DEFINE-KEYSYM 1508 ...) ; compiling (DEFINE-KEYSYM 1509 ...) ; compiling (DEFINE-KEYSYM 1510 ...) ; compiling (DEFINE-KEYSYM 1511 ...) ; compiling (DEFINE-KEYSYM 1511 ...) ; compiling (DEFINE-KEYSYM 1512 ...) ; compiling (DEFINE-KEYSYM 1513 ...) ; compiling (DEFINE-KEYSYM 1514 ...) ; compiling (DEFINE-KEYSYM 1515 ...) ; compiling (DEFINE-KEYSYM 1516 ...) ; compiling (DEFINE-KEYSYM 1517 ...) ; compiling (DEFINE-KEYSYM 1518 ...) ; compiling (DEFINE-KEYSYM 1519 ...) ; compiling (DEFINE-KEYSYM 1520 ...) ; compiling (DEFINE-KEYSYM 1521 ...) ; compiling (DEFINE-KEYSYM 1522 ...) ; compiling (DEFINE-KEYSYM 16778835 ...) ; compiling (DEFINE-KEYSYM 16778836 ...) ; compiling (DEFINE-KEYSYM 16778837 ...) ; compiling (DEFINE-KEYSYM 16778904 ...) ; compiling (DEFINE-KEYSYM 16778916 ...) ; compiling (DEFINE-KEYSYM 16778921 ...) ; compiling (DEFINE-KEYSYM 16778927 ...) ; compiling (DEFINE-KEYSYM 16778938 ...) ; compiling (DEFINE-KEYSYM 16778942 ...) ; compiling (DEFINE-KEYSYM 16778956 ...) ; compiling (DEFINE-KEYSYM 16778956 ...) ; compiling (DEFINE-KEYSYM 16778962 ...) ; compiling (DEFINE-KEYSYM 16778945 ...) ; compiling (DEFINE-KEYSYM 65406 ...) ; compiling (DEFINE-KEYSYM 16778386 ...) ; compiling (DEFINE-KEYSYM 16778387 ...) ; compiling (DEFINE-KEYSYM 16778390 ...) ; compiling (DEFINE-KEYSYM 16778391 ...) ; compiling (DEFINE-KEYSYM 16778394 ...) ; compiling (DEFINE-KEYSYM 16778395 ...) ; compiling (DEFINE-KEYSYM 16778396 ...) ; compiling (DEFINE-KEYSYM 16778397 ...) ; compiling (DEFINE-KEYSYM 16778402 ...) ; compiling (DEFINE-KEYSYM 16778403 ...) ; compiling (DEFINE-KEYSYM 16778414 ...) ; compiling (DEFINE-KEYSYM 16778415 ...) ; compiling (DEFINE-KEYSYM 16778416 ...) ; compiling (DEFINE-KEYSYM 16778417 ...) ; compiling (DEFINE-KEYSYM 16778418 ...) ; compiling (DEFINE-KEYSYM 16778419 ...) ; compiling (DEFINE-KEYSYM 16778422 ...) ; compiling (DEFINE-KEYSYM 16778423 ...) ; compiling (DEFINE-KEYSYM 16778424 ...) ; compiling (DEFINE-KEYSYM 16778425 ...) ; compiling (DEFINE-KEYSYM 16778426 ...) ; compiling (DEFINE-KEYSYM 16778427 ...) ; compiling (DEFINE-KEYSYM 16778456 ...) ; compiling (DEFINE-KEYSYM 16778457 ...) ; compiling (DEFINE-KEYSYM 16778466 ...) ; compiling (DEFINE-KEYSYM 16778467 ...) ; compiling (DEFINE-KEYSYM 16778472 ...) ; compiling (DEFINE-KEYSYM 16778473 ...) ; compiling (DEFINE-KEYSYM 16778478 ...) ; compiling (DEFINE-KEYSYM 16778479 ...) ; compiling (DEFINE-KEYSYM 1697 ...) ; compiling (DEFINE-KEYSYM 1698 ...) ; compiling (DEFINE-KEYSYM 1699 ...) ; compiling (DEFINE-KEYSYM 1700 ...) ; compiling (DEFINE-KEYSYM 1700 ...) ; compiling (DEFINE-KEYSYM 1701 ...) ; compiling (DEFINE-KEYSYM 1702 ...) ; compiling (DEFINE-KEYSYM 1702 ...) ; compiling (DEFINE-KEYSYM 1703 ...) ; compiling (DEFINE-KEYSYM 1703 ...) ; compiling (DEFINE-KEYSYM 1704 ...) ; compiling (DEFINE-KEYSYM 1704 ...) ; compiling (DEFINE-KEYSYM 1705 ...) ; compiling (DEFINE-KEYSYM 1705 ...) ; compiling (DEFINE-KEYSYM 1706 ...) ; compiling (DEFINE-KEYSYM 1706 ...) ; compiling (DEFINE-KEYSYM 1707 ...) ; compiling (DEFINE-KEYSYM 1708 ...) ; compiling (DEFINE-KEYSYM 1709 ...) ; compiling (DEFINE-KEYSYM 1710 ...) ; compiling (DEFINE-KEYSYM 1711 ...) ; compiling (DEFINE-KEYSYM 1711 ...) ; compiling (DEFINE-KEYSYM 1712 ...) ; compiling (DEFINE-KEYSYM 1713 ...) ; compiling (DEFINE-KEYSYM 1714 ...) ; compiling (DEFINE-KEYSYM 1715 ...) ; compiling (DEFINE-KEYSYM 1716 ...) ; compiling (DEFINE-KEYSYM 1716 ...) ; compiling (DEFINE-KEYSYM 1717 ...) ; compiling (DEFINE-KEYSYM 1718 ...) ; compiling (DEFINE-KEYSYM 1718 ...) ; compiling (DEFINE-KEYSYM 1719 ...) ; compiling (DEFINE-KEYSYM 1719 ...) ; compiling (DEFINE-KEYSYM 1720 ...) ; compiling (DEFINE-KEYSYM 1720 ...) ; compiling (DEFINE-KEYSYM 1721 ...) ; compiling (DEFINE-KEYSYM 1721 ...) ; compiling (DEFINE-KEYSYM 1722 ...) ; compiling (DEFINE-KEYSYM 1722 ...) ; compiling (DEFINE-KEYSYM 1723 ...) ; compiling (DEFINE-KEYSYM 1724 ...) ; compiling (DEFINE-KEYSYM 1725 ...) ; compiling (DEFINE-KEYSYM 1726 ...) ; compiling (DEFINE-KEYSYM 1727 ...) ; compiling (DEFINE-KEYSYM 1727 ...) ; compiling (DEFINE-KEYSYM 1728 ...) ; compiling (DEFINE-KEYSYM 1729 ...) ; compiling (DEFINE-KEYSYM 1730 ...) ; compiling (DEFINE-KEYSYM 1731 ...) ; compiling (DEFINE-KEYSYM 1732 ...) ; compiling (DEFINE-KEYSYM 1733 ...) ; compiling (DEFINE-KEYSYM 1734 ...) ; compiling (DEFINE-KEYSYM 1735 ...) ; compiling (DEFINE-KEYSYM 1736 ...) ; compiling (DEFINE-KEYSYM 1737 ...) ; compiling (DEFINE-KEYSYM 1738 ...) ; compiling (DEFINE-KEYSYM 1739 ...) ; compiling (DEFINE-KEYSYM 1740 ...) ; compiling (DEFINE-KEYSYM 1741 ...) ; compiling (DEFINE-KEYSYM 1742 ...) ; compiling (DEFINE-KEYSYM 1743 ...) ; compiling (DEFINE-KEYSYM 1744 ...) ; compiling (DEFINE-KEYSYM 1745 ...) ; compiling (DEFINE-KEYSYM 1746 ...) ; compiling (DEFINE-KEYSYM 1747 ...) ; compiling (DEFINE-KEYSYM 1748 ...) ; compiling (DEFINE-KEYSYM 1749 ...) ; compiling (DEFINE-KEYSYM 1750 ...) ; compiling (DEFINE-KEYSYM 1751 ...) ; compiling (DEFINE-KEYSYM 1752 ...) ; compiling (DEFINE-KEYSYM 1753 ...) ; compiling (DEFINE-KEYSYM 1754 ...) ; compiling (DEFINE-KEYSYM 1755 ...) ; compiling (DEFINE-KEYSYM 1756 ...) ; compiling (DEFINE-KEYSYM 1757 ...) ; compiling (DEFINE-KEYSYM 1758 ...) ; compiling (DEFINE-KEYSYM 1759 ...) ; compiling (DEFINE-KEYSYM 1760 ...) ; compiling (DEFINE-KEYSYM 1761 ...) ; compiling (DEFINE-KEYSYM 1762 ...) ; compiling (DEFINE-KEYSYM 1763 ...) ; compiling (DEFINE-KEYSYM 1764 ...) ; compiling (DEFINE-KEYSYM 1765 ...) ; compiling (DEFINE-KEYSYM 1766 ...) ; compiling (DEFINE-KEYSYM 1767 ...) ; compiling (DEFINE-KEYSYM 1768 ...) ; compiling (DEFINE-KEYSYM 1769 ...) ; compiling (DEFINE-KEYSYM 1770 ...) ; compiling (DEFINE-KEYSYM 1771 ...) ; compiling (DEFINE-KEYSYM 1772 ...) ; compiling (DEFINE-KEYSYM 1773 ...) ; compiling (DEFINE-KEYSYM 1774 ...) ; compiling (DEFINE-KEYSYM 1775 ...) ; compiling (DEFINE-KEYSYM 1776 ...) ; compiling (DEFINE-KEYSYM 1777 ...) ; compiling (DEFINE-KEYSYM 1778 ...) ; compiling (DEFINE-KEYSYM 1779 ...) ; compiling (DEFINE-KEYSYM 1780 ...) ; compiling (DEFINE-KEYSYM 1781 ...) ; compiling (DEFINE-KEYSYM 1782 ...) ; compiling (DEFINE-KEYSYM 1783 ...) ; compiling (DEFINE-KEYSYM 1784 ...) ; compiling (DEFINE-KEYSYM 1785 ...) ; compiling (DEFINE-KEYSYM 1786 ...) ; compiling (DEFINE-KEYSYM 1787 ...) ; compiling (DEFINE-KEYSYM 1788 ...) ; compiling (DEFINE-KEYSYM 1789 ...) ; compiling (DEFINE-KEYSYM 1790 ...) ; compiling (DEFINE-KEYSYM 1791 ...) ; compiling (DEFINE-KEYSYM 1953 ...) ; compiling (DEFINE-KEYSYM 1954 ...) ; compiling (DEFINE-KEYSYM 1955 ...) ; compiling (DEFINE-KEYSYM 1956 ...) ; compiling (DEFINE-KEYSYM 1957 ...) ; compiling (DEFINE-KEYSYM 1957 ...) ; compiling (DEFINE-KEYSYM 1959 ...) ; compiling (DEFINE-KEYSYM 1960 ...) ; compiling (DEFINE-KEYSYM 1961 ...) ; compiling (DEFINE-KEYSYM 1963 ...) ; compiling (DEFINE-KEYSYM 1966 ...) ; compiling (DEFINE-KEYSYM 1967 ...) ; compiling (DEFINE-KEYSYM 1969 ...) ; compiling (DEFINE-KEYSYM 1970 ...) ; compiling (DEFINE-KEYSYM 1971 ...) ; compiling (DEFINE-KEYSYM 1972 ...) ; compiling (DEFINE-KEYSYM 1973 ...) ; compiling (DEFINE-KEYSYM 1974 ...) ; compiling (DEFINE-KEYSYM 1975 ...) ; compiling (DEFINE-KEYSYM 1976 ...) ; compiling (DEFINE-KEYSYM 1977 ...) ; compiling (DEFINE-KEYSYM 1978 ...) ; compiling (DEFINE-KEYSYM 1979 ...) ; compiling (DEFINE-KEYSYM 1985 ...) ; compiling (DEFINE-KEYSYM 1986 ...) ; compiling (DEFINE-KEYSYM 1987 ...) ; compiling (DEFINE-KEYSYM 1988 ...) ; compiling (DEFINE-KEYSYM 1989 ...) ; compiling (DEFINE-KEYSYM 1990 ...) ; compiling (DEFINE-KEYSYM 1991 ...) ; compiling (DEFINE-KEYSYM 1992 ...) ; compiling (DEFINE-KEYSYM 1993 ...) ; compiling (DEFINE-KEYSYM 1994 ...) ; compiling (DEFINE-KEYSYM 1995 ...) ; compiling (DEFINE-KEYSYM 1995 ...) ; compiling (DEFINE-KEYSYM 1996 ...) ; compiling (DEFINE-KEYSYM 1997 ...) ; compiling (DEFINE-KEYSYM 1998 ...) ; compiling (DEFINE-KEYSYM 1999 ...) ; compiling (DEFINE-KEYSYM 2000 ...) ; compiling (DEFINE-KEYSYM 2001 ...) ; compiling (DEFINE-KEYSYM 2002 ...) ; compiling (DEFINE-KEYSYM 2004 ...) ; compiling (DEFINE-KEYSYM 2005 ...) ; compiling (DEFINE-KEYSYM 2006 ...) ; compiling (DEFINE-KEYSYM 2007 ...) ; compiling (DEFINE-KEYSYM 2008 ...) ; compiling (DEFINE-KEYSYM 2009 ...) ; compiling (DEFINE-KEYSYM 2017 ...) ; compiling (DEFINE-KEYSYM 2018 ...) ; compiling (DEFINE-KEYSYM 2019 ...) ; compiling (DEFINE-KEYSYM 2020 ...) ; compiling (DEFINE-KEYSYM 2021 ...) ; compiling (DEFINE-KEYSYM 2022 ...) ; compiling (DEFINE-KEYSYM 2023 ...) ; compiling (DEFINE-KEYSYM 2024 ...) ; compiling (DEFINE-KEYSYM 2025 ...) ; compiling (DEFINE-KEYSYM 2026 ...) ; compiling (DEFINE-KEYSYM 2027 ...) ; compiling (DEFINE-KEYSYM 2027 ...) ; compiling (DEFINE-KEYSYM 2028 ...) ; compiling (DEFINE-KEYSYM 2029 ...) ; compiling (DEFINE-KEYSYM 2030 ...) ; compiling (DEFINE-KEYSYM 2031 ...) ; compiling (DEFINE-KEYSYM 2032 ...) ; compiling (DEFINE-KEYSYM 2033 ...) ; compiling (DEFINE-KEYSYM 2034 ...) ; compiling (DEFINE-KEYSYM 2035 ...) ; compiling (DEFINE-KEYSYM 2036 ...) ; compiling (DEFINE-KEYSYM 2037 ...) ; compiling (DEFINE-KEYSYM 2038 ...) ; compiling (DEFINE-KEYSYM 2039 ...) ; compiling (DEFINE-KEYSYM 2040 ...) ; compiling (DEFINE-KEYSYM 2041 ...) ; compiling (DEFINE-KEYSYM 65406 ...) ; compiling (DEFINE-KEYSYM 2209 ...) ; compiling (DEFINE-KEYSYM 2210 ...) ; compiling (DEFINE-KEYSYM 2211 ...) ; compiling (DEFINE-KEYSYM 2212 ...) ; compiling (DEFINE-KEYSYM 2213 ...) ; compiling (DEFINE-KEYSYM 2214 ...) ; compiling (DEFINE-KEYSYM 2215 ...) ; compiling (DEFINE-KEYSYM 2216 ...) ; compiling (DEFINE-KEYSYM 2217 ...) ; compiling (DEFINE-KEYSYM 2218 ...) ; compiling (DEFINE-KEYSYM 2219 ...) ; compiling (DEFINE-KEYSYM 2220 ...) ; compiling (DEFINE-KEYSYM 2221 ...) ; compiling (DEFINE-KEYSYM 2222 ...) ; compiling (DEFINE-KEYSYM 2223 ...) ; compiling (DEFINE-KEYSYM 2224 ...) ; compiling (DEFINE-KEYSYM 2225 ...) ; compiling (DEFINE-KEYSYM 2226 ...) ; compiling (DEFINE-KEYSYM 2227 ...) ; compiling (DEFINE-KEYSYM 2228 ...) ; compiling (DEFINE-KEYSYM 2229 ...) ; compiling (DEFINE-KEYSYM 2230 ...) ; compiling (DEFINE-KEYSYM 2231 ...) ; compiling (DEFINE-KEYSYM 2236 ...) ; compiling (DEFINE-KEYSYM 2237 ...) ; compiling (DEFINE-KEYSYM 2238 ...) ; compiling (DEFINE-KEYSYM 2239 ...) ; compiling (DEFINE-KEYSYM 2240 ...) ; compiling (DEFINE-KEYSYM 2241 ...) ; compiling (DEFINE-KEYSYM 2242 ...) ; compiling (DEFINE-KEYSYM 2245 ...) ; compiling (DEFINE-KEYSYM 2248 ...) ; compiling (DEFINE-KEYSYM 2249 ...) ; compiling (DEFINE-KEYSYM 2253 ...) ; compiling (DEFINE-KEYSYM 2254 ...) ; compiling (DEFINE-KEYSYM 2255 ...) ; compiling (DEFINE-KEYSYM 2262 ...) ; compiling (DEFINE-KEYSYM 2266 ...) ; compiling (DEFINE-KEYSYM 2267 ...) ; compiling (DEFINE-KEYSYM 2268 ...) ; compiling (DEFINE-KEYSYM 2269 ...) ; compiling (DEFINE-KEYSYM 2270 ...) ; compiling (DEFINE-KEYSYM 2271 ...) ; compiling (DEFINE-KEYSYM 2287 ...) ; compiling (DEFINE-KEYSYM 2294 ...) ; compiling (DEFINE-KEYSYM 2299 ...) ; compiling (DEFINE-KEYSYM 2300 ...) ; compiling (DEFINE-KEYSYM 2301 ...) ; compiling (DEFINE-KEYSYM 2302 ...) ; compiling (DEFINE-KEYSYM 2527 ...) ; compiling (DEFINE-KEYSYM 2528 ...) ; compiling (DEFINE-KEYSYM 2529 ...) ; compiling (DEFINE-KEYSYM 2530 ...) ; compiling (DEFINE-KEYSYM 2531 ...) ; compiling (DEFINE-KEYSYM 2532 ...) ; compiling (DEFINE-KEYSYM 2533 ...) ; compiling (DEFINE-KEYSYM 2536 ...) ; compiling (DEFINE-KEYSYM 2537 ...) ; compiling (DEFINE-KEYSYM 2538 ...) ; compiling (DEFINE-KEYSYM 2539 ...) ; compiling (DEFINE-KEYSYM 2540 ...) ; compiling (DEFINE-KEYSYM 2541 ...) ; compiling (DEFINE-KEYSYM 2542 ...) ; compiling (DEFINE-KEYSYM 2543 ...) ; compiling (DEFINE-KEYSYM 2544 ...) ; compiling (DEFINE-KEYSYM 2545 ...) ; compiling (DEFINE-KEYSYM 2546 ...) ; compiling (DEFINE-KEYSYM 2547 ...) ; compiling (DEFINE-KEYSYM 2548 ...) ; compiling (DEFINE-KEYSYM 2549 ...) ; compiling (DEFINE-KEYSYM 2550 ...) ; compiling (DEFINE-KEYSYM 2551 ...) ; compiling (DEFINE-KEYSYM 2552 ...) ; compiling (DEFINE-KEYSYM 2721 ...) ; compiling (DEFINE-KEYSYM 2722 ...) ; compiling (DEFINE-KEYSYM 2723 ...) ; compiling (DEFINE-KEYSYM 2724 ...) ; compiling (DEFINE-KEYSYM 2725 ...) ; compiling (DEFINE-KEYSYM 2726 ...) ; compiling (DEFINE-KEYSYM 2727 ...) ; compiling (DEFINE-KEYSYM 2728 ...) ; compiling (DEFINE-KEYSYM 2729 ...) ; compiling (DEFINE-KEYSYM 2730 ...) ; compiling (DEFINE-KEYSYM 2732 ...) ; compiling (DEFINE-KEYSYM 2734 ...) ; compiling (DEFINE-KEYSYM 2735 ...) ; compiling (DEFINE-KEYSYM 2736 ...) ; compiling (DEFINE-KEYSYM 2737 ...) ; compiling (DEFINE-KEYSYM 2738 ...) ; compiling (DEFINE-KEYSYM 2739 ...) ; compiling (DEFINE-KEYSYM 2740 ...) ; compiling (DEFINE-KEYSYM 2741 ...) ; compiling (DEFINE-KEYSYM 2742 ...) ; compiling (DEFINE-KEYSYM 2743 ...) ; compiling (DEFINE-KEYSYM 2744 ...) ; compiling (DEFINE-KEYSYM 2747 ...) ; compiling (DEFINE-KEYSYM 2748 ...) ; compiling (DEFINE-KEYSYM 2749 ...) ; compiling (DEFINE-KEYSYM 2750 ...) ; compiling (DEFINE-KEYSYM 2751 ...) ; compiling (DEFINE-KEYSYM 2755 ...) ; compiling (DEFINE-KEYSYM 2756 ...) ; compiling (DEFINE-KEYSYM 2757 ...) ; compiling (DEFINE-KEYSYM 2758 ...) ; compiling (DEFINE-KEYSYM 2761 ...) ; compiling (DEFINE-KEYSYM 2762 ...) ; compiling (DEFINE-KEYSYM 2763 ...) ; compiling (DEFINE-KEYSYM 2764 ...) ; compiling (DEFINE-KEYSYM 2765 ...) ; compiling (DEFINE-KEYSYM 2766 ...) ; compiling (DEFINE-KEYSYM 2767 ...) ; compiling (DEFINE-KEYSYM 2768 ...) ; compiling (DEFINE-KEYSYM 2769 ...) ; compiling (DEFINE-KEYSYM 2770 ...) ; compiling (DEFINE-KEYSYM 2771 ...) ; compiling (DEFINE-KEYSYM 2772 ...) ; compiling (DEFINE-KEYSYM 2774 ...) ; compiling (DEFINE-KEYSYM 2775 ...) ; compiling (DEFINE-KEYSYM 2777 ...) ; compiling (DEFINE-KEYSYM 2778 ...) ; compiling (DEFINE-KEYSYM 2779 ...) ; compiling (DEFINE-KEYSYM 2780 ...) ; compiling (DEFINE-KEYSYM 2781 ...) ; compiling (DEFINE-KEYSYM 2782 ...) ; compiling (DEFINE-KEYSYM 2783 ...) ; compiling (DEFINE-KEYSYM 2784 ...) ; compiling (DEFINE-KEYSYM 2785 ...) ; compiling (DEFINE-KEYSYM 2786 ...) ; compiling (DEFINE-KEYSYM 2787 ...) ; compiling (DEFINE-KEYSYM 2788 ...) ; compiling (DEFINE-KEYSYM 2789 ...) ; compiling (DEFINE-KEYSYM 2790 ...) ; compiling (DEFINE-KEYSYM 2791 ...) ; compiling (DEFINE-KEYSYM 2792 ...) ; compiling (DEFINE-KEYSYM 2793 ...) ; compiling (DEFINE-KEYSYM 2794 ...) ; compiling (DEFINE-KEYSYM 2795 ...) ; compiling (DEFINE-KEYSYM 2796 ...) ; compiling (DEFINE-KEYSYM 2797 ...) ; compiling (DEFINE-KEYSYM 2798 ...) ; compiling (DEFINE-KEYSYM 2800 ...) ; compiling (DEFINE-KEYSYM 2801 ...) ; compiling (DEFINE-KEYSYM 2802 ...) ; compiling (DEFINE-KEYSYM 2803 ...) ; compiling (DEFINE-KEYSYM 2804 ...) ; compiling (DEFINE-KEYSYM 2805 ...) ; compiling (DEFINE-KEYSYM 2806 ...) ; compiling (DEFINE-KEYSYM 2807 ...) ; compiling (DEFINE-KEYSYM 2808 ...) ; compiling (DEFINE-KEYSYM 2809 ...) ; compiling (DEFINE-KEYSYM 2810 ...) ; compiling (DEFINE-KEYSYM 2811 ...) ; compiling (DEFINE-KEYSYM 2812 ...) ; compiling (DEFINE-KEYSYM 2813 ...) ; compiling (DEFINE-KEYSYM 2814 ...) ; compiling (DEFINE-KEYSYM 2815 ...) ; compiling (DEFINE-KEYSYM 2979 ...) ; compiling (DEFINE-KEYSYM 2982 ...) ; compiling (DEFINE-KEYSYM 2984 ...) ; compiling (DEFINE-KEYSYM 2985 ...) ; compiling (DEFINE-KEYSYM 3008 ...) ; compiling (DEFINE-KEYSYM 3010 ...) ; compiling (DEFINE-KEYSYM 3011 ...) ; compiling (DEFINE-KEYSYM 3012 ...) ; compiling (DEFINE-KEYSYM 3014 ...) ; compiling (DEFINE-KEYSYM 3018 ...) ; compiling (DEFINE-KEYSYM 3020 ...) ; compiling (DEFINE-KEYSYM 3022 ...) ; compiling (DEFINE-KEYSYM 3023 ...) ; compiling (DEFINE-KEYSYM 3027 ...) ; compiling (DEFINE-KEYSYM 3030 ...) ; compiling (DEFINE-KEYSYM 3032 ...) ; compiling (DEFINE-KEYSYM 3034 ...) ; compiling (DEFINE-KEYSYM 3036 ...) ; compiling (DEFINE-KEYSYM 3068 ...) ; compiling (DEFINE-KEYSYM 3295 ...) ; compiling (DEFINE-KEYSYM 3296 ...) ; compiling (DEFINE-KEYSYM 3297 ...) ; compiling (DEFINE-KEYSYM 3297 ...) ; compiling (DEFINE-KEYSYM 3298 ...) ; compiling (DEFINE-KEYSYM 3298 ...) ; compiling (DEFINE-KEYSYM 3299 ...) ; compiling (DEFINE-KEYSYM 3299 ...) ; compiling (DEFINE-KEYSYM 3300 ...) ; compiling (DEFINE-KEYSYM 3301 ...) ; compiling (DEFINE-KEYSYM 3302 ...) ; compiling (DEFINE-KEYSYM 3302 ...) ; compiling (DEFINE-KEYSYM 3303 ...) ; compiling (DEFINE-KEYSYM 3303 ...) ; compiling (DEFINE-KEYSYM 3304 ...) ; compiling (DEFINE-KEYSYM 3304 ...) ; compiling (DEFINE-KEYSYM 3305 ...) ; compiling (DEFINE-KEYSYM 3306 ...) ; compiling (DEFINE-KEYSYM 3307 ...) ; compiling (DEFINE-KEYSYM 3308 ...) ; compiling (DEFINE-KEYSYM 3309 ...) ; compiling (DEFINE-KEYSYM 3310 ...) ; compiling (DEFINE-KEYSYM 3311 ...) ; compiling (DEFINE-KEYSYM 3312 ...) ; compiling (DEFINE-KEYSYM 3313 ...) ; compiling (DEFINE-KEYSYM 3313 ...) ; compiling (DEFINE-KEYSYM 3314 ...) ; compiling (DEFINE-KEYSYM 3315 ...) ; compiling (DEFINE-KEYSYM 3316 ...) ; compiling (DEFINE-KEYSYM 3317 ...) ; compiling (DEFINE-KEYSYM 3317 ...) ; compiling (DEFINE-KEYSYM 3318 ...) ; compiling (DEFINE-KEYSYM 3318 ...) ; compiling (DEFINE-KEYSYM 3319 ...) ; compiling (DEFINE-KEYSYM 3319 ...) ; compiling (DEFINE-KEYSYM 3320 ...) ; compiling (DEFINE-KEYSYM 3321 ...) ; compiling (DEFINE-KEYSYM 3322 ...) ; compiling (DEFINE-KEYSYM 3322 ...) ; compiling (DEFINE-KEYSYM 65406 ...) ; compiling (DEFINE-KEYSYM 3489 ...) ; compiling (DEFINE-KEYSYM 3490 ...) ; compiling (DEFINE-KEYSYM 3491 ...) ; compiling (DEFINE-KEYSYM 3492 ...) ; compiling (DEFINE-KEYSYM 3493 ...) ; compiling (DEFINE-KEYSYM 3494 ...) ; compiling (DEFINE-KEYSYM 3495 ...) ; compiling (DEFINE-KEYSYM 3496 ...) ; compiling (DEFINE-KEYSYM 3497 ...) ; compiling (DEFINE-KEYSYM 3498 ...) ; compiling (DEFINE-KEYSYM 3499 ...) ; compiling (DEFINE-KEYSYM 3500 ...) ; compiling (DEFINE-KEYSYM 3501 ...) ; compiling (DEFINE-KEYSYM 3502 ...) ; compiling (DEFINE-KEYSYM 3503 ...) ; compiling (DEFINE-KEYSYM 3504 ...) ; compiling (DEFINE-KEYSYM 3505 ...) ; compiling (DEFINE-KEYSYM 3506 ...) ; compiling (DEFINE-KEYSYM 3507 ...) ; compiling (DEFINE-KEYSYM 3508 ...) ; compiling (DEFINE-KEYSYM 3509 ...) ; compiling (DEFINE-KEYSYM 3510 ...) ; compiling (DEFINE-KEYSYM 3511 ...) ; compiling (DEFINE-KEYSYM 3512 ...) ; compiling (DEFINE-KEYSYM 3513 ...) ; compiling (DEFINE-KEYSYM 3514 ...) ; compiling (DEFINE-KEYSYM 3515 ...) ; compiling (DEFINE-KEYSYM 3516 ...) ; compiling (DEFINE-KEYSYM 3517 ...) ; compiling (DEFINE-KEYSYM 3518 ...) ; compiling (DEFINE-KEYSYM 3519 ...) ; compiling (DEFINE-KEYSYM 3520 ...) ; compiling (DEFINE-KEYSYM 3521 ...) ; compiling (DEFINE-KEYSYM 3522 ...) ; compiling (DEFINE-KEYSYM 3523 ...) ; compiling (DEFINE-KEYSYM 3524 ...) ; compiling (DEFINE-KEYSYM 3525 ...) ; compiling (DEFINE-KEYSYM 3526 ...) ; compiling (DEFINE-KEYSYM 3527 ...) ; compiling (DEFINE-KEYSYM 3528 ...) ; compiling (DEFINE-KEYSYM 3529 ...) ; compiling (DEFINE-KEYSYM 3530 ...) ; compiling (DEFINE-KEYSYM 3531 ...) ; compiling (DEFINE-KEYSYM 3532 ...) ; compiling (DEFINE-KEYSYM 3533 ...) ; compiling (DEFINE-KEYSYM 3534 ...) ; compiling (DEFINE-KEYSYM 3535 ...) ; compiling (DEFINE-KEYSYM 3536 ...) ; compiling (DEFINE-KEYSYM 3537 ...) ; compiling (DEFINE-KEYSYM 3538 ...) ; compiling (DEFINE-KEYSYM 3539 ...) ; compiling (DEFINE-KEYSYM 3540 ...) ; compiling (DEFINE-KEYSYM 3541 ...) ; compiling (DEFINE-KEYSYM 3542 ...) ; compiling (DEFINE-KEYSYM 3543 ...) ; compiling (DEFINE-KEYSYM 3544 ...) ; compiling (DEFINE-KEYSYM 3545 ...) ; compiling (DEFINE-KEYSYM 3546 ...) ; compiling (DEFINE-KEYSYM 3550 ...) ; compiling (DEFINE-KEYSYM 3551 ...) ; compiling (DEFINE-KEYSYM 3552 ...) ; compiling (DEFINE-KEYSYM 3553 ...) ; compiling (DEFINE-KEYSYM 3554 ...) ; compiling (DEFINE-KEYSYM 3555 ...) ; compiling (DEFINE-KEYSYM 3556 ...) ; compiling (DEFINE-KEYSYM 3557 ...) ; compiling (DEFINE-KEYSYM 3558 ...) ; compiling (DEFINE-KEYSYM 3559 ...) ; compiling (DEFINE-KEYSYM 3560 ...) ; compiling (DEFINE-KEYSYM 3561 ...) ; compiling (DEFINE-KEYSYM 3562 ...) ; compiling (DEFINE-KEYSYM 3563 ...) ; compiling (DEFINE-KEYSYM 3564 ...) ; compiling (DEFINE-KEYSYM 3565 ...) ; compiling (DEFINE-KEYSYM 3568 ...) ; compiling (DEFINE-KEYSYM 3569 ...) ; compiling (DEFINE-KEYSYM 3570 ...) ; compiling (DEFINE-KEYSYM 3571 ...) ; compiling (DEFINE-KEYSYM 3572 ...) ; compiling (DEFINE-KEYSYM 3573 ...) ; compiling (DEFINE-KEYSYM 3574 ...) ; compiling (DEFINE-KEYSYM 3575 ...) ; compiling (DEFINE-KEYSYM 3576 ...) ; compiling (DEFINE-KEYSYM 3577 ...) ; compiling (DEFINE-KEYSYM 65329 ...) ; compiling (DEFINE-KEYSYM 65330 ...) ; compiling (DEFINE-KEYSYM 65331 ...) ; compiling (DEFINE-KEYSYM 65332 ...) ; compiling (DEFINE-KEYSYM 65333 ...) ; compiling (DEFINE-KEYSYM 65334 ...) ; compiling (DEFINE-KEYSYM 65335 ...) ; compiling (DEFINE-KEYSYM 65336 ...) ; compiling (DEFINE-KEYSYM 65337 ...) ; compiling (DEFINE-KEYSYM 65338 ...) ; compiling (DEFINE-KEYSYM 65339 ...) ; compiling (DEFINE-KEYSYM 65340 ...) ; compiling (DEFINE-KEYSYM 65341 ...) ; compiling (DEFINE-KEYSYM 65342 ...) ; compiling (DEFINE-KEYSYM 65343 ...) ; compiling (DEFINE-KEYSYM 65406 ...) ; compiling (DEFINE-KEYSYM 3745 ...) ; compiling (DEFINE-KEYSYM 3746 ...) ; compiling (DEFINE-KEYSYM 3747 ...) ; compiling (DEFINE-KEYSYM 3748 ...) ; compiling (DEFINE-KEYSYM 3749 ...) ; compiling (DEFINE-KEYSYM 3750 ...) ; compiling (DEFINE-KEYSYM 3751 ...) ; compiling (DEFINE-KEYSYM 3752 ...) ; compiling (DEFINE-KEYSYM 3753 ...) ; compiling (DEFINE-KEYSYM 3754 ...) ; compiling (DEFINE-KEYSYM 3755 ...) ; compiling (DEFINE-KEYSYM 3756 ...) ; compiling (DEFINE-KEYSYM 3757 ...) ; compiling (DEFINE-KEYSYM 3758 ...) ; compiling (DEFINE-KEYSYM 3759 ...) ; compiling (DEFINE-KEYSYM 3760 ...) ; compiling (DEFINE-KEYSYM 3761 ...) ; compiling (DEFINE-KEYSYM 3762 ...) ; compiling (DEFINE-KEYSYM 3763 ...) ; compiling (DEFINE-KEYSYM 3764 ...) ; compiling (DEFINE-KEYSYM 3765 ...) ; compiling (DEFINE-KEYSYM 3766 ...) ; compiling (DEFINE-KEYSYM 3767 ...) ; compiling (DEFINE-KEYSYM 3768 ...) ; compiling (DEFINE-KEYSYM 3769 ...) ; compiling (DEFINE-KEYSYM 3770 ...) ; compiling (DEFINE-KEYSYM 3771 ...) ; compiling (DEFINE-KEYSYM 3772 ...) ; compiling (DEFINE-KEYSYM 3773 ...) ; compiling (DEFINE-KEYSYM 3774 ...) ; compiling (DEFINE-KEYSYM 3775 ...) ; compiling (DEFINE-KEYSYM 3776 ...) ; compiling (DEFINE-KEYSYM 3777 ...) ; compiling (DEFINE-KEYSYM 3778 ...) ; compiling (DEFINE-KEYSYM 3779 ...) ; compiling (DEFINE-KEYSYM 3780 ...) ; compiling (DEFINE-KEYSYM 3781 ...) ; compiling (DEFINE-KEYSYM 3782 ...) ; compiling (DEFINE-KEYSYM 3783 ...) ; compiling (DEFINE-KEYSYM 3784 ...) ; compiling (DEFINE-KEYSYM 3785 ...) ; compiling (DEFINE-KEYSYM 3786 ...) ; compiling (DEFINE-KEYSYM 3787 ...) ; compiling (DEFINE-KEYSYM 3788 ...) ; compiling (DEFINE-KEYSYM 3789 ...) ; compiling (DEFINE-KEYSYM 3790 ...) ; compiling (DEFINE-KEYSYM 3791 ...) ; compiling (DEFINE-KEYSYM 3792 ...) ; compiling (DEFINE-KEYSYM 3793 ...) ; compiling (DEFINE-KEYSYM 3794 ...) ; compiling (DEFINE-KEYSYM 3795 ...) ; compiling (DEFINE-KEYSYM 3796 ...) ; compiling (DEFINE-KEYSYM 3797 ...) ; compiling (DEFINE-KEYSYM 3798 ...) ; compiling (DEFINE-KEYSYM 3799 ...) ; compiling (DEFINE-KEYSYM 3800 ...) ; compiling (DEFINE-KEYSYM 3801 ...) ; compiling (DEFINE-KEYSYM 3802 ...) ; compiling (DEFINE-KEYSYM 3803 ...) ; compiling (DEFINE-KEYSYM 3804 ...) ; compiling (DEFINE-KEYSYM 3805 ...) ; compiling (DEFINE-KEYSYM 3806 ...) ; compiling (DEFINE-KEYSYM 3807 ...) ; compiling (DEFINE-KEYSYM 3808 ...) ; compiling (DEFINE-KEYSYM 3809 ...) ; compiling (DEFINE-KEYSYM 3810 ...) ; compiling (DEFINE-KEYSYM 3811 ...) ; compiling (DEFINE-KEYSYM 3812 ...) ; compiling (DEFINE-KEYSYM 3813 ...) ; compiling (DEFINE-KEYSYM 3814 ...) ; compiling (DEFINE-KEYSYM 3815 ...) ; compiling (DEFINE-KEYSYM 3816 ...) ; compiling (DEFINE-KEYSYM 3817 ...) ; compiling (DEFINE-KEYSYM 3818 ...) ; compiling (DEFINE-KEYSYM 3819 ...) ; compiling (DEFINE-KEYSYM 3820 ...) ; compiling (DEFINE-KEYSYM 3821 ...) ; compiling (DEFINE-KEYSYM 3822 ...) ; compiling (DEFINE-KEYSYM 3823 ...) ; compiling (DEFINE-KEYSYM 3824 ...) ; compiling (DEFINE-KEYSYM 3825 ...) ; compiling (DEFINE-KEYSYM 3826 ...) ; compiling (DEFINE-KEYSYM 3827 ...) ; compiling (DEFINE-KEYSYM 3828 ...) ; compiling (DEFINE-KEYSYM 3829 ...) ; compiling (DEFINE-KEYSYM 3830 ...) ; compiling (DEFINE-KEYSYM 3831 ...) ; compiling (DEFINE-KEYSYM 3832 ...) ; compiling (DEFINE-KEYSYM 3833 ...) ; compiling (DEFINE-KEYSYM 3834 ...) ; compiling (DEFINE-KEYSYM 3839 ...) ; compiling (DEFINE-KEYSYM 16778631 ...) ; compiling (DEFINE-KEYSYM 16778633 ...) ; compiling (DEFINE-KEYSYM 16778633 ...) ; compiling (DEFINE-KEYSYM 16778589 ...) ; compiling (DEFINE-KEYSYM 16778589 ...) ; compiling (DEFINE-KEYSYM 16778634 ...) ; compiling (DEFINE-KEYSYM 16778634 ...) ; compiling (DEFINE-KEYSYM 16778588 ...) ; compiling (DEFINE-KEYSYM 16778588 ...) ; compiling (DEFINE-KEYSYM 16778587 ...) ; compiling (DEFINE-KEYSYM 16778587 ...) ; compiling (DEFINE-KEYSYM 16778590 ...) ; compiling (DEFINE-KEYSYM 16778590 ...) ; compiling (DEFINE-KEYSYM 16778545 ...) ; compiling (DEFINE-KEYSYM 16778593 ...) ; compiling (DEFINE-KEYSYM 16778546 ...) ; compiling (DEFINE-KEYSYM 16778594 ...) ; compiling (DEFINE-KEYSYM 16778547 ...) ; compiling (DEFINE-KEYSYM 16778595 ...) ; compiling (DEFINE-KEYSYM 16778548 ...) ; compiling (DEFINE-KEYSYM 16778596 ...) ; compiling (DEFINE-KEYSYM 16778549 ...) ; compiling (DEFINE-KEYSYM 16778597 ...) ; compiling (DEFINE-KEYSYM 16778550 ...) ; compiling (DEFINE-KEYSYM 16778598 ...) ; compiling (DEFINE-KEYSYM 16778551 ...) ; compiling (DEFINE-KEYSYM 16778599 ...) ; compiling (DEFINE-KEYSYM 16778552 ...) ; compiling (DEFINE-KEYSYM 16778600 ...) ; compiling (DEFINE-KEYSYM 16778553 ...) ; compiling (DEFINE-KEYSYM 16778601 ...) ; compiling (DEFINE-KEYSYM 16778554 ...) ; compiling (DEFINE-KEYSYM 16778602 ...) ; compiling (DEFINE-KEYSYM 16778555 ...) ; compiling (DEFINE-KEYSYM 16778603 ...) ; compiling (DEFINE-KEYSYM 16778556 ...) ; compiling (DEFINE-KEYSYM 16778604 ...) ; compiling (DEFINE-KEYSYM 16778557 ...) ; compiling (DEFINE-KEYSYM 16778605 ...) ; compiling (DEFINE-KEYSYM 16778558 ...) ; compiling (DEFINE-KEYSYM 16778606 ...) ; compiling (DEFINE-KEYSYM 16778559 ...) ; compiling (DEFINE-KEYSYM 16778607 ...) ; compiling (DEFINE-KEYSYM 16778560 ...) ; compiling (DEFINE-KEYSYM 16778608 ...) ; compiling (DEFINE-KEYSYM 16778561 ...) ; compiling (DEFINE-KEYSYM 16778609 ...) ; compiling (DEFINE-KEYSYM 16778562 ...) ; compiling (DEFINE-KEYSYM 16778610 ...) ; compiling (DEFINE-KEYSYM 16778563 ...) ; compiling (DEFINE-KEYSYM 16778611 ...) ; compiling (DEFINE-KEYSYM 16778564 ...) ; compiling (DEFINE-KEYSYM 16778612 ...) ; compiling (DEFINE-KEYSYM 16778565 ...) ; compiling (DEFINE-KEYSYM 16778613 ...) ; compiling (DEFINE-KEYSYM 16778566 ...) ; compiling (DEFINE-KEYSYM 16778614 ...) ; compiling (DEFINE-KEYSYM 16778567 ...) ; compiling (DEFINE-KEYSYM 16778615 ...) ; compiling (DEFINE-KEYSYM 16778568 ...) ; compiling (DEFINE-KEYSYM 16778616 ...) ; compiling (DEFINE-KEYSYM 16778569 ...) ; compiling (DEFINE-KEYSYM 16778617 ...) ; compiling (DEFINE-KEYSYM 16778570 ...) ; compiling (DEFINE-KEYSYM 16778618 ...) ; compiling (DEFINE-KEYSYM 16778571 ...) ; compiling (DEFINE-KEYSYM 16778619 ...) ; compiling (DEFINE-KEYSYM 16778572 ...) ; compiling (DEFINE-KEYSYM 16778620 ...) ; compiling (DEFINE-KEYSYM 16778573 ...) ; compiling (DEFINE-KEYSYM 16778621 ...) ; compiling (DEFINE-KEYSYM 16778574 ...) ; compiling (DEFINE-KEYSYM 16778622 ...) ; compiling (DEFINE-KEYSYM 16778575 ...) ; compiling (DEFINE-KEYSYM 16778623 ...) ; compiling (DEFINE-KEYSYM 16778576 ...) ; compiling (DEFINE-KEYSYM 16778624 ...) ; compiling (DEFINE-KEYSYM 16778577 ...) ; compiling (DEFINE-KEYSYM 16778625 ...) ; compiling (DEFINE-KEYSYM 16778578 ...) ; compiling (DEFINE-KEYSYM 16778626 ...) ; compiling (DEFINE-KEYSYM 16778579 ...) ; compiling (DEFINE-KEYSYM 16778627 ...) ; compiling (DEFINE-KEYSYM 16778580 ...) ; compiling (DEFINE-KEYSYM 16778628 ...) ; compiling (DEFINE-KEYSYM 16778581 ...) ; compiling (DEFINE-KEYSYM 16778629 ...) ; compiling (DEFINE-KEYSYM 16778582 ...) ; compiling (DEFINE-KEYSYM 16778630 ...) ; compiling (DEFINE-KEYSYM 16778586 ...) ; compiling (DEFINE-KEYSYM 16781520 ...) ; compiling (DEFINE-KEYSYM 16781521 ...) ; compiling (DEFINE-KEYSYM 16781522 ...) ; compiling (DEFINE-KEYSYM 16781523 ...) ; compiling (DEFINE-KEYSYM 16781524 ...) ; compiling (DEFINE-KEYSYM 16781525 ...) ; compiling (DEFINE-KEYSYM 16781526 ...) ; compiling (DEFINE-KEYSYM 16781527 ...) ; compiling (DEFINE-KEYSYM 16781528 ...) ; compiling (DEFINE-KEYSYM 16781529 ...) ; compiling (DEFINE-KEYSYM 16781530 ...) ; compiling (DEFINE-KEYSYM 16781531 ...) ; compiling (DEFINE-KEYSYM 16781532 ...) ; compiling (DEFINE-KEYSYM 16781533 ...) ; compiling (DEFINE-KEYSYM 16781534 ...) ; compiling (DEFINE-KEYSYM 16781535 ...) ; compiling (DEFINE-KEYSYM 16781536 ...) ; compiling (DEFINE-KEYSYM 16781537 ...) ; compiling (DEFINE-KEYSYM 16781538 ...) ; compiling (DEFINE-KEYSYM 16781539 ...) ; compiling (DEFINE-KEYSYM 16781540 ...) ; compiling (DEFINE-KEYSYM 16781541 ...) ; compiling (DEFINE-KEYSYM 16781542 ...) ; compiling (DEFINE-KEYSYM 16781543 ...) ; compiling (DEFINE-KEYSYM 16781544 ...) ; compiling (DEFINE-KEYSYM 16781545 ...) ; compiling (DEFINE-KEYSYM 16781546 ...) ; compiling (DEFINE-KEYSYM 16781547 ...) ; compiling (DEFINE-KEYSYM 16781548 ...) ; compiling (DEFINE-KEYSYM 16781549 ...) ; compiling (DEFINE-KEYSYM 16781550 ...) ; compiling (DEFINE-KEYSYM 16781551 ...) ; compiling (DEFINE-KEYSYM 16781552 ...) ; compiling (DEFINE-KEYSYM 16781553 ...) ; compiling (DEFINE-KEYSYM 16781554 ...) ; compiling (DEFINE-KEYSYM 16781555 ...) ; compiling (DEFINE-KEYSYM 16781556 ...) ; compiling (DEFINE-KEYSYM 16781557 ...) ; compiling (DEFINE-KEYSYM 16781558 ...) ; compiling (DEFINE-KEYSYM 16785034 ...) ; compiling (DEFINE-KEYSYM 16777516 ...) ; compiling (DEFINE-KEYSYM 16777653 ...) ; compiling (DEFINE-KEYSYM 16777702 ...) ; compiling (DEFINE-KEYSYM 16777681 ...) ; compiling (DEFINE-KEYSYM 16777631 ...) ; compiling (DEFINE-KEYSYM 16785035 ...) ; compiling (DEFINE-KEYSYM 16777517 ...) ; compiling (DEFINE-KEYSYM 16777654 ...) ; compiling (DEFINE-KEYSYM 16777703 ...) ; compiling (DEFINE-KEYSYM 16777682 ...) ; compiling (DEFINE-KEYSYM 16777845 ...) ; compiling (DEFINE-KEYSYM 16777615 ...) ; compiling (DEFINE-KEYSYM 16777817 ...) ; compiling (DEFINE-KEYSYM 16784950 ...) ; compiling (DEFINE-KEYSYM 16784951 ...) ; compiling (DEFINE-KEYSYM 16785056 ...) ; compiling (DEFINE-KEYSYM 16785057 ...) ; compiling (DEFINE-KEYSYM 16785058 ...) ; compiling (DEFINE-KEYSYM 16785059 ...) ; compiling (DEFINE-KEYSYM 16785060 ...) ; compiling (DEFINE-KEYSYM 16785061 ...) ; compiling (DEFINE-KEYSYM 16785062 ...) ; compiling (DEFINE-KEYSYM 16785063 ...) ; compiling (DEFINE-KEYSYM 16785064 ...) ; compiling (DEFINE-KEYSYM 16785065 ...) ; compiling (DEFINE-KEYSYM 16785066 ...) ; compiling (DEFINE-KEYSYM 16785067 ...) ; compiling (DEFINE-KEYSYM 16785068 ...) ; compiling (DEFINE-KEYSYM 16785069 ...) ; compiling (DEFINE-KEYSYM 16785070 ...) ; compiling (DEFINE-KEYSYM 16785071 ...) ; compiling (DEFINE-KEYSYM 16785072 ...) ; compiling (DEFINE-KEYSYM 16785073 ...) ; compiling (DEFINE-KEYSYM 16785074 ...) ; compiling (DEFINE-KEYSYM 16785075 ...) ; compiling (DEFINE-KEYSYM 16785076 ...) ; compiling (DEFINE-KEYSYM 16785077 ...) ; compiling (DEFINE-KEYSYM 16785078 ...) ; compiling (DEFINE-KEYSYM 16785079 ...) ; compiling (DEFINE-KEYSYM 16785080 ...) ; compiling (DEFINE-KEYSYM 16785081 ...) ; compiling (DEFINE-KEYSYM 16785082 ...) ; compiling (DEFINE-KEYSYM 16785083 ...) ; compiling (DEFINE-KEYSYM 16785084 ...) ; compiling (DEFINE-KEYSYM 16785085 ...) ; compiling (DEFINE-KEYSYM 16785086 ...) ; compiling (DEFINE-KEYSYM 16785087 ...) ; compiling (DEFINE-KEYSYM 16785088 ...) ; compiling (DEFINE-KEYSYM 16785089 ...) ; compiling (DEFINE-KEYSYM 16785090 ...) ; compiling (DEFINE-KEYSYM 16785091 ...) ; compiling (DEFINE-KEYSYM 16785092 ...) ; compiling (DEFINE-KEYSYM 16785093 ...) ; compiling (DEFINE-KEYSYM 16785094 ...) ; compiling (DEFINE-KEYSYM 16785095 ...) ; compiling (DEFINE-KEYSYM 16785096 ...) ; compiling (DEFINE-KEYSYM 16785097 ...) ; compiling (DEFINE-KEYSYM 16785098 ...) ; compiling (DEFINE-KEYSYM 16785099 ...) ; compiling (DEFINE-KEYSYM 16785100 ...) ; compiling (DEFINE-KEYSYM 16785101 ...) ; compiling (DEFINE-KEYSYM 16785102 ...) ; compiling (DEFINE-KEYSYM 16785103 ...) ; compiling (DEFINE-KEYSYM 16785104 ...) ; compiling (DEFINE-KEYSYM 16785105 ...) ; compiling (DEFINE-KEYSYM 16785106 ...) ; compiling (DEFINE-KEYSYM 16785107 ...) ; compiling (DEFINE-KEYSYM 16785108 ...) ; compiling (DEFINE-KEYSYM 16785109 ...) ; compiling (DEFINE-KEYSYM 16785110 ...) ; compiling (DEFINE-KEYSYM 16785111 ...) ; compiling (DEFINE-KEYSYM 16785112 ...) ; compiling (DEFINE-KEYSYM 16785113 ...) ; compiling (DEFINE-KEYSYM 16785114 ...) ; compiling (DEFINE-KEYSYM 16785115 ...) ; compiling (DEFINE-KEYSYM 16785116 ...) ; compiling (DEFINE-KEYSYM 16785117 ...) ; compiling (DEFINE-KEYSYM 16785118 ...) ; compiling (DEFINE-KEYSYM 16785119 ...) ; compiling (DEFINE-KEYSYM 16785120 ...) ; compiling (DEFINE-KEYSYM 16785121 ...) ; compiling (DEFINE-KEYSYM 16785122 ...) ; compiling (DEFINE-KEYSYM 16785123 ...) ; compiling (DEFINE-KEYSYM 16785124 ...) ; compiling (DEFINE-KEYSYM 16785125 ...) ; compiling (DEFINE-KEYSYM 16785126 ...) ; compiling (DEFINE-KEYSYM 16785127 ...) ; compiling (DEFINE-KEYSYM 16785128 ...) ; compiling (DEFINE-KEYSYM 16785129 ...) ; compiling (DEFINE-KEYSYM 16785130 ...) ; compiling (DEFINE-KEYSYM 16785131 ...) ; compiling (DEFINE-KEYSYM 16785132 ...) ; compiling (DEFINE-KEYSYM 16785133 ...) ; compiling (DEFINE-KEYSYM 16785134 ...) ; compiling (DEFINE-KEYSYM 16785135 ...) ; compiling (DEFINE-KEYSYM 16785136 ...) ; compiling (DEFINE-KEYSYM 16785137 ...) ; compiling (DEFINE-KEYSYM 16785140 ...) ; compiling (DEFINE-KEYSYM 16785141 ...) ; compiling (DEFINE-KEYSYM 16785142 ...) ; compiling (DEFINE-KEYSYM 16785143 ...) ; compiling (DEFINE-KEYSYM 16785144 ...) ; compiling (DEFINE-KEYSYM 16785145 ...) ; compiling (DEFINE-KEYSYM 16777632 ...) ; compiling (DEFINE-KEYSYM 16777633 ...) ; compiling (DEFINE-KEYSYM 16777647 ...) ; compiling (DEFINE-KEYSYM 16777648 ...) ; compiling (DEFINE-KEYSYM 16785568 ...) ; compiling (DEFINE-KEYSYM 16785569 ...) ; compiling (DEFINE-KEYSYM 16785570 ...) ; compiling (DEFINE-KEYSYM 16785571 ...) ; compiling (DEFINE-KEYSYM 16785572 ...) ; compiling (DEFINE-KEYSYM 16785573 ...) ; compiling (DEFINE-KEYSYM 16785574 ...) ; compiling (DEFINE-KEYSYM 16785575 ...) ; compiling (DEFINE-KEYSYM 16785576 ...) ; compiling (DEFINE-KEYSYM 16785577 ...) ; compiling (DEFINE-KEYSYM 16785578 ...) ; compiling (DEFINE-KEYSYM 16785579 ...) ; compiling (DEFINE-KEYSYM 8364 ...) ; compiling (DEFINE-KEYSYM 16785520 ...) ; compiling (DEFINE-KEYSYM 16785524 ...) ; compiling (DEFINE-KEYSYM 16785525 ...) ; compiling (DEFINE-KEYSYM 16785526 ...) ; compiling (DEFINE-KEYSYM 16785527 ...) ; compiling (DEFINE-KEYSYM 16785528 ...) ; compiling (DEFINE-KEYSYM 16785529 ...) ; compiling (DEFINE-KEYSYM 16785536 ...) ; compiling (DEFINE-KEYSYM 16785537 ...) ; compiling (DEFINE-KEYSYM 16785538 ...) ; compiling (DEFINE-KEYSYM 16785539 ...) ; compiling (DEFINE-KEYSYM 16785540 ...) ; compiling (DEFINE-KEYSYM 16785541 ...) ; compiling (DEFINE-KEYSYM 16785542 ...) ; compiling (DEFINE-KEYSYM 16785543 ...) ; compiling (DEFINE-KEYSYM 16785544 ...) ; compiling (DEFINE-KEYSYM 16785545 ...) ; compiling (DEFINE-KEYSYM 16785922 ...) ; compiling (DEFINE-KEYSYM 16785925 ...) ; compiling (DEFINE-KEYSYM 16785928 ...) ; compiling (DEFINE-KEYSYM 16785929 ...) ; compiling (DEFINE-KEYSYM 16785931 ...) ; compiling (DEFINE-KEYSYM 16785946 ...) ; compiling (DEFINE-KEYSYM 16785947 ...) ; compiling (DEFINE-KEYSYM 16785948 ...) ; compiling (DEFINE-KEYSYM 16785964 ...) ; compiling (DEFINE-KEYSYM 16785965 ...) ; compiling (DEFINE-KEYSYM 16785973 ...) ; compiling (DEFINE-KEYSYM 16785992 ...) ; compiling (DEFINE-KEYSYM 16785991 ...) ; compiling (DEFINE-KEYSYM 16786018 ...) ; compiling (DEFINE-KEYSYM 16786019 ...) ; compiling (DEFINE-KEYSYM 268435624 ...) ; compiling (DEFINE-KEYSYM 268435625 ...) ; compiling (DEFINE-KEYSYM 268435626 ...) ; compiling (DEFINE-KEYSYM 268435627 ...) ; compiling (DEFINE-KEYSYM 268435628 ...) ; compiling (DEFINE-KEYSYM 268435631 ...) ; compiling (DEFINE-KEYSYM 268435646 ...) ; compiling (DEFINE-KEYSYM 268435694 ...) ; compiling (DEFINE-KEYSYM 268435694 ...) ; compiling (DEFINE-KEYSYM 268435702 ...) ; compiling (DEFINE-KEYSYM 268435708 ...) ; compiling (DEFINE-KEYSYM 268500736 ...) ; compiling (DEFINE-KEYSYM 268500737 ...) ; compiling (DEFINE-KEYSYM 268500738 ...) ; compiling (DEFINE-KEYSYM 268500739 ...) ; compiling (DEFINE-KEYSYM 268500740 ...) ; compiling (DEFINE-KEYSYM 268500741 ...) ; compiling (DEFINE-KEYSYM 268500742 ...) ; compiling (DEFINE-KEYSYM 268500743 ...) ; compiling (DEFINE-KEYSYM 268500744 ...) ; compiling (DEFINE-KEYSYM 268500745 ...) ; compiling (DEFINE-KEYSYM 268500746 ...) ; compiling (DEFINE-KEYSYM 268500747 ...) ; compiling (DEFINE-KEYSYM 268500748 ...) ; compiling (DEFINE-KEYSYM 268500749 ...) ; compiling (DEFINE-KEYSYM 268500750 ...) ; compiling (DEFINE-KEYSYM 268500751 ...) ; compiling (DEFINE-KEYSYM 268500752 ...) ; compiling (DEFINE-KEYSYM 268500753 ...) ; compiling (DEFINE-KEYSYM 268500754 ...) ; compiling (DEFINE-KEYSYM 268500755 ...) ; compiling (DEFINE-KEYSYM 268500756 ...) ; compiling (DEFINE-KEYSYM 268500808 ...) ; compiling (DEFINE-KEYSYM 268500809 ...) ; compiling (DEFINE-KEYSYM 268500844 ...) ; compiling (DEFINE-KEYSYM 268500845 ...) ; compiling (DEFINE-KEYSYM 268500846 ...) ; compiling (DEFINE-KEYSYM 268500847 ...) ; compiling (DEFINE-KEYSYM 268500848 ...) ; compiling (DEFINE-KEYSYM 268500849 ...) ; compiling (DEFINE-KEYSYM 268500850 ...) ; compiling (DEFINE-KEYSYM 268500851 ...) ; compiling (DEFINE-KEYSYM 268500852 ...) ; compiling (DEFINE-KEYSYM 268500853 ...) ; compiling (DEFINE-KEYSYM 268500904 ...) ; compiling (DEFINE-KEYSYM 268500905 ...) ; compiling (DEFINE-KEYSYM 268451841 ...) ; compiling (DEFINE-KEYSYM 268451842 ...) ; compiling (DEFINE-KEYSYM 268451843 ...) ; compiling (DEFINE-KEYSYM 268451844 ...) ; compiling (DEFINE-KEYSYM 268452097 ...) ; compiling (DEFINE-KEYSYM 268452098 ...) ; compiling (DEFINE-KEYSYM 268452099 ...) ; compiling (DEFINE-KEYSYM 268452100 ...) ; compiling (DEFINE-KEYSYM 268452101 ...) ; compiling (DEFINE-KEYSYM 268452102 ...) ; compiling (DEFINE-KEYSYM 268452103 ...) ; compiling (DEFINE-KEYSYM 268452104 ...) ; compiling (DEFINE-KEYSYM 268452105 ...) ; compiling (DEFINE-KEYSYM 268452106 ...) ; compiling (DEFINE-KEYSYM 268452107 ...) ; compiling (DEFINE-KEYSYM 268452108 ...) ; compiling (DEFINE-KEYSYM 268452109 ...) ; compiling (DEFINE-KEYSYM 268452110 ...) ; compiling (DEFINE-KEYSYM 268452111 ...) ; compiling (DEFINE-KEYSYM 268452353 ...) ; compiling (DEFINE-KEYSYM 268452354 ...) ; compiling (DEFINE-KEYSYM 268452355 ...) ; compiling (DEFINE-KEYSYM 268452356 ...) ; compiling (DEFINE-KEYSYM 268452357 ...) ; compiling (DEFINE-KEYSYM 268452358 ...) ; compiling (DEFINE-KEYSYM 268452359 ...) ; compiling (DEFINE-KEYSYM 268452360 ...) ; compiling (DEFINE-KEYSYM 268452361 ...) ; compiling (DEFINE-KEYSYM 268452362 ...) ; compiling (DEFINE-KEYSYM 268452363 ...) ; compiling (DEFINE-KEYSYM 268452364 ...) ; compiling (DEFINE-KEYSYM 268452365 ...) ; compiling (DEFINE-KEYSYM 268452366 ...) ; compiling (DEFINE-KEYSYM 268452367 ...) ; compiling (DEFINE-KEYSYM 268452368 ...) ; compiling (DEFINE-KEYSYM 268500736 ...) ; compiling (DEFINE-KEYSYM 268500656 ...) ; compiling (DEFINE-KEYSYM 268500574 ...) ; compiling (DEFINE-KEYSYM 268500524 ...) ; compiling (DEFINE-KEYSYM 268500519 ...) ; compiling (DEFINE-KEYSYM 268500576 ...) ; compiling (DEFINE-KEYSYM 268500606 ...) ; compiling (DEFINE-KEYSYM 268500514 ...) ; compiling (DEFINE-KEYSYM 268762882 ...) ; compiling (DEFINE-KEYSYM 268762883 ...) ; compiling (DEFINE-KEYSYM 268762884 ...) ; compiling (DEFINE-KEYSYM 268762887 ...) ; compiling (DEFINE-KEYSYM 268762888 ...) ; compiling (DEFINE-KEYSYM 268762891 ...) ; compiling (DEFINE-KEYSYM 268762907 ...) ; compiling (DEFINE-KEYSYM 268762929 ...) ; compiling (DEFINE-KEYSYM 268762930 ...) ; compiling (DEFINE-KEYSYM 268762931 ...) ; compiling (DEFINE-KEYSYM 268762944 ...) ; compiling (DEFINE-KEYSYM 268762945 ...) ; compiling (DEFINE-KEYSYM 268762946 ...) ; compiling (DEFINE-KEYSYM 268762947 ...) ; compiling (DEFINE-KEYSYM 268762948 ...) ; compiling (DEFINE-KEYSYM 268762949 ...) ; compiling (DEFINE-KEYSYM 268762961 ...) ; compiling (DEFINE-KEYSYM 268762962 ...) ; compiling (DEFINE-KEYSYM 268762963 ...) ; compiling (DEFINE-KEYSYM 268762964 ...) ; compiling (DEFINE-KEYSYM 268762965 ...) ; compiling (DEFINE-KEYSYM 268762966 ...) ; compiling (DEFINE-KEYSYM 268762967 ...) ; compiling (DEFINE-KEYSYM 268762968 ...) ; compiling (DEFINE-KEYSYM 268762969 ...) ; compiling (DEFINE-KEYSYM 268762970 ...) ; compiling (DEFINE-KEYSYM 268762971 ...) ; compiling (DEFINE-KEYSYM 268762972 ...) ; compiling (DEFINE-KEYSYM 268762973 ...) ; compiling (DEFINE-KEYSYM 268762974 ...) ; compiling (DEFINE-KEYSYM 268762976 ...) ; compiling (DEFINE-KEYSYM 268762979 ...) ; compiling (DEFINE-KEYSYM 268762981 ...) ; compiling (DEFINE-KEYSYM 268762983 ...) ; compiling (DEFINE-KEYSYM 268762985 ...) ; compiling (DEFINE-KEYSYM 268762986 ...) ; compiling (DEFINE-KEYSYM 268762993 ...) ; compiling (DEFINE-KEYSYM 268762994 ...) ; compiling (DEFINE-KEYSYM 268762995 ...) ; compiling (DEFINE-KEYSYM 268762996 ...) ; compiling (DEFINE-KEYSYM 268763000 ...) ; compiling (DEFINE-KEYSYM 268763006 ...) ; compiling (DEFINE-KEYSYM 268763125 ...) ; compiling (DEFINE-KEYSYM 268763126 ...) ; compiling (DEFINE-KEYSYM 268763127 ...) ; compiling (DEFINE-KEYSYM 268763128 ...) ; compiling (DEFINE-KEYSYM 268763135 ...) ; compiling (DEFINE-KEYSYM 268828416 ...) ; compiling (DEFINE-KEYSYM 268828417 ...) ; compiling (DEFINE-KEYSYM 268828418 ...) ; compiling (DEFINE-KEYSYM 268828419 ...) ; compiling (DEFINE-KEYSYM 268828420 ...) ; compiling (DEFINE-KEYSYM 268828421 ...) ; compiling (DEFINE-KEYSYM 268828432 ...) ; compiling (DEFINE-KEYSYM 268828433 ...) ; compiling (DEFINE-KEYSYM 268828512 ...) ; compiling (DEFINE-KEYSYM 268828528 ...) ; compiling (DEFINE-KEYSYM 268828529 ...) ; compiling (DEFINE-KEYSYM 268828530 ...) ; compiling (DEFINE-KEYSYM 268828531 ...) ; compiling (DEFINE-KEYSYM 268828532 ...) ; compiling (DEFINE-KEYSYM 268828533 ...) ; compiling (DEFINE-KEYSYM 268828534 ...) ; compiling (DEFINE-KEYSYM 268828535 ...) ; compiling (DEFINE-KEYSYM 268828536 ...) ; compiling (DEFINE-KEYSYM 268828537 ...) ; compiling (DEFINE-KEYSYM 268828538 ...) ; compiling (DEFINE-KEYSYM 268828539 ...) ; compiling (DEFINE-KEYSYM 268828540 ...) ; compiling (DEFINE-KEYSYM 268828541 ...) ; compiling (DEFINE-KEYSYM 65312 ...) ; compiling (DEFINE-KEYSYM 65365 ...) ; compiling (DEFINE-KEYSYM 65366 ...) ; compiling (DEFINE-KEYSYM 65377 ...) ; compiling (DEFINE-KEYSYM 65381 ...) ; compiling (DEFINE-KEYSYM 65382 ...) ; compiling (DEFINE-KEYSYM 65384 ...) ; compiling (DEFINE-KEYSYM 65385 ...) ; compiling (DEFINE-KEYSYM 65406 ...) ; compiling (DEFINE-KEYSYM 268893952 ...) ; compiling (DEFINE-KEYSYM 268893952 ...) ; compiling (DEFINE-KEYSYM 268894209 ...) ; compiling (DEFINE-KEYSYM 268894210 ...) ; compiling (DEFINE-KEYSYM 268894211 ...) ; compiling (DEFINE-KEYSYM 268894212 ...) ; compiling (DEFINE-KEYSYM 268894213 ...) ; compiling (DEFINE-KEYSYM 269025025 ...) ; compiling (DEFINE-KEYSYM 269025026 ...) ; compiling (DEFINE-KEYSYM 269025027 ...) ; compiling (DEFINE-KEYSYM 269025028 ...) ; compiling (DEFINE-KEYSYM 269025029 ...) ; compiling (DEFINE-KEYSYM 269025030 ...) ; compiling (DEFINE-KEYSYM 269025040 ...) ; compiling (DEFINE-KEYSYM 269025041 ...) ; compiling (DEFINE-KEYSYM 269025042 ...) ; compiling (DEFINE-KEYSYM 269025043 ...) ; compiling (DEFINE-KEYSYM 269025044 ...) ; compiling (DEFINE-KEYSYM 269025045 ...) ; compiling (DEFINE-KEYSYM 269025046 ...) ; compiling (DEFINE-KEYSYM 269025047 ...) ; compiling (DEFINE-KEYSYM 269025048 ...) ; compiling (DEFINE-KEYSYM 269025049 ...) ; compiling (DEFINE-KEYSYM 269025050 ...) ; compiling (DEFINE-KEYSYM 269025051 ...) ; compiling (DEFINE-KEYSYM 269025052 ...) ; compiling (DEFINE-KEYSYM 269025053 ...) ; compiling (DEFINE-KEYSYM 269025054 ...) ; compiling (DEFINE-KEYSYM 269025055 ...) ; compiling (DEFINE-KEYSYM 269025056 ...) ; compiling (DEFINE-KEYSYM 269025057 ...) ; compiling (DEFINE-KEYSYM 269025058 ...) ; compiling (DEFINE-KEYSYM 269025059 ...) ; compiling (DEFINE-KEYSYM 269025060 ...) ; compiling (DEFINE-KEYSYM 269025061 ...) ; compiling (DEFINE-KEYSYM 269025062 ...) ; compiling (DEFINE-KEYSYM 269025063 ...) ; compiling (DEFINE-KEYSYM 269025064 ...) ; compiling (DEFINE-KEYSYM 269025065 ...) ; compiling (DEFINE-KEYSYM 269025066 ...) ; compiling (DEFINE-KEYSYM 269025067 ...) ; compiling (DEFINE-KEYSYM 269025068 ...) ; compiling (DEFINE-KEYSYM 269025069 ...) ; compiling (DEFINE-KEYSYM 269025070 ...) ; compiling (DEFINE-KEYSYM 269025071 ...) ; compiling (DEFINE-KEYSYM 269025072 ...) ; compiling (DEFINE-KEYSYM 269025073 ...) ; compiling (DEFINE-KEYSYM 269025074 ...) ; compiling (DEFINE-KEYSYM 269025075 ...) ; compiling (DEFINE-KEYSYM 269025076 ...) ; compiling (DEFINE-KEYSYM 269025077 ...) ; compiling (DEFINE-KEYSYM 269025078 ...) ; compiling (DEFINE-KEYSYM 269025079 ...) ; compiling (DEFINE-KEYSYM 269025080 ...) ; compiling (DEFINE-KEYSYM 269025081 ...) ; compiling (DEFINE-KEYSYM 269025082 ...) ; compiling (DEFINE-KEYSYM 269025083 ...) ; compiling (DEFINE-KEYSYM 269025084 ...) ; compiling (DEFINE-KEYSYM 269025085 ...) ; compiling (DEFINE-KEYSYM 269025086 ...) ; compiling (DEFINE-KEYSYM 269025087 ...) ; compiling (DEFINE-KEYSYM 269025088 ...) ; compiling (DEFINE-KEYSYM 269025089 ...) ; compiling (DEFINE-KEYSYM 269025090 ...) ; compiling (DEFINE-KEYSYM 269025091 ...) ; compiling (DEFINE-KEYSYM 269025092 ...) ; compiling (DEFINE-KEYSYM 269025093 ...) ; compiling (DEFINE-KEYSYM 269025094 ...) ; compiling (DEFINE-KEYSYM 269025095 ...) ; compiling (DEFINE-KEYSYM 269025096 ...) ; compiling (DEFINE-KEYSYM 269025097 ...) ; compiling (DEFINE-KEYSYM 269025098 ...) ; compiling (DEFINE-KEYSYM 269025099 ...) ; compiling (DEFINE-KEYSYM 269025100 ...) ; compiling (DEFINE-KEYSYM 269025101 ...) ; compiling (DEFINE-KEYSYM 269025102 ...) ; compiling (DEFINE-KEYSYM 269025103 ...) ; compiling (DEFINE-KEYSYM 269025104 ...) ; compiling (DEFINE-KEYSYM 269025105 ...) ; compiling (DEFINE-KEYSYM 269025106 ...) ; compiling (DEFINE-KEYSYM 269025107 ...) ; compiling (DEFINE-KEYSYM 269025108 ...) ; compiling (DEFINE-KEYSYM 269025109 ...) ; compiling (DEFINE-KEYSYM 269025110 ...) ; compiling (DEFINE-KEYSYM 269025111 ...) ; compiling (DEFINE-KEYSYM 269025112 ...) ; compiling (DEFINE-KEYSYM 269025113 ...) ; compiling (DEFINE-KEYSYM 269025114 ...) ; compiling (DEFINE-KEYSYM 269025115 ...) ; compiling (DEFINE-KEYSYM 269025116 ...) ; compiling (DEFINE-KEYSYM 269025117 ...) ; compiling (DEFINE-KEYSYM 269025118 ...) ; compiling (DEFINE-KEYSYM 269025119 ...) ; compiling (DEFINE-KEYSYM 269025120 ...) ; compiling (DEFINE-KEYSYM 269025121 ...) ; compiling (DEFINE-KEYSYM 269025122 ...) ; compiling (DEFINE-KEYSYM 269025123 ...) ; compiling (DEFINE-KEYSYM 269025125 ...) ; compiling (DEFINE-KEYSYM 269025126 ...) ; compiling (DEFINE-KEYSYM 269025127 ...) ; compiling (DEFINE-KEYSYM 269025128 ...) ; compiling (DEFINE-KEYSYM 269025129 ...) ; compiling (DEFINE-KEYSYM 269025130 ...) ; compiling (DEFINE-KEYSYM 269025131 ...) ; compiling (DEFINE-KEYSYM 269025132 ...) ; compiling (DEFINE-KEYSYM 269025133 ...) ; compiling (DEFINE-KEYSYM 269025134 ...) ; compiling (DEFINE-KEYSYM 269025136 ...) ; compiling (DEFINE-KEYSYM 269025138 ...) ; compiling (DEFINE-KEYSYM 269025139 ...) ; compiling (DEFINE-KEYSYM 269025140 ...) ; compiling (DEFINE-KEYSYM 269025141 ...) ; compiling (DEFINE-KEYSYM 269025142 ...) ; compiling (DEFINE-KEYSYM 269025143 ...) ; compiling (DEFINE-KEYSYM 269025144 ...) ; compiling (DEFINE-KEYSYM 269025145 ...) ; compiling (DEFINE-KEYSYM 269025146 ...) ; compiling (DEFINE-KEYSYM 269025147 ...) ; compiling (DEFINE-KEYSYM 269025148 ...) ; compiling (DEFINE-KEYSYM 269025149 ...) ; compiling (DEFINE-KEYSYM 269025150 ...) ; compiling (DEFINE-KEYSYM 269025151 ...) ; compiling (DEFINE-KEYSYM 269025152 ...) ; compiling (DEFINE-KEYSYM 269025153 ...) ; compiling (DEFINE-KEYSYM 269025154 ...) ; compiling (DEFINE-KEYSYM 269025156 ...) ; compiling (DEFINE-KEYSYM 269025157 ...) ; compiling (DEFINE-KEYSYM 269025158 ...) ; compiling (DEFINE-KEYSYM 269025159 ...) ; compiling (DEFINE-KEYSYM 269025160 ...) ; compiling (DEFINE-KEYSYM 269025161 ...) ; compiling (DEFINE-KEYSYM 269025162 ...) ; compiling (DEFINE-KEYSYM 269025163 ...) ; compiling (DEFINE-KEYSYM 269025164 ...) ; compiling (DEFINE-KEYSYM 269025165 ...) ; compiling (DEFINE-KEYSYM 269025166 ...) ; compiling (DEFINE-KEYSYM 269025167 ...) ; compiling (DEFINE-KEYSYM 269025168 ...) ; compiling (DEFINE-KEYSYM 269025169 ...) ; compiling (DEFINE-KEYSYM 269025170 ...) ; compiling (DEFINE-KEYSYM 269025171 ...) ; compiling (DEFINE-KEYSYM 269025172 ...) ; compiling (DEFINE-KEYSYM 269025173 ...) ; compiling (DEFINE-KEYSYM 269025174 ...) ; compiling (DEFINE-KEYSYM 269025175 ...) ; compiling (DEFINE-KEYSYM 269025176 ...) ; compiling (DEFINE-KEYSYM 269025177 ...) ; compiling (DEFINE-KEYSYM 269025178 ...) ; compiling (DEFINE-KEYSYM 269025179 ...) ; compiling (DEFINE-KEYSYM 269025180 ...) ; compiling (DEFINE-KEYSYM 269025181 ...) ; compiling (DEFINE-KEYSYM 269025182 ...) ; compiling (DEFINE-KEYSYM 269025183 ...) ; compiling (DEFINE-KEYSYM 269025184 ...) ; compiling (DEFINE-KEYSYM 269025185 ...) ; compiling (DEFINE-KEYSYM 269025186 ...) ; compiling (DEFINE-KEYSYM 269025187 ...) ; compiling (DEFINE-KEYSYM 269025188 ...) ; compiling (DEFINE-KEYSYM 269025189 ...) ; compiling (DEFINE-KEYSYM 269025190 ...) ; compiling (DEFINE-KEYSYM 269025191 ...) ; compiling (DEFINE-KEYSYM 269025192 ...) ; compiling (DEFINE-KEYSYM 269025193 ...) ; compiling (DEFINE-KEYSYM 269025200 ...) ; compiling (DEFINE-KEYSYM 269025201 ...) ; compiling (DEFINE-KEYSYM 269025202 ...) ; compiling (DEFINE-KEYSYM 269024769 ...) ; compiling (DEFINE-KEYSYM 269024770 ...) ; compiling (DEFINE-KEYSYM 269024771 ...) ; compiling (DEFINE-KEYSYM 269024772 ...) ; compiling (DEFINE-KEYSYM 269024773 ...) ; compiling (DEFINE-KEYSYM 269024774 ...) ; compiling (DEFINE-KEYSYM 269024775 ...) ; compiling (DEFINE-KEYSYM 269024776 ...) ; compiling (DEFINE-KEYSYM 269024777 ...) ; compiling (DEFINE-KEYSYM 269024778 ...) ; compiling (DEFINE-KEYSYM 269024779 ...) ; compiling (DEFINE-KEYSYM 269024780 ...) ; compiling (DEFINE-KEYSYM 269024800 ...) ; compiling (DEFINE-KEYSYM 269024801 ...) ; compiling (DEFINE-KEYSYM 269024802 ...) ; compiling (DEFINE-KEYSYM 269024803 ...) ; compiling (DEFINE-KEYSYM 268435624 ...) ; compiling (DEFINE-KEYSYM 268435625 ...) ; compiling (DEFINE-KEYSYM 268435627 ...) ; compiling (DEFINE-KEYSYM 268435626 ...) ; compiling (DEFINE-KEYSYM 268435628 ...) ; compiling (DEFINE-KEYSYM 268500524 ...) ; compiling (DEFINE-KEYSYM 268500656 ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/keysyms-TMP.fasl written ; compilation finished in 0:00:00.079 ; compiling file "/build/buildd/stumpwm-0.9.9/keytrans.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (DEFVAR *STUMPWM-NAME->KEYSYM-NAME-TRANSLATIONS* ...) ; compiling (DEFUN DEFINE-KEYSYM-NAME ...) ; compiling (DEFUN STUMPWM-NAME->KEYSYM-NAME ...) ; compiling (DEFUN KEYSYM-NAME->STUMPWM-NAME ...) ; compiling (DEFUN STUMPWM-NAME->KEYSYM ...) ; compiling (DEFUN KEYSYM->STUMPWM-NAME ...) ; compiling (DEFINE-KEYSYM-NAME "RET" ...) ; compiling (DEFINE-KEYSYM-NAME "ESC" ...) ; compiling (DEFINE-KEYSYM-NAME "TAB" ...) ; compiling (DEFINE-KEYSYM-NAME "DEL" ...) ; compiling (DEFINE-KEYSYM-NAME "SPC" ...) ; compiling (DEFINE-KEYSYM-NAME "!" ...) ; compiling (DEFINE-KEYSYM-NAME "\"" ...) ; compiling (DEFINE-KEYSYM-NAME "$" ...) ; compiling (DEFINE-KEYSYM-NAME "%" ...) ; compiling (DEFINE-KEYSYM-NAME "&" ...) ; compiling (DEFINE-KEYSYM-NAME "'" ...) ; compiling (DEFINE-KEYSYM-NAME "'" ...) ; compiling (DEFINE-KEYSYM-NAME "`" ...) ; compiling (DEFINE-KEYSYM-NAME "`" ...) ; compiling (DEFINE-KEYSYM-NAME "&" ...) ; compiling (DEFINE-KEYSYM-NAME "(" ...) ; compiling (DEFINE-KEYSYM-NAME ")" ...) ; compiling (DEFINE-KEYSYM-NAME "*" ...) ; compiling (DEFINE-KEYSYM-NAME "+" ...) ; compiling (DEFINE-KEYSYM-NAME "," ...) ; compiling (DEFINE-KEYSYM-NAME "-" ...) ; compiling (DEFINE-KEYSYM-NAME "." ...) ; compiling (DEFINE-KEYSYM-NAME "/" ...) ; compiling (DEFINE-KEYSYM-NAME ":" ...) ; compiling (DEFINE-KEYSYM-NAME ";" ...) ; compiling (DEFINE-KEYSYM-NAME "<" ...) ; compiling (DEFINE-KEYSYM-NAME "=" ...) ; compiling (DEFINE-KEYSYM-NAME ">" ...) ; compiling (DEFINE-KEYSYM-NAME "?" ...) ; compiling (DEFINE-KEYSYM-NAME "@" ...) ; compiling (DEFINE-KEYSYM-NAME "[" ...) ; compiling (DEFINE-KEYSYM-NAME "\\" ...) ; compiling (DEFINE-KEYSYM-NAME "]" ...) ; compiling (DEFINE-KEYSYM-NAME "^" ...) ; compiling (DEFINE-KEYSYM-NAME "_" ...) ; compiling (DEFINE-KEYSYM-NAME "#" ...) ; compiling (DEFINE-KEYSYM-NAME "{" ...) ; compiling (DEFINE-KEYSYM-NAME "|" ...) ; compiling (DEFINE-KEYSYM-NAME "}" ...) ; compiling (DEFINE-KEYSYM-NAME "~" ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/keytrans-TMP.fasl written ; compilation finished in 0:00:00.011 ; compiling file "/build/buildd/stumpwm-0.9.9/kmap.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *TOP-MAP* ...) ; compiling (DEFVAR *ROOT-MAP* ...) ; compiling (DEFSTRUCT KEY ...) ; compiling (DEFSTRUCT KMAP ...) ; compiling (DEFSTRUCT BINDING ...) ; compiling (DEFUN MAKE-SPARSE-KEYMAP ...) ; compiling (DEFUN LOOKUP-COMMAND ...) ; compiling (DEFUN LOOKUP-KEY ...) ; compiling (DEFUN KEY-MODS-P ...) ; compiling (DEFUN X11-MODS ...) ; compiling (DEFUN REPORT-KBD-PARSE-ERROR ...) ; compiling (DEFINE-CONDITION KBD-PARSE-ERROR ...) ; compiling (DEFUN PARSE-MODS ...) ; compiling (DEFUN PARSE-KEY ...) ; compiling (DEFUN PARSE-KEY-SEQ ...) ; compiling (DEFUN KBD ...) ; compiling (DEFUN COPY-KEY-INTO ...) ; compiling (DEFUN PRINT-MODS ...) ; compiling (DEFUN PRINT-KEY ...) ; compiling (DEFUN PRINT-KEY-SEQ ...) ; compiling (DEFUN DEFINE-KEY ...) ; compiling (DEFUN UNDEFINE-KEY ...) ; compiling (DEFUN LOOKUP-KEY-SEQUENCE ...) ; compiling (DEFUN KMAP-SYMBOL-P ...) ; compiling (DEFUN KMAP-OR-KMAP-SYMBOL-P ...) ; compiling (DEFUN DEREFERENCE-KMAPS ...) ; compiling (DEFUN SEARCH-KMAP ...) ; compiling (DEFVAR *TOP-MAP-LIST* ...) ; compiling (DEFUN PUSH-TOP-MAP ...) ; compiling (DEFUN POP-TOP-MAP ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/kmap-TMP.fasl written ; compilation finished in 0:00:00.111 ; compiling file "/build/buildd/stumpwm-0.9.9/input.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFSTRUCT INPUT-LINE ...) ; compiling (DEFVAR *INPUT-MAP* ...) ; compiling (WHEN (NULL *INPUT-MAP*) ...) ; compiling (DEFVAR *INPUT-HISTORY* ...) ; compiling (DEFVAR *INPUT-LAST-COMMAND* ...) ; compiling (DEFVAR *INPUT-COMPLETIONS* ...) ; compiling (DEFVAR *INPUT-CURRENT-COMPLETIONS* ...) ; compiling (DEFVAR *INPUT-CURRENT-COMPLETIONS-IDX* ...) ; compiling (DEFVAR *INPUT-HISTORY-IGNORE-DUPLICATES* ...) ; compiling (DEFVAR *NUMPAD-MAP* ...) ; compiling (DEFUN IS-MODIFIER ...) ; compiling (DEFUN KEYCODE->CHARACTER ...) ; compiling (DEFUN SETUP-INPUT-WINDOW ...) ; compiling (DEFUN SHUTDOWN-INPUT-WINDOW ...) ; compiling (DEFUN INPUT-HANDLE-KEY-PRESS-EVENT ...) ; compiling (DEFUN INPUT-HANDLE-SELECTION-EVENT ...) ; compiling (DEFUN READ-KEY-HANDLE-EVENT ...) ; compiling (DEFUN READ-KEY-OR-SELECTION-HANDLE-EVENT ...) ; compiling (DEFUN READ-KEY ...) ; compiling (DEFUN READ-KEY-NO-MODIFIERS ...) ; compiling (DEFUN READ-KEY-OR-SELECTION ...) ; compiling (DEFUN MAKE-INPUT-STRING ...) ; compiling (DEFUN COMPLETING-READ ...) ; compiling (DEFUN READ-ONE-LINE ...) ; compiling (DEFUN READ-ONE-CHAR ...) ; compiling (DEFUN DRAW-INPUT-BUCKET ...) ; compiling (DEFUN CODE-STATE->KEY ...) ; compiling (DEFUN INPUT-SUBMIT ...) ; compiling (DEFUN INPUT-ABORT ...) ; compiling (DEFUN INPUT-GOTO-CHAR ...) ; compiling (DEFUN INPUT-INSERT-STRING ...) ; compiling (DEFUN INPUT-POINT ...) ; compiling (DEFUN INPUT-VALIDATE-REGION ...) ; compiling (DEFUN INPUT-DELETE-REGION ...) ; compiling (DEFUN INPUT-INSERT-CHAR ...) ; compiling (DEFUN INPUT-SUBSTRING ...) ; compiling (DEFUN INPUT-FIND-COMPLETIONS ...) ; compiling (DEFUN INPUT-COMPLETE ...) ; compiling (DEFUN INPUT-COMPLETE-FORWARD ...) ; compiling (DEFUN INPUT-COMPLETE-BACKWARD ...) ; compiling (DEFUN INPUT-DELETE-BACKWARD-CHAR ...) ; compiling (DEFUN INPUT-DELETE-FORWARD-CHAR ...) ; compiling (DEFUN INPUT-FORWARD-KILL-WORD ...) ; compiling (DEFUN INPUT-BACKWARD-KILL-WORD ...) ; compiling (DEFUN INPUT-FORWARD-WORD ...) ; compiling (DEFUN INPUT-BACKWARD-WORD ...) ; compiling (DEFUN INPUT-FORWARD-CHAR ...) ; compiling (DEFUN INPUT-BACKWARD-CHAR ...) ; compiling (DEFUN INPUT-MOVE-BEGINNING-OF-LINE ...) ; compiling (DEFUN INPUT-MOVE-END-OF-LINE ...) ; compiling (DEFUN INPUT-KILL-LINE ...) ; compiling (DEFUN INPUT-KILL-TO-BEGINNING ...) ; compiling (DEFUN INPUT-HISTORY-BACK ...) ; compiling (DEFUN INPUT-HISTORY-FORWARD ...) ; compiling (DEFUN INPUT-SELF-INSERT ...) ; compiling (DEFUN INPUT-YANK-SELECTION ...) ; compiling (DEFUN INPUT-YANK-CLIPBOARD ...) ; compiling (DEFUN PROCESS-INPUT ...) ; compiling (DEFUN ALL-MODIFIER-CODES ...) ; compiling (DEFUN GET-MODIFIER-MAP ...) ; compiling (DEFUN UPDATE-MODIFIER-MAP ...) ; compiling (DEFUN MOD->STRING ...) ; compiling (DEFUN Y-OR-N-P ...) ; compiling (DEFUN YES-OR-NO-P ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/input-TMP.fasl written ; compilation finished in 0:00:00.192 ; compiling file "/build/buildd/stumpwm-0.9.9/core.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (DEFMACRO DEF-THING-ATTR-MACRO ...) ; compiling (DEFUN KEY-TO-KEYCODE+STATE ...) ; compiling (DEFUN SEND-FAKE-KEY ...) ; compiling (DEFUN SEND-FAKE-CLICK ...) ; compiling (DEFUN GRAB-POINTER ...) ; compiling (DEFUN UNGRAB-POINTER ...) ; compiling (DEFUN GRAB-KEYBOARD ...) ; compiling (DEFUN UNGRAB-KEYBOARD ...) ; compiling (DEFUN WARP-POINTER ...) ; compiling (DEFUN WARP-POINTER-RELATIVE ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/core-TMP.fasl written ; compilation finished in 0:00:00.029 ; compiling file "/build/buildd/stumpwm-0.9.9/command.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFSTRUCT COMMAND-ALIAS ...) ; compiling (DEFSTRUCT COMMAND ...) ; compiling (DEFVAR *COMMAND-HASH* ...) ; compiling (DEFVAR *MAX-COMMAND-ALIAS-DEPTH* ...) ; compiling (DEFINE-CONDITION COMMAND-DOCSTRING-WARNING ...) ; compiling (DEFMACRO DEFCOMMAND ...) ; compiling (DEFMACRO DEFINE-STUMPWM-COMMAND ...) ; compiling (DEFMACRO DEFCOMMAND-ALIAS ...) ; compiling (DEFUN DEREFERENCE-COMMAND-SYMBOL ...) ; compiling (DEFUN COMMAND-ACTIVE-P ...) ; compiling (DEFUN GET-COMMAND-STRUCTURE ...) ; compiling (DEFUN ALL-COMMANDS ...) ; compiling (DEFSTRUCT ARGUMENT-LINE ...) ; compiling (DEFVAR *COMMAND-TYPE-HASH* ...) ; compiling (DEFUN ARGUMENT-LINE-END-P ...) ; compiling (DEFUN ARGUMENT-POP ...) ; compiling (DEFUN ARGUMENT-POP-OR-READ ...) ; compiling (DEFUN ARGUMENT-POP-REST ...) ; compiling (DEFUN ARGUMENT-POP-REST-OR-READ ...) ; compiling (DEFMACRO DEFINE-STUMPWM-TYPE ...) ; compiling (DEFINE-STUMPWM-TYPE :Y-OR-N ...) ; compiling (DEFUN LOOKUP-SYMBOL ...) ; compiling (DEFINE-STUMPWM-TYPE :VARIABLE ...) ; compiling (DEFINE-STUMPWM-TYPE :FUNCTION ...) ; file: /build/buildd/stumpwm-0.9.9/command.lisp ; in: DEFINE-STUMPWM-TYPE :FUNCTION ; 'ERROR ; ; note: deleting unreachable code ; compiling (DEFINE-STUMPWM-TYPE :COMMAND ...) ; compiling (DEFINE-STUMPWM-TYPE :KEY-SEQ ...) ; compiling (DEFINE-STUMPWM-TYPE :WINDOW-NUMBER ...) ; compiling (DEFINE-STUMPWM-TYPE :NUMBER ...) ; compiling (DEFINE-STUMPWM-TYPE :STRING ...) ; compiling (DEFINE-STUMPWM-TYPE :PASSWORD ...) ; compiling (DEFINE-STUMPWM-TYPE :KEY ...) ; compiling (DEFINE-STUMPWM-TYPE :WINDOW-NAME ...) ; compiling (DEFINE-STUMPWM-TYPE :DIRECTION ...) ; compiling (DEFINE-STUMPWM-TYPE :GRAVITY ...) ; compiling (DEFUN SELECT-GROUP ...) ; compiling (DEFINE-STUMPWM-TYPE :GROUP ...) ; compiling (DEFINE-STUMPWM-TYPE :FRAME ...) ; compiling (DEFINE-STUMPWM-TYPE :SHELL ...) ; compiling (DEFINE-STUMPWM-TYPE :REST ...) ; compiling (DEFUN CALL-INTERACTIVELY ...) ; compiling (DEFUN EVAL-COMMAND ...) ; compiling (DEFUN RUN-COMMANDS ...) ; compiling (DEFCOMMAND COLON ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/command-TMP.fasl written ; compilation finished in 0:00:00.260 ; compiling file "/build/buildd/stumpwm-0.9.9/menu.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *MENU-MAP* ...) ; compiling (WHEN (NULL *MENU-MAP*) ...) ; compiling (DEFSTRUCT MENU-STATE ...) ; compiling (DEFUN BOUND-CHECK-MENU ...) ; compiling (DEFUN MENU-UP ...) ; compiling (DEFUN MENU-DOWN ...) ; compiling (DEFUN MENU-SCROLL-UP ...) ; compiling (DEFUN MENU-SCROLL-DOWN ...) ; compiling (DEFUN MENU-PAGE-UP ...) ; compiling (DEFUN MENU-PAGE-DOWN ...) ; compiling (DEFUN MENU-FINISH ...) ; compiling (DEFUN MENU-ABORT ...) ; compiling (DEFUN GET-INPUT-CHAR ...) ; compiling (DEFUN MENU-ELEMENT-NAME ...) ; compiling (DEFUN MENU-BACKSPACE ...) ; compiling (DEFUN CHECK-MENU-COMPLETE ...) ; compiling (DEFUN SELECT-FROM-MENU ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/menu-TMP.fasl written ; compilation finished in 0:00:00.080 ; compiling file "/build/buildd/stumpwm-0.9.9/screen.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFUN TRANSLATE-ID ...) ; compiling (DEFUN SCREEN-X ...) ; compiling (DEFUN SCREEN-Y ...) ; compiling (DEFUN SCREEN-HEIGHT ...) ; compiling (DEFUN SCREEN-TRUE-HEIGHT ...) ; compiling (DEFUN SCREEN-WIDTH ...) ; compiling (DEFUN FIND-SCREEN ...) ; compiling (DEFUN SCREEN-WINDOWS ...) ; compiling (DEFUN NETWM-UPDATE-CLIENT-LIST-STACKING ...) ; compiling (DEFUN NETWM-UPDATE-CLIENT-LIST ...) ; compiling (DEFUN SCREEN-ADD-MAPPED-WINDOW ...) ; compiling (DEFUN SCREEN-REMOVE-MAPPED-WINDOW ...) ; compiling (DEFUN SORT-SCREENS ...) ; compiling (DEFUN NEXT-SCREEN ...) ; compiling (DEFUN MOVE-SCREEN-TO-HEAD ...) ; compiling (DEFUN SWITCH-TO-SCREEN ...) ; compiling (DEFUN SCREEN-SET-FOCUS ...) ; compiling (DEFUN SCREEN-CURRENT-WINDOW ...) ; compiling (DEFUN CURRENT-WINDOW ...) ; compiling (DEFUN REGISTER-WINDOW ...) ; compiling (DEFUN UNREGISTER-WINDOW ...) ; compiling (DEFUN WINDOW-BY-ID ...) ; compiling (DEFUN FIND-WINDOW ...) ; compiling (DEFUN FIND-WINDOW-BY-PARENT ...) ; compiling (DEFUN SCREEN-ROOT ...) ; compiling (DEFUN UPDATE-COLORS-FOR-SCREEN ...) ; compiling (DEFUN UPDATE-COLORS-ALL-SCREENS ...) ; compiling (DEFUN UPDATE-BORDER-FOR-SCREEN ...) ; compiling (DEFUN UPDATE-BORDER-ALL-SCREENS ...) ; compiling (DEFUN INTERNAL-WINDOW-P ...) ; compiling (DEFUN COLOR-EXISTS-P ...) ; compiling (DEFMACRO SET-ANY-COLOR ...) ; compiling (DEFUN SET-FG-COLOR ...) ; compiling (DEFUN SET-BG-COLOR ...) ; compiling (DEFUN SET-BORDER-COLOR ...) ; compiling (DEFUN SET-WIN-BG-COLOR ...) ; compiling (DEFUN SET-FOCUS-COLOR ...) ; compiling (DEFUN SET-UNFOCUS-COLOR ...) ; compiling (DEFUN SET-FLOAT-FOCUS-COLOR ...) ; compiling (DEFUN SET-FLOAT-UNFOCUS-COLOR ...) ; compiling (DEFUN SET-MSG-BORDER-WIDTH ...) ; compiling (DEFUN SET-FRAME-OUTLINE-WIDTH ...) ; compiling (DEFUN SET-FONT ...) ; compiling (DEFMACRO WITH-CURRENT-SCREEN ...) ; compiling (DEFUN CURRENT-SCREEN ...) ; compiling (DEFUN NETWM-SET-PROPERTIES ...) ; compiling (DEFUN INIT-SCREEN ...) ; compiling (DEFCOMMAND SNEXT ...) ; compiling (DEFCOMMAND SPREV ...) ; compiling (DEFCOMMAND SOTHER ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/screen-TMP.fasl written ; compilation finished in 0:00:00.097 ; compiling file "/build/buildd/stumpwm-0.9.9/head.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFUN HEAD-BY-NUMBER ...) ; compiling (DEFUN PARSE-XINERAMA-HEAD ...) ; compiling (DEFUN MAKE-SCREEN-HEADS ...) ; compiling (DEFUN COPY-HEADS ...) ; compiling (DEFUN FRAME-HEAD ...) ; compiling (DEFUN GROUP-HEADS ...) ; compiling (DEFUN RESIZE-HEAD ...) ; compiling (DEFUN CURRENT-HEAD ...) ; compiling (DEFUN HEAD-WINDOWS ...) ; compiling (DEFUN FRAME-IS-HEAD ...) ; compiling (DEFUN ADD-HEAD ...) ; compiling (DEFUN REMOVE-HEAD ...) ; compiling (DEFUN SCALE-HEAD ...) ; compiling (DEFUN SCALE-SCREEN ...) ; compiling (DEFUN HEAD-FORCE-REFRESH ...) ; compiling (DEFCOMMAND REFRESH-HEADS ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/head-TMP.fasl written ; compilation finished in 0:00:00.056 ; compiling file "/build/buildd/stumpwm-0.9.9/group.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *DEFAULT-GROUP-TYPE* ...) ; compiling (DEFCLASS GROUP ...) ; compiling (DEFGENERIC GROUP-STARTUP ...) ; compiling (DEFGENERIC GROUP-ADD-WINDOW ...) ; compiling (DEFGENERIC GROUP-DELETE-WINDOW ...) ; compiling (DEFGENERIC GROUP-WAKE-UP ...) ; compiling (DEFGENERIC GROUP-SUSPEND ...) ; compiling (DEFGENERIC GROUP-CURRENT-WINDOW ...) ; compiling (DEFGENERIC GROUP-CURRENT-HEAD ...) ; compiling (DEFGENERIC GROUP-RESIZE-REQUEST ...) ; compiling (DEFGENERIC GROUP-MOVE-REQUEST ...) ; compiling (DEFGENERIC GROUP-RAISE-REQUEST ...) ; compiling (DEFGENERIC GROUP-LOST-FOCUS ...) ; compiling (DEFGENERIC GROUP-INDICATE-FOCUS ...) ; compiling (DEFGENERIC GROUP-FOCUS-WINDOW ...) ; compiling (DEFGENERIC GROUP-BUTTON-PRESS ...) ; compiling (DEFGENERIC GROUP-ROOT-EXPOSURE ...) ; compiling (DEFGENERIC GROUP-ADD-HEAD ...) ; compiling (DEFGENERIC GROUP-REMOVE-HEAD ...) ; compiling (DEFGENERIC GROUP-RESIZE-HEAD ...) ; compiling (DEFGENERIC GROUP-SYNC-ALL-HEADS ...) ; compiling (DEFGENERIC GROUP-SYNC-HEAD ...) ; compiling (DEFUN CURRENT-GROUP ...) ; compiling (DEFUN MOVE-GROUP-TO-HEAD ...) ; compiling (DEFUN SORT-GROUPS ...) ; compiling (DEFUN GROUP-MAP-NUMBER ...) ; compiling (DEFUN FMT-GROUP-STATUS ...) ; compiling (DEFUN FIND-FREE-GROUP-NUMBER ...) ; compiling (DEFUN FIND-FREE-HIDDEN-GROUP-NUMBER ...) ; compiling (DEFUN NON-HIDDEN-GROUPS ...) ; compiling (DEFUN NETWM-GROUP-ID ...) ; compiling (DEFUN SWITCH-TO-GROUP ...) ; compiling (DEFUN MOVE-WINDOW-TO-GROUP ...) ; compiling (DEFUN NEXT-GROUP ...) ; compiling (DEFUN MERGE-GROUPS ...) ; compiling (DEFUN NETWM-GROUP ...) ; compiling (DEFUN NETWM-SET-GROUP ...) ; compiling (DEFUN NETWM-SET-ALLOWED-ACTIONS ...) ; compiling (DEFUN NETWM-UPDATE-GROUPS ...) ; compiling (DEFUN NETWM-SET-GROUP-PROPERTIES ...) ; compiling (DEFUN KILL-GROUP ...) ; compiling (DEFUN ADD-GROUP ...) ; compiling (DEFUN FIND-GROUP ...) ; compiling (DEFUN GROUP-FORWARD ...) ; compiling (DEFUN GROUP-FORWARD-WITH-WINDOW ...) ; compiling (DEFCOMMAND GNEW ...) ; compiling (DEFCOMMAND GNEWBG ...) ; compiling (DEFCOMMAND GNEXT ...) ; compiling (DEFCOMMAND GPREV ...) ; compiling (DEFCOMMAND GNEXT-WITH-WINDOW ...) ; compiling (DEFCOMMAND GPREV-WITH-WINDOW ...) ; compiling (DEFCOMMAND GOTHER ...) ; compiling (DEFCOMMAND GRENAME ...) ; compiling (DEFUN ECHO-GROUPS ...) ; compiling (DEFCOMMAND GROUPS ...) ; compiling (DEFCOMMAND VGROUPS ...) ; compiling (DEFCOMMAND GSELECT ...) ; compiling (DEFCOMMAND GROUPLIST ...) ; compiling (DEFCOMMAND GMOVE ...) ; compiling (DEFCOMMAND GMOVE-AND-FOLLOW ...) ; compiling (DEFCOMMAND GMOVE-MARKED ...) ; compiling (DEFCOMMAND GKILL ...) ; compiling (DEFCOMMAND GMERGE ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/group-TMP.fasl written ; compilation finished in 0:00:00.116 ; compiling file "/build/buildd/stumpwm-0.9.9/bindings.lisp" (written 07 MAY 2015 02:23:36 AM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *ESCAPE-KEY* ...) ; compiling (DEFVAR *ESCAPE-FAKE-KEY* ...) ; compiling (DEFVAR *GROUPS-MAP* ...) ; compiling (DEFVAR *EXCHANGE-WINDOW-MAP* ...) ; compiling (DEFVAR *HELP-MAP* ...) ; compiling (DEFVAR *GROUP-TOP-MAPS* ...) ; compiling (DEFVAR *GROUP-TOP-MAP* ...) ; compiling (DEFVAR *GROUP-ROOT-MAP* ...) ; compiling (DEFVAR *TILE-GROUP-TOP-MAP* ...) ; compiling (DEFVAR *TILE-GROUP-ROOT-MAP* ...) ; compiling (DEFVAR *FLOAT-GROUP-TOP-MAP* ...) ; compiling (DEFVAR *FLOAT-GROUP-ROOT-MAP* ...) ; compiling (DEFMACRO FILL-KEYMAP ...) ; compiling (FILL-KEYMAP *TOP-MAP* ...) ; compiling (FILL-KEYMAP *ROOT-MAP* ...) ; compiling (FILL-KEYMAP *GROUP-TOP-MAP* ...) ; compiling (FILL-KEYMAP *GROUP-ROOT-MAP* ...) ; compiling (FILL-KEYMAP *TILE-GROUP-TOP-MAP* ...) ; compiling (FILL-KEYMAP *TILE-GROUP-ROOT-MAP* ...) ; compiling (FILL-KEYMAP *FLOAT-GROUP-TOP-MAP*) ; compiling (FILL-KEYMAP *FLOAT-GROUP-ROOT-MAP*) ; compiling (FILL-KEYMAP *GROUPS-MAP* ...) ; compiling (FILL-KEYMAP *EXCHANGE-WINDOW-MAP* ...) ; compiling (FILL-KEYMAP *HELP-MAP* ...) ; compiling (DEFCOMMAND COMMAND-MODE ...) ; compiling (DEFCOMMAND SET-PREFIX-KEY ...) ; compiling (DEFCOMMAND-ALIAS ESCAPE ...) ; compiling (DEFCOMMAND BIND ...) ; compiling (DEFCOMMAND SEND-ESCAPE ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/bindings-TMP.fasl written ; compilation finished in 0:00:00.015 ; compiling file "/build/buildd/stumpwm-0.9.9/events.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (DEFPARAMETER *EVENT-FN-TABLE* ...) ; compiling (DEFVAR *CURRENT-EVENT-TIME* ...) ; compiling (DEFMACRO DEFINE-STUMP-EVENT-HANDLER ...) ; compiling (DEFUN HANDLE-MODE-LINE-WINDOW ...) ; compiling (DEFUN HANDLE-UNMANAGED-WINDOW ...) ; compiling (DEFUN UPDATE-CONFIGURATION ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :CONFIGURE-REQUEST ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :CONFIGURE-NOTIFY ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :MAP-REQUEST ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :UNMAP-NOTIFY ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :DESTROY-NOTIFY ...) ; compiling (DEFUN READ-FROM-KEYMAP ...) ; compiling (DEFUN HANDLE-KEYMAP ...) ; compiling (DEFUN TOP-MAPS ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :KEY-PRESS ...) ; compiling (DEFUN BYTES-TO-WINDOW ...) ; compiling (DEFUN HANDLE-RP-COMMANDS ...) ; compiling (DEFUN HANDLE-STUMPWM-COMMANDS ...) ; compiling (DEFUN MAYBE-SET-URGENCY ...) ; compiling (DEFUN SAFE-ATOM-NAME ...) ; compiling (DEFUN SAFE-BYTES-TO-ATOMS ...) ; compiling (DEFUN UPDATE-WINDOW-PROPERTIES ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :PROPERTY-NOTIFY ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :MAPPING-NOTIFY ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :SELECTION-REQUEST ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :SELECTION-CLEAR ...) ; compiling (DEFUN FIND-MESSAGE-WINDOW-SCREEN ...) ; compiling (DEFUN DRAW-CROSS ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :EXPOSURE ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :REPARENT-NOTIFY ...) ; compiling (DEFUN ACTIVATE-FULLSCREEN ...) ; compiling (DEFUN DEACTIVATE-FULLSCREEN ...) ; compiling (DEFUN UPDATE-FULLSCREEN ...) ; compiling (DEFUN MAYBE-MAP-WINDOW ...) ; compiling (DEFUN MAYBE-RAISE-WINDOW ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :CLIENT-MESSAGE ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :FOCUS-OUT ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :FOCUS-IN ...) ; compiling (DEFUN FOCUS-ALL ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :ENTER-NOTIFY ...) ; compiling (DEFINE-STUMP-EVENT-HANDLER :BUTTON-PRESS ...) ; compiling (DEFUN HANDLE-EVENT ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/events-TMP.fasl written ; compilation finished in 0:00:00.135 ; compiling file "/build/buildd/stumpwm-0.9.9/window.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *DEFAULT-WINDOW-NAME* ...) ; compiling (DEFCLASS WINDOW ...) ; compiling (DEFMETHOD PRINT-OBJECT ...) ; compiling (DEFGENERIC UPDATE-DECORATION ...) ; compiling (DEFGENERIC FOCUS-WINDOW ...) ; compiling (DEFGENERIC RAISE-WINDOW ...) ; compiling (DEFGENERIC WINDOW-VISIBLE-P ...) ; compiling (DEFGENERIC WINDOW-SYNC ...) ; compiling (DEFGENERIC WINDOW-HEAD ...) ; compiling (DEFUN REGISTER-URGENT-WINDOW ...) ; compiling (DEFUN UNREGISTER-URGENT-WINDOW ...) ; compiling (DEFUN WINDOW-CLEAR-URGENCY ...) ; compiling (DEFUN WINDOW-URGENT-P ...) ; compiling (DEFUN ONLY-URGENT ...) ; compiling (DEFCOMMAND NEXT-URGENT ...) ; compiling (DEFUN WINDOW-LEADER ...) ; compiling (DEFUN WINDOW-TRANSIENT-FOR ...) ; compiling (DEFUN WINDOW-MODAL-P ...) ; compiling (DEFUN WINDOW-TRANSIENT-P ...) ; compiling (DEFUN WINDOW-GANG ...) ; compiling (DEFUN ONLY-MODALS ...) ; compiling (DEFUN X-OF ...) ; compiling (DEFUN MODALS-OF ...) ; compiling (DEFUN TRANSIENTS-OF ...) ; compiling (DEFUN SHADOWS-OF ...) ; compiling (DEFUN ONLY-TRANSIENTS ...) ; compiling (DEFUN ALL-WINDOWS ...) ; compiling (DEFUN VISIBLE-WINDOWS ...) ; compiling (DEFUN TOP-WINDOWS ...) ; compiling (DEFUN WINDOW-NAME ...) ; compiling (DEFUN WINDOW-ID ...) ; compiling (DEFUN WINDOW-IN-CURRENT-GROUP-P ...) ; compiling (DEFUN WINDOW-SCREEN ...) ; compiling (DEFUN SEND-CLIENT-MESSAGE ...) ; compiling (DEFUN WINDOW-MAP-NUMBER ...) ; compiling (DEFUN FMT-WINDOW-STATUS ...) ; compiling (DEFUN FMT-WINDOW-MARKED ...) ; compiling (DEFUN ESCAPE-CARET ...) ; compiling (DEFUN GET-NORMALIZED-NORMAL-HINTS ...) ; compiling (DEFUN XWIN-NET-WM-NAME ...) ; compiling (DEFUN XWIN-NAME ...) ; compiling (DEFUN WINDOW-FULLSCREEN-LOCKED-P ...) ; compiling (DEFMETHOD RAISE-WINDOW ...) ; compiling (DEFUN XWIN-BORDER-WIDTH ...) ; compiling (DEFUN (SETF XWIN-BORDER-WIDTH) ...) ; compiling (DEFUN DEFAULT-BORDER-WIDTH-FOR-TYPE ...) ; compiling (DEFUN XWIN-CLASS ...) ; compiling (DEFUN XWIN-RES-NAME ...) ; compiling (DEFUN XWIN-ROLE ...) ; compiling (DEFMACRO DEFINE-WINDOW-SLOT ...) ; compiling (DEFUN SORT-WINDOWS ...) ; compiling (DEFUN MARKED-WINDOWS ...) ; compiling (DEFUN (SETF XWIN-STATE) ...) ; compiling (DEFUN XWIN-STATE ...) ; compiling (DEFUN WINDOW-HIDDEN-P ...) ; compiling (DEFUN ADD-WM-STATE ...) ; compiling (DEFUN REMOVE-WM-STATE ...) ; compiling (DEFUN WINDOW-PROPERTY ...) ; compiling (DEFUN FIND-WM-STATE ...) ; compiling (DEFUN XWIN-UNHIDE ...) ; compiling (DEFUN UNHIDE-WINDOW ...) ; compiling (DEFUN XWIN-HIDE ...) ; compiling (DEFUN HIDE-WINDOW ...) ; compiling (DEFUN WINDOW-MAXSIZE-P ...) ; compiling (DEFUN XWIN-TYPE ...) ; compiling (DEFUN XWIN-STRUT ...) ; compiling (DEFUN XWIN-SEND-CONFIGURATION-NOTIFY ...) ; compiling (DEFUN UPDATE-WINDOW-GRAVITY ...) ; compiling (DEFUN SET-NORMAL-GRAVITY ...) ; compiling (DEFUN SET-MAXSIZE-GRAVITY ...) ; compiling (DEFUN SET-TRANSIENT-GRAVITY ...) ; compiling (DEFUN GRAVITY-FOR-WINDOW ...) ; compiling (DEFUN WINDOW-WIDTH-INC ...) ; compiling (DEFUN WINDOW-HEIGHT-INC ...) ; compiling (DEFUN SET-WINDOW-GEOMETRY ...) ; compiling (DEFUN FIND-FREE-WINDOW-NUMBER ...) ; compiling (DEFUN REPARENT-WINDOW ...) ; compiling (DEFUN PROCESS-EXISTING-WINDOWS ...) ; compiling (DEFUN XWIN-GRAB-KEYS ...) ; compiling (DEFUN GRAB-KEYS-ON-WINDOW ...) ; compiling (DEFUN XWIN-UNGRAB-KEYS ...) ; compiling (DEFUN UNGRAB-KEYS-ON-WINDOW ...) ; compiling (DEFUN XWIN-GRAB-BUTTONS ...) ; compiling (DEFUN XWIN-UNGRAB-BUTTONS ...) ; compiling (DEFUN SYNC-KEYS ...) ; compiling (DEFUN NETWM-REMOVE-WINDOW ...) ; compiling (DEFUN PROCESS-MAPPED-WINDOW ...) ; compiling (DEFUN FIND-WITHDRAWN-WINDOW ...) ; compiling (DEFUN RESTORE-WINDOW ...) ; compiling (DEFUN WITHDRAW-WINDOW ...) ; compiling (DEFUN DESTROY-WINDOW ...) ; compiling (DEFUN MOVE-WINDOW-TO-HEAD ...) ; compiling (DEFUN NO-FOCUS ...) ; compiling (DEFMETHOD FOCUS-WINDOW ...) ; compiling (DEFUN XWIN-KILL ...) ; compiling (DEFUN SELECT-WINDOW-FROM-MENU ...) ; compiling (DEFCOMMAND DELETE-WINDOW ...) ; compiling (DEFCOMMAND-ALIAS DELETE ...) ; compiling (DEFCOMMAND KILL-WINDOW ...) ; compiling (DEFCOMMAND-ALIAS KILL ...) ; compiling (DEFCOMMAND TITLE ...) ; compiling (DEFCOMMAND SELECT-WINDOW ...) ; compiling (DEFCOMMAND-ALIAS SELECT ...) ; compiling (DEFCOMMAND SELECT-WINDOW-BY-NAME ...) ; compiling (DEFCOMMAND SELECT-WINDOW-BY-NUMBER ...) ; compiling (DEFCOMMAND OTHER-WINDOW ...) ; compiling (DEFCOMMAND-ALIAS OTHER ...) ; compiling (DEFCOMMAND RENUMBER ...) ; compiling (DEFCOMMAND-ALIAS NUMBER ...) ; compiling (DEFCOMMAND REPACK-WINDOW-NUMBERS ...) ; compiling (DEFCOMMAND WINDOWLIST ...) ; compiling (DEFCOMMAND WINDOW-SEND-STRING ...) ; compiling (DEFCOMMAND-ALIAS INSERT ...) ; compiling (DEFCOMMAND MARK ...) ; compiling (DEFCOMMAND CLEAR-WINDOW-MARKS ...) ; compiling (DEFCOMMAND-ALIAS CLEAR-MARKS ...) ; compiling (DEFCOMMAND ECHO-WINDOWS ...) ; compiling (DEFCOMMAND-ALIAS WINDOWS ...) ; compiling (DEFCOMMAND INFO ...) ; compiling (DEFCOMMAND REFRESH ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/window-TMP.fasl written ; compilation finished in 0:00:00.234 ; compiling file "/build/buildd/stumpwm-0.9.9/floating-group.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (DEFCLASS FLOAT-WINDOW ...) ; compiling (DEFVAR *FLOAT-WINDOW-BORDER* ...) ; compiling (DEFVAR *FLOAT-WINDOW-TITLE-HEIGHT* ...) ; compiling (DEFMETHOD (SETF WINDOW-X) ...) ; compiling (DEFMETHOD (SETF WINDOW-Y) ...) ; compiling (DEFMETHOD (SETF WINDOW-WIDTH) ...) ; compiling (DEFMETHOD (SETF WINDOW-HEIGHT) ...) ; compiling (DEFUN FLOAT-WINDOW-MOVE-RESIZE ...) ; compiling (DEFMETHOD UPDATE-DECORATION ...) ; compiling (DEFMETHOD WINDOW-SYNC ...) ; compiling (DEFMETHOD WINDOW-HEAD ...) ; compiling (DEFMETHOD WINDOW-VISIBLE-P ...) ; compiling (DEFMETHOD (SETF WINDOW-FULLSCREEN) ...) ; compiling (DEFCLASS FLOAT-GROUP ...) ; compiling (DEFMETHOD GROUP-STARTUP ...) ; compiling (DEFMETHOD GROUP-ADD-WINDOW ...) ; compiling (DEFUN &FLOAT-FOCUS-NEXT ...) ; compiling (DEFMETHOD GROUP-DELETE-WINDOW ...) ; compiling (DEFMETHOD GROUP-WAKE-UP ...) ; compiling (DEFMETHOD GROUP-SUSPEND ...) ; compiling (DEFMETHOD GROUP-CURRENT-WINDOW ...) ; compiling (DEFMETHOD GROUP-CURRENT-HEAD ...) ; compiling (DEFUN FLOAT-WINDOW-ALIGN ...) ; compiling (DEFMETHOD GROUP-RESIZE-REQUEST ...) ; compiling (DEFMETHOD GROUP-MOVE-REQUEST ...) ; compiling (DEFMETHOD GROUP-RAISE-REQUEST ...) ; compiling (DEFMETHOD GROUP-LOST-FOCUS ...) ; compiling (DEFMETHOD GROUP-INDICATE-FOCUS ...) ; compiling (DEFMETHOD GROUP-FOCUS-WINDOW ...) ; compiling (DEFMETHOD GROUP-ROOT-EXPOSURE ...) ; compiling (DEFMETHOD GROUP-ADD-HEAD ...) ; compiling (DEFMETHOD GROUP-REMOVE-HEAD ...) ; compiling (DEFMETHOD GROUP-RESIZE-HEAD ...) ; compiling (DEFMETHOD GROUP-SYNC-ALL-HEADS ...) ; compiling (DEFMETHOD GROUP-SYNC-HEAD ...) ; compiling (DEFMETHOD GROUP-BUTTON-PRESS ...) ; compiling (DEFMETHOD GROUP-BUTTON-PRESS ...) ; compiling (DEFCOMMAND GNEW-FLOAT ...) ; compiling (DEFCOMMAND GNEWBG-FLOAT ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/floating-group-TMP.fasl written ; compilation finished in 0:00:00.182 ; compiling file "/build/buildd/stumpwm-0.9.9/tile-group.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFCLASS TILE-GROUP ...) ; compiling (DEFMETHOD INITIALIZE-INSTANCE ...) ; compiling (DEFMETHOD GROUP-STARTUP ...) ; compiling (DEFMETHOD GROUP-WAKE-UP ...) ; compiling (DEFMETHOD GROUP-DELETE-WINDOW ...) ; compiling (DEFMETHOD GROUP-ADD-WINDOW ...) ; compiling (DEFMETHOD GROUP-CURRENT-WINDOW ...) ; compiling (DEFMETHOD GROUP-CURRENT-HEAD ...) ; compiling (DEFMETHOD GROUP-MOVE-REQUEST ...) ; compiling (DEFMETHOD GROUP-RESIZE-REQUEST ...) ; compiling (DEFMETHOD GROUP-RAISE-REQUEST ...) ; compiling (DEFMETHOD GROUP-LOST-FOCUS ...) ; compiling (DEFMETHOD GROUP-INDICATE-FOCUS ...) ; compiling (DEFMETHOD GROUP-FOCUS-WINDOW ...) ; compiling (DEFMETHOD GROUP-BUTTON-PRESS ...) ; compiling (DEFMETHOD GROUP-BUTTON-PRESS ...) ; compiling (DEFMETHOD GROUP-ROOT-EXPOSURE ...) ; compiling (DEFMETHOD GROUP-ADD-HEAD ...) ; compiling (DEFMETHOD GROUP-REMOVE-HEAD ...) ; compiling (DEFMETHOD GROUP-RESIZE-HEAD ...) ; compiling (DEFMETHOD GROUP-SYNC-ALL-HEADS ...) ; compiling (DEFMETHOD GROUP-SYNC-HEAD ...) ; compiling (DEFUN TILE-GROUP-FRAME-HEAD ...) ; compiling (DEFUN (SETF TILE-GROUP-FRAME-HEAD) ...) ; compiling (DEFUN POPULATE-FRAMES ...) ; compiling (DEFUN FRAME-BY-NUMBER ...) ; compiling (DEFUN FIND-FRAME ...) ; compiling (DEFUN FRAME-SET-X ...) ; compiling (DEFUN FRAME-SET-Y ...) ; compiling (DEFUN FRAME-SET-R ...) ; compiling (DEFUN FRAME-SET-B ...) ; compiling (DEFUN FRAME-R ...) ; compiling (DEFUN FRAME-B ...) ; compiling (DEFUN FRAME-DISPLAY-Y ...) ; compiling (DEFUN FRAME-DISPLAY-HEIGHT ...) ; compiling (DEFUN FRAME-INTERSECT ...) ; compiling (DEFUN FRAMES-OVERLAP-P ...) ; compiling (DEFUN FRAME-RAISE-WINDOW ...) ; compiling (DEFUN FOCUS-FRAME ...) ; compiling (DEFUN FRAME-WINDOWS ...) ; compiling (DEFUN FRAME-SORT-WINDOWS ...) ; compiling (DEFUN COPY-FRAME-TREE ...) ; compiling (DEFUN GROUP-FRAMES ...) ; compiling (DEFUN HEAD-FRAMES ...) ; compiling (DEFUN FIND-FREE-FRAME-NUMBER ...) ; compiling (DEFUN CHOOSE-NEW-FRAME-WINDOW ...) ; compiling (DEFUN SPLIT-FRAME-H ...) ; compiling (DEFUN SPLIT-FRAME-V ...) ; compiling (DEFUN RATIO-OR-PIXEL ...) ; compiling (DEFUN FUNCALL-ON-LEAF ...) ; compiling (DEFUN FUNCALL-ON-NODE ...) ; compiling (DEFUN REPLACE-FRAME-IN-TREE ...) ; compiling (DEFUN SIBLING-INTERNAL ...) ; compiling (DEFUN NEXT-SIBLING ...) ; compiling (DEFUN PREV-SIBLING ...) ; compiling (DEFUN CLOSEST-SIBLING ...) ; compiling (DEFUN MIGRATE-FRAME-WINDOWS ...) ; compiling (DEFUN TREE-ACCUM-FN ...) ; compiling (DEFUN TREE-ITERATE ...) ; compiling (DEFUN TREE-X ...) ; compiling (DEFUN TREE-Y ...) ; compiling (DEFUN TREE-WIDTH ...) ; compiling (DEFUN TREE-HEIGHT ...) ; compiling (DEFUN TREE-PARENT ...) ; compiling (DEFUN TREE-LEAF ...) ; compiling (DEFUN TREE-ROW-SPLIT ...) ; compiling (DEFUN TREE-COLUMN-SPLIT ...) ; compiling (DEFUN TREE-SPLIT-TYPE ...) ; compiling (DEFUN OFFSET-TREE ...) ; compiling (DEFUN OFFSET-TREE-DIR ...) ; compiling (DEFUN EXPAND-TREE ...) ; compiling (DEFUN JOIN-SUBTREES ...) ; compiling (DEFUN RESIZE-TREE ...) ; compiling (DEFUN REMOVE-FRAME ...) ; compiling (DEFUN SYNC-FRAME-WINDOWS ...) ; compiling (DEFUN SYNC-ALL-FRAME-WINDOWS ...) ; compiling (DEFUN SYNC-HEAD-FRAME-WINDOWS ...) ; compiling (DEFUN OFFSET-FRAMES ...) ; compiling (DEFUN RESIZE-FRAME ...) ; compiling (DEFUN BALANCE-FRAMES-INTERNAL ...) ; compiling (DEFUN SPLIT-FRAME ...) ; compiling (DEFUN DRAW-FRAME-OUTLINE ...) ; compiling (DEFUN DRAW-FRAME-OUTLINES ...) ; compiling (DEFUN CLEAR-FRAME-OUTLINES ...) ; compiling (DEFUN DRAW-FRAME-NUMBERS ...) ; compiling (DEFMACRO SAVE-FRAME-EXCURSION ...) ; compiling (DEFUN SPLIT-FRAME-IN-DIR ...) ; compiling (DEFCOMMAND (HSPLIT TILE-GROUP) ...) ; compiling (DEFCOMMAND (VSPLIT TILE-GROUP) ...) ; compiling (DEFCOMMAND (REMOVE-SPLIT TILE-GROUP) ...) ; compiling (DEFCOMMAND-ALIAS REMOVE ...) ; compiling (DEFCOMMAND (ONLY TILE-GROUP) ...) ; compiling (DEFCOMMAND (CURFRAME TILE-GROUP) ...) ; compiling (DEFUN FOCUS-FRAME-NEXT-SIBLING ...) ; compiling (DEFUN FOCUS-LAST-FRAME ...) ; compiling (DEFUN FOCUS-FRAME-AFTER ...) ; compiling (DEFUN FOCUS-NEXT-FRAME ...) ; compiling (DEFUN FOCUS-PREV-FRAME ...) ; compiling (DEFCOMMAND (FNEXT TILE-GROUP) ...) ; compiling (DEFCOMMAND (SIBLING TILE-GROUP) ...) ; compiling (DEFCOMMAND (FOTHER TILE-GROUP) ...) ; compiling (DEFUN CHOOSE-FRAME-BY-NUMBER ...) ; compiling (DEFCOMMAND (FSELECT TILE-GROUP) ...) ; compiling (DEFCOMMAND (RESIZE TILE-GROUP) ...) ; compiling (DEFUN CLEAR-FRAME ...) ; compiling (DEFCOMMAND (FCLEAR TILE-GROUP) ...) ; compiling (DEFUN GET-EDGE ...) ; compiling (DEFUN NEIGHBOUR ...) ; compiling (DEFUN MOVE-FOCUS-AND-OR-WINDOW ...) ; compiling (DEFCOMMAND (MOVE-FOCUS TILE-GROUP) ...) ; compiling (DEFCOMMAND (MOVE-WINDOW TILE-GROUP) ...) ; compiling (DEFCOMMAND (NEXT-IN-FRAME TILE-GROUP) ...) ; compiling (DEFCOMMAND (PREV-IN-FRAME TILE-GROUP) ...) ; compiling (DEFCOMMAND (OTHER-IN-FRAME TILE-GROUP) ...) ; compiling (DEFCOMMAND (BALANCE-FRAMES TILE-GROUP) ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/tile-group-TMP.fasl written ; compilation finished in 0:00:00.377 ; compiling file "/build/buildd/stumpwm-0.9.9/tile-window.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *IGNORE-WM-INC-HINTS* ...) ; compiling (DEFCLASS TILE-WINDOW ...) ; compiling (DEFMETHOD UPDATE-DECORATION ...) ; compiling (DEFMETHOD WINDOW-SYNC ...) ; compiling (DEFMETHOD WINDOW-VISIBLE-P ...) ; compiling (DEFMETHOD WINDOW-HEAD ...) ; compiling (DEFMETHOD (SETF WINDOW-FULLSCREEN) ...) ; compiling (DEFUN REALLY-RAISE-WINDOW ...) ; compiling (DEFUN RAISE-MODALS-OF ...) ; compiling (DEFUN RAISE-MODALS-OF-GANG ...) ; compiling (DEFUN RAISE-TRANSIENTS-OF-GANG ...) ; compiling (DEFUN GEOMETRY-HINTS ...) ; compiling (DEFUN MAXIMIZE-WINDOW ...) ; compiling (DEFUN FOCUS-NEXT-WINDOW ...) ; compiling (DEFUN FOCUS-PREV-WINDOW ...) ; compiling (DEFCOMMAND (NEXT TILE-GROUP) ...) ; compiling (DEFCOMMAND (PREV TILE-GROUP) ...) ; compiling (DEFUN PULL-WINDOW ...) ; compiling (DEFUN FOCUS-FORWARD ...) ; compiling (DEFCOMMAND (PULL-WINDOW-BY-NUMBER TILE-GROUP) ...) ; compiling (DEFCOMMAND-ALIAS PULL ...) ; compiling (DEFUN OTHER-HIDDEN-WINDOW ...) ; compiling (DEFUN PULL-OTHER-HIDDEN-WINDOW ...) ; compiling (DEFUN OTHER-WINDOW-IN-FRAME ...) ; compiling (DEFCOMMAND (PULL-HIDDEN-NEXT TILE-GROUP) ...) ; compiling (DEFCOMMAND (PULL-HIDDEN-PREVIOUS TILE-GROUP) ...) ; compiling (DEFCOMMAND (PULL-HIDDEN-OTHER TILE-GROUP) ...) ; compiling (DEFUN EXCHANGE-WINDOWS ...) ; compiling (DEFCOMMAND (EXCHANGE-DIRECTION TILE-GROUP) ...) ; compiling (DEFCOMMAND (ECHO-FRAME-WINDOWS TILE-GROUP) ...) ; compiling (DEFCOMMAND-ALIAS FRAME-WINDOWS ...) ; compiling (DEFCOMMAND (FULLSCREEN TILE-GROUP) ...) ; compiling (DEFCOMMAND (GRAVITY TILE-GROUP) ...) ; compiling (DEFCOMMAND (PULL-MARKED TILE-GROUP) ...) ; compiling (DEFUN MAKE-RULE-FOR-WINDOW ...) ; compiling (DEFCOMMAND (REMEMBER TILE-GROUP) ...) ; compiling (DEFCOMMAND (FORGET TILE-GROUP) ...) ; compiling (DEFCOMMAND (DUMP-WINDOW-PLACEMENT-RULES TILE-GROUP) ...) ; compiling (DEFCOMMAND-ALIAS DUMP-RULES ...) ; compiling (DEFCOMMAND (RESTORE-WINDOW-PLACEMENT-RULES TILE-GROUP) ...) ; compiling (DEFCOMMAND-ALIAS RESTORE-RULES ...) ; compiling (DEFCOMMAND (REDISPLAY TILE-GROUP) ...) ; compiling (DEFCOMMAND FRAME-WINDOWLIST ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/tile-window-TMP.fasl written ; compilation finished in 0:00:00.111 ; compiling file "/build/buildd/stumpwm-0.9.9/window-placement.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (DEFUN XWIN-TO-WINDOW ...) ; compiling (DEFVAR *RULE-SCANNERS-CACHE* ...) ; compiling (DEFUN GET-OR-CREATE-RULE-SCANNER ...) ; compiling (DEFUN STRING-MATCH ...) ; compiling (DEFUN WINDOW-MATCHES-PROPERTIES-P ...) ; compiling (DEFUN WINDOW-MATCHES-RULE-P ...) ; compiling (DEFUN RULE-MATCHING-WINDOW ...) ; compiling (DEFUN GET-WINDOW-PLACEMENT ...) ; compiling (DEFUN SYNC-WINDOW-PLACEMENT ...) ; compiling (DEFUN ASSIGN-WINDOW ...) ; compiling (DEFUN PLACE-WINDOW ...) ; compiling (DEFUN PICK-PREFERRED-FRAME ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/window-placement-TMP.fasl written ; compilation finished in 0:00:00.035 ; compiling file "/build/buildd/stumpwm-0.9.9/message-window.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFUN MAX-WIDTH ...) ; compiling (DEFGENERIC GRAVITY-COORDS ...) ; compiling (DEFMACRO DEFINE-SIMPLE-GRAVITY ...) ; compiling (DEFINE-SIMPLE-GRAVITY :TOP-RIGHT ...) ; compiling (DEFINE-SIMPLE-GRAVITY :TOP-LEFT ...) ; compiling (DEFINE-SIMPLE-GRAVITY :BOTTOM-RIGHT ...) ; compiling (DEFINE-SIMPLE-GRAVITY :BOTTOM-LEFT ...) ; compiling (DEFINE-SIMPLE-GRAVITY :RIGHT ...) ; compiling (DEFINE-SIMPLE-GRAVITY :LEFT ...) ; compiling (DEFINE-SIMPLE-GRAVITY :TOP ...) ; compiling (DEFINE-SIMPLE-GRAVITY :BOTTOM ...) ; compiling (DEFINE-SIMPLE-GRAVITY :CENTER ...) ; compiling (DEFUN SETUP-WIN-GRAVITY ...) ; compiling (DEFUN SETUP-MESSAGE-WINDOW ...) ; compiling (DEFUN INVERT-RECT ...) ; compiling (DEFUN UNMAP-MESSAGE-WINDOW ...) ; compiling (DEFUN UNMAP-ALL-MESSAGE-WINDOWS ...) ; compiling (DEFUN UNMAP-FRAME-INDICATOR-WINDOW ...) ; compiling (DEFUN UNMAP-ALL-FRAME-INDICATOR-WINDOWS ...) ; compiling (DEFUN RESET-MESSAGE-WINDOW-TIMER ...) ; compiling (DEFUN RESET-FRAME-INDICATOR-TIMER ...) ; compiling (DEFUN SHOW-FRAME-OUTLINE ...) ; compiling (DEFUN SHOW-FRAME-INDICATOR ...) ; compiling (DEFUN ECHO-IN-WINDOW ...) ; compiling (DEFUN PUSH-LAST-MESSAGE ...) ; compiling (DEFUN REDRAW-CURRENT-MESSAGE ...) ; compiling (DEFUN ECHO-NTH-LAST-MESSAGE ...) ; compiling (DEFUN ECHO-STRING-LIST ...) ; compiling (DEFUN ECHO-STRING ...) ; compiling (DEFUN MESSAGE ...) ; compiling (DEFUN ERR ...) ; compiling (DEFUN MESSAGE-NO-TIMEOUT ...) ; compiling (DEFVAR *LASTMSG-NTH* ...) ; compiling (DEFCOMMAND LASTMSG ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/message-window-TMP.fasl written ; compilation finished in 0:00:00.160 ; compiling file "/build/buildd/stumpwm-0.9.9/selection.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFUN EXPORT-SELECTION ...) ; compiling (DEFUN SET-X-SELECTION ...) ; compiling (DEFUN SEND-SELECTION ...) ; compiling (DEFUN GET-X-SELECTION ...) ; compiling (DEFCOMMAND PUTSEL ...) ; compiling (DEFCOMMAND GETSEL ...) ; compiling (DEFCOMMAND COPY-LAST-MESSAGE ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/selection-TMP.fasl written ; compilation finished in 0:00:00.016 ; compiling file "/build/buildd/stumpwm-0.9.9/module.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *MODULE-DIR* ...) ; compiling (DEFUN BUILD-LOAD-PATH ...) ; compiling (DEFVAR *LOAD-PATH* ...) ; compiling (DEFUN SYNC-ASDF-CENTRAL-REGISTRY ...) ; compiling (DEFUN INIT-LOAD-PATH ...) ; compiling (DEFUN SET-MODULE-DIR ...) ; compiling (DEFINE-STUMPWM-TYPE :MODULE ...) ; compiling (DEFUN FIND-ASD-FILE ...) ; compiling (DEFUN LIST-MODULES ...) ; compiling (DEFUN FIND-MODULE ...) ; compiling (DEFUN ENSURE-PATHNAME ...) ; compiling (DEFCOMMAND SET-CONTRIB-DIR ...) ; file: /build/buildd/stumpwm-0.9.9/module.lisp ; in: DEFCOMMAND SET-CONTRIB-DIR ; (STUMPWM:DEFCOMMAND STUMPWM::SET-CONTRIB-DIR ; (STUMPWM::PATH) ; ((:STRING "Directory: ")) ; "Deprecated, use `add-to-load-path' instead" ; (STUMPWM:MESSAGE "Use add-to-load-path instead.")) ; --> PROGN DEFUN PROGN ; ==> ; (SB-IMPL::%DEFUN 'STUMPWM::SET-CONTRIB-DIR ; (SB-INT:NAMED-LAMBDA STUMPWM::SET-CONTRIB-DIR ; (STUMPWM::PATH) ; (BLOCK STUMPWM::SET-CONTRIB-DIR ; (LET (# #) ; (DECLARE #) ; (STUMPWM:MESSAGE "Use add-to-load-path instead.")))) ; "Deprecated, use `add-to-load-path' instead" 'NIL ; (SB-C:SOURCE-LOCATION)) ; ; caught STYLE-WARNING: ; The variable PATH is defined but never used. ; compiling (DEFCOMMAND ADD-TO-LOAD-PATH ...) ; compiling (DEFCOMMAND LOAD-MODULE ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/module-TMP.fasl written ; compilation finished in 0:00:00.019 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/build/buildd/stumpwm-0.9.9/stumpwm.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFUN LOAD-RC-FILE ...) ; compiling (DEFUN ERROR-HANDLER ...) ; compiling (DEFVAR *TIMER-LIST* ...) ; compiling (DEFSTRUCT TIMER ...) ; compiling (DEFUN RUN-WITH-TIMER ...) ; compiling (DEFUN CANCEL-TIMER ...) ; compiling (DEFUN SCHEDULE-TIMER ...) ; compiling (DEFUN RUN-EXPIRED-TIMERS ...) ; compiling (DEFUN GET-NEXT-TIMEOUT ...) ; compiling (DEFUN PERFORM-TOP-LEVEL-ERROR-ACTION ...) ; compiling (DEFUN STUMPWM-INTERNAL-LOOP ...) ; compiling (DEFUN PARSE-DISPLAY-STRING ...) ; compiling (DEFUN STUMPWM-INTERNAL ...) ; compiling (DEFUN STUMPWM ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/stumpwm-TMP.fasl written ; compilation finished in 0:00:00.103 ; compiling file "/build/buildd/stumpwm-0.9.9/user.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFUN RESTARTS-MENU ...) ; compiling (DEFUN BANISH-POINTER ...) ; compiling (DEFCOMMAND BANISH ...) ; compiling (DEFCOMMAND RATWARP ...) ; compiling (DEFCOMMAND RATRELWARP ...) ; compiling (DEFCOMMAND RATCLICK ...) ; compiling (DEFUN PROGRAMS-IN-PATH ...) ; compiling (DEFSTRUCT PATH-CACHE ...) ; compiling (DEFVAR *PATH-CACHE* ...) ; compiling (DEFUN REHASH ...) ; compiling (DEFUN COMPLETE-PROGRAM ...) ; compiling (DEFCOMMAND RUN-SHELL-COMMAND ...) ; compiling (DEFCOMMAND-ALIAS EXEC ...) ; compiling (DEFCOMMAND EVAL-LINE ...) ; compiling (DEFCOMMAND-ALIAS EVAL ...) ; compiling (DEFCOMMAND ECHO ...) ; compiling (DEFUN SEND-META-KEY ...) ; compiling (DEFCOMMAND META ...) ; compiling (DEFCOMMAND LOADRC ...) ; compiling (DEFCOMMAND KEYBOARD-QUIT ...) ; compiling (DEFCOMMAND-ALIAS ABORT ...) ; compiling (DEFCOMMAND QUIT ...) ; compiling (DEFCOMMAND RESTART-SOFT ...) ; compiling (DEFCOMMAND RESTART-HARD ...) ; compiling (DEFUN FIND-MATCHING-WINDOWS ...) ; compiling (DEFUN RUN-OR-RAISE ...) ; compiling (DEFUN RUN-OR-PULL ...) ; compiling (DEFCOMMAND RELOAD ...) ; compiling (DEFCOMMAND EMACS ...) ; compiling (DEFCOMMAND COPY-UNHANDLED-ERROR ...) ; compiling (DEFMACRO DEFPROGRAM-SHORTCUT ...) ; compiling (DEFCOMMAND SHOW-WINDOW-PROPERTIES ...) ; compiling (DEFCOMMAND LIST-WINDOW-PROPERTIES ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/user-TMP.fasl written ; compilation finished in 0:00:00.183 ; compiling file "/build/buildd/stumpwm-0.9.9/iresize.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *RESIZE-BACKUP* ...) ; compiling (DEFVAR *RESIZE-INCREMENT* ...) ; compiling (DEFUN SET-RESIZE-INCREMENT ...) ; compiling (DEFUN UPDATE-RESIZE-MAP ...) ; compiling (UPDATE-RESIZE-MAP) ; compiling (DEFCOMMAND (IRESIZE TILE-GROUP) ...) ; compiling (DEFUN RESIZE-UNHIDE ...) ; compiling (DEFCOMMAND (ABORT-IRESIZE TILE-GROUP) ...) ; compiling (DEFCOMMAND (EXIT-IRESIZE TILE-GROUP) ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/iresize-TMP.fasl written ; compilation finished in 0:00:00.012 ; compiling file "/build/buildd/stumpwm-0.9.9/help.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE NIL)) ; compiling (DEFUN COLUMNIZE ...) ; compiling (DEFUN DISPLAY-BINDINGS-FOR-KEYMAPS ...) ; compiling (DEFCOMMAND COMMANDS ...) ; compiling (DEFCOMMAND DESCRIBE-KEY ...) ; compiling (DEFCOMMAND DESCRIBE-VARIABLE ...) ; compiling (DEFCOMMAND DESCRIBE-FUNCTION ...) ; compiling (DEFCOMMAND DESCRIBE-COMMAND ...) ; compiling (DEFCOMMAND WHERE-IS ...) ; compiling (DEFCOMMAND MODIFIERS ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/help-TMP.fasl written ; compilation finished in 0:00:00.077 ; compiling file "/build/buildd/stumpwm-0.9.9/fdump.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE #:STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFSTRUCT FDUMP ...) ; compiling (DEFSTRUCT GDUMP ...) ; compiling (DEFSTRUCT SDUMP ...) ; compiling (DEFSTRUCT DDUMP ...) ; compiling (DEFUN DUMP-GROUP ...) ; compiling (DEFUN DUMP-SCREEN ...) ; compiling (DEFUN DUMP-DESKTOP ...) ; compiling (DEFUN DUMP-TO-FILE ...) ; compiling (DEFCOMMAND DUMP-GROUP-TO-FILE ...) ; compiling (DEFCOMMAND-ALIAS DUMP-GROUP ...) ; compiling (DEFCOMMAND DUMP-SCREEN-TO-FILE ...) ; compiling (DEFCOMMAND-ALIAS DUMP-SCREEN ...) ; compiling (DEFCOMMAND DUMP-DESKTOP-TO-FILE ...) ; compiling (DEFCOMMAND-ALIAS DUMP-DESKTOP ...) ; compiling (DEFUN READ-DUMP-FROM-FILE ...) ; compiling (DEFUN RESTORE-GROUP ...) ; compiling (DEFUN RESTORE-SCREEN ...) ; compiling (DEFUN RESTORE-DESKTOP ...) ; compiling (DEFCOMMAND RESTORE-FROM-FILE ...) ; compiling (DEFCOMMAND-ALIAS RESTORE ...) ; compiling (DEFCOMMAND PLACE-EXISTING-WINDOWS ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/fdump-TMP.fasl written ; compilation finished in 0:00:00.116 ; compiling file "/build/buildd/stumpwm-0.9.9/time.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *TIME-FORMAT-STRING-DEFAULT* ...) ; compiling (DEFVAR *TIME-MODELINE-STRING* ...) ; compiling (DEFVAR *TIME-MONTH-NAMES* ...) ; compiling (DEFVAR *TIME-DAY-NAMES* ...) ; compiling (DEFVAR *TIME-FORMAT-STRING-ALIST* ...) ; compiling (DEFCOMMAND ECHO-DATE ...) ; compiling (DEFCOMMAND-ALIAS TIME ...) ; compiling (DEFUN TIME-PLIST ...) ; compiling (DEFUN TIME-SECOND ...) ; compiling (DEFUN TIME-MINUTE ...) ; compiling (DEFUN TIME-HOUR ...) ; compiling (DEFUN TIME-HOUR-ZERO ...) ; compiling (DEFUN TIME-HOUR-12HR ...) ; compiling (DEFUN TIME-HOUR-12HR-ZERO ...) ; compiling (DEFUN TIME-DAY-OF-MONTH-ZERO ...) ; compiling (DEFUN TIME-DAY-OF-MONTH ...) ; compiling (DEFUN TIME-MONTH ...) ; compiling (DEFUN TIME-MONTH-NAME ...) ; compiling (DEFUN TIME-MONTH-SHORTNAME ...) ; compiling (DEFUN TIME-YEAR ...) ; compiling (DEFUN TIME-CENTURY ...) ; compiling (DEFUN TIME-YEAR-SHORT ...) ; compiling (DEFUN TIME-DAY-OF-WEEK ...) ; compiling (DEFUN TIME-DAY-OF-WEEK-SUN-START ...) ; compiling (DEFUN TIME-DOW-NAME ...) ; compiling (DEFUN TIME-DOW-SHORTNAME ...) ; compiling (DEFUN TIME-NEWLINE ...) ; compiling (DEFUN TIME-TAB ...) ; compiling (DEFUN TIME-AM-PM ...) ; compiling (DEFUN TIME-AM-PM-CAPS ...) ; compiling (DEFUN TIME-TZ ...) ; compiling (DEFUN TIME-UNIX-ERA ...) ; compiling (DEFUN TIME-DATE-AND-TIME ...) ; compiling (DEFUN TIME-DATE ...) ; compiling (DEFUN TIME-DATE-FULL ...) ; compiling (DEFUN TIME-12HR-TIME ...) ; compiling (DEFUN TIME-24HR-AND-MINUTE ...) ; compiling (DEFUN TIME-24HR-TIME ...) ; compiling (DEFUN TIME-FORMAT ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/time-TMP.fasl written ; compilation finished in 0:00:00.074 ; compiling file "/build/buildd/stumpwm-0.9.9/mode-line.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFSTRUCT MODE-LINE ...) ; compiling (DEFUN MODE-LINE-GC ...) ; compiling (DEFVAR *MODE-LINE-POSITION* ...) ; compiling (DEFVAR *MODE-LINE-BORDER-WIDTH* ...) ; compiling (DEFVAR *MODE-LINE-PAD-X* ...) ; compiling (DEFVAR *MODE-LINE-PAD-Y* ...) ; compiling (DEFVAR *MODE-LINE-BACKGROUND-COLOR* ...) ; compiling (DEFVAR *MODE-LINE-FOREGROUND-COLOR* ...) ; compiling (DEFVAR *MODE-LINE-BORDER-COLOR* ...) ; compiling (DEFVAR *HIDDEN-WINDOW-COLOR* ...) ; compiling (DEFVAR *MODE-LINE-HIGHLIGHT-TEMPLATE* ...) ; compiling (DEFVAR *SCREEN-MODE-LINE-FORMAT* ...) ; compiling (DEFVAR *SCREEN-MODE-LINE-FORMATTERS* ...) ; compiling (DEFVAR *CURRENT-MODE-LINE-FORMATTERS* ...) ; compiling (DEFVAR *CURRENT-MODE-LINE-FORMATTER-ARGS* ...) ; compiling (DEFVAR *MODE-LINE-TIMEOUT* ...) ; compiling (DEFVAR *MODE-LINE-TIMER* ...) ; compiling (DEFUN ADD-SCREEN-MODE-LINE-FORMATTER ...) ; compiling (DEFUN FMT-URGENT-WINDOW-LIST ...) ; compiling (DEFUN FMT-WINDOW-LIST ...) ; compiling (DEFUN FMT-GROUP-LIST ...) ; compiling (DEFUN FMT-HEAD ...) ; compiling (DEFUN FMT-GROUP ...) ; compiling (DEFUN FMT-HIGHLIGHT ...) ; compiling (DEFUN FMT-HEAD-WINDOW-LIST ...) ; compiling (DEFUN FMT-HIDDEN ...) ; compiling (DEFUN FMT-HEAD-WINDOW-LIST-HIDDEN-WINDOWS ...) ; compiling (DEFUN FMT-MODELINE-TIME ...) ; compiling (DEFVAR *BAR-MED-COLOR* ...) ; compiling (DEFVAR *BAR-HI-COLOR* ...) ; compiling (DEFVAR *BAR-CRIT-COLOR* ...) ; compiling (DEFUN BAR-ZONE-COLOR ...) ; compiling (DEFUN REPEAT ...) ; compiling (DEFUN BAR ...) ; compiling (DEFVAR *ALT-PREV-INDEX* ...) ; compiling (DEFVAR *ALT-PREV-TIME* ...) ; compiling (DEFUN ALTERNATE ...) ; compiling (DEFVAR *SCROLL-PREV-INDEX* ...) ; compiling (DEFVAR *SCROLL-PREV-TIME* ...) ; compiling (DEFVAR *SCROLL-PREV-DIR* ...) ; compiling (DEFUN SCROLL ...) ; compiling (DEFUN MAKE-MODE-LINE-WINDOW ...) ; compiling (DEFUN RESIZE-MODE-LINE ...) ; compiling (DEFGENERIC MODE-LINE-FORMAT-ELT ...) ; compiling (DEFMETHOD MODE-LINE-FORMAT-ELT ...) ; compiling (DEFMETHOD MODE-LINE-FORMAT-ELT ...) ; compiling (DEFMETHOD MODE-LINE-FORMAT-ELT ...) ; compiling (DEFMETHOD MODE-LINE-FORMAT-ELT ...) ; compiling (DEFUN MODE-LINE-FORMAT-STRING ...) ; compiling (DEFUN MAKE-MODE-LINE-GC ...) ; compiling (DEFUN UPDATE-MODE-LINE-COLOR-CONTEXT ...) ; compiling (DEFUN MAKE-HEAD-MODE-LINE ...) ; compiling (DEFUN MODE-LINE-CURRENT-GROUP ...) ; compiling (DEFUN REDRAW-MODE-LINE ...) ; compiling (DEFUN FIND-MODE-LINE-WINDOW ...) ; compiling (DEFUN SYNC-MODE-LINE ...) ; compiling (DEFUN SET-MODE-LINE-WINDOW ...) ; compiling (DEFUN DESTROY-MODE-LINE-WINDOW ...) ; compiling (DEFUN MOVE-MODE-LINE-TO-HEAD ...) ; compiling (DEFUN UPDATE-MODE-LINE-POSITION ...) ; compiling (DEFUN PLACE-MODE-LINE-WINDOW ...) ; compiling (DEFUN UPDATE-MODE-LINES ...) ; compiling (DEFUN UPDATE-ALL-MODE-LINES ...) ; compiling (DEFUN TURN-ON-MODE-LINE-TIMER ...) ; compiling (DEFUN ALL-HEADS ...) ; compiling (DEFUN MAYBE-CANCEL-MODE-LINE-TIMER ...) ; compiling (DEFUN TOGGLE-MODE-LINE ...) ; compiling (DEFUN ENABLE-MODE-LINE ...) ; compiling (DEFCOMMAND MODE-LINE ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/mode-line-TMP.fasl written ; compilation finished in 0:00:00.178 ; compiling file "/build/buildd/stumpwm-0.9.9/color.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFVAR *COLORS* ...) ; compiling (DEFUN ADJUST-COLOR ...) ; compiling (DEFUN HEX-TO-XLIB-COLOR ...) ; compiling (DEFUN LOOKUP-COLOR ...) ; compiling (DEFUN ALLOC-COLOR ...) ; compiling (DEFUN UPDATE-COLOR-MAP ...) ; compiling (DEFUN UPDATE-SCREEN-COLOR-CONTEXT ...) ; compiling (DEFUN PARSE-COLOR ...) ; compiling (DEFUN PARSE-COLOR-STRING ...) ; compiling (DEFUN UNCOLORIFY ...) ; compiling (DEFUN FIND-COLOR ...) ; compiling (DEFUN FIND-FONT ...) ; compiling (DEFGENERIC APPLY-COLOR ...) ; compiling (DEFMETHOD APPLY-COLOR ...) ; compiling (DEFMETHOD APPLY-COLOR ...) ; compiling (DEFMETHOD APPLY-COLOR ...) ; compiling (DEFMETHOD APPLY-COLOR ...) ; compiling (DEFMETHOD APPLY-COLOR ...) ; compiling (DEFMETHOD APPLY-COLOR ...) ; compiling (DEFMETHOD APPLY-COLOR ...) ; compiling (DEFMETHOD APPLY-COLOR ...) ; compiling (DEFUN MAX-FONT-HEIGHT ...) ; compiling (DEFUN RESET-COLOR-CONTEXT ...) ; compiling (DEFUN RENDERED-STRING-SIZE ...) ; compiling (DEFUN RENDERED-SIZE ...) ; compiling (DEFUN RENDER-STRING ...) ; compiling (DEFUN RENDER-STRINGS ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/color-TMP.fasl written ; compilation finished in 0:00:00.128 ; compiling file "/build/buildd/stumpwm-0.9.9/wse.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFUN MOVE-WINDOWS-TO-GROUP ...) ; compiling (DEFGENERIC LIST-WINDOWS ...) ; compiling (DEFMETHOD LIST-WINDOWS ...) ; compiling (DEFMETHOD LIST-WINDOWS ...) ; compiling (DEFMETHOD LIST-WINDOWS ...) ; compiling (DEFMETHOD LIST-WINDOWS ...) ; compiling (DEFMETHOD LIST-WINDOWS ...) ; compiling (DEFMETHOD LIST-WINDOWS ...) ; compiling (DEFMETHOD LIST-WINDOWS ...) ; compiling (DEFMETHOD LIST-WINDOWS ...) ; compiling (DEFMACRO ACT-ON-MATCHING-WINDOWS ...) ; compiling (DEFUN PULL-W ...) ; compiling (DEFUN TITLED-P ...) ; compiling (DEFUN TITLE-RE-P ...) ; compiling (DEFUN CLASSED-P ...) ; compiling (DEFUN CLASS-RE-P ...) ; compiling (DEFUN TYPED-P ...) ; compiling (DEFUN TYPE-RE-P ...) ; compiling (DEFUN ROLED-P ...) ; compiling (DEFUN ROLE-RE-P ...) ; compiling (DEFUN RESED-P ...) ; compiling (DEFUN RES-RE-P ...) ; compiling (DEFUN GROUPED-P ...) ; compiling (DEFUN IN-FRAME-P ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/wse-TMP.fasl written ; compilation finished in 0:00:00.033 ; compiling file "/build/buildd/stumpwm-0.9.9/version.lisp" (written 07 NOV 2014 01:55:05 AM): ; compiling (IN-PACKAGE :STUMPWM) ; compiling (EXPORT (QUOTE #)) ; compiling (DEFPARAMETER *VERSION* ...) ; compiling (DEFCOMMAND VERSION ...) ; /build/buildd/stumpwm-0.9.9/.cache/common-lisp/sbcl-1.2.4.debian-linux-x64/build/buildd/stumpwm-0.9.9/version-TMP.fasl written ; compilation finished in 0:00:00.005 ; ; compilation unit finished ; caught 5 STYLE-WARNING conditions ; printed 1792 notes makeinfo stumpwm.texi make[1]: Leaving directory '/build/buildd/stumpwm-0.9.9' /usr/bin/fakeroot debian/rules binary ./autogen.sh ./configure --with-lisp=sbcl checking for sbcl... /usr/bin/sbcl checking for clisp... no checking for ccl... no checking for ecl... no checking for lw... no configure: Using sbcl at /usr/bin/sbcl checking for makeinfo... yes checking for xdpyinfo... no configure: creating ./config.status config.status: creating Makefile configure: creating ./config.status config.status: creating Makefile config.status: creating make-image.lisp configure: creating ./config.status config.status: creating Makefile config.status: creating make-image.lisp config.status: creating load-stumpwm.lisp XDG_CACHE_HOME=/build/buildd/stumpwm-0.9.9/.cache /usr/bin/make stumpwm.info make[1]: Entering directory '/build/buildd/stumpwm-0.9.9' make[1]: 'stumpwm.info' is up to date. make[1]: Leaving directory '/build/buildd/stumpwm-0.9.9' dh_testdir dh_testroot dh_clean dh_installdirs usr/share/common-lisp/source/stumpwm usr/share/doc/stumpwm/examples usr/bin usr/share/xsessions dh_install stumpwm.asd usr/share/common-lisp/source/stumpwm dh_install *.lisp usr/share/common-lisp/source/stumpwm dh_install debian/stumpwm.desktop usr/share/xsessions/ rm debian/stumpwm/usr/share/common-lisp/source/stumpwm/make-image.lisp mv debian/stumpwm/usr/share/common-lisp/source/stumpwm/sample-stumpwmrc.lisp debian/stumpwm/usr/share/doc/stumpwm/examples/ cp debian/stumpwm.bin debian/stumpwm/usr/bin/stumpwm dh_testdir dh_testroot dh_installchangelogs dh_installdocs README.md NEWS dh_installinfo stumpwm.info dh_installman debian/stumpwm.1 debian/stumpish.1 dh_installmenu dh_installwm /usr/bin/stumpwm dh_lisp dh_compress dh_fixperms dh_installdeb dh_gencontrol dpkg-gencontrol: warning: File::FcntlLock not available; using flock which is not NFS-safe dh_gencontrol debug symbol wrapper: all non-arch-all packages for this build platform amd64: dh_gencontrol debug symbol wrapper: packages to act on: dh_gencontrol debug symbol wrapper: ignored packages: dh_md5sums dh_builddeb INFO: pkgstriptranslations version 121 pkgstriptranslations: processing stumpwm (in debian/stumpwm); do_strip: , oemstrip: debian/stumpwm/usr/share/xsessions/stumpwm.desktop: does not have gettext domain, not stripping pkgmaintainermangler: Maintainer field overridden to "Ubuntu Developers " pkgstripfiles: processing control file: debian/stumpwm/DEBIAN/control, package stumpwm, directory debian/stumpwm pkgstripfiles: Truncating usr/share/doc/stumpwm/changelog.Debian.gz to topmost ten records pkgstripfiles: PNG optimization for package stumpwm took 0 s dpkg-deb: building package `stumpwm' in `../stumpwm_0.9.9-1_all.deb'. dpkg-genchanges -b -mUbuntu/amd64 Build Daemon >../stumpwm_0.9.9-1_amd64.changes dpkg-genchanges: binary-only upload (no source code included) dpkg-source --after-build stumpwm-0.9.9 dpkg-buildpackage: binary-only upload (no source included) ****************************************************************************** Build finished at 20150507-0224 chroot-autobuild/build/buildd/stumpwm_0.9.9-1_all.deb: new debian package, version 2.0. size 172350 bytes: control archive= 3097 bytes. 1332 bytes, 32 lines control 4378 bytes, 55 lines md5sums 821 bytes, 23 lines * postinst #!/bin/sh 160 bytes, 5 lines * postrm #!/bin/sh 353 bytes, 12 lines * prerm #!/bin/sh Package: stumpwm Version: 2:0.9.9-1 Architecture: all Maintainer: Ubuntu Developers Original-Maintainer: Debian Common Lisp Team Installed-Size: 758 Depends: cl-clx-sbcl | cmucl-source, cl-ppcre, cl-asdf Suggests: slime, x-terminal-emulator, www-browser, info-browser, x11-utils, rlwrap Provides: x-window-manager Section: x11 Priority: optional Homepage: http://www.nongnu.org/stumpwm/ Description: tiling, keyboard driven Common Lisp window manager StumpWM is a window manager written entirely in Common Lisp. It attempts to be highly customizable while relying entirely on the keyboard for input. You will not find buttons, icons, title bars, tool bars, or any of the other conventional GUI widgets. . These design decisions reflect the growing popularity of productive, customizable lisp based systems. . Please ensure that you install compatible implementations of CL and CLX. That means either install sbcl and cl-clx-sbcl or cmucl and cmucl-source or clisp-module-clx only. . The suggested package, slime, lets you control a running StumpWM session through Emacs. . If you need Xinerama support, you need the xdpyinfo utility from the x11-utils package. . The rlwrap package provides command completion for stumpish. chroot-autobuild/build/buildd/stumpwm_0.9.9-1_all.deb: drwxr-xr-x root/root 0 2015-05-07 02:24 ./ drwxr-xr-x root/root 0 2015-05-07 02:24 ./usr/ drwxr-xr-x root/root 0 2015-05-07 02:24 ./usr/bin/ -rwxr-xr-x root/root 1100 2015-05-07 02:24 ./usr/bin/stumpwm drwxr-xr-x root/root 0 2015-05-07 02:24 ./usr/share/ drwxr-xr-x root/root 0 2015-05-07 02:24 ./usr/share/info/ -rw-r--r-- root/root 38336 2015-05-07 02:24 ./usr/share/info/stumpwm.info.gz drwxr-xr-x root/root 0 2015-05-07 02:24 ./usr/share/xsessions/ -rw-r--r-- root/root 204 2014-07-03 20:48 ./usr/share/xsessions/stumpwm.desktop drwxr-xr-x root/root 0 2015-05-07 02:24 ./usr/share/doc-base/ -rw-r--r-- root/root 335 2014-05-14 18:22 ./usr/share/doc-base/stumpwm drwxr-xr-x root/root 0 2015-05-07 02:24 ./usr/share/common-lisp/ drwxr-xr-x root/root 0 2015-05-07 02:24 ./usr/share/common-lisp/source/ drwxr-xr-x root/root 0 2015-05-07 02:24 ./usr/share/common-lisp/source/stumpwm/ -rw-r--r-- root/root 11120 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/stumpwm.lisp -rw-r--r-- root/root 11612 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/floating-group.lisp -rw-r--r-- root/root 30360 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/input.lisp -rw-r--r-- root/root 4573 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/selection.lisp -rw-r--r-- root/root 978 2015-05-07 02:24 ./usr/share/common-lisp/source/stumpwm/load-stumpwm.lisp -rw-r--r-- root/root 28708 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/events.lisp -rw-r--r-- root/root 6429 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/head.lisp -rw-r--r-- root/root 9841 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/menu.lisp -rw-r--r-- root/root 44494 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/window.lisp -rw-r--r-- root/root 5046 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/wse.lisp -rw-r--r-- root/root 8587 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/window-placement.lisp -rw-r--r-- root/root 1495 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/version.lisp -rw-r--r-- root/root 17639 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/user.lisp -rw-r--r-- root/root 20961 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/group.lisp -rw-r--r-- root/root 865 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/package.lisp -rw-r--r-- root/root 45855 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/tile-group.lisp -rw-r--r-- root/root 3827 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/iresize.lisp -rw-r--r-- root/root 12622 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/message-window.lisp -rw-r--r-- root/root 1963 2015-05-07 02:23 ./usr/share/common-lisp/source/stumpwm/stumpwm.asd -rw-r--r-- root/root 4008 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/workarounds.lisp -rw-r--r-- root/root 4783 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/module.lisp -rw-r--r-- root/root 16130 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/wrappers.lisp -rw-r--r-- root/root 6161 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/manual.lisp -rw-r--r-- root/root 126727 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/keysyms.lisp -rw-r--r-- root/root 42200 2015-05-07 02:23 ./usr/share/common-lisp/source/stumpwm/primitives.lisp -rw-r--r-- root/root 1922 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/font-rendering.lisp -rw-r--r-- root/root 9733 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/test-wm.lisp -rw-r--r-- root/root 21480 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/screen.lisp -rw-r--r-- root/root 21173 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/command.lisp -rw-r--r-- root/root 9075 2015-05-07 02:23 ./usr/share/common-lisp/source/stumpwm/bindings.lisp -rw-r--r-- root/root 22235 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/mode-line.lisp -rw-r--r-- root/root 5649 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/help.lisp -rw-r--r-- root/root 3762 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/keytrans.lisp -rw-r--r-- root/root 9265 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/kmap.lisp -rw-r--r-- root/root 19708 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/tile-window.lisp -rw-r--r-- root/root 6906 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/time.lisp -rw-r--r-- root/root 16224 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/color.lisp -rw-r--r-- root/root 5540 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/pathnames.lisp -rw-r--r-- root/root 5958 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/core.lisp -rw-r--r-- root/root 7963 2014-11-07 01:55 ./usr/share/common-lisp/source/stumpwm/fdump.lisp drwxr-xr-x root/root 0 2015-05-07 02:24 ./usr/share/menu/ -rw-r--r-- root/root 151 2014-05-14 18:22 ./usr/share/menu/stumpwm drwxr-xr-x root/root 0 2015-05-07 02:24 ./usr/share/doc/ drwxr-xr-x root/root 0 2015-05-07 02:24 ./usr/share/doc/stumpwm/ drwxr-xr-x root/root 0 2015-05-07 02:24 ./usr/share/doc/stumpwm/examples/ -rw-r--r-- root/root 2616 2015-05-07 02:23 ./usr/share/doc/stumpwm/examples/sample-stumpwmrc.lisp -rw-r--r-- root/root 4260 2015-05-01 09:59 ./usr/share/doc/stumpwm/copyright -rw-r--r-- root/root 2409 2014-11-07 01:55 ./usr/share/doc/stumpwm/NEWS.gz -rw-r--r-- root/root 913 2015-05-01 09:30 ./usr/share/doc/stumpwm/NEWS.Debian.gz -rw-r--r-- root/root 2124 2014-05-14 18:22 ./usr/share/doc/stumpwm/README.Debian -rw-r--r-- root/root 2912 2014-11-07 01:55 ./usr/share/doc/stumpwm/README.md.gz -rw-r--r-- root/root 900 2015-05-07 02:24 ./usr/share/doc/stumpwm/changelog.Debian.gz drwxr-xr-x root/root 0 2015-05-07 02:24 ./usr/share/man/ drwxr-xr-x root/root 0 2015-05-07 02:24 ./usr/share/man/man1/ -rw-r--r-- root/root 784 2015-05-07 02:24 ./usr/share/man/man1/stumpish.1.gz -rw-r--r-- root/root 775 2015-05-07 02:24 ./usr/share/man/man1/stumpwm.1.gz drwxr-xr-x root/root 0 2015-05-07 02:24 ./usr/lib/ drwxr-xr-x root/root 0 2015-05-07 02:24 ./usr/lib/stumpwm/ -rw-r--r-- root/root 678 2014-05-14 18:22 ./usr/lib/stumpwm/load.lisp stumpwm_0.9.9-1_amd64.changes: Format: 1.8 Date: Wed, 29 Apr 2015 21:57:02 +0200 Source: stumpwm Binary: stumpwm Architecture: all Version: 2:0.9.9-1 Distribution: wily-proposed Urgency: low Maintainer: Ubuntu/amd64 Build Daemon Changed-By: Milan Zamazal Description: stumpwm - tiling, keyboard driven Common Lisp window manager Changes: stumpwm (2:0.9.9-1) unstable; urgency=low . * New upstream. * Standards 3.9.6 (no real change). * Don't create upstream ChangeLog. * debian/copyright updated. Checksums-Sha1: 0877052380618c0c08f5109012e2aec90f2b9aa3 172350 stumpwm_0.9.9-1_all.deb Checksums-Sha256: 1766cc666cfae20294a0f5a1a1c2845e6fc753f975bb623bf2669066e6d0615b 172350 stumpwm_0.9.9-1_all.deb Files: 5433915727cbcbe6cfb25ffae488c1b7 172350 x11 optional stumpwm_0.9.9-1_all.deb ****************************************************************************** Built successfully ****************************************************************************** Finished at 20150507-0224 Build needed 00:00:45, 16892k disk space RUN: /usr/share/launchpad-buildd/slavebin/scan-for-processes ['scan-for-processes', 'PACKAGEBUILD-7394172'] Scanning for processes to kill in build /home/buildd/build-PACKAGEBUILD-7394172/chroot-autobuild... RUN: /usr/share/launchpad-buildd/slavebin/umount-chroot ['umount-chroot', 'PACKAGEBUILD-7394172'] Unmounting chroot for build PACKAGEBUILD-7394172... RUN: /usr/share/launchpad-buildd/slavebin/remove-build ['remove-build', 'PACKAGEBUILD-7394172'] Removing build PACKAGEBUILD-7394172