==> Synchronizing chroot copy [/home/leming/armv7/root] -> [leming]...done
==> Making package: stumpwm 24.11-16 (Fri Aug 28 20:15:34 2026)
==> Retrieving sources...
-> Updating stumpwm git repo...
-> Found stumpwm.desktop
==> WARNING: Skipping verification of source file PGP signatures.
==> Validating source files with sha512sums...
stumpwm ... Passed
stumpwm.desktop ... Passed
==> Validating source files with b2sums...
stumpwm ... Passed
stumpwm.desktop ... Passed
==> Making package: stumpwm 24.11-16 (Sat Aug 29 02:16:01 2026)
==> Checking runtime dependencies...
==> Installing missing dependencies...
resolving dependencies...
looking for conflicting packages...
Packages (48) cl-unicode-0.1.6.r12.g07e7ff5-1 default-cursors-3-1 freetype2-2.14.3-1 libdrm-2.4.134-1 libedit-20260512_3.1-1 libepoxy-1.5.10-3 libevdev-1.13.7-1 libfontenc-1.1.9-1 libglvnd-1.7.0-3 libgudev-238-3 libinput-1.31.3-1 libpciaccess-0.19-1 libpng-1.6.58-2 libunwind-1.8.2-1 libwacom-2.19.1-1 libx11-1.8.13-1 libxau-1.0.12-1 libxcb-1.17.0-1 libxcvt-0.1.3-1 libxdmcp-1.1.5-2 libxext-1.3.7-1 libxfont2-2.0.9-1 libxkbfile-1.2.0-1 libxrandr-1.5.5-1 libxrender-0.9.12-1 libxshmfence-1.3.3-1 libxxf86vm-1.1.7-1 llvm-libs-22.1.8-2 lm_sensors-1:3.6.2-1 lua54-5.4.9-1 mesa-1:26.2.1-1 mtdev-1.1.7-1 pixman-0.46.4-1.1 spirv-tools-1:1.4.357.0-1 wayland-1.26.0-1 xcb-proto-1.17.0-4 xf86-input-libinput-1.5.0-1 xkeyboard-config-2.48-1 xorg-fonts-encodings-1.1.0-2 xorg-server-21.1.24-1 xorg-server-common-21.1.24-1 xorg-setxkbmap-1.3.5-1 xorg-xkbcomp-1.5.0-1 xorgproto-2025.1-1 cl-alexandria-1.4.r37.g390a096-1 cl-clx-0.7.8-1 cl-ppcre-2.1.2-1 sbcl-2.6.8-1
Total Download Size: 16.74 MiB
Total Installed Size: 350.23 MiB
:: Proceed with installation? [Y/n]
:: Retrieving packages...
sbcl-2.6.8-1-armv7h downloading...
cl-unicode-0.1.6.r12.g07e7ff5-1-any downloading...
xorg-server-21.1.24-1-armv7h downloading...
xorg-fonts-encodings-1.1.0-2-any downloading...
libepoxy-1.5.10-3-armv7h downloading...
cl-clx-0.7.8-1-any downloading...
cl-ppcre-2.1.2-1-any downloading...
libxfont2-2.0.9-1-armv7h downloading...
xorg-xkbcomp-1.5.0-1-armv7h downloading...
cl-alexandria-1.4.r37.g390a096-1-any downloading...
xf86-input-libinput-1.5.0-1-armv7h downloading...
xorg-server-common-21.1.24-1-armv7h downloading...
libfontenc-1.1.9-1-armv7h downloading...
xorg-setxkbmap-1.3.5-1-armv7h downloading...
libxcvt-0.1.3-1-armv7h downloading...
checking keyring...
checking package integrity...
loading package files...
checking for file conflicts...
checking available disk space...
:: Processing package changes...
installing sbcl...
installing cl-unicode...
installing cl-ppcre...
installing xcb-proto...
installing xorgproto...
installing libxdmcp...
installing libxau...
installing libxcb...
installing libx11...
installing libxext...
installing libpciaccess...
installing libdrm...
Optional dependencies for libdrm
cairo: needed for modetest tool
installing libxshmfence...
installing libxxf86vm...
installing libedit...
installing llvm-libs...
installing lm_sensors...
Optional dependencies for lm_sensors
rrdtool: for logging with sensord
perl: for sensor detection and configuration convert [installed]
installing spirv-tools...
installing default-cursors...
Optional dependencies for default-cursors
adwaita-cursors: default cursor theme
installing wayland...
installing mesa...
Optional dependencies for mesa
opengl-man-pages: for the OpenGL API man pages
installing libglvnd...
installing libepoxy...
installing libpng...
installing freetype2...
Optional dependencies for freetype2
harfbuzz: Improved autohinting
installing xorg-fonts-encodings...
installing libfontenc...
installing libxfont2...
installing pixman...
installing xkeyboard-config...
installing libxkbfile...
installing xorg-xkbcomp...
installing libxrender...
installing libxrandr...
installing xorg-setxkbmap...
installing xorg-server-common...
installing libunwind...
installing libevdev...
installing libgudev...
installing libwacom...
Optional dependencies for libwacom
python-libevdev: for libwacom-show-stylus
python-pyudev: for libwacom-show-stylus
installing lua54...
installing mtdev...
installing libinput...
Optional dependencies for libinput
libinput-tools: debug utilities
installing xf86-input-libinput...
installing libxcvt...
installing xorg-server...
>>> xorg-server has now the ability to run without root rights with
the help of systemd-logind. xserver will fail to run if not launched
from the same virtual terminal as was used to log in.
Without root rights, log files will be in ~/.local/share/xorg/ directory.
Old behavior can be restored through Xorg.wrap config file.
See Xorg.wrap man page (man xorg.wrap).
installing cl-clx...
installing cl-alexandria...
:: Running post-transaction hooks...
(1/5) Updating udev hardware database...
(2/5) Reloading system manager configuration...
Skipped: Current root is not booted.
(3/5) Reloading device manager configuration...
Skipped: Current root is not booted.
(4/5) Arming ConditionNeedsUpdate...
(5/5) Updating the info directory file...
==> Checking buildtime dependencies...
==> Installing missing dependencies...
resolving dependencies...
looking for conflicting packages...
Packages (38) aom-3.15.0-1 cairo-1.18.4-1 dav1d-1.5.4-1 fontconfig-2:2.18.3-2 gd-2.3.3-9 graphite-1:1.3.15-1 harfbuzz-14.4.0-1 l-smash-2.14.5-4 libavif-1.4.2-1 libde265-1.1.1-1 libheif-1.23.2-1 libice-1.1.2-1 libjpeg-turbo-3.2.0-2 libpaper-2.2.8-1 libsigsegv-2.15-1 libsm-1.2.6-1 libsynctex-2026.0-2 libwebp-1.6.0-2 libxaw-1.0.16-2 libxmu-1.3.1-1 libxpm-3.5.19-1 libxt-1.3.1-1 libyuv-r2921+644251f25-1 lzo-2.10-5 openh264-2.6.0-2 perl-error-0.17030-3 perl-mailtools-2.22-3 perl-timedate-2.35-1 potrace-1.16-5 rav1e-0.8.1-3 texlive-basic-2026.1-1 x264-3:0.165.r3222.b35605a-2 x265-4.3-1 zlib-ng-2.3.3-1 zziplib-0.13.80-1 git-2.55.0-1 texlive-bin-2026.0-2 texlive-plaingeneric-2026.1-1
Total Download Size: 24.08 MiB
Total Installed Size: 203.42 MiB
:: Proceed with installation? [Y/n]
:: Retrieving packages...
texlive-bin-2026.0-2-armv7h downloading...
texlive-basic-2026.1-1-any downloading...
texlive-plaingeneric-2026.1-1-any downloading...
aom-3.15.0-1-armv7h downloading...
rav1e-0.8.1-3-armv7h downloading...
libheif-1.23.2-1-armv7h downloading...
libxt-1.3.1-1-armv7h downloading...
libxaw-1.0.16-2-armv7h downloading...
libavif-1.4.2-1-armv7h downloading...
libde265-1.1.1-1-armv7h downloading...
libyuv-r2921+644251f25-1-armv7h downloading...
gd-2.3.3-9-armv7h downloading...
potrace-1.16-5-armv7h downloading...
libxmu-1.3.1-1-armv7h downloading...
libxpm-3.5.19-1-armv7h downloading...
zziplib-0.13.80-1-armv7h downloading...
libpaper-2.2.8-1-armv7h downloading...
libsynctex-2026.0-2-armv7h downloading...
libsigsegv-2.15-1-armv7h downloading...
checking keyring...
checking package integrity...
loading package files...
checking for file conflicts...
checking available disk space...
:: Processing package changes...
installing perl-error...
installing perl-timedate...
installing perl-mailtools...
installing zlib-ng...
installing git...
Optional dependencies for git
git-zsh-completion: upstream zsh completion
tk: gitk and git gui
openssh: ssh transport and crypto
man: show help with `git command --help`
perl-libwww: git svn
perl-term-readkey: git svn and interactive.singlekey setting
perl-io-socket-ssl: git send-email TLS support
perl-authen-sasl: git send-email TLS support
perl-cgi: gitweb (web interface) support
python: git svn & git p4 [installed]
subversion: git svn
org.freedesktop.secrets: keyring credential helper
libsecret: libsecret credential helper [installed]
less: the default pager for git
installing fontconfig...
Creating fontconfig configuration...
Rebuilding fontconfig cache...
installing lzo...
installing cairo...
installing libice...
installing libsm...
installing libxt...
installing libxpm...
installing libwebp...
Optional dependencies for libwebp
libwebp-utils: WebP conversion and inspection tools
installing aom...
installing dav1d...
Optional dependencies for dav1d
dav1d-doc: HTML documentation
installing libjpeg-turbo...
installing libyuv...
installing rav1e...
installing libavif...
installing libde265...
Optional dependencies for libde265
sdl2-compat: for the decoder tool
installing openh264...
installing l-smash...
installing x264...
installing x265...
installing libheif...
Optional dependencies for libheif
libjpeg-turbo: for heif-dec and heif-enc [installed]
libpng: for heif-dec and heif-enc [installed]
libtiff: for heif-dec and heif-enc
dav1d: dav1d encoder [installed]
ffmpeg: hardware decode
openjpeg2: JPEG2000 decoder
rav1e: rav1e encoder [installed]
installing gd...
Optional dependencies for gd
perl: bdftogd script [installed]
installing graphite...
Optional dependencies for graphite
graphite-docs: Documentation
installing harfbuzz...
Optional dependencies for harfbuzz
harfbuzz-utils: utilities
installing libpaper...
installing libsigsegv...
installing libsynctex...
installing libxmu...
installing libxaw...
installing potrace...
installing zziplib...
installing texlive-bin...
Optional dependencies for texlive-bin
psutils: to manipulate the output of dvips
installing texlive-basic...
Optional dependencies for texlive-basic
perl-tk: for the tlmgr GUI
biber: for bibliography processing
installing texlive-plaingeneric...
:: Running post-transaction hooks...
(1/8) Creating system user accounts...
Creating group 'git' with GID 967.
Creating user 'git' (git daemon user) with UID 967 and GID 967.
(2/8) Reloading system manager configuration...
Skipped: Current root is not booted.
(3/8) Arming ConditionNeedsUpdate...
(4/8) Updating fontconfig configuration...
(5/8) Updating TeXLive filename database...
mktexlsr: Updating /etc/texmf/ls-R...
mktexlsr: Updating /usr/share/texmf-dist/ls-R...
mktexlsr: Updating /var/lib/texmf/ls-R...
mktexlsr: Done.
(6/8) Updating TeXLive format files...
(7/8) Updating TeXLive font maps...
mktexlsr: Updating /etc/texmf/ls-R...
mktexlsr: Updating /usr/share/texmf-dist/ls-R...
mktexlsr: Updating /var/lib/texmf/ls-R...
mktexlsr: Done.
(8/8) Updating fontconfig cache...
==> Retrieving sources...
-> Found stumpwm.desktop
==> WARNING: Skipping all source file integrity checks.
==> Extracting sources...
-> Creating working copy of stumpwm git repo...
Cloning into 'stumpwm'...
done.
Switched to a new branch 'makepkg'
==> Starting prepare()...
Auto-merging make-image.lisp.in
==> Starting pkgver()...
==> Starting build()...
checking for sbcl... /usr/bin/sbcl
configure: WARNING: SBCL_HOME must be defined to use asdf/quicklisp (it should be where your sbcl.core resides)
configure: Using sbcl at /usr/bin/sbcl
checking for makeinfo... yes
configure: creating ./config.status
config.status: creating Makefile
configure: creating ./config.status
config.status: creating Makefile
config.status: creating make-image.lisp
configure: creating ./config.status
config.status: creating Makefile
config.status: creating make-image.lisp
config.status: creating load-stumpwm.lisp
/usr/bin/sbcl --non-interactive --eval "(require 'asdf)" --eval "(setf sb-impl::*default-external-format* :UTF-8)" --load ./make-image.lisp
This is SBCL 2.6.8, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.
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/alexandria/alexandria-1/package.lisp" (written 08 MAR 2026 04:36:22 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/package-tmp7LQ0A0VI.fasl
; compilation finished in 0:00:00.016
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/definitions.lisp" (written 08 MAR 2026 04:36:22 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/definitions-tmp74KGUNRZ.fasl
; compilation finished in 0:00:00.024
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DEFINE-CONSTANT in DEFMACRO
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/binding.lisp" (written 08 MAR 2026 04:36:22 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/binding-tmpCEL1YIM2.fasl
; compilation finished in 0:00:00.036
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:IF-LET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WHEN-LET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WHEN-LET* in DEFMACRO
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/strings.lisp" (written 08 MAR 2026 04:36:22 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/strings-tmpHAMQABTV.fasl
; compilation finished in 0:00:00.004
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/conditions.lisp" (written 08 MAR 2026 04:36:22 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/conditions-tmpUPMG0IBO.fasl
; compilation finished in 0:00:00.044
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:IGNORE-SOME-CONDITIONS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:UNWIND-PROTECT-CASE in DEFMACRO
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/symbols.lisp" (written 08 MAR 2026 04:36:22 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/symbols-tmpAKM32D0F.fasl
; compilation finished in 0:00:00.036
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/macros.lisp" (written 08 MAR 2026 04:36:22 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/macros-tmp8UG37QJ5.fasl
; compilation finished in 0:00:00.192
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WITH-GENSYMS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WITH-UNIQUE-NAMES in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:ONCE-ONLY in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DESTRUCTURING-CASE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DESTRUCTURING-CCASE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DESTRUCTURING-ECASE in DEFMACRO
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/functions.lisp" (written 08 MAR 2026 04:36:22 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/functions-tmp65YV5VYW.fasl
; compilation finished in 0:00:00.116
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA::ENSURE-FUNCTIONF/1 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:ENSURE-FUNCTIONF in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:NAMED-LAMBDA in DEFMACRO
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/lists.lisp" (written 08 MAR 2026 04:36:22 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/lists-tmpGO4MNX7G.fasl
; compilation finished in 0:00:00.260
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DOPLIST in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:APPENDF in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:NCONCF in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:UNIONF in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:NUNIONF in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:REVERSEF in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:NREVERSEF in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:REMOVE-FROM-PLISTF in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DELETE-FROM-PLISTF in DEFMACRO
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/types.lisp" (written 08 MAR 2026 04:36:22 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/types-tmp9NXH2K1.fasl
; compilation finished in 0:00:00.200
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:COERCEF in DEFMACRO
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/io.lisp" (written 08 MAR 2026 04:36:22 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/io-tmp6B86GLV2.fasl
; compilation finished in 0:00:00.268
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA::WITH-OPEN-FILE* in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WITH-INPUT-FROM-FILE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WITH-OUTPUT-TO-FILE in DEFMACRO
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables.lisp" (written 08 MAR 2026 04:36:22 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/hash-tables-tmpZWLLOVAH.fasl
; compilation finished in 0:00:00.124
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:ENSURE-GETHASH in DEFMACRO
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/control-flow.lisp" (written 08 MAR 2026 04:36:22 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/control-flow-tmpS9M8BVBG.fasl
; compilation finished in 0:00:00.204
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:SWITCH in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:ESWITCH in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:CSWITCH in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WHICHEVER in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:XOR in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:NTH-VALUE-OR in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:MULTIPLE-VALUE-PROG2 in DEFMACRO
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/arrays.lisp" (written 08 MAR 2026 04:36:22 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/arrays-tmp205IFRLS.fasl
; compilation finished in 0:00:00.024
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/sequences.lisp" (written 08 MAR 2026 04:36:22 PM):
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; file: /usr/share/common-lisp/source/alexandria/alexandria-1/sequences.lisp
; in: DEFUN LENGTH=
; (LENGTH FIRST)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/sequences-tmpBW6GBZVX.fasl
; compilation finished in 0:00:00.360
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:REMOVEF in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DELETEF in DEFMACRO
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/numbers.lisp" (written 08 MAR 2026 04:36:22 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/numbers-tmpMDMI656Q.fasl
; compilation finished in 0:00:00.452
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:MAXF in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:MINF in DEFMACRO
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-1/features.lisp" (written 08 MAR 2026 04:36:22 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-1/features-tmpQN7VP0FI.fasl
; compilation finished in 0:00:00.016
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/package.lisp" (written 08 MAR 2026 04:36:22 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-2/package-tmpNOSTK6D0.fasl
; compilation finished in 0:00:00.024
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/arrays.lisp" (written 08 MAR 2026 04:36:22 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-2/arrays-tmp9RA72042.fasl
; compilation finished in 0:00:00.032
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow.lisp" (written 08 MAR 2026 04:36:22 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-2/control-flow-tmpGXZUHQQV.fasl
; compilation finished in 0:00:00.016
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA-2:LINE-UP-FIRST in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA-2:LINE-UP-LAST in DEFMACRO
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/sequences.lisp" (written 08 MAR 2026 04:36:22 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-2/sequences-tmp1SBDRUB4.fasl
; compilation finished in 0:00:00.004
; compiling file "/usr/share/common-lisp/source/alexandria/alexandria-2/lists.lisp" (written 08 MAR 2026 04:36:22 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/alexandria/alexandria-2/lists-tmpFJI67R2A.fasl
; compilation finished in 0:00:00.012
; compiling file "/usr/share/common-lisp/source/cl-ppcre/packages.lisp" (written 25 APR 2026 05:58:26 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/cl-ppcre/packages-tmp2LAB0LT0.fasl
; compilation finished in 0:00:00.004
; compiling file "/usr/share/common-lisp/source/cl-ppcre/specials.lisp" (written 25 APR 2026 05:58:26 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/cl-ppcre/specials-tmp5G8XXQL5.fasl
; compilation finished in 0:00:00.024
; compiling file "/usr/share/common-lisp/source/cl-ppcre/util.lisp" (written 25 APR 2026 05:58:26 PM):
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a STRING, not a (OR NULL
(SIMPLE-ARRAY
* (*))).
; file: /usr/share/common-lisp/source/cl-ppcre/util.lisp
; in: DEFUN STRING-LIST-TO-SIMPLE-STRING
; (REPLACE CL-PPCRE::RESULT-STRING STRING :START1 CL-PPCRE::CURR-POS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a STRING, not a (OR NULL (SIMPLE-ARRAY * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a STRING, not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a STRING, not a (OR SIMPLE-BASE-STRING NULL).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; (INCF CL-PPCRE::TOTAL-SIZE (LENGTH STRING))
; --> THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; (INCF CL-PPCRE::CURR-POS (LENGTH STRING))
; --> THE
; ==>
; (+ (LENGTH STRING) CL-PPCRE::CURR-POS)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TEST-FUNCTION is not known to be a function
; in: DEFUN COMPLEMENT*
; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/cl-ppcre/util-tmp70X8ZE5V.fasl
; compilation finished in 0:00:00.112
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::DEFCONSTANT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::WITH-UNIQUE-NAMES in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::WITH-REBINDING in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING in DEFMACRO
; compiling file "/usr/share/common-lisp/source/cl-ppcre/errors.lisp" (written 25 APR 2026 05:58:26 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/cl-ppcre/errors-tmpRJ7B84T0.fasl
; compilation finished in 0:00:00.036
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::SIGNAL-SYNTAX-ERROR* in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::SIGNAL-SYNTAX-ERROR in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::SIGNAL-INVOCATION-ERROR in DEFMACRO
; compiling file "/usr/share/common-lisp/source/cl-ppcre/charset.lisp" (written 25 APR 2026 05:58:26 PM):
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
The second argument is a NUMBER, not a RATIONAL.
; file: /usr/share/common-lisp/source/cl-ppcre/charset.lisp
; in: DEFUN MIX
; (+ CL-PPCRE::CODE CL-PPCRE::HASH)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a NUMBER, not a FIXNUM.
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a NUMBER, not a FIXNUM.
etc.
; (LOGAND MOST-POSITIVE-FIXNUM (+ CL-PPCRE::CODE CL-PPCRE::HASH))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFUN COMPUTE-INDEX
; (LENGTH VECTOR)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a INTEGER.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a INTEGER.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR FLOAT
(RATIONAL (-536870907)
(536870907))), not a RATIONAL.
; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR FLOAT
; (RATIONAL (-536870907)
; (536870907))), not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a (OR FLOAT (RATIONAL (-536870907) (536870907))), not a FIXNUM.
The result is a (VALUES (OR FLOAT (RATIONAL (-536870906) (536870908)))
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (OR FLOAT (RATIONAL (-536870907) (536870907))), not a FIXNUM.
The result is a (VALUES (OR FLOAT (RATIONAL (-536870906) (536870908)))
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR FLOAT (RATIONAL (-536870907) (536870907))), not a FIXNUM.
; The result is a (VALUES (OR FLOAT (RATIONAL (-536870906) (536870908)))
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR FLOAT (RATIONAL (-536870907) (536870907))), not a FIXNUM.
; The result is a (VALUES (OR FLOAT (RATIONAL (-536870906) (536870908)))
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 4) because:
The first argument is a INTEGER, not a FIXNUM.
unable to do inline (unsigned-byte 32) comparison (cost 6) because:
The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
etc.
; in: DEFUN %ADD-TO-CHARSET/EXPAND
; (>= CL-PPCRE::NEW-SIZE 371370)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline ASH (cost 1) because:
The first argument is a INTEGER, not a FIXNUM.
The result is a (VALUES (OR (INTEGER * -2) (INTEGER 0 0) (INTEGER 2))
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline ASH (cost 2) because:
The first argument is a INTEGER, not a FIXNUM.
The result is a (VALUES (OR (INTEGER * -2) (INTEGER 0 0) (INTEGER 2))
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; (* 2 CL-PPCRE::NEW-SIZE)
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (OR (INTEGER * -2) (INTEGER 0 0) (INTEGER 2))
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline ASH (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (OR (INTEGER * -2) (INTEGER 0 0) (INTEGER 2))
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20) to NEW-SIZE
; (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
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a (INTEGER * 536870911), not a FIXNUM.
The result is a (VALUES (INTEGER * 536870910) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER * 536870911), not a FIXNUM.
The result is a (VALUES (INTEGER * 536870910) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
etc.
; in: DEFUN MAP-CHARSET
; (DECF CL-PPCRE::N)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER * 536870911), not a FIXNUM.
; The result is a (VALUES (INTEGER * 536870910) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER * 536870911), not a FIXNUM.
; The result is a (VALUES (INTEGER * 536870910) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
; in: DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION
; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET)
; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW
; CL-PPCRE::END
; CL-PPCRE::FOR ...)
; --> LET LET LET TAGBODY WHEN IF
; ==>
; (>= CL-PPCRE::CODE #:LIM0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TEST-FUNCTION is not known to be a function
; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/cl-ppcre/charset-tmpOMGCSPAB.fasl
; compilation finished in 0:00:00.132
; compiling file "/usr/share/common-lisp/source/cl-ppcre/charmap.lisp" (written 25 APR 2026 05:58:26 PM):
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the third argument of CHECK-BOUND
; file: /usr/share/common-lisp/source/cl-ppcre/charmap.lisp
; in: DEFUN IN-CHARMAP-P
; (SBIT (THE SIMPLE-BIT-VECTOR (CL-PPCRE::CHARMAP-VECTOR CL-PPCRE::CHARMAP))
; (- CHAR-CODE CL-PPCRE::CHARMAP-START))
;
; note: doing signed word to integer coercion (cost 20), for:
; the third argument of CHECK-BOUND
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TEST-FUNCTION is not known to be a function
; in: DEFUN MAKE-CHARMAP
; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
; in: DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION
; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW
; CL-PPCRE::END
; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE)
; CL-PPCRE::UNTIL ...)
; --> LET LET TAGBODY WHEN IF
; ==>
; (>= CL-PPCRE::CODE #:LIM0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a RATIONAL.
; (1- CL-PPCRE::END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1-
; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START
; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE)
; CL-PPCRE::UNTIL ...)
; --> LET LET TAGBODY WHEN IF
; ==>
; (< CL-PPCRE::CODE #:LIM27)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TEST-FUNCTION is not known to be a function
; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TEST-FUNCTION is not known to be a function
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TEST-FUNCTION is not known to be a function
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TEST-FUNCTION is not known to be a function
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a REAL, not a FIXNUM.
The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a REAL, not a FIXNUM.
The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; (1- CL-PPCRE::END)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a REAL, not a FIXNUM.
; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline float comparison (cost 3) because:
The first argument is a REAL, not a SINGLE-FLOAT.
The second argument is a REAL, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a REAL, not a DOUBLE-FLOAT.
The second argument is a REAL, not a DOUBLE-FLOAT.
etc.
; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1-
; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START
; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE)
; CL-PPCRE::UNTIL ...)
; --> LET LET TAGBODY WHEN IF
; ==>
; (< CL-PPCRE::CODE #:LIM27)
;
; note: forced to do full call
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/cl-ppcre/charmap-tmpLEWWGRGS.fasl
; compilation finished in 0:00:00.164
; compiling file "/usr/share/common-lisp/source/cl-ppcre/chartest.lisp" (written 25 APR 2026 05:58:26 PM):
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
; file: /usr/share/common-lisp/source/cl-ppcre/chartest.lisp
; in: DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION
; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE)
; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW
; CL-PPCRE::END
; CL-PPCRE::FOR ...)
; --> LET LET LET TAGBODY WHEN IF
; ==>
; (>= CL-PPCRE::CODE #:LIM0)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TEST-FUNCTION is not known to be a function
; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
The second argument is a NUMBER, not a RATIONAL.
; in: DEFUN CREATE-OPTIMIZED-TEST-FUNCTION
; (- CL-PPCRE::END CL-PPCRE::START)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a INTEGER.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a (UNSIGNED-BYTE 29).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a (UNSIGNED-BYTE 29).
SIMPLE-COMPILER-NOTE: unable to
convert division by 2^k to shift
due to type uncertainty:
The first argument is a REAL, not a INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a INTEGER.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
The second argument is a NUMBER, not a RATIONAL.
; (- CL-PPCRE::END CL-PPCRE::START)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a INTEGER.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a (UNSIGNED-BYTE 29).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a (UNSIGNED-BYTE 29).
SIMPLE-COMPILER-NOTE: unable to
convert division by 2^k to shift
due to type uncertainty:
The first argument is a REAL, not a INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a INTEGER.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; (- CL-PPCRE::END CL-PPCRE::START)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 4) because:
The second argument is a INTEGER, not a FIXNUM.
unable to do inline (unsigned-byte 32) comparison (cost 6) because:
The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
etc.
; (<= (HASH-TABLE-COUNT HASH-TABLE)
; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2))
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; (- CL-PPCRE::END CL-PPCRE::START)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 4) because:
The second argument is a INTEGER, not a FIXNUM.
unable to do inline (unsigned-byte 32) comparison (cost 6) because:
The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
etc.
; (<= (CL-PPCRE::CHARSET-COUNT CL-PPCRE::CHARSET)
; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2))
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the third argument of CHECK-BOUND
; (CL-PPCRE::IN-CHARMAP-P CHAR CL-PPCRE::CHARMAP)
; --> BLOCK LET* LET AND IF = SBIT
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the third argument of CHECK-BOUND
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/cl-ppcre/chartest-tmp2VH9CUXA.fasl
; compilation finished in 0:00:00.052
; compiling file "/usr/share/common-lisp/source/cl-ppcre/lexer.lisp" (written 25 APR 2026 05:58:26 PM):
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; file: /usr/share/common-lisp/source/cl-ppcre/lexer.lisp
; in: DEFUN NEXT-CHAR
; (CL-PPCRE::SIGNAL-SYNTAX-ERROR* CL-PPCRE::ERROR-POS
; "Comment group not closed.")
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN GET-NUMBER
; (IF (< CL-PPCRE::END-POS CL-PPCRE::LEXER-LEN)
; CL-PPCRE::END-POS
; CL-PPCRE::LEXER-LEN)
;
; note: doing signed word to integer coercion (cost 20)
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; in: DEFUN MAKE-CHAR-FROM-CODE
; (CL-PPCRE::SIGNAL-SYNTAX-ERROR* CL-PPCRE::ERROR-POS
; "No character for hex-code ~X." NUMBER)
;
; note: deleting unreachable code
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
; in: DEFUN UNESCAPE-CHAR
; (CHAR-UPCASE CL-PPCRE::NEXT-CHAR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first argument of IF-EQ
; in: DEFUN COLLECT-CHAR-CLASS
; (CASE CL-PPCRE::NEXT-CHAR
; ((#\d #\D #\w #\W #\s #\S)
; (PUSH (CL-PPCRE::MAP-CHAR-TO-SPECIAL-CHAR-CLASS CL-PPCRE::NEXT-CHAR) LIST)
; (WHEN CL-PPCRE::HYPHEN-SEEN (PUSH #\- LIST))
; (WHEN (CL-PPCRE::LOOKING-AT-P CL-PPCRE::LEXER #\-)
; (PUSH #\- LIST)
; (INCF (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER)))
; (SETQ CL-PPCRE::HYPHEN-SEEN NIL))
; ((#\P #\p)
; (COND
; ((NULL CL-PPCRE:*PROPERTY-RESOLVER*)
; (CL-PPCRE::HANDLE-CHAR CL-PPCRE::NEXT-CHAR))
; (T (PUSH # LIST) (WHEN CL-PPCRE::HYPHEN-SEEN #) (WHEN # # #) (SETQ #))))
; ((#\E) (UNLESS CL-PPCRE:*ALLOW-QUOTING* (CL-PPCRE::HANDLE-CHAR #\E)))
; (OTHERWISE
; (DECF (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER))
; (CL-PPCRE::HANDLE-CHAR (CL-PPCRE::UNESCAPE-CHAR CL-PPCRE::LEXER))))
; --> IF OR LET IF LET EQL
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first argument of IF-EQ
; --> IF OR LET IF LET IF LET IF LET EQL
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first argument of IF-EQ
; --> IF OR LET IF LET IF LET IF LET IF LET IF EQL
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first argument of IF-EQ
; --> IF IF OR LET IF EQL
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first argument of IF-EQ
; in: DEFUN GET-TOKEN
; (CASE CL-PPCRE::NEXT-CHAR
; ((#\A) :MODELESS-START-ANCHOR)
; ((#\Z) :MODELESS-END-ANCHOR)
; ((#\z) :MODELESS-END-ANCHOR-NO-NEWLINE)
; ((#\b) :WORD-BOUNDARY)
; ((#\B) :NON-WORD-BOUNDARY)
; ((#\k)
; (COND
; ((AND CL-PPCRE:*ALLOW-NAMED-REGISTERS* #) (INCF #)
; (LIST :BACK-REFERENCE #))
; (T #\k)))
; ((#\d #\D #\w #\W #\s #\S)
; (CL-PPCRE::MAP-CHAR-TO-SPECIAL-CHAR-CLASS CL-PPCRE::NEXT-CHAR))
; ((#\1 #\2 #\3 #\4 #\5 #\6 #\7 #\8 #\9)
; (LET* ((CL-PPCRE::OLD-POS #) (CL-PPCRE::BACKREF-NUMBER #))
; (DECLARE (FIXNUM CL-PPCRE::BACKREF-NUMBER))
; (COND (# # #) (T #))))
; ((#\0)
; (LET ((CL-PPCRE::OLD-POS #))
; (CL-PPCRE::MAKE-CHAR-FROM-CODE
; (CL-PPCRE::GET-NUMBER CL-PPCRE::LEXER :RADIX 8 :MAX-LENGTH 3)
; CL-PPCRE::OLD-POS)))
; ((#\P #\p)
; (COND
; (CL-PPCRE:*PROPERTY-RESOLVER*
; (CL-PPCRE::READ-CHAR-PROPERTY CL-PPCRE::LEXER CL-PPCRE::NEXT-CHAR))
; (T CL-PPCRE::NEXT-CHAR)))
; ...)
; --> IF IF IF IF IF IF IF OR LET IF LET EQL
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first argument of IF-EQ
; --> IF IF IF IF IF IF IF OR LET IF LET IF LET IF LET EQL
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first argument of IF-EQ
; --> IF IF IF IF IF IF IF OR LET IF LET IF LET IF LET IF LET IF EQL
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first argument of IF-EQ
; --> IF IF IF IF IF IF IF IF IF IF OR LET IF EQL
; ==>
; 1
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/cl-ppcre/lexer-tmp21MKT5OO.fasl
; compilation finished in 0:00:00.456
; compiling file "/usr/share/common-lisp/source/cl-ppcre/parser.lisp" (written 25 APR 2026 05:58:26 PM):
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; file: /usr/share/common-lisp/source/cl-ppcre/parser.lisp
; in: DEFUN GROUP
; (CL-PPCRE::SIGNAL-SYNTAX-ERROR* (+ CL-PPCRE::OPEN-PAREN-POS 2)
; "Opening paren has no matching closing paren.")
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
because:
Upgraded element type of array is not known at compile time.
; in: DEFUN SEQ
; (VECTOR-PUSH-EXTEND CL-PPCRE::QUANT (CAR CL-PPCRE::LAST-CDR))
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/cl-ppcre/parser-tmpMXTBQGWB.fasl
; compilation finished in 0:00:00.124
; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class.lisp" (written 25 APR 2026 05:58:26 PM):
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; file: /usr/share/common-lisp/source/cl-ppcre/regex-class.lisp
; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (STR)
; (COERCE CL-PPCRE::STR-SLOT 'SIMPLE-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
NULL
(SIMPLE-ARRAY
*
(*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
; (SIMPLE-ARRAY
; * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
; SIMPLE-BASE-STRING
; NULL).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; (LENGTH (CL-PPCRE::STR CL-PPCRE::STR))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/cl-ppcre/regex-class-tmpPPC4Z10Q.fasl
; compilation finished in 0:00:00.068
; compiling file "/usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp" (written 25 APR 2026 05:58:26 PM):
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
; file: /usr/share/common-lisp/source/cl-ppcre/regex-class-util.lisp
; in: DEFMETHOD CASE-MODE (STR T)
; (ZEROP (CL-PPCRE::LEN CL-PPCRE::STR))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST (SIMPLE-ARRAY * (*))
SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; in: DEFMETHOD EVERYTHINGP (SEQ)
; (LENGTH CL-PPCRE::CLEANED-ELEMENTS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST (SIMPLE-ARRAY * (*))
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFMETHOD EVERYTHINGP (ALTERNATION)
; (LENGTH CL-PPCRE::CHOICES)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
; in: DEFMETHOD EVERYTHINGP (REPETITION)
; (= 1 CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a (OR COMPLEX
(REAL 1
1)), not a SINGLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR COMPLEX (REAL 1 1)), not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a (OR COMPLEX
(REAL 1
1)), not a DOUBLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR COMPLEX (REAL 1 1)), not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a (OR COMPLEX
(REAL 1 1)), not a (COMPLEX
SINGLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR COMPLEX (REAL 1 1)), not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a (OR COMPLEX
(REAL 1 1)), not a (COMPLEX
DOUBLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR COMPLEX (REAL 1 1)), not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline float comparison (cost 3) because:
The first argument is a (OR COMPLEX (REAL 1 1)), not a SINGLE-FLOAT.
The second argument is a NUMBER, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a (OR COMPLEX (REAL 1 1)), not a DOUBLE-FLOAT.
The second argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: forced to do full call
; unable to do inline float comparison (cost 3) because:
; The first argument is a (OR COMPLEX (REAL 1 1)), not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a (OR COMPLEX (REAL 1 1)), not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
The second argument is a NUMBER, not a RATIONAL.
; in: DEFMETHOD REGEX-LENGTH (SEQ)
; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS
; CL-PPCRE::SEQ)
; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-LENGTH
; CL-PPCRE::SUB-REGEX)
; IF (NOT CL-PPCRE::LEN)
; DO ...)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:SUM6 CL-PPCRE::LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a NUMBER, not a FIXNUM.
The second argument is a (NOT NULL), not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a (NOT NULL), not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a (NOT NULL), not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
; in: DEFMETHOD REGEX-LENGTH (ALTERNATION)
; (/= CL-PPCRE::LEN CL-PPCRE::OLD-LEN)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a (NOT NULL), not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
The second argument is a (NOT NULL), not a DOUBLE-FLOAT.
;
; note: forced to do full call
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a (NOT NULL), not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
; The second argument is a (NOT NULL), not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
; in: DEFMETHOD REGEX-LENGTH (BRANCH)
; (EQL CL-PPCRE::THEN-LENGTH
; (CL-PPCRE::REGEX-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH)))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
The second argument is a T, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 4) because:
The first argument is a (NOT NULL), not a FIXNUM.
The second argument is a T, not a FIXNUM.
unable to do inline (unsigned-byte 32) comparison (cost 6) because:
The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
The second argument is a T, not a (UNSIGNED-BYTE 32).
etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
; in: DEFMETHOD REGEX-LENGTH (REPETITION)
; (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a DOUBLE-FLOAT.
The second argument is a T, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 4) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
unable to do inline (unsigned-byte 32) comparison (cost 6) because:
The first argument is a T, not a (UNSIGNED-BYTE 32).
The second argument is a T, not a (UNSIGNED-BYTE 32).
etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a T, not a (UNSIGNED-BYTE 32).
The second argument is a T, not a (UNSIGNED-BYTE 32).
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
The second argument is a NUMBER, not a RATIONAL.
; in: DEFMETHOD REGEX-MIN-LENGTH (SEQ)
; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS
; CL-PPCRE::SEQ)
; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH
; CL-PPCRE::SUB-REGEX)
; CL-PPCRE::SUM CL-PPCRE::LEN)
; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE
; ==>
; (+ #:SUM6 CL-PPCRE::LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a NUMBER, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
; in: DEFMETHOD REGEX-MIN-LENGTH (ALTERNATION)
; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::CHOICES
; CL-PPCRE::ALTERNATION)
; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH
; CL-PPCRE::SUB-REGEX)
; CL-PPCRE::MINIMIZE CL-PPCRE::LEN)
; --> LET LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY
; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF
; ==>
; (< #:MINMAXTMP10 #:MINMAX9)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline float comparison (cost 3) because:
The first argument is a REAL, not a SINGLE-FLOAT.
The second argument is a REAL, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a REAL, not a DOUBLE-FLOAT.
The second argument is a REAL, not a DOUBLE-FLOAT.
etc.
;
; note: forced to do full call
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
; in: DEFMETHOD REGEX-MIN-LENGTH (BRANCH)
; (MIN (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH))
; (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH)))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline float comparison (cost 3) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a T, not a DOUBLE-FLOAT.
The second argument is a T, not a DOUBLE-FLOAT.
etc.
;
; note: forced to do full call
; unable to do inline float comparison (cost 3) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a T, not a (UNSIGNED-BYTE 32).
The second argument is a T, not a (UNSIGNED-BYTE 32).
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; in: DEFMETHOD REGEX-MIN-LENGTH (REPETITION)
; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)
; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
; in: DEFMETHOD COMPUTE-OFFSETS (ALTERNATION T)
; (/= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a (NOT NULL), not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
The second argument is a (NOT NULL), not a DOUBLE-FLOAT.
;
; note: forced to do full call
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a (NOT NULL), not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
; The second argument is a (NOT NULL), not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
; in: DEFMETHOD COMPUTE-OFFSETS (BRANCH T)
; (EQL CL-PPCRE::THEN-OFFSET
; (CL-PPCRE::COMPUTE-OFFSETS (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH)
; CL-PPCRE::START-POS))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
The second argument is a T, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 4) because:
The first argument is a (NOT NULL), not a FIXNUM.
The second argument is a T, not a FIXNUM.
unable to do inline (unsigned-byte 32) comparison (cost 6) because:
The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
The second argument is a T, not a (UNSIGNED-BYTE 32).
etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
The second argument is a NUMBER, not a RATIONAL.
; in: DEFMETHOD COMPUTE-OFFSETS (REPETITION T)
; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM CL-PPCRE::LEN))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a T, not a (UNSIGNED-BYTE 32).
The second argument is a T, not a (UNSIGNED-BYTE 32).
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a NUMBER, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM CL-PPCRE::LEN))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
; in: DEFMETHOD COMPUTE-OFFSETS (CHAR-CLASS T)
; (1+ CL-PPCRE::START-POS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
; in: DEFMETHOD COMPUTE-OFFSETS (EVERYTHING T)
; (1+ CL-PPCRE::START-POS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
The second argument is a NUMBER, not a RATIONAL.
; in: DEFMETHOD COMPUTE-OFFSETS (STR T)
; (+ CL-PPCRE::START-POS (CL-PPCRE::LEN CL-PPCRE::STR))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
The second argument is a NUMBER, not a RATIONAL.
; in: DEFMETHOD COMPUTE-OFFSETS (FILTER T)
; (+ CL-PPCRE::START-POS CL-PPCRE::LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a (NOT NULL), not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a (NOT NULL), not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a (NOT NULL), not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/cl-ppcre/regex-class-util-tmpRD3N4073.fasl
; compilation finished in 0:00:00.356
; compiling file "/usr/share/common-lisp/source/cl-ppcre/convert.lisp" (written 25 APR 2026 05:58:26 PM):
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TEST-FUNCTION is not known to be a function
; file: /usr/share/common-lisp/source/cl-ppcre/convert.lisp
; in: DEFUN CONVERT-CHAR-CLASS-TO-TEST-FUNCTION
; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR))
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-DOWNCASE CHAR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TEST-FUNCTION is not known to be a function
; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR))
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-UPCASE CHAR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TEST-FUNCTION is not known to be a function
; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR))
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-DOWNCASE CHAR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TEST-FUNCTION is not known to be a function
; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR))
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-UPCASE CHAR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TEST-FUNCTION is not known to be a function
; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TEST-FUNCTION is not known to be a function
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-DOWNCASE CHAR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-UPCASE CHAR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TEST-FUNCTION is not known to be a function
; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TEST-FUNCTION is not known to be a function
; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-DOWNCASE CHAR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-UPCASE CHAR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TEST-FUNCTION is not known to be a function
; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TEST-FUNCTION is not known to be a function
; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TEST-FUNCTION is not known to be a function
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN MAYBE-SPLIT-REPETITION
; (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a (OR NULL
(SIMPLE-ARRAY
* (*))).
The second argument is a SEQUENCE, not a (OR NULL
(SIMPLE-ARRAY
* (*))).
; in: DEFUN MAYBE-ACCUMULATE
; (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR)
; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)
; (CL-PPCRE::LEN CL-PPCRE::STR)))
; ==>
; (REPLACE #:SEQUENCE #:NEW2 :START1 #:START :END1 NIL)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))).
; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a (OR NULL
(SIMPLE-ARRAY
* (*))).
The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))).
; The second argument is a SEQUENCE, not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a (OR
SIMPLE-BASE-STRING
NULL).
The second argument is a SEQUENCE, not a (OR NULL
(SIMPLE-ARRAY
CHARACTER
(*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL).
; The second argument is a SEQUENCE, not a (OR NULL
; (SIMPLE-ARRAY CHARACTER (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a (OR NULL
(SIMPLE-ARRAY
CHARACTER
(*))).
The second argument is a SEQUENCE, not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a (OR NULL
; (SIMPLE-ARRAY CHARACTER (*))).
; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)
; --> FUNCALL
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR)
; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)
; (CL-PPCRE::LEN CL-PPCRE::STR)))
; ==>
; (REPLACE #:SEQUENCE #:NEW2 :START1 #:START :END1 NIL)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BRANCH) T)
; (LENGTH (CL-PPCRE::CHOICES CL-PPCRE::ALTERNATIONS))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :GREEDY-REPETITION) T)
; (ZEROP LENGTH)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :NAMED-REGISTER) T)
; (COPY-SEQ (SECOND CL-PPCRE::PARSE-TREE))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR STRING SYMBOL
CHARACTER), not a SIMPLE-BASE-STRING.
The second argument is a (OR STRING
(AND SYMBOL (NOT NULL))
CHARACTER), not a SIMPLE-BASE-STRING.
; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BACK-REFERENCE) T)
; (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR STRING SYMBOL
; CHARACTER), not a SIMPLE-BASE-STRING.
; The second argument is a (OR STRING (AND SYMBOL (NOT NULL))
; CHARACTER), not a SIMPLE-BASE-STRING.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR STRING SYMBOL
CHARACTER), not a (SIMPLE-ARRAY
CHARACTER
(*)).
The second argument is a (OR STRING
(AND SYMBOL (NOT NULL))
CHARACTER), not a (SIMPLE-ARRAY
CHARACTER
(*)).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY
; CHARACTER (*)).
; The second argument is a (OR STRING (AND SYMBOL (NOT NULL))
; CHARACTER), not a (SIMPLE-ARRAY CHARACTER (*)).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
; (- CL-PPCRE::REG-NUM CL-PPCRE::REG-INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
; (1- CL-PPCRE::BACKREF-NUMBER)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; (COPY-SEQ CL-PPCRE::BACKREF-NAME)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a UNSIGNED-BYTE, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
The first argument is a T, not a (UNSIGNED-BYTE 32).
The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (- CL-PPCRE::REG-NUM CL-PPCRE::REG-INDEX)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; (1- CL-PPCRE::BACKREF-NUMBER)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a UNSIGNED-BYTE, not a FIXNUM.
The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
&OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a UNSIGNED-BYTE, not a FIXNUM.
The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
&OPTIONAL).
etc.
; (LOOP CL-PPCRE::FOR CL-PPCRE::NAME CL-PPCRE::IN CL-PPCRE::REG-NAMES
; CL-PPCRE::FOR CL-PPCRE::REG-INDEX CL-PPCRE::FROM 0
; WHEN (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME)
; CL-PPCRE::COLLECT ...)
; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY
; --> SB-LOOP::LOOP-DESETQ SETQ THE 1+
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; in: DEFUN CONVERT
; (COERCE (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) 'SIMPLE-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
NULL
(SIMPLE-ARRAY
*
(*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
; (SIMPLE-ARRAY
; * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
; SIMPLE-BASE-STRING
; NULL).
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/cl-ppcre/convert-tmpFHOV2EXD.fasl
; compilation finished in 0:00:00.552
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::CASE-INSENSITIVE-MODE-P in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::MULTI-LINE-MODE-P in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::SINGLE-LINE-MODE-P in DEFMACRO
; compiling file "/usr/share/common-lisp/source/cl-ppcre/optimize.lisp" (written 25 APR 2026 05:58:26 PM):
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
; file: /usr/share/common-lisp/source/cl-ppcre/optimize.lisp
; in: DEFMETHOD GATHER-STRINGS (SEQ)
; (INCF CL-PPCRE::COLLECTOR-LENGTH (CL-PPCRE::LEN CL-PPCRE::ELEMENT))
; --> THE
; ==>
; (+ (CL-PPCRE::LEN CL-PPCRE::ELEMENT) CL-PPCRE::COLLECTOR-LENGTH)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a VECTOR, not a (OR NULL
(SIMPLE-ARRAY
* (*))).
; (MAKE-ARRAY CL-PPCRE::COLLECTOR-LENGTH :INITIAL-CONTENTS CL-PPCRE::COLLECTOR
; :ELEMENT-TYPE 'CHARACTER :FILL-POINTER T :ADJUSTABLE T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a VECTOR, not a (OR NULL (SIMPLE-ARRAY * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a VECTOR, not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a VECTOR, not a (OR SIMPLE-BASE-STRING NULL).
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
The first argument is a T, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (INCF CL-PPCRE::COLLECTOR-LENGTH (CL-PPCRE::LEN CL-PPCRE::ELEMENT))
; --> THE
; ==>
; (+ (CL-PPCRE::LEN CL-PPCRE::ELEMENT) CL-PPCRE::COLLECTOR-LENGTH)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; in: DEFMETHOD START-ANCHORED-P (REPETITION)
; (PLUSP (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 3) because:
The first argument is a T, not a FIXNUM.
unable to do inline fixnum comparison (cost 4) because:
The first argument is a T, not a FIXNUM.
etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a T, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a T, not a FIXNUM.
; etc.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
; in: DEFMETHOD START-ANCHORED-P (REGEX)
; (ZEROP (CL-PPCRE::LEN CL-PPCRE::REGEX))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
; in: DEFMETHOD END-STRING-AUX (SEQ)
; (ZEROP (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a STRING, not a SIMPLE-ARRAY.
; (CHAR CL-PPCRE::STR CL-PPCRE::I)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a VECTOR.
; (MAKE-ARRAY CL-PPCRE::CONCATENATED-LENGTH :INITIAL-CONTENTS
; (REVERSE (CL-PPCRE::STR CL-PPCRE::CONCATENATED-START))
; :ELEMENT-TYPE 'CHARACTER :FILL-POINTER T :ADJUSTABLE T)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a SEQUENCE, not a (OR NULL
(SIMPLE-ARRAY
* (*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a SEQUENCE, not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a SEQUENCE, not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (INCF CL-PPCRE::CONCATENATED-LENGTH CL-PPCRE::LEN)
; --> THE
; ==>
; (+ CL-PPCRE::LEN CL-PPCRE::CONCATENATED-LENGTH)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
; in: DEFMETHOD COMPUTE-MIN-REST (ALTERNATION T)
; (LOOP CL-PPCRE::FOR CL-PPCRE::CHOICE CL-PPCRE::IN (CL-PPCRE::CHOICES
; CL-PPCRE::ALTERNATION)
; CL-PPCRE::MINIMIZE (CL-PPCRE::COMPUTE-MIN-REST CL-PPCRE::CHOICE
; CL-PPCRE::CURRENT-MIN-REST))
; --> LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY
; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF
; ==>
; (< #:MINMAXTMP11 #:MINMAX10)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline float comparison (cost 3) because:
The first argument is a REAL, not a SINGLE-FLOAT.
The second argument is a REAL, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a REAL, not a DOUBLE-FLOAT.
The second argument is a REAL, not a DOUBLE-FLOAT.
etc.
;
; note: forced to do full call
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a DOUBLE-FLOAT.
; etc.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
; in: DEFMETHOD COMPUTE-MIN-REST (BRANCH T)
; (MIN
; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH)
; CL-PPCRE::CURRENT-MIN-REST)
; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH)
; CL-PPCRE::CURRENT-MIN-REST))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline float comparison (cost 3) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a T, not a DOUBLE-FLOAT.
The second argument is a T, not a DOUBLE-FLOAT.
etc.
;
; note: forced to do full call
; unable to do inline float comparison (cost 3) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
The second argument is a NUMBER, not a RATIONAL.
; in: DEFMETHOD COMPUTE-MIN-REST (STR T)
; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::STR))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
The second argument is a NUMBER, not a RATIONAL.
; in: DEFMETHOD COMPUTE-MIN-REST (FILTER T)
; (+ CL-PPCRE::CURRENT-MIN-REST (OR (CL-PPCRE::LEN CL-PPCRE::FILTER) 0))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a NUMBER, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
The second argument is a NUMBER, not a RATIONAL.
; in: DEFMETHOD COMPUTE-MIN-REST (REPETITION T)
; (+ CL-PPCRE::CURRENT-MIN-REST
; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)
; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a T, not a (UNSIGNED-BYTE 32).
The second argument is a T, not a (UNSIGNED-BYTE 32).
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)
; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a NUMBER, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; (+ CL-PPCRE::CURRENT-MIN-REST
; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)
; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
The second argument is a NUMBER, not a RATIONAL.
; in: DEFMETHOD COMPUTE-MIN-REST (LOOKBEHIND T)
; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::LOOKBEHIND))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
; in: DEFMETHOD COMPUTE-MIN-REST (REGEX T)
; (1+ CL-PPCRE::CURRENT-MIN-REST)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/cl-ppcre/optimize-tmp5P00NUE.fasl
; compilation finished in 0:00:00.368
; compiling file "/usr/share/common-lisp/source/cl-ppcre/closures.lisp" (written 25 APR 2026 05:58:26 PM):
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
; file: /usr/share/common-lisp/source/cl-ppcre/closures.lisp
; in: DEFUN *STRING*-EQUAL
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFMETHOD CREATE-MATCHER-AUX (LOOKBEHIND T)
; (FUNCALL CL-PPCRE::TEST-MATCHER (- CL-PPCRE::START-POS CL-PPCRE::LEN))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; in: DEFMETHOD CREATE-MATCHER-AUX (CHAR-CLASS T)
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::CHAR-CLASS
; (SCHAR CL-PPCRE::*STRING*
; CL-PPCRE::START-POS))
; (LAMBDA (CL-PPCRE::START-POS)
; (DECLARE (FIXNUM CL-PPCRE::START-POS))
; (AND (< CL-PPCRE::START-POS CL-PPCRE::*END-POS*)
; (CL-PPCRE::CHAR-CLASS-TEST)
; (FUNCALL CL-PPCRE::NEXT-FN (1+ CL-PPCRE::START-POS)))))
; --> LET LAMBDA FUNCTION AND IF IF FUNCALL
; ==>
; 1
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
; in: DEFMETHOD CREATE-MATCHER-AUX (STR T)
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS) CL-PPCRE::CHR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR VECTOR
SB-KERNEL:EXTENDED-SEQUENCE
CONS), not a VECTOR.
; (LENGTH CL-PPCRE::END-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE
; CONS), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::END-STRING CL-PPCRE::START-POS
; CL-PPCRE::TEST-END-POS 0 CL-PPCRE::END-STRING-LEN)
; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::START-POS
; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN)
; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (+ CL-PPCRE::START-POS CL-PPCRE::LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (FUNCALL CL-PPCRE::NEXT-FN (+ CL-PPCRE::START-POS CL-PPCRE::LEN))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (+ CL-PPCRE::START-POS CL-PPCRE::END-STRING-LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (FUNCALL CL-PPCRE::NEXT-FN (+ CL-PPCRE::START-POS CL-PPCRE::LEN))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (+ CL-PPCRE::START-POS CL-PPCRE::END-STRING-LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (FUNCALL CL-PPCRE::NEXT-FN (+ CL-PPCRE::START-POS CL-PPCRE::LEN))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
; in: DEFMETHOD CREATE-MATCHER-AUX (BACK-REFERENCE T)
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::*STRING* CL-PPCRE::START-POS
; CL-PPCRE::NEXT-POS CL-PPCRE::REG-START CL-PPCRE::REG-END)
; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (+ CL-PPCRE::START-POS
; (- (THE FIXNUM CL-PPCRE::REG-END) (THE FIXNUM CL-PPCRE::REG-START)))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
FN is not known to be a function
; in: DEFMETHOD CREATE-MATCHER-AUX (FILTER T)
; (FUNCALL CL-PPCRE::FN CL-PPCRE::START-POS)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; FN is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
NEXT-FN is not known to be a function
; (FUNCALL CL-PPCRE::NEXT-FN CL-PPCRE::NEXT-POS)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; NEXT-FN is not known to be a function
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/cl-ppcre/closures-tmp94JO3ZTC.fasl
; compilation finished in 0:00:00.588
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::INSERT-CHAR-CLASS-TESTER in DEFMACRO
; compiling file "/usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp" (written 25 APR 2026 05:58:26 PM):
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; file: /usr/share/common-lisp/source/cl-ppcre/repetition-closures.lisp
; in: DEFUN CREATE-GREEDY-EVERYTHING-MATCHER
; (- CL-PPCRE::*END-POS* CL-PPCRE::MIN-REST)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (MIN (+ CL-PPCRE::START-POS CL-PPCRE::MAXIMUM)
; (- CL-PPCRE::*END-POS* CL-PPCRE::MIN-REST))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; in: DEFMETHOD CREATE-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T)
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX
; (SCHAR CL-PPCRE::*STRING*
; CL-PPCRE::CURR-POS))
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST)))
; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET BLOCK
; --> TAGBODY WHEN IF FUNCALL
; ==>
; 1
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
; CL-PPCRE::LEN)
; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
; CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX
; (SCHAR CL-PPCRE::*STRING*
; CL-PPCRE::CURR-POS))
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST)))
; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS))
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION LET 1+
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION LET BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE
; ==>
; (+ CL-PPCRE::LEN CL-PPCRE::CURR-POS)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION LET BLOCK TAGBODY DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION LET BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE
; ==>
; (+ CL-PPCRE::LEN CL-PPCRE::CURR-POS)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION LET BLOCK TAGBODY DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET 1+
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION LET BLOCK TAGBODY DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> LAMBDA FUNCTION LET BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION LET BLOCK TAGBODY DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> LAMBDA FUNCTION LET BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX
; (SCHAR CL-PPCRE::*STRING*
; CL-PPCRE::CURR-POS))
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST)))
; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 1+
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET BLOCK
; --> TAGBODY DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET BLOCK
; --> TAGBODY WHEN IF PROGN INCF SETQ THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET BLOCK
; --> TAGBODY DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET BLOCK
; --> TAGBODY WHEN IF PROGN INCF SETQ THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET 1+
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE
; ==>
; (+ CL-PPCRE::LEN CL-PPCRE::CURR-POS)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION LET BLOCK TAGBODY DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE
; ==>
; (+ CL-PPCRE::LEN CL-PPCRE::CURR-POS)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION LET BLOCK TAGBODY DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
; CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET 1+
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
; CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE
; ==>
; (+ CL-PPCRE::LEN CL-PPCRE::CURR-POS)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION LET BLOCK TAGBODY DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
; CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE
; ==>
; (+ CL-PPCRE::LEN CL-PPCRE::CURR-POS)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION LET BLOCK TAGBODY DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET 1+
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION LET BLOCK TAGBODY DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> LAMBDA FUNCTION LET BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION LET BLOCK TAGBODY DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> LAMBDA FUNCTION LET BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET 1+
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION LET BLOCK TAGBODY DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> LAMBDA FUNCTION LET BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION LET BLOCK TAGBODY DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK
; ==>
; (- SB-IMPL::B SB-IMPL::A)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> LAMBDA FUNCTION LET BLOCK TAGBODY WHEN IF PROGN INCF SETQ THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T)
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> + AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> SB-IMPL::XSUBTRACT AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; in: DEFMETHOD CREATE-GREEDY-MATCHER (REPETITION T)
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> + AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> SB-IMPL::XSUBTRACT AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; in: DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T)
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX
; (SCHAR CL-PPCRE::*STRING*
; CL-PPCRE::CURR-POS))
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST)))
; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET
; --> LOOP BLOCK LET LET TAGBODY UNLESS IF FUNCALL
; ==>
; 1
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
; CL-PPCRE::LEN)
; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
; CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX
; (SCHAR CL-PPCRE::*STRING*
; CL-PPCRE::CURR-POS))
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST)))
; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET
; --> MIN
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS))
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> LAMBDA FUNCTION LET 1+
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ
; --> THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ
; --> THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET 1+
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; --> LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ
; --> THE
; ==>
; (+ CL-PPCRE::CURR-POS #:STEP118)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; --> LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ
; --> THE
; ==>
; (+ CL-PPCRE::CURR-POS #:STEP113)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T)
; --> LAMBDA FUNCTION LET 1+
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ
; --> THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ
; --> THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX
; (SCHAR CL-PPCRE::*STRING*
; CL-PPCRE::CURR-POS))
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST)))
; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET
; --> 1+
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET
; --> LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE
; ==>
; (+ CL-PPCRE::CURR-POS #:STEP102)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET
; --> MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET
; --> LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE
; ==>
; (+ CL-PPCRE::CURR-POS #:STEP97)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET
; --> MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET 1+
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ
; --> THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ
; --> THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
; CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET 1+
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
; CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ
; --> THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0
; CL-PPCRE::LEN))
; --> LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ
; --> THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET 1+
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; --> LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ
; --> THE
; ==>
; (+ CL-PPCRE::CURR-POS #:STEP68)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; --> LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ
; --> THE
; ==>
; (+ CL-PPCRE::CURR-POS #:STEP63)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE
; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)))
; --> LAMBDA FUNCTION LET 1+
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; --> LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ
; --> THE
; ==>
; (+ CL-PPCRE::CURR-POS #:STEP60)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; --> LAMBDA FUNCTION LET LOOP BLOCK LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ
; --> THE
; ==>
; (+ CL-PPCRE::CURR-POS #:STEP55)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> LAMBDA FUNCTION LET MIN
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; in: DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER (REPETITION T)
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> + AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> SB-IMPL::XSUBTRACT AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; in: DEFMETHOD CREATE-NON-GREEDY-MATCHER (REPETITION T)
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> + AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> SB-IMPL::XSUBTRACT AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; in:
; DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER (REPETITION T)
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX
; (SCHAR CL-PPCRE::*STRING*
; CL-PPCRE::CURR-POS))
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS))))
; --> LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA FUNCTION
; --> LET AND IF IF LOOP BLOCK LET TAGBODY UNLESS IF AND IF FUNCALL
; ==>
; 1
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS CL-PPCRE::NEXT-POS
; 0 CL-PPCRE::LEN)
; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX)
; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (LET ((CL-PPCRE::NEXT-POS (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)))
; (DECLARE (FIXNUM CL-PPCRE::NEXT-POS))
; (AND
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN)
; CL-PPCRE::NEXT-POS)))
; --> FUNCTION LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; (1+ CL-PPCRE::CURR-POS)))
; --> FUNCTION LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND
; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; (1+ CL-PPCRE::CURR-POS)))
; --> FUNCTION LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (LET ((CL-PPCRE::NEXT-POS (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)))
; (DECLARE (FIXNUM CL-PPCRE::NEXT-POS))
; (AND
; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS CL-PPCRE::NEXT-POS
; 0 CL-PPCRE::LEN)
; CL-PPCRE::NEXT-POS)))
; --> FUNCTION LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX
; (SCHAR CL-PPCRE::*STRING*
; CL-PPCRE::CURR-POS))
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS))))
; --> LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA FUNCTION
; --> LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; (1+ CL-PPCRE::CURR-POS)))
; --> FUNCTION LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
&OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS))
; --> FUNCTION LET + THE
; ==>
; (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -288230375614840832 288230376151711744)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> FUNCTION LET
; ==>
; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> FUNCTION LET AND IF IF LOOP BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ
; --> THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; (1+ CL-PPCRE::CURR-POS)))
; --> FUNCTION LET
; ==>
; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; --> FUNCTION LET AND IF IF LOOP BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ
; --> THE
; ==>
; (+ CL-PPCRE::CURR-POS #:STEP37)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (+ CL-PPCRE::START-POS CL-PPCRE::REPETITIONS)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX
; (SCHAR CL-PPCRE::*STRING*
; CL-PPCRE::CURR-POS))
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS))))
; --> LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA FUNCTION
; --> LET
; ==>
; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; --> LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA FUNCTION
; --> LET AND IF IF LOOP BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE
; ==>
; (+ CL-PPCRE::CURR-POS #:STEP35)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (LET ((CL-PPCRE::NEXT-POS (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)))
; (DECLARE (FIXNUM CL-PPCRE::NEXT-POS))
; (AND
; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS CL-PPCRE::NEXT-POS
; 0 CL-PPCRE::LEN)
; CL-PPCRE::NEXT-POS)))
; --> FUNCTION LET
; ==>
; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (LET ((CL-PPCRE::NEXT-POS (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)))
; (DECLARE (FIXNUM CL-PPCRE::NEXT-POS))
; (AND
; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS CL-PPCRE::NEXT-POS
; 0 CL-PPCRE::LEN)
; CL-PPCRE::NEXT-POS)))
; --> FUNCTION LET AND IF IF LOOP BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ
; --> THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (LET ((CL-PPCRE::NEXT-POS (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)))
; (DECLARE (FIXNUM CL-PPCRE::NEXT-POS))
; (AND
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN)
; CL-PPCRE::NEXT-POS)))
; --> FUNCTION LET
; ==>
; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (LET ((CL-PPCRE::NEXT-POS (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN)))
; (DECLARE (FIXNUM CL-PPCRE::NEXT-POS))
; (AND
; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS
; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN)
; CL-PPCRE::NEXT-POS)))
; --> FUNCTION LET AND IF IF LOOP BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ
; --> THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; (1+ CL-PPCRE::CURR-POS)))
; --> FUNCTION LET
; ==>
; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; --> FUNCTION LET AND IF IF LOOP BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ
; --> THE
; ==>
; (+ CL-PPCRE::CURR-POS #:STEP23)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE
; (AND
; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))
; (1+ CL-PPCRE::CURR-POS)))
; --> FUNCTION LET
; ==>
; (+ CL-PPCRE::START-POS (THE FIXNUM (* CL-PPCRE::LEN CL-PPCRE::REPETITIONS)))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; --> FUNCTION LET AND IF IF LOOP BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ
; --> THE
; ==>
; (+ CL-PPCRE::CURR-POS #:STEP21)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T)
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> + AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> SB-IMPL::XSUBTRACT AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
; (ZEROP (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> + AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM))
; --> SB-IMPL::XSUBTRACT AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (VECTOR
FIXNUM), not a SIMPLE-ARRAY.
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (VECTOR FIXNUM), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
; in: DEFMETHOD CREATE-MATCHER-AUX (REPETITION T)
; (ZEROP CL-PPCRE::MAXIMUM)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
; (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a DOUBLE-FLOAT.
The second argument is a T, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a DOUBLE-FLOAT.
The second argument is a T, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; (PLUSP CL-PPCRE::MIN-LEN)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; (PLUSP CL-PPCRE::LEN)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; (PLUSP CL-PPCRE::MIN-LEN)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline float comparison (cost 3) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a T, not a DOUBLE-FLOAT.
The second argument is a T, not a DOUBLE-FLOAT.
; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1)
;
; note: forced to do full call
; unable to do inline float comparison (cost 3) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 4) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
unable to do inline (unsigned-byte 32) comparison (cost 6) because:
The first argument is a T, not a (UNSIGNED-BYTE 32).
The second argument is a T, not a (UNSIGNED-BYTE 32).
etc.
; (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 4) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
unable to do inline (unsigned-byte 32) comparison (cost 6) because:
The first argument is a T, not a (UNSIGNED-BYTE 32).
The second argument is a T, not a (UNSIGNED-BYTE 32).
etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 3) because:
The first argument is a T, not a FIXNUM.
unable to do inline fixnum comparison (cost 4) because:
The first argument is a T, not a FIXNUM.
etc.
; (PLUSP CL-PPCRE::MIN-LEN)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a T, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a T, not a FIXNUM.
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 3) because:
The first argument is a T, not a FIXNUM.
unable to do inline fixnum comparison (cost 4) because:
The first argument is a T, not a FIXNUM.
etc.
; (PLUSP CL-PPCRE::LEN)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a T, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a T, not a FIXNUM.
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 3) because:
The first argument is a T, not a FIXNUM.
unable to do inline fixnum comparison (cost 4) because:
The first argument is a T, not a FIXNUM.
etc.
; (PLUSP CL-PPCRE::MIN-LEN)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a T, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a T, not a FIXNUM.
; etc.
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/cl-ppcre/repetition-closures-tmp6OFDFVAR.fasl
; compilation finished in 0:00:01.216
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::INCF-AFTER in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE in DEFMACRO
; compiling file "/usr/share/common-lisp/source/cl-ppcre/scanner.lisp" (written 25 APR 2026 05:58:26 PM):
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
; file: /usr/share/common-lisp/source/cl-ppcre/scanner.lisp
; in: DEFUN CREATE-BMH-MATCHER
; (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T)
; --> FUNCTION IF LOOP BLOCK LET TAGBODY LOOP BLOCK LET LET TAGBODY UNLESS IF
; --> AND IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::I)
; (SCHAR CL-PPCRE::PATTERN CL-PPCRE::J))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; (LENGTH CL-PPCRE::PATTERN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-UPCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
; (CHAR-DOWNCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K))
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; (SEARCH CL-PPCRE::PATTERN CL-PPCRE::*STRING* :START2 CL-PPCRE::START-POS
; :END2 CL-PPCRE::*END-POS* :TEST CL-PPCRE::TEST)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; (CL-PPCRE::BMH-MATCHER-AUX)
; --> FUNCTION IF OR LET IF > THE
; ==>
; (+ CL-PPCRE::START-POS CL-PPCRE::M)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> FUNCTION IF LOOP BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T)
; --> FUNCTION IF OR LET IF > THE
; ==>
; (+ CL-PPCRE::START-POS CL-PPCRE::M)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> FUNCTION IF LOOP BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
; in: DEFUN CREATE-CHAR-SEARCHER
; (CL-PPCRE::CHAR-SEARCHER-AUX :CASE-INSENSITIVE-P T)
; --> FUNCTION AND IF LOOP BLOCK LET LET TAGBODY WHEN IF SETQ AND IF
; ==>
; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::I) CL-PPCRE::CHR)
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
The second argument is a NUMBER, not a RATIONAL.
; in: DEFUN CREATE-SCANNER-AUX
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF
; ==>
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF INCF SETQ
; ==>
; (+ 1 CL-PPCRE::*END-STRING-POS*)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST))
; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF
; --> NOT
; ==>
; 1
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
The second argument is a NUMBER, not a RATIONAL.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF
; ==>
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF INCF SETQ
; ==>
; (+ 1 CL-PPCRE::*END-STRING-POS*)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF
; --> NOT
; ==>
; 1
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
The second argument is a NUMBER, not a RATIONAL.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF
; ==>
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF INCF SETQ
; ==>
; (+ 1 CL-PPCRE::*END-STRING-POS*)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST))
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF
; --> NOT
; ==>
; 1
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
The second argument is a NUMBER, not a RATIONAL.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF
; ==>
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF INCF SETQ
; ==>
; (+ 1 CL-PPCRE::*END-STRING-POS*)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST))
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF
; --> NOT
; ==>
; 1
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
The second argument is a NUMBER, not a RATIONAL.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF
; ==>
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF INCF SETQ
; ==>
; (+ 1 CL-PPCRE::*END-STRING-POS*)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST))
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF
; --> NOT
; ==>
; 1
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
The second argument is a NUMBER, not a RATIONAL.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF
; ==>
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF INCF SETQ
; ==>
; (+ 1 CL-PPCRE::*END-STRING-POS*)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET)
; (FUNCTION CL-PPCRE::END-STRING-TEST))
; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (LOCALLY
; (DECLARE #)
; (WHEN # #)
; (LET #
; #)))))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF
; --> NOT
; ==>
; 1
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
The second argument is a NUMBER, not a RATIONAL.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF
; ==>
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF INCF SETQ
; ==>
; (+ 1 CL-PPCRE::*END-STRING-POS*)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN)
; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST))
; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (LOCALLY
; (DECLARE #)
; (WHEN # #)
; (LET #
; #)))))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF
; --> NOT
; ==>
; 1
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
The second argument is a NUMBER, not a RATIONAL.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF
; ==>
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF INCF SETQ
; ==>
; (+ 1 CL-PPCRE::*END-STRING-POS*)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
The second argument is a CHARACTER, not a BASE-CHAR.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF
; --> NOT
; ==>
; 1
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The first argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The first argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: unable to
open code
due to type uncertainty:
The second argument is a CHARACTER, not a BASE-CHAR.
;
; note: unable to
; open code
; due to type uncertainty:
; The second argument is a CHARACTER, not a BASE-CHAR.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 4) because:
The first argument is a NUMBER, not a FIXNUM.
unable to do inline (unsigned-byte 32) comparison (cost 6) because:
The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
etc.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF
; ==>
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a NUMBER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF INCF SETQ
; ==>
; (+ 1 CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST))
; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 4) because:
The first argument is a NUMBER, not a FIXNUM.
unable to do inline (unsigned-byte 32) comparison (cost 6) because:
The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
etc.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF
; ==>
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a NUMBER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF INCF SETQ
; ==>
; (+ 1 CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 4) because:
The first argument is a NUMBER, not a FIXNUM.
unable to do inline (unsigned-byte 32) comparison (cost 6) because:
The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
etc.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF
; ==>
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a NUMBER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF INCF SETQ
; ==>
; (+ 1 CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST))
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 4) because:
The first argument is a NUMBER, not a FIXNUM.
unable to do inline (unsigned-byte 32) comparison (cost 6) because:
The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
etc.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF
; ==>
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a NUMBER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF INCF SETQ
; ==>
; (+ 1 CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST))
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 4) because:
The first argument is a NUMBER, not a FIXNUM.
unable to do inline (unsigned-byte 32) comparison (cost 6) because:
The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
etc.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF
; ==>
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a NUMBER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF INCF SETQ
; ==>
; (+ 1 CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST))
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 4) because:
The first argument is a NUMBER, not a FIXNUM.
unable to do inline (unsigned-byte 32) comparison (cost 6) because:
The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
etc.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF
; ==>
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a NUMBER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF INCF SETQ
; ==>
; (+ 1 CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET)
; (FUNCTION CL-PPCRE::END-STRING-TEST))
; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (LOCALLY
; (DECLARE #)
; (WHEN # #)
; (LET #
; #)))))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 4) because:
The first argument is a NUMBER, not a FIXNUM.
unable to do inline (unsigned-byte 32) comparison (cost 6) because:
The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
etc.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF
; ==>
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a NUMBER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF INCF SETQ
; ==>
; (+ 1 CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN)
; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST))
; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (LOCALLY
; (DECLARE #)
; (WHEN # #)
; (LET #
; #)))))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF <
; ==>
; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 4) because:
The first argument is a NUMBER, not a FIXNUM.
unable to do inline (unsigned-byte 32) comparison (cost 6) because:
The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
etc.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF AND IF
; ==>
; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN)
; CL-PPCRE::*END-POS*)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a NUMBER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a NUMBER, not a (UNSIGNED-BYTE 32).
; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 32).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF IF INCF SETQ
; ==>
; (+ 1 CL-PPCRE::*END-STRING-POS*)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the second argument of IF-EQ
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF =
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the second argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF IF AND
; --> IF NOT
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF
; --> NOT
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN WHEN IF SETQ THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the second argument of IF-EQ
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST))
; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF =
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the second argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF IF AND
; --> IF NOT
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF
; --> NOT
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN WHEN IF SETQ THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the second argument of IF-EQ
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF =
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the second argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF IF AND
; --> IF NOT
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF
; --> NOT
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN WHEN IF SETQ THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the second argument of IF-EQ
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST))
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF =
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the second argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF IF AND
; --> IF NOT
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF
; --> NOT
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN WHEN IF SETQ THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the second argument of IF-EQ
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST))
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF =
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the second argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF IF AND
; --> IF NOT
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF
; --> NOT
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN WHEN IF SETQ THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the second argument of IF-EQ
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST))
; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*))
; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS))
; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #)
; (RETURN-FROM CL-PPCRE:SCAN NIL))
; CL-PPCRE::POS))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF =
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the second argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF IF AND
; --> IF NOT
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF
; --> NOT
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN WHEN IF SETQ THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of IF-EQ
; (= CL-PPCRE::POS
; (- (THE FIXNUM CL-PPCRE::*END-STRING-POS*) CL-PPCRE::END-STRING-OFFSET))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (- (THE FIXNUM CL-PPCRE::*END-STRING-POS*) CL-PPCRE::END-STRING-OFFSET)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of IF-EQ
; (= CL-PPCRE::POS
; (- (THE FIXNUM CL-PPCRE::*END-STRING-POS*) CL-PPCRE::END-STRING-OFFSET))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (- (THE FIXNUM CL-PPCRE::*END-STRING-POS*) CL-PPCRE::END-STRING-OFFSET)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the second argument of IF-EQ
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET)
; (FUNCTION CL-PPCRE::END-STRING-TEST))
; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (LOCALLY
; (DECLARE #)
; (WHEN # #)
; (LET #
; #)))))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF =
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the second argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF IF AND
; --> IF NOT
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF
; --> NOT
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN WHEN IF SETQ THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of IF-EQ
; (= CL-PPCRE::POS
; (- (THE FIXNUM CL-PPCRE::*END-STRING-POS*) CL-PPCRE::END-STRING-OFFSET))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20) from TRY-POS
; (FUNCALL CL-PPCRE::END-STRING-TEST CL-PPCRE::TRY-POS)
;
; note: doing signed word to integer coercion (cost 20) from TRY-POS
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (- (THE FIXNUM CL-PPCRE::*END-STRING-POS*) CL-PPCRE::END-STRING-OFFSET)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of IF-EQ
; (= CL-PPCRE::POS
; (- (THE FIXNUM CL-PPCRE::*END-STRING-POS*) CL-PPCRE::END-STRING-OFFSET))
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20) from TRY-POS
; (FUNCALL CL-PPCRE::END-STRING-TEST CL-PPCRE::TRY-POS)
;
; note: doing signed word to integer coercion (cost 20) from TRY-POS
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; (- (THE FIXNUM CL-PPCRE::*END-STRING-POS*) CL-PPCRE::END-STRING-OFFSET)
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the second argument of IF-EQ
; (CL-PPCRE::INSERT-ADVANCE-FN
; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS)
; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN)
; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST))
; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL))
; (LOCALLY
; (DECLARE #)
; (WHEN # #)
; (LET #
; #)))))
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY
; --> PROGN LET COND IF =
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the second argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF IF AND
; --> IF NOT
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first result of inline (signed-byte 32) arithmetic
; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF
; --> NOT
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first result of inline (signed-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN LET
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of defaulted
; --> FUNCTION BLOCK LET* LABELS WHEN IF PROGN WHEN IF SETQ THE
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of defaulted
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/cl-ppcre/scanner-tmpRYWTYMDY.fasl
; compilation finished in 0:00:02.192
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::BMH-MATCHER-AUX in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::CHAR-SEARCHER-AUX in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::INSERT-ADVANCE-FN in DEFMACRO
; compiling file "/usr/share/common-lisp/source/cl-ppcre/api.lisp" (written 25 APR 2026 05:58:26 PM):
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; 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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; in: DEFMETHOD CREATE-SCANNER (T)
; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
; (= 1 (CL-PPCRE::LEN CL-PPCRE::END-STRING))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
; (= 1 (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 3) because:
The first argument is a T, not a FIXNUM.
unable to do inline fixnum comparison (cost 4) because:
The first argument is a T, not a FIXNUM.
etc.
; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING))
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a T, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a T, not a FIXNUM.
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 3) because:
The first argument is a T, not a FIXNUM.
unable to do inline fixnum comparison (cost 4) because:
The first argument is a T, not a FIXNUM.
etc.
; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH))
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a T, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a T, not a FIXNUM.
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFMETHOD SCAN (STRING T)
; (LENGTH CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::REGEX-STRING)
; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING)
; CL-PPCRE::START CL-PPCRE::END)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
NULL
(SIMPLE-ARRAY
*
(*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
; (SIMPLE-ARRAY
; * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
; SIMPLE-BASE-STRING
; NULL).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFMETHOD SCAN #'T
; (LENGTH CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
NULL
(SIMPLE-ARRAY
*
(*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
; (SIMPLE-ARRAY
; * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
; SIMPLE-BASE-STRING
; NULL).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFMETHOD SCAN (T T)
; (LENGTH CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::PARSE-TREE)
; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING)
; CL-PPCRE::START CL-PPCRE::END)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
NULL
(SIMPLE-ARRAY
*
(*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
; (SIMPLE-ARRAY
; * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
; SIMPLE-BASE-STRING
; NULL).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFUN SCAN-TO-STRINGS
; (MAP 'VECTOR
; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END)
; (IF CL-PPCRE::REG-START
; (FUNCALL CL-PPCRE::SUBSTR-FN CL-PPCRE::TARGET-STRING
; CL-PPCRE::REG-START CL-PPCRE::REG-END)
; NIL))
; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; (LENGTH CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; (MAP 'VECTOR
; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END)
; (IF CL-PPCRE::REG-START
; (FUNCALL CL-PPCRE::SUBSTR-FN CL-PPCRE::TARGET-STRING
; CL-PPCRE::REG-START CL-PPCRE::REG-END)
; NIL))
; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; (FUNCALL CL-PPCRE::SUBSTR-FN CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
&OPTIONAL-AND-&KEY-IN-LAMBDA-LIST: &OPTIONAL and &KEY found in the same lambda list: (MATCH-START
MATCH-END
REG-STARTS
REG-ENDS
REGEX
TARGET-STRING
&OPTIONAL
RESULT-FORM
&KEY
START
END)
; in: DEFMACRO DO-SCANS
; (DEFMACRO CL-PPCRE:DO-SCANS
; (
; (CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END
; CL-PPCRE::REG-STARTS
; CL-PPCRE::REG-ENDS
; CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; &OPTIONAL
; CL-PPCRE::RESULT-FORM
; &KEY
; CL-PPCRE::START
; CL-PPCRE::END)
; &BODY CL-PPCRE::BODY &ENVIRONMENT CL-PPCRE::ENV)
; #<(SIMPLE-ARRAY CHARACTER
; (495)) Iterates over TARGET-STRING and tries to match REGEX as often as
; possible evaluating BODY with MATCH-START, MATCH-END, REG-STARTS, and
; REG-ENDS bound to the four return values of each match in turn. ... {51CC080F}>
; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING)
; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::%START CL-PPCRE::%END
; CL-PPCRE::%REGEX CL-PPCRE::SCANNER)
; (DECLARE (IGNORABLE CL-PPCRE::%REGEX CL-PPCRE::SCANNER))
; `(BLOCK NIL
; (LET* #
; #
; #)))))
;
; caught STYLE-WARNING:
; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END
; REG-STARTS REG-ENDS REGEX
; TARGET-STRING &OPTIONAL
; RESULT-FORM &KEY START END)
&OPTIONAL-AND-&KEY-IN-LAMBDA-LIST: &OPTIONAL and &KEY found in the same lambda list: (MATCH-START
MATCH-END
REGEX
TARGET-STRING
&OPTIONAL
RESULT-FORM
&KEY
START
END)
; in: DEFMACRO DO-MATCHES
; (DEFMACRO CL-PPCRE:DO-MATCHES
; (
; (CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END
; CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; &OPTIONAL
; CL-PPCRE::RESULT-FORM
; &KEY
; CL-PPCRE::START
; CL-PPCRE::END)
; &BODY CL-PPCRE::BODY)
; #<(SIMPLE-ARRAY CHARACTER
; (477)) Iterates over TARGET-STRING and tries to match REGEX as often as
; possible evaluating BODY with MATCH-START and MATCH-END bound to the
; start/end positions of each match in turn. After the last match,
; ... {51EFF80F}>
; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS)
; `(CL-PPCRE:DO-SCANS (,CL-PPCRE::MATCH-START ,CL-PPCRE::MATCH-END
; ,CL-PPCRE::REG-STARTS ,CL-PPCRE::REG-ENDS
; ,CL-PPCRE::REGEX ,CL-PPCRE::TARGET-STRING
; ,CL-PPCRE::RESULT-FORM :START ,CL-PPCRE::START :END
; ,CL-PPCRE::END)
; ,@CL-PPCRE::BODY)))
;
; caught STYLE-WARNING:
; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END REGEX
; TARGET-STRING &OPTIONAL
; RESULT-FORM &KEY START END)
&OPTIONAL-AND-&KEY-IN-LAMBDA-LIST: &OPTIONAL and &KEY found in the same lambda list: (MATCH-VAR
REGEX
TARGET-STRING
&OPTIONAL
RESULT-FORM
&KEY
START
END
SHAREDP)
; in: DEFMACRO DO-MATCHES-AS-STRINGS
; (DEFMACRO CL-PPCRE:DO-MATCHES-AS-STRINGS
; (
; (CL-PPCRE::MATCH-VAR
; CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; &OPTIONAL
; CL-PPCRE::RESULT-FORM
; &KEY
; CL-PPCRE::START
; CL-PPCRE::END
; CL-PPCRE::SHAREDP)
; &BODY CL-PPCRE::BODY)
; #<(SIMPLE-ARRAY CHARACTER
; (569)) Iterates over TARGET-STRING and tries to match REGEX as often as
; possible evaluating BODY with MATCH-VAR bound to the substring of
; TARGET-STRING corresponding to each match in turn. After the last
; ma... {51FB8007}>
; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING)
; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::SUBSTR-FN)
; `(LET (#)
; (CL-PPCRE:DO-MATCHES #
; #)))))
;
; caught STYLE-WARNING:
; &OPTIONAL and &KEY found in the same lambda list: (MATCH-VAR REGEX
; TARGET-STRING &OPTIONAL
; RESULT-FORM &KEY START END
; SHAREDP)
&OPTIONAL-AND-&KEY-IN-LAMBDA-LIST: &OPTIONAL and &KEY found in the same lambda list: (REGEX
TARGET-STRING
&OPTIONAL
RESULT-FORM
&KEY
START
END
SHAREDP)
; in: DEFMACRO DO-REGISTER-GROUPS
; (DEFMACRO CL-PPCRE:DO-REGISTER-GROUPS
; (CL-PPCRE::VAR-LIST
; (CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; &OPTIONAL
; CL-PPCRE::RESULT-FORM
; &KEY
; CL-PPCRE::START
; CL-PPCRE::END
; CL-PPCRE::SHAREDP)
; &BODY CL-PPCRE::BODY)
; #<(SIMPLE-ARRAY CHARACTER
; (820)) Iterates over TARGET-STRING and tries to match REGEX as often as
; possible evaluating BODY with the variables in VAR-LIST bound to the
; corresponding register groups for each match in turn, i.e. each
; va... {520AC007}>
; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING)
; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::SUBSTR-FN CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END CL-PPCRE::REG-STARTS
; CL-PPCRE::REG-ENDS CL-PPCRE::START-INDEX)
; `(LET (#)
; (CL-PPCRE:DO-SCANS #
; #)))))
;
; caught STYLE-WARNING:
; &OPTIONAL and &KEY found in the same lambda list: (REGEX TARGET-STRING
; &OPTIONAL RESULT-FORM
; &KEY START END SHAREDP)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFUN COUNT-MATCHES
; (LENGTH CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; (CL-PPCRE:DO-MATCHES (CL-PPCRE::S CL-PPCRE::E CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING COUNT :START CL-PPCRE::START
; :END CL-PPCRE::END)
; (INCF COUNT))
; --> LET BLOCK LET* OR LET IF
; ==>
; (LENGTH #:TARGET-STRING3)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; --> LET BLOCK LET* SETQ CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF
; --> THE COERCE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
NULL
(SIMPLE-ARRAY
*
(*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
; (SIMPLE-ARRAY
; * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
; SIMPLE-BASE-STRING
; NULL).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF
; ==>
; (= CL-PPCRE::S CL-PPCRE::E)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF 1+
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a UNSIGNED-BYTE, not a FIXNUM.
The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
&OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a UNSIGNED-BYTE, not a FIXNUM.
The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
&OPTIONAL).
etc.
; (INCF COUNT)
; ==>
; (+ 1 COUNT)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
The second argument is a T, not a DOUBLE-FLOAT.
; (CL-PPCRE:DO-MATCHES (CL-PPCRE::S CL-PPCRE::E CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING COUNT :START CL-PPCRE::START
; :END CL-PPCRE::END)
; (INCF COUNT))
; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF
; ==>
; (= CL-PPCRE::S CL-PPCRE::E)
;
; note: forced to do full call
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a NUMBER, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a NUMBER, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF 1+
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFUN ALL-MATCHES
; (LENGTH CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; (CL-PPCRE:DO-MATCHES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REGEX CL-PPCRE::TARGET-STRING
; (NREVERSE CL-PPCRE::RESULT-LIST) :START CL-PPCRE::START
; :END CL-PPCRE::END)
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::RESULT-LIST)
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::RESULT-LIST))
; --> LET BLOCK LET* OR LET IF
; ==>
; (LENGTH #:TARGET-STRING3)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; --> LET BLOCK LET* SETQ CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF
; --> THE COERCE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
NULL
(SIMPLE-ARRAY
*
(*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
; (SIMPLE-ARRAY
; * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
; SIMPLE-BASE-STRING
; NULL).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF 1+
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
The second argument is a T, not a DOUBLE-FLOAT.
; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: forced to do full call
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a NUMBER, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a NUMBER, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF 1+
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFUN ALL-MATCHES-AS-STRINGS
; (LENGTH CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; (CL-PPCRE:DO-MATCHES-AS-STRINGS (CL-PPCRE::MATCH CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING
; (NREVERSE CL-PPCRE::RESULT-LIST) :START
; CL-PPCRE::START :END CL-PPCRE::END :SHAREDP
; CL-PPCRE::SHAREDP)
; (PUSH CL-PPCRE::MATCH CL-PPCRE::RESULT-LIST))
; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* OR LET IF
; ==>
; (LENGTH #:TARGET-STRING7)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ
; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE COERCE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
NULL
(SIMPLE-ARRAY
*
(*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
; (SIMPLE-ARRAY
; * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
; SIMPLE-BASE-STRING
; NULL).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK
; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ IF
; ==>
; (= #:MATCH-START2 #:MATCH-END3)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK
; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ IF 1+
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
The second argument is a T, not a DOUBLE-FLOAT.
; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK
; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ IF
; ==>
; (= #:MATCH-START2 #:MATCH-END3)
;
; note: forced to do full call
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a NUMBER, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a NUMBER, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK
; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ IF 1+
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFUN SPLIT
; (LENGTH CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END
; CL-PPCRE::END)
; (UNLESS
; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)))
; (WHEN
; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT))
; (RETURN))
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
; (WHEN CL-PPCRE::WITH-REGISTERS-P
; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS
; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS
; IF CL-PPCRE::REG-START
; DO ...))
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)))
; --> BLOCK LET* OR LET IF
; ==>
; (LENGTH #:TARGET-STRING1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; --> BLOCK LET* SETQ CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE
; --> COERCE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
NULL
(SIMPLE-ARRAY
*
(*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
; (SIMPLE-ARRAY
; * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
; SIMPLE-BASE-STRING
; NULL).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; (PLUSP CL-PPCRE::LIMIT)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS
; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS
; IF CL-PPCRE::REG-START
; DO ...)
; --> LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET LET
; --> MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION LET TAGBODY
; --> SB-LOOP::LOOP-DESETQ SETQ AREF
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
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-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END
; CL-PPCRE::END)
; (UNLESS
; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)))
; (WHEN
; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT))
; (RETURN))
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
; (WHEN CL-PPCRE::WITH-REGISTERS-P
; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS
; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS
; IF CL-PPCRE::REG-START
; DO ...))
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)))
; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF 1+
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
The second argument is a REAL, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
; The second argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
The second argument is a T, not a DOUBLE-FLOAT.
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: forced to do full call
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline float comparison (cost 3) because:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
The second argument is a T, not a DOUBLE-FLOAT.
; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))
;
; note: forced to do full call
; unable to do inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 3) because:
The first argument is a (NOT NULL), not a FIXNUM.
unable to do inline fixnum comparison (cost 4) because:
The first argument is a (NOT NULL), not a FIXNUM.
etc.
; (PLUSP CL-PPCRE::LIMIT)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a UNSIGNED-BYTE, not a FIXNUM.
The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
&OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a UNSIGNED-BYTE, not a FIXNUM.
The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
&OPTIONAL).
etc.
; (INCF CL-PPCRE::COUNTER)
; ==>
; (+ 1 CL-PPCRE::COUNTER)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline float comparison (cost 3) because:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
The second argument is a NUMBER, not a DOUBLE-FLOAT.
; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END
; CL-PPCRE::END)
; (UNLESS
; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)))
; (WHEN
; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT))
; (RETURN))
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
; (WHEN CL-PPCRE::WITH-REGISTERS-P
; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS
; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS
; IF CL-PPCRE::REG-START
; DO ...))
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)))
; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: forced to do full call
; unable to do inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a NUMBER, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a NUMBER, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF 1+
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline float comparison (cost 3) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a (NOT NULL), not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a T, not a DOUBLE-FLOAT.
The second argument is a (NOT NULL), not a DOUBLE-FLOAT.
etc.
; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START)
;
; note: forced to do full call
; unable to do inline float comparison (cost 3) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a (NOT NULL), not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a (NOT NULL), not a DOUBLE-FLOAT.
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a STRING, not a SIMPLE-ARRAY.
; in: DEFUN STRING-CASE-MODIFIER
; (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a STRING, not a SIMPLE-ARRAY.
; (CHAR CL-PPCRE::STR CL-PPCRE::FROM)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a STRING, not a SIMPLE-ARRAY.
; (CHAR CL-PPCRE::STR CL-PPCRE::TO)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a STRING, not a SIMPLE-ARRAY.
; (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a STRING, not a SIMPLE-ARRAY.
; (CHAR CL-PPCRE::STR CL-PPCRE::INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
expand inline
because:
upgraded array element type not known at compile time
; in: DEFMETHOD BUILD-REPLACEMENT-TEMPLATE (STRING)
; (POSITION-IF #'CL-PPCRE::DIGIT-CHAR-P CL-PPCRE::REPLACEMENT-STRING :START
; CL-PPCRE::MATCH-START :END CL-PPCRE::MATCH-END)
;
; note: unable to
; expand inline
; because:
; upgraded array element type not known at compile time
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a STRING, not a SIMPLE-ARRAY.
; (CHAR CL-PPCRE::REPLACEMENT-STRING (1+ CL-PPCRE::MATCH-START))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a STRING, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 4) because:
The second argument is a (NOT NULL), not a FIXNUM.
unable to do inline (unsigned-byte 32) comparison (cost 6) because:
The second argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
etc.
; (< CL-PPCRE::FROM CL-PPCRE::MATCH-START)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The second argument is a (NOT NULL), not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The second argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a (OR NULL INTEGER), not a FIXNUM.
The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
&OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (OR NULL INTEGER), not a FIXNUM.
The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
&OPTIONAL).
etc.
; (1-
; (PARSE-INTEGER CL-PPCRE::REPLACEMENT-STRING :START CL-PPCRE::PARSE-START
; :JUNK-ALLOWED T))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR NULL INTEGER), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR NULL INTEGER), not a FIXNUM.
; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
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.
; (< CL-PPCRE::TOKEN 0)
;
; note: forced to do full call
; 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.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
The second argument is a NUMBER, not a RATIONAL.
; in: DEFUN BUILD-REPLACEMENT
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START
; CL-PPCRE::REG-END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
The second argument is a NUMBER, not a RATIONAL.
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a ARRAY, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a ARRAY, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
can't determine sequence argument type
; (MAP 'LIST
; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END)
; (AND CL-PPCRE::REG-START
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START
; CL-PPCRE::REG-END)))
; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS)
;
; note: unable to open code because: can't determine sequence argument type
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a ARRAY, not a SIMPLE-ARRAY.
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a ARRAY, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TOKEN is not known to be a function
; (APPLY CL-PPCRE::TOKEN
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END)
; (MAP 'LIST
; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END)
; (AND CL-PPCRE::REG-START
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING
; CL-PPCRE::REG-START
; CL-PPCRE::REG-END)))
; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS))
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TOKEN is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
open code
because:
can't determine sequence argument type
; (MAP 'LIST
; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END)
; (AND CL-PPCRE::REG-START
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START
; CL-PPCRE::REG-END)))
; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS)
;
; note: unable to open code because: can't determine sequence argument type
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
TOKEN is not known to be a function
; (FUNCALL CL-PPCRE::TOKEN CL-PPCRE::TARGET-STRING CL-PPCRE::START
; CL-PPCRE::END CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; TOKEN is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
The second argument is a NUMBER, not a RATIONAL.
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START
; CL-PPCRE::REG-END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
The second argument is a NUMBER, not a RATIONAL.
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a ARRAY, not a SIMPLE-ARRAY.
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START
; CL-PPCRE::REG-END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a ARRAY, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a ARRAY, not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a ARRAY, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a (NOT NULL), not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a (NOT NULL), not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a (NOT NULL), not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a (NOT NULL), not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a (NOT NULL), not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a (NOT NULL), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a (NOT NULL), not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 4) because:
The first argument is a INTEGER, not a FIXNUM.
unable to do inline (unsigned-byte 32) comparison (cost 6) because:
The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
etc.
; (>= CL-PPCRE::TOKEN CL-PPCRE::REG-BOUND)
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a INTEGER, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a INTEGER, not a (UNSIGNED-BYTE 32).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a UNSIGNED-BYTE, not a FIXNUM.
The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
&OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a UNSIGNED-BYTE, not a FIXNUM.
The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
&OPTIONAL).
etc.
; (1+ CL-PPCRE::TOKEN)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START
; CL-PPCRE::MATCH-END)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 2) because:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 2) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFUN REGEX-REPLACE
; (LENGTH CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFUN REGEX-REPLACE-ALL
; (LENGTH CL-PPCRE::TARGET-STRING)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END
; CL-PPCRE::END)
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)
; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST)
; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST))
; --> BLOCK LET* OR LET IF
; ==>
; (LENGTH #:TARGET-STRING1)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; --> BLOCK LET* SETQ CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE
; --> COERCE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
NULL
(SIMPLE-ARRAY
*
(*))).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL
; (SIMPLE-ARRAY
; * (*))).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a (OR LIST
(AND VECTOR
(NOT
(SIMPLE-ARRAY
BASE-CHAR))
(NOT
(SIMPLE-ARRAY
CHARACTER)))
SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
SIMPLE-BASE-STRING
NULL).
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a (OR LIST
; (AND VECTOR (NOT (SIMPLE-ARRAY BASE-CHAR))
; (NOT (SIMPLE-ARRAY CHARACTER)))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR
; SIMPLE-BASE-STRING
; NULL).
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a SINGLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a SINGLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a DOUBLE-FLOAT.
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a DOUBLE-FLOAT.
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
SINGLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a NUMBER, not a (COMPLEX
DOUBLE-FLOAT).
The second argument is a NUMBER, not a RATIONAL.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT).
; The second argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF 1+
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
unable to do inline float comparison (cost 3) because:
The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
The second argument is a T, not a DOUBLE-FLOAT.
; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END
; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX
; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END
; CL-PPCRE::END)
; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST)
; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST)
; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST)
; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST))
; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF
; ==>
; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END)
;
; note: forced to do full call
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
; unable to do inline float comparison (cost 3) because:
; The first argument is a (NOT NULL), not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a NUMBER, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a NUMBER, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND
; --> MULTIPLE-VALUE-CALL FUNCTION SETQ IF 1+
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a NUMBER, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
&OPTIONAL-AND-&KEY-IN-LAMBDA-LIST: &OPTIONAL and &KEY found in the same lambda list: (REGEX
&OPTIONAL
PACKAGES
&KEY
(CASE-INSENSITIVE
T))
; in: DEFUN REGEX-APROPOS-LIST
; (DEFUN CL-PPCRE:REGEX-APROPOS-LIST
; (CL-PPCRE::REGEX
; &OPTIONAL CL-PPCRE::PACKAGES
; &KEY (CL-PPCRE::CASE-INSENSITIVE T))
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; #<(SIMPLE-ARRAY CHARACTER
; (221)) Similar to the standard function APROPOS-LIST but returns a list of
; all symbols which match the regular expression REGEX. If
; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a
; case-insensi... {51E82467}>
; (LET ((CL-PPCRE::COLLECTOR 'NIL))
; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES
; CL-PPCRE::CASE-INSENSITIVE
; CL-PPCRE::COLLECTOR)
; (PUSH SYMBOL CL-PPCRE::COLLECTOR))))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS-LIST
; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY
; (CL-PPCRE::CASE-INSENSITIVE T))
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; #<(SIMPLE-BASE-STRING
; 221) Similar to the standard function APROPOS-LIST but returns a list of
; all symbols which match the regular expression REGEX. If
; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a
; case-insensi... {51E82B87}>
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (BLOCK CL-PPCRE:REGEX-APROPOS-LIST
; (LET ((CL-PPCRE::COLLECTOR 'NIL))
; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES
; CL-PPCRE::CASE-INSENSITIVE
; CL-PPCRE::COLLECTOR)
; (PUSH SYMBOL CL-PPCRE::COLLECTOR)))))
;
; caught STYLE-WARNING:
; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES
; &KEY
; (CASE-INSENSITIVE T))
&OPTIONAL-AND-&KEY-IN-LAMBDA-LIST: &OPTIONAL and &KEY found in the same lambda list: (REGEX
&OPTIONAL
PACKAGES
&KEY
(CASE-INSENSITIVE
T))
; in: DEFUN REGEX-APROPOS
; (DEFUN CL-PPCRE:REGEX-APROPOS
; (CL-PPCRE::REGEX
; &OPTIONAL CL-PPCRE::PACKAGES
; &KEY (CL-PPCRE::CASE-INSENSITIVE T))
; #<(SIMPLE-ARRAY CHARACTER
; (216)) Similar to the standard function APROPOS but returns a list of all
; symbols which match the regular expression REGEX. If CASE-INSENSITIVE
; is true and REGEX isn't already a scanner, a case-insensitive ... {5216E40F}>
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES
; CL-PPCRE::CASE-INSENSITIVE)
; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL))
; (VALUES))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS
; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY
; (CL-PPCRE::CASE-INSENSITIVE T))
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; #<(SIMPLE-BASE-STRING
; 216) Similar to the standard function APROPOS but returns a list of all
; symbols which match the regular expression REGEX. If CASE-INSENSITIVE
; is true and REGEX isn't already a scanner, a case-insensitive ... {5216EA9F}>
; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0)))
; (BLOCK CL-PPCRE:REGEX-APROPOS
; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES
; CL-PPCRE::CASE-INSENSITIVE)
; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL))
; (VALUES)))
;
; caught STYLE-WARNING:
; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES
; &KEY
; (CASE-INSENSITIVE T))
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/cl-ppcre/api-tmpW78F18LW.fasl
; compilation finished in 0:00:01.016
COMPILE-WARNED-WARNING: Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "cl-ppcre" "api">
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "cl-ppcre" "api">
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE:REGISTER-GROUPS-BIND in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE:DO-SCANS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE:DO-MATCHES in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE:DO-MATCHES-AS-STRINGS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE:DO-REGISTER-GROUPS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::REGEX-APROPOS-AUX in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE:DEFINE-PARSE-TREE-SYNONYM in DEFMACRO
; compiling file "/usr/share/common-lisp/source/clx/package.lisp" (written 05 FEB 2026 08:13:27 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/package-tmpWUHTUDVN.fasl
; compilation finished in 0:00:00.076
; compiling file "/usr/share/common-lisp/source/clx/depdefs.lisp" (written 05 FEB 2026 08:13:27 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/depdefs-tmpCK73UFEK.fasl
; compilation finished in 0:00:00.728
REDEFINITION-WITH-DEFUN: redefining XLIB::%REEVALUATE-CONSTANT in DEFUN
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-CONSTANT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFCONSTANT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-VECTOR in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITHIN-DEFINITION in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RESOURCE-ID-MAP-TEST in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::ATOM-CACHE-MAP-TEST in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYSYM->CHARACTER-MAP-TEST in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX+ in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-LOGAND in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-LOGIOR in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX- in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX* in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX1+ in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX1- in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-INCF in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-DECF in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-MIN in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-MAX in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-FLOOR in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-CEILING in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-TRUNCATE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-MOD in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-ASH in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-PLUSP in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-ZEROP in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-EVENP in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-ODDP in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX> in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX= in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX< in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX>= in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX<= in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEF-CLX-CLASS in DEFMACRO
; compiling file "/usr/share/common-lisp/source/clx/clx.lisp" (written 05 FEB 2026 08:13:27 PM):
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; file: /usr/share/common-lisp/source/clx/clx.lisp
; in: DEFUN ENCODE-EVENT-MASK
; (XLIB::X-TYPE-ERROR XLIB:EVENT-MASK 'XLIB:EVENT-MASK)
;
; note: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; in: DEFUN ENCODE-DEVICE-EVENT-MASK
; (XLIB::X-TYPE-ERROR XLIB:DEVICE-EVENT-MASK 'XLIB:DEVICE-EVENT-MASK)
;
; note: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; in: DEFUN ENCODE-MODIFIER-MASK
; (XLIB::X-TYPE-ERROR XLIB:MODIFIER-MASK 'XLIB:MODIFIER-MASK)
;
; note: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; in: DEFUN ENCODE-STATE-MASK
; (XLIB::X-TYPE-ERROR XLIB::STATE-MASK
; '(OR XLIB:MASK16 (XLIB::CLX-LIST XLIB:STATE-MASK-KEY)))
;
; note: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; in: DEFUN ENCODE-POINTER-EVENT-MASK
; (XLIB::X-TYPE-ERROR XLIB:POINTER-EVENT-MASK 'XLIB:POINTER-EVENT-MASK)
;
; note: deleting unreachable code
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/clx-tmpEBEIAP0J.fasl
; compilation finished in 0:00:01.900
; compiling file "/usr/share/common-lisp/source/clx/dependent.lisp" (written 05 FEB 2026 08:13:27 PM):
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20) to "<return value>"
; file: /usr/share/common-lisp/source/clx/dependent.lisp
; in: DEFUN INT32->CARD32
; (DEFUN XLIB::INT32->CARD32 (XLIB::X)
; (DECLARE (TYPE XLIB:INT32 XLIB::X))
; (DECLARE (XLIB::CLX-VALUES XLIB:CARD32))
; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1) (DEBUG 1)))
; (THE XLIB:CARD32 (LDB (BYTE 32 0) XLIB::X)))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA XLIB::INT32->CARD32
; (XLIB::X)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (TYPE XLIB:INT32 XLIB::X))
; (DECLARE (XLIB::CLX-VALUES XLIB:CARD32))
; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1) (DEBUG 1)))
; (BLOCK XLIB::INT32->CARD32 (THE XLIB:CARD32 (LDB (BYTE 32 0) XLIB::X))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20) to "<return value>"
; in: DEFUN AREF-CARD32
; (DEFUN XLIB::AREF-CARD32 (XLIB::A XLIB::I)
; (DECLARE (TYPE XLIB::BUFFER-BYTES XLIB::A)
; (TYPE XLIB:ARRAY-INDEX XLIB::I))
; (DECLARE (XLIB::CLX-VALUES XLIB:CARD32))
; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1) (DEBUG 1)))
; (THE XLIB:CARD32
; (LOGIOR (THE XLIB:CARD32 (ASH # 24)) (THE XLIB:CARD29 (ASH # 16))
; (THE XLIB:CARD16 (ASH # 8))
; (THE XLIB:CARD8 (AREF XLIB::A #)))))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA XLIB::AREF-CARD32
; (XLIB::A XLIB::I)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (TYPE XLIB::BUFFER-BYTES XLIB::A)
; (TYPE XLIB:ARRAY-INDEX XLIB::I))
; (DECLARE (XLIB::CLX-VALUES XLIB:CARD32))
; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1) (DEBUG 1)))
; (BLOCK XLIB::AREF-CARD32
; (THE XLIB:CARD32
; (LOGIOR (THE XLIB:CARD32 #) (THE XLIB:CARD29 #)
; (THE XLIB:CARD16 #) (THE XLIB:CARD8 #)))))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20) to "<return value>"
; in: DEFUN AREF-INT32
; (DEFUN XLIB::AREF-INT32 (XLIB::A XLIB::I)
; (DECLARE (TYPE XLIB::BUFFER-BYTES XLIB::A)
; (TYPE XLIB:ARRAY-INDEX XLIB::I))
; (DECLARE (XLIB::CLX-VALUES XLIB:INT32))
; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1) (DEBUG 1)))
; (THE XLIB:INT32
; (LOGIOR (THE XLIB:INT32 (ASH # 24)) (THE XLIB:CARD29 (ASH # 16))
; (THE XLIB:CARD16 (ASH # 8))
; (THE XLIB:CARD8 (AREF XLIB::A #)))))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA XLIB::AREF-INT32
; (XLIB::A XLIB::I)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (TYPE XLIB::BUFFER-BYTES XLIB::A)
; (TYPE XLIB:ARRAY-INDEX XLIB::I))
; (DECLARE (XLIB::CLX-VALUES XLIB:INT32))
; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1) (DEBUG 1)))
; (BLOCK XLIB::AREF-INT32
; (THE XLIB:INT32
; (LOGIOR (THE XLIB:INT32 #) (THE XLIB:CARD29 #) (THE XLIB:CARD16 #)
; (THE XLIB:CARD8 #)))))
;
; note: doing signed word to integer coercion (cost 20) to "<return value>"
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline ASH
; in: DEFUN AREF-CARD29
; (ASH (THE XLIB:CARD8 (AREF XLIB::A (XLIB::INDEX+ XLIB::I XLIB::+LONG-3+))) 24)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline ASH
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR (FLOAT 0.0 1.0)
(RATIONAL 0
1)), not a SINGLE-FLOAT.
; in: DEFUN RGB-VAL->CARD16
; (ROUND (THE XLIB:RGB-VAL XLIB::VALUE) 1.5259022e-5)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (FLOAT 0.0 1.0)
; (RATIONAL 0 1)), not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR (FLOAT 0.0 1.0)
(RATIONAL 0
1)), not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (FLOAT 0.0 1.0)
; (RATIONAL 0 1)), not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: doing float to pointer coercion (cost 13) to "<return value>"
; in: DEFUN CARD16->RGB-VAL
; (DEFUN XLIB::CARD16->RGB-VAL (XLIB::VALUE)
; (DECLARE (TYPE XLIB:CARD16 XLIB::VALUE))
; (DECLARE (XLIB::CLX-VALUES SHORT-FLOAT))
; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1) (DEBUG 1)))
; (THE SHORT-FLOAT (* (THE XLIB:CARD16 XLIB::VALUE) 1.5259022e-5)))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA XLIB::CARD16->RGB-VAL
; (XLIB::VALUE)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (TYPE XLIB:CARD16 XLIB::VALUE))
; (DECLARE (XLIB::CLX-VALUES SHORT-FLOAT))
; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1) (DEBUG 1)))
; (BLOCK XLIB::CARD16->RGB-VAL
; (THE SHORT-FLOAT (* (THE XLIB:CARD16 XLIB::VALUE) 1.5259022e-5))))
;
; note: doing float to pointer coercion (cost 13) to "<return value>"
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR
(SINGLE-FLOAT -6.2831855
6.2831855)
(DOUBLE-FLOAT
-6.283185307179586d0
6.283185307179586d0)
(RATIONAL
-884279719003555/140737488355328
884279719003555/140737488355328)), not a SINGLE-FLOAT.
; in: DEFUN RADIANS->INT16
; (ROUND (THE XLIB:ANGLE XLIB::VALUE) 2.727077e-4)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT -6.2831855 6.2831855)
; (DOUBLE-FLOAT -6.283185307179586d0
; 6.283185307179586d0)
; (RATIONAL -884279719003555/140737488355328
; 884279719003555/140737488355328)), not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR
(SINGLE-FLOAT -6.2831855
6.2831855)
(DOUBLE-FLOAT
-6.283185307179586d0
6.283185307179586d0)
(RATIONAL
-884279719003555/140737488355328
884279719003555/140737488355328)), not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SINGLE-FLOAT -6.2831855 6.2831855)
; (DOUBLE-FLOAT -6.283185307179586d0
; 6.283185307179586d0)
; (RATIONAL -884279719003555/140737488355328
; 884279719003555/140737488355328)), not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code INTEGER to RATIO comparison
due to type uncertainty:
The first argument is a RATIONAL, not a INTEGER.
; (DEFUN XLIB::RADIANS->INT16 (XLIB::VALUE)
; (DECLARE (TYPE XLIB:ANGLE XLIB::VALUE))
; (DECLARE (XLIB::CLX-VALUES XLIB:INT16))
; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1) (DEBUG 1)))
; (THE XLIB:INT16 (VALUES (ROUND (THE XLIB:ANGLE XLIB::VALUE) 2.727077e-4))))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; open-code INTEGER to RATIO comparison
; due to type uncertainty:
; The first argument is a RATIONAL, not a INTEGER.
SIMPLE-COMPILER-NOTE: unable to
open-code INTEGER to RATIO comparison
due to type uncertainty:
The first argument is a (RATIONAL
-884279719003555/140737488355328), not a INTEGER.
;
; note: unable to
; open-code INTEGER to RATIO comparison
; due to type uncertainty:
; The first argument is a (RATIONAL
; -884279719003555/140737488355328), not a INTEGER.
SIMPLE-COMPILER-NOTE: doing float to pointer coercion (cost 13) to "<return value>"
; in: DEFUN INT16->RADIANS
; (DEFUN XLIB::INT16->RADIANS (XLIB::VALUE)
; (DECLARE (TYPE XLIB:INT16 XLIB::VALUE))
; (DECLARE (XLIB::CLX-VALUES SHORT-FLOAT))
; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1) (DEBUG 1)))
; (THE SHORT-FLOAT (* (THE XLIB:INT16 XLIB::VALUE) 2.727077e-4)))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; ==>
; #'(SB-INT:NAMED-LAMBDA XLIB::INT16->RADIANS
; (XLIB::VALUE)
; (DECLARE (SB-C::TOP-LEVEL-FORM))
; (DECLARE (TYPE XLIB:INT16 XLIB::VALUE))
; (DECLARE (XLIB::CLX-VALUES SHORT-FLOAT))
; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1) (DEBUG 1)))
; (BLOCK XLIB::INT16->RADIANS
; (THE SHORT-FLOAT (* (THE XLIB:INT16 XLIB::VALUE) 2.727077e-4))))
;
; note: doing float to pointer coercion (cost 13) to "<return value>"
&OPTIONAL-AND-&KEY-IN-LAMBDA-LIST: &OPTIONAL and &KEY found in the same lambda list: (LOCK
DISPLAY
&OPTIONAL
(WHOSTATE
CLX wait)
&KEY
TIMEOUT)
; in: DEFMACRO HOLDING-LOCK
; (DEFMACRO XLIB::HOLDING-LOCK
; (
; (XLIB::LOCK
; XLIB:DISPLAY
; &OPTIONAL
; (XLIB::WHOSTATE "CLX wait")
; &KEY
; XLIB::TIMEOUT)
; &BODY XLIB::BODY)
; (DECLARE (IGNORE XLIB:DISPLAY XLIB::WHOSTATE))
; `(SB-THREAD:WITH-RECURSIVE-LOCK (,XLIB::LOCK
; ,@(WHEN XLIB::TIMEOUT
; `(:TIMEOUT ,XLIB::TIMEOUT)))
; ,@XLIB::BODY))
;
; caught STYLE-WARNING:
; &OPTIONAL and &KEY found in the same lambda list: (LOCK DISPLAY &OPTIONAL
; (WHOSTATE CLX wait) &KEY
; TIMEOUT)
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; in: DEFMACRO READ-IMAGE-LOAD-BYTE
; (SETQ POSITION (- 7 POSITION))
;
; note: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; in: DEFMACRO READ-IMAGE-ASSEMBLE-BYTES
; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES))
;
; note: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; in: DEFMACRO WRITE-IMAGE-LOAD-BYTE
; (- XLIB::INTEGER-SIZE 8 POSITION)
;
; note: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; in: DEFMACRO WRITE-IMAGE-ASSEMBLE-BYTES
; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES))
;
; note: deleting unreachable code
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE
32)
&OPTIONAL).
etc.
; in: DEFUN FAST-READ-PIXARRAY-24
; (XLIB::INDEX* XLIB::Y XLIB::PADDED-BYTES-PER-LINE)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a ARRAY.
; in: DEFUN COPY-BIT-RECT
; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::SDATA XLIB::SOURCE) (XLIB::SSTART)
; (XLIB::SEND))
; (DECLARE (IGNORE XLIB::SEND))
; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::DDATA XLIB::DEST) (XLIB::DSTART)
; (XLIB::DEND))
; (DECLARE (IGNORE XLIB::DEND))
; (ASSERT (AND (ZEROP XLIB::SSTART) (ZEROP XLIB::DSTART)))
; (DO ((XLIB::SRC-IDX # #)
; (XLIB::DEST-IDX # #)
; (COUNT XLIB::HEIGHT #))
; ((ZEROP COUNT))
; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-IDX XLIB::DEST-IDX COUNT))
; (SB-KERNEL:UB1-BASH-COPY XLIB::SDATA XLIB::SRC-IDX XLIB::DDATA
; XLIB::DEST-IDX XLIB::WIDTH))))
; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND IF NOT
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a ARRAY.
SIMPLE-COMPILER-NOTE: unable to
inline non-SIMPLE-vector-handling logic
due to type uncertainty:
The first argument is a (AND ARRAY
(NOT
(SIMPLE-ARRAY *
(*)))), not a (OR VECTOR
SIMPLE-ARRAY).
; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND IF THE
; ==>
; (SB-KERNEL:%WITH-ARRAY-DATA #:N-ARRAY0 #:N-SVALUE1 #:N-EVALUE2)
;
; note: unable to
; inline non-SIMPLE-vector-handling logic
; due to type uncertainty:
; The first argument is a (AND ARRAY (NOT (SIMPLE-ARRAY * (*)))), not a (OR
; VECTOR
; SIMPLE-ARRAY).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a ARRAY.
; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::DDATA XLIB::DEST) (XLIB::DSTART)
; (XLIB::DEND))
; (DECLARE (IGNORE XLIB::DEND))
; (ASSERT (AND (ZEROP XLIB::SSTART) (ZEROP XLIB::DSTART)))
; (DO ((XLIB::SRC-IDX (XLIB::INDEX+ # XLIB::SX #)
; (XLIB::INDEX+ XLIB::SRC-IDX XLIB::SOURCE-WIDTH))
; (XLIB::DEST-IDX (XLIB::INDEX+ # XLIB::DX #)
; (XLIB::INDEX+ XLIB::DEST-IDX XLIB::DEST-WIDTH))
; (COUNT XLIB::HEIGHT (1- COUNT)))
; ((ZEROP COUNT))
; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-IDX XLIB::DEST-IDX COUNT))
; (SB-KERNEL:UB1-BASH-COPY XLIB::SDATA XLIB::SRC-IDX XLIB::DDATA
; XLIB::DEST-IDX XLIB::WIDTH)))
; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND IF NOT
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a ARRAY.
SIMPLE-COMPILER-NOTE: unable to
inline non-SIMPLE-vector-handling logic
due to type uncertainty:
The first argument is a (AND ARRAY
(NOT
(SIMPLE-ARRAY *
(*)))), not a (OR VECTOR
SIMPLE-ARRAY).
; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND IF THE
; ==>
; (SB-KERNEL:%WITH-ARRAY-DATA #:N-ARRAY5 #:N-SVALUE6 #:N-EVALUE7)
;
; note: unable to
; inline non-SIMPLE-vector-handling logic
; due to type uncertainty:
; The first argument is a (AND ARRAY (NOT (SIMPLE-ARRAY * (*)))), not a (OR
; VECTOR
; SIMPLE-ARRAY).
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE
32)
&OPTIONAL).
etc.
; (XLIB::INDEX* XLIB::SY XLIB::SOURCE-WIDTH)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE
32)
&OPTIONAL).
etc.
; (XLIB::INDEX* XLIB::DY XLIB::DEST-WIDTH)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (MOD 288230372393615373) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The result is a (VALUES (MOD 288230372393615373) &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE
32)
&OPTIONAL).
etc.
; in: DEFUN FAST-READ-PIXARRAY-USING-BITBLT
; (XLIB::INDEX* (ARRAY-DIMENSION XLIB:PIXARRAY 1) XLIB::BITS-PER-PIXEL)
; --> VALUES
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (MOD 288230372393615373) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (MOD 288230372393615373) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE
32)
&OPTIONAL).
etc.
; (XLIB::INDEX* XLIB::WIDTH XLIB::BITS-PER-PIXEL)
; --> VALUES
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &OPTIONAL).
; etc.
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; in: DEFUN FAST-READ-PIXARRAY
; (XLIB::READ-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X
; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE
; XLIB::BITS-PER-PIXEL FUNCTION XLIB::UNIT ...)
;
; note: deleting unreachable code
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (MOD 288230372393615373) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The result is a (VALUES (MOD 288230372393615373) &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE
32)
&OPTIONAL).
etc.
; in: DEFUN FAST-WRITE-PIXARRAY-USING-BITBLT
; (XLIB::INDEX* (ARRAY-DIMENSION XLIB:PIXARRAY 1) XLIB::BITS-PER-PIXEL)
; --> VALUES
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (MOD 288230372393615373) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (MOD 288230372393615373) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE
32)
&OPTIONAL).
etc.
; (XLIB::INDEX* XLIB::WIDTH XLIB::BITS-PER-PIXEL)
; --> VALUES
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &OPTIONAL).
; etc.
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; in: DEFUN FAST-WRITE-PIXARRAY
; (XLIB::WRITE-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X
; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE
; XLIB::BITS-PER-PIXEL FUNCTION XLIB::+IMAGE-UNIT+ ...)
;
; note: deleting unreachable code
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/dependent-tmpSE943D3D.fasl
; compilation finished in 0:00:00.904
COMPILE-WARNED-WARNING: Lisp compilation had style-warnings while
compiling #<CLX-SOURCE-FILE "clx" "dependent">
WARNING:
Lisp compilation had style-warnings while
compiling #<CLX-SOURCE-FILE "clx" "dependent">
REDEFINITION-WITH-DEFUN: redefining XLIB::DECLARE-BUFMAC in DEFUN
REDEFINITION-WITH-DEFUN: redefining XLIB::DECLARE-BUFFUN in DEFUN
REDEFINITION-WITH-DEFMACRO: redefining XLIB::HOLDING-LOCK in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITHOUT-ABORTS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITHOUT-INTERRUPTS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CONDITIONAL-STORE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRAP-BUF-OUTPUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRAP-BUF-INPUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-STACK-LIST in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-STACK-LIST* in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-GCONTEXT-BINDINGS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::TYPE? in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::USE-CLOSURES in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-UNDERLYING-SIMPLE-VECTOR in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-IMAGE-LOAD-BYTE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-IMAGE-ASSEMBLE-BYTES in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-IMAGE-LOAD-BYTE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-IMAGE-ASSEMBLE-BYTES in DEFMACRO
; compiling file "/usr/share/common-lisp/source/clx/common.lisp" (written 05 FEB 2026 08:13:27 PM):
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a (OR (FLOAT 0.0)
(RATIONAL
0)), not a SINGLE-FLOAT.
; file: /usr/share/common-lisp/source/clx/common.lisp
; in: DEFUN BUFFER-READ-DEFAULT
; (ZEROP XLIB::TIMEOUT)
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (FLOAT 0.0) (RATIONAL 0)), not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open-code FLOAT to RATIONAL comparison
due to type uncertainty:
The first argument is a (OR (FLOAT 0.0)
(RATIONAL
0)), not a DOUBLE-FLOAT.
;
; note: unable to
; open-code FLOAT to RATIONAL comparison
; due to type uncertainty:
; The first argument is a (OR (FLOAT 0.0) (RATIONAL 0)), not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
open code
because:
The operands might not be the same type.
;
; note: unable to open code because: The operands might not be the same type.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 3) because:
The first argument is a RATIONAL, not a FIXNUM.
unable to do inline fixnum comparison (cost 4) because:
The first argument is a RATIONAL, not a FIXNUM.
etc.
; (DEFUN XLIB::BUFFER-READ-DEFAULT
; (XLIB:DISPLAY VECTOR XLIB::START XLIB::END XLIB::TIMEOUT)
; (DECLARE (TYPE XLIB:DISPLAY XLIB:DISPLAY)
; (TYPE XLIB::BUFFER-BYTES VECTOR)
; (TYPE XLIB:ARRAY-INDEX XLIB::START XLIB::END)
; (TYPE (OR NULL (REAL 0 *)) XLIB::TIMEOUT))
; (DECLARE (OPTIMIZE (SPEED 3) (SAFETY 1) (DEBUG 1)))
; (IF (AND (NOT (NULL XLIB::TIMEOUT)) (ZEROP XLIB::TIMEOUT) (NOT (LISTEN #)))
; :TIMEOUT
; (LET ((XLIB::N #))
; (COND (# NIL) (# :END-OF-FILE) (T :TRUNCATED)))))
; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 3) because:
; The first argument is a RATIONAL, not a FIXNUM.
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a RATIONAL, not a FIXNUM.
; etc.
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/common-tmpN5RKE5P2.fasl
; compilation finished in 0:00:00.048
; compiling file "/usr/share/common-lisp/source/clx/macros.lisp" (written 05 FEB 2026 08:13:27 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/macros-tmpNQZ6T1LT.fasl
; compilation finished in 0:00:01.380
REDEFINITION-WITH-DEFMACRO: redefining XLIB::TYPE-CHECK in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::REQUIRED-ARG in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::LROUND in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WROUND in DEFMACRO
REDEFINITION-WITH-DEFUN: redefining XLIB::GETIFY in DEFUN
REDEFINITION-WITH-DEFUN: redefining XLIB::PUTIFY in DEFUN
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-ACCESSOR in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD32-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD32-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD29-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD29-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD16-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD16-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD8-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD8-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INTEGER-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INTEGER-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INT16-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INT16-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RGB-VAL-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RGB-VAL-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::ANGLE-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::ANGLE-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::BIT-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::BIT-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::BOOLEAN-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::BOOLEAN-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DRAWABLE-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DRAWABLE-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WINDOW-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WINDOW-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PIXMAP-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PIXMAP-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CURSOR-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CURSOR-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::COLORMAP-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::COLORMAP-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::FONT-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::FONT-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYWORD-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYWORD-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RESOURCE-ID-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RESOURCE-ID-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RESOURCE-ID-OR-NIL-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RESOURCE-ID-OR-NIL-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CHAR-INFO-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER8-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER8-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER8-PUT-PREDICATING in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER16-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER16-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER16-PUT-PREDICATING in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER-PUT-PREDICATING in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER-VECTOR-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER-VECTOR-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER-VECTOR-PUT-PREDICATING in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER16-VECTOR-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER16-VECTOR-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER16-VECTOR-PUT-PREDICATING in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER8-VECTOR-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER8-VECTOR-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER8-VECTOR-PUT-PREDICATING in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::BOOLE-CONSTANT-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::BOOLE-CONSTANT-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::BOOLE-CONSTANT-PUT-PREDICATING in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::NULL-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::NULL-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PAD8-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PAD8-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PAD16-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PAD16-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PAD32-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PAD32-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::BIT-VECTOR256-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::BIT-VECTOR256-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::STRING-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::STRING-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::SEQUENCE-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::SEQUENCE-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CLIENT-MESSAGE-EVENT-GET-SEQUENCE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CLIENT-MESSAGE-SEQUENCE-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CLIENT-MESSAGE-SEQUENCE-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CODE-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CODE-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CODE-PUT-PREDICATING in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::LENGTH-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::LENGTH-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::LENGTH-PUT-PREDICATING in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DATA-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DATA-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DATA-PUT-PREDICATING in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::OR-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::OR-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PROGN-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PROGN-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::CHECK-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER-REQUEST-INTERNAL in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER-REQUEST in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER-REQUEST-AND-REPLY in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::COMPARE-REQUEST in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PUT-ITEMS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DECODE-TYPE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::ENCODE-TYPE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::SET-DECODE-TYPE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-ATOMIC-PUSH in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-ATOMIC-POP in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-NCONC in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-PUSH in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-POP in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-ENQUEUE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-DEQUEUE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-REQUEUE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-DOLIST in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-DELETE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-LENGTH in DEFMACRO
; compiling file "/usr/share/common-lisp/source/clx/bufmac.lisp" (written 05 FEB 2026 08:13:27 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/bufmac-tmpWLS9DP2S.fasl
; compilation finished in 0:00:00.100
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-CARD8 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-INT8 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-CARD16 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-INT16 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-CARD32 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-INT32 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-CARD29 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-CHAR2B in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::SET-BUFFER-OFFSET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::ADVANCE-BUFFER-OFFSET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER-OUTPUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITING-BUFFER-CHUNKS in DEFMACRO
; compiling file "/usr/share/common-lisp/source/clx/buffer.lisp" (written 05 FEB 2026 08:13:27 PM):
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
; file: /usr/share/common-lisp/source/clx/buffer.lisp
; in: DEFUN READ-VECTOR-CARD8
; (AREF XLIB::DATA XLIB::J)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
; in: DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM
; (AREF XLIB::DATA XLIB::J)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in:
; DEFINE-LIST-READERS (READ-LIST-CARD16 READ-LIST-CARD16-WITH-TRANSFORM)
; (XLIB::DEFINE-LIST-READERS
; (XLIB::READ-LIST-CARD16 XLIB::READ-LIST-CARD16-WITH-TRANSFORM) XLIB:CARD16
; 16 2 XLIB::READ-CARD16)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK XLIB::WITH-BUFFER-INPUT LET LET* DO* BLOCK LET* TAGBODY TAGBODY
; --> SETF SB-C::WITH-SOURCE-FORM CAR SB-KERNEL:%RPLACA XLIB::READ-CARD16
; ==>
; (XLIB::AREF-CARD16 XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET XLIB::INDEX))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK XLIB::WITH-BUFFER-INPUT LET LET* DO* BLOCK LET* TAGBODY TAGBODY
; --> SETF SB-C::WITH-SOURCE-FORM CAR SB-KERNEL:%RPLACA FUNCALL
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN READ-SIMPLE-ARRAY-CARD16
; (XLIB::READ-CARD16 XLIB::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN READ-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM
; (XLIB::READ-CARD16 XLIB::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
; in: DEFUN READ-VECTOR-CARD16
; (AREF XLIB::DATA XLIB::J)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::READ-CARD16 XLIB::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
; in: DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM
; (AREF XLIB::DATA XLIB::J)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::READ-CARD16 XLIB::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in:
; DEFINE-LIST-READERS (READ-LIST-CARD32 READ-LIST-CARD32-WITH-TRANSFORM)
; (XLIB::DEFINE-LIST-READERS
; (XLIB::READ-LIST-CARD32 XLIB::READ-LIST-CARD32-WITH-TRANSFORM) XLIB:CARD32
; 32 4 XLIB::READ-CARD32)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK XLIB::WITH-BUFFER-INPUT LET LET* DO* BLOCK LET* TAGBODY TAGBODY
; --> SETF SB-C::WITH-SOURCE-FORM CAR SB-KERNEL:%RPLACA XLIB::READ-CARD32
; ==>
; (XLIB::AREF-CARD32 XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET XLIB::INDEX))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK XLIB::WITH-BUFFER-INPUT LET LET* DO* BLOCK LET* TAGBODY TAGBODY
; --> SETF SB-C::WITH-SOURCE-FORM CAR SB-KERNEL:%RPLACA FUNCALL
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN READ-SIMPLE-ARRAY-CARD32
; (XLIB::READ-CARD32 XLIB::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN READ-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM
; (XLIB::READ-CARD32 XLIB::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
; in: DEFUN READ-VECTOR-CARD32
; (AREF XLIB::DATA XLIB::J)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::READ-CARD32 XLIB::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
; in: DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM
; (AREF XLIB::DATA XLIB::J)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::READ-CARD32 XLIB::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
; in: DEFUN WRITE-VECTOR-CARD8
; (AREF XLIB::DATA XLIB::INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
; in: DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM
; (AREF XLIB::DATA XLIB::INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in:
; DEFINE-LIST-WRITERS (WRITE-LIST-CARD16 WRITE-LIST-CARD16-WITH-TRANSFORM)
; (XLIB::DEFINE-LIST-WRITERS
; (XLIB::WRITE-LIST-CARD16 XLIB::WRITE-LIST-CARD16-WITH-TRANSFORM) XLIB:CARD16
; 2 XLIB::WRITE-CARD16)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK XLIB::WRITING-BUFFER-CHUNKS XLIB::WITH-BUFFER-OUTPUT LET LET* DO*
; --> BLOCK LET* TAGBODY TAGBODY DO BLOCK LET TAGBODY TAGBODY
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 (POP LIST)) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET XLIB::J))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 (FUNCALL XLIB::TRANSFORM (POP LIST)))
; XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET XLIB::J))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN WRITE-SIMPLE-ARRAY-CARD16
; (XLIB::WRITE-CARD16 XLIB::J (AREF XLIB::DATA XLIB::INDEX))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN WRITE-SIMPLE-ARRAY-CARD16-WITH-TRANSFORM
; (XLIB::WRITE-CARD16 XLIB::J
; (FUNCALL XLIB::TRANSFORM (AREF XLIB::DATA XLIB::INDEX)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
; in: DEFUN WRITE-VECTOR-CARD16
; (AREF XLIB::DATA XLIB::INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WRITE-CARD16 XLIB::J (AREF XLIB::DATA XLIB::INDEX))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
; in: DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM
; (AREF XLIB::DATA XLIB::INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WRITE-CARD16 XLIB::J
; (FUNCALL XLIB::TRANSFORM (AREF XLIB::DATA XLIB::INDEX)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in:
; DEFINE-LIST-WRITERS (WRITE-LIST-INT16 WRITE-LIST-INT16-WITH-TRANSFORM)
; (XLIB::DEFINE-LIST-WRITERS
; (XLIB::WRITE-LIST-INT16 XLIB::WRITE-LIST-INT16-WITH-TRANSFORM) XLIB:INT16 2
; XLIB::WRITE-INT16)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK XLIB::WRITING-BUFFER-CHUNKS XLIB::WITH-BUFFER-OUTPUT LET LET* DO*
; --> BLOCK LET* TAGBODY TAGBODY DO BLOCK LET TAGBODY TAGBODY XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 (POP LIST)) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET XLIB::J))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 (FUNCALL XLIB::TRANSFORM (POP LIST)))
; XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET XLIB::J))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN WRITE-SIMPLE-ARRAY-INT16
; (XLIB::WRITE-INT16 XLIB::J (AREF XLIB::DATA XLIB::INDEX))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN WRITE-SIMPLE-ARRAY-INT16-WITH-TRANSFORM
; (XLIB::WRITE-INT16 XLIB::J
; (FUNCALL XLIB::TRANSFORM (AREF XLIB::DATA XLIB::INDEX)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
; in: DEFUN WRITE-VECTOR-INT16
; (AREF XLIB::DATA XLIB::INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WRITE-INT16 XLIB::J (AREF XLIB::DATA XLIB::INDEX))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
; in: DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM
; (AREF XLIB::DATA XLIB::INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WRITE-INT16 XLIB::J
; (FUNCALL XLIB::TRANSFORM (AREF XLIB::DATA XLIB::INDEX)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in:
; DEFINE-LIST-WRITERS (WRITE-LIST-CARD32 WRITE-LIST-CARD32-WITH-TRANSFORM)
; (XLIB::DEFINE-LIST-WRITERS
; (XLIB::WRITE-LIST-CARD32 XLIB::WRITE-LIST-CARD32-WITH-TRANSFORM) XLIB:CARD32
; 4 XLIB::WRITE-CARD32)
; --> DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> BLOCK XLIB::WRITING-BUFFER-CHUNKS XLIB::WITH-BUFFER-OUTPUT LET LET* DO*
; --> BLOCK LET* TAGBODY TAGBODY DO BLOCK LET TAGBODY TAGBODY
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 (POP LIST)) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET XLIB::J))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 (FUNCALL XLIB::TRANSFORM (POP LIST)))
; XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET XLIB::J))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; in: DEFUN WRITE-SIMPLE-ARRAY-CARD32
; (XLIB::WRITE-CARD32 XLIB::J (AREF XLIB::DATA XLIB::INDEX))
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; in: DEFUN WRITE-SIMPLE-ARRAY-CARD32-WITH-TRANSFORM
; (FUNCALL XLIB::TRANSFORM (AREF XLIB::DATA XLIB::INDEX))
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WRITE-CARD32 XLIB::J
; (FUNCALL XLIB::TRANSFORM (AREF XLIB::DATA XLIB::INDEX)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
; in: DEFUN WRITE-VECTOR-CARD32
; (AREF XLIB::DATA XLIB::INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WRITE-CARD32 XLIB::J (AREF XLIB::DATA XLIB::INDEX))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
; in: DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM
; (AREF XLIB::DATA XLIB::INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WRITE-CARD32 XLIB::J
; (FUNCALL XLIB::TRANSFORM (AREF XLIB::DATA XLIB::INDEX)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
; in: DEFUN WRITE-VECTOR-CHAR2B
; (AREF XLIB::DATA XLIB::INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
; in: DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM
; (AREF XLIB::DATA XLIB::INDEX)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/buffer-tmp8VCF5G6M.fasl
; compilation finished in 0:00:02.304
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-CARD8 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-INT8 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-CARD16 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-INT16 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-CARD32 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-INT32 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-CARD29 in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::EVENT-CODE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::READING-EVENT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER-INPUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER-FLUSH-INHIBITED in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-TRANSFORMED-SEQUENCE-READER in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-LIST-READERS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-SEQUENCE-READER in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-TRANSFORMED-SEQUENCE-WRITER in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-LIST-WRITERS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-SEQUENCE-WRITER in DEFMACRO
; compiling file "/usr/share/common-lisp/source/clx/display.lisp" (written 05 FEB 2026 08:13:27 PM):
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; file: /usr/share/common-lisp/source/clx/display.lisp
; in: DEFUN DISPLAY-CONNECT
; (LENGTH XLIB::AUTHORIZATION-NAME)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; (LENGTH XLIB::AUTHORIZATION-DATA)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; (LENGTH XLIB::AUTHORIZATION-NAME)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/display-tmp8DMZV8XU.fasl
; compilation finished in 0:00:00.676
REDEFINITION-WITH-DEFMACRO: redefining XLIB:WITH-DISPLAY in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::ALLOCATE-RESOURCE-ID in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEALLOCATE-RESOURCE-ID in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:WITH-EVENT-QUEUE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-EVENT-QUEUE-INTERNAL in DEFMACRO
; compiling file "/usr/share/common-lisp/source/clx/gcontext.lisp" (written 05 FEB 2026 08:13:27 PM):
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; file: /usr/share/common-lisp/source/clx/gcontext.lisp
; in: DEFUN SET-GCONTEXT-DASHES
; (VECTOR)
;
; note: deleting unreachable code
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFUN FORCE-GCONTEXT-CHANGES-INTERNAL
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETCLIPRECTANGLES+)
; (XLIB::DATA (FIRST XLIB::LOCAL-CLIP))
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-CLIP-X XLIB::LOCAL-STATE) 0)
; (OR (XLIB::GCONTEXT-INTERNAL-CLIP-Y XLIB::LOCAL-STATE) 0))
; ((SEQUENCE :FORMAT XLIB:INT16) (SECOND XLIB::LOCAL-CLIP)))
; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT LET XLIB::SEQUENCE-PUT LET
; ==>
; (LENGTH XLIB::.VALUE.)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR VECTOR
SB-KERNEL:EXTENDED-SEQUENCE
CONS), not a VECTOR.
; (LENGTH XLIB::LOCAL-DASH)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE
; CONS), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR VECTOR
SB-KERNEL:EXTENDED-SEQUENCE
CONS), not a VECTOR.
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETDASHES+)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-DASH-OFFSET XLIB::LOCAL-STATE) 0)
; (LENGTH XLIB::LOCAL-DASH))
; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::LOCAL-DASH))
; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (LENGTH XLIB::LOCAL-DASH)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR VECTOR SB-KERNEL:EXTENDED-SEQUENCE
; CONS), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a SINGLE-FLOAT.
The second argument is a T, not a SINGLE-FLOAT.
; (EQL (SVREF XLIB::SERVER-STATE XLIB::I)
; (SETQ XLIB::LOCAL (SVREF XLIB::LOCAL-STATE XLIB::I)))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a SINGLE-FLOAT.
; The second argument is a T, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a DOUBLE-FLOAT.
The second argument is a T, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a DOUBLE-FLOAT.
; The second argument is a T, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; (FUNCALL (XLIB::GCONTEXT-EXTENSION-SET-FUNCTION (CAR XLIB::EXTENSION))
; XLIB:GCONTEXT XLIB::LOCAL)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 4) because:
The first argument is a (OR NULL (UNSIGNED-BYTE 32)), not a FIXNUM.
The second argument is a (OR NULL (UNSIGNED-BYTE 32)), not a FIXNUM.
unable to do inline (unsigned-byte 32) comparison (cost 6) because:
The first argument is a (OR NULL (UNSIGNED-BYTE 32)), not a (UNSIGNED-BYTE
32).
The second argument is a (OR NULL (UNSIGNED-BYTE 32)), not a (UNSIGNED-BYTE
32).
etc.
; (EQL (THE (OR NULL XLIB:CARD32) (SVREF XLIB::SERVER-STATE XLIB::I))
; (SETQ XLIB::LOCAL
; (THE (OR NULL XLIB:CARD32) (SVREF XLIB::LOCAL-STATE XLIB::I))))
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (OR NULL (UNSIGNED-BYTE 32)), not a FIXNUM.
; The second argument is a (OR NULL (UNSIGNED-BYTE 32)), not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a (OR NULL (UNSIGNED-BYTE 32)), not a (UNSIGNED-BYTE
; 32).
; The second argument is a (OR NULL (UNSIGNED-BYTE 32)), not a (UNSIGNED-BYTE
; 32).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 4) because:
The first argument is a T, not a FIXNUM.
The second argument is a T, not a FIXNUM.
unable to do inline (unsigned-byte 32) comparison (cost 6) because:
The first argument is a T, not a (UNSIGNED-BYTE 32).
The second argument is a T, not a (UNSIGNED-BYTE 32).
etc.
; (EQL (SVREF XLIB::SERVER-STATE XLIB::I)
; (SETQ XLIB::LOCAL (SVREF XLIB::LOCAL-STATE XLIB::I)))
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a T, not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a T, not a (UNSIGNED-BYTE 32).
; etc.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::CARD29-PUT 8 XLIB::MASK)
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 XLIB::MASK) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETDASHES+)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-DASH-OFFSET XLIB::LOCAL-STATE) 0)
; (LENGTH XLIB::LOCAL-DASH))
; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::LOCAL-DASH))
; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT LET XLIB::CARD16-PUT XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETCLIPRECTANGLES+)
; (XLIB::DATA (FIRST XLIB::LOCAL-CLIP))
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-CLIP-X XLIB::LOCAL-STATE) 0)
; (OR (XLIB::GCONTEXT-INTERNAL-CLIP-Y XLIB::LOCAL-STATE) 0))
; ((SEQUENCE :FORMAT XLIB:INT16) (SECOND XLIB::LOCAL-CLIP)))
; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT LET XLIB::CARD16-PUT XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::CARD32-PUT XLIB::NBYTE XLIB::LOCAL)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::LOCAL) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET XLIB::NBYTE))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; in: DEFUN COPY-GCONTEXT-LOCAL-STATE
; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT)
; --> XLIB::WITH-BUFFER PROGN FUNCALL
; ==>
; 1
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; (ELT XLIB::*GCONTEXT-EXTENSIONS* XLIB::I)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; (FUNCALL XLIB::COPY-FUNCTION XLIB:GCONTEXT XLIB::TEMP-GC
; (SVREF XLIB::LOCAL-STATE
; (XLIB::INDEX+ XLIB::I XLIB::*GCONTEXT-DATA-LENGTH*)))
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 1) because:
The first argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; (- XLIB::*GCONTEXT-DATA-LENGTH*)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 1) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline ASH (cost 2) because:
The first argument is a UNSIGNED-BYTE, not a FIXNUM.
The second argument is a NUMBER, not a (UNSIGNED-BYTE 29).
The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
&OPTIONAL).
unable to do inline ASH (cost 3) because:
The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
The second argument is a NUMBER, not a (UNSIGNED-BYTE 29).
The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE
32)
&OPTIONAL).
etc.
; (ASH XLIB::EXTENSION-MASK (- XLIB::*GCONTEXT-DATA-LENGTH*))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The first argument is a UNSIGNED-BYTE, not a FIXNUM.
; The second argument is a NUMBER, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 32).
; The second argument is a NUMBER, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEGC+)
; (XLIB:GCONTEXT XLIB::TEMP-GC)
; (XLIB:DRAWABLE (XLIB::GCONTEXT-DRAWABLE XLIB:GCONTEXT))
; (XLIB:CARD29 0))
; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT LET XLIB::DRAWABLE-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:DRAWABLE-ID XLIB::.VALUE.))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD29-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; (XLIB:GCONTEXT XLIB::TEMP-GC)
; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::TEMP-MASK)))
; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:GCONTEXT-ID XLIB::TEMP-GC))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT LET XLIB::CARD29-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; in: DEFUN RESTORE-GCONTEXT-TEMP-STATE
; (FUNCALL XLIB::COPY-FUNCTION XLIB::TEMP-GC XLIB:GCONTEXT
; (SVREF XLIB::LOCAL-STATE XLIB::I))
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a T, not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline float arithmetic (cost 1) because:
The first argument is a T, not a SINGLE-FLOAT.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
&OPTIONAL).
etc.
; (- XLIB::*GCONTEXT-DATA-LENGTH*)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline float arithmetic (cost 1) because:
; The first argument is a T, not a SINGLE-FLOAT.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline ASH (cost 2) because:
The second argument is a NUMBER, not a (UNSIGNED-BYTE 29).
The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
&OPTIONAL).
unable to do inline ASH (cost 3) because:
The second argument is a NUMBER, not a (UNSIGNED-BYTE 29).
The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE
32)
&OPTIONAL).
etc.
; (ASH XLIB::TEMP-MASK (- XLIB::*GCONTEXT-DATA-LENGTH*))
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The second argument is a NUMBER, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM
; &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The second argument is a NUMBER, not a (UNSIGNED-BYTE 29).
; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+)
; (XLIB:GCONTEXT XLIB::TEMP-GC)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::TEMP-MASK)))
; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:GCONTEXT-ID XLIB:GCONTEXT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT LET XLIB::CARD29-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; in: DEFUN CREATE-GCONTEXT
; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL
; ==>
; 1
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 4) because:
The first argument is a (OR NULL (UNSIGNED-BYTE 32)), not a FIXNUM.
The second argument is a (OR NULL (UNSIGNED-BYTE 32)), not a FIXNUM.
unable to do inline (unsigned-byte 32) comparison (cost 6) because:
The first argument is a (OR NULL (UNSIGNED-BYTE 32)), not a (UNSIGNED-BYTE
32).
The second argument is a (OR NULL (UNSIGNED-BYTE 32)), not a (UNSIGNED-BYTE
32).
etc.
; (EQL XLIB::LOCAL
; (THE (OR NULL XLIB:CARD32) (SVREF XLIB::SERVER-STATE XLIB::I)))
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (OR NULL (UNSIGNED-BYTE 32)), not a FIXNUM.
; The second argument is a (OR NULL (UNSIGNED-BYTE 32)), not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a (OR NULL (UNSIGNED-BYTE 32)), not a (UNSIGNED-BYTE
; 32).
; The second argument is a (OR NULL (UNSIGNED-BYTE 32)), not a (UNSIGNED-BYTE
; 32).
; etc.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEGC+)
; (XLIB:RESOURCE-ID XLIB::GCONTEXTID)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (PROGN
; (DO* ((XLIB::I 0 #)
; (BIT 1 #)
; (XLIB::NBYTE 16)
; (XLIB::MASK 0)
; (XLIB::LOCAL # #))
; ((XLIB::INDEX>= XLIB::I XLIB::+GCONTEXT-FAST-CHANGE-LENGTH+)
; (XLIB::CARD29-PUT 12 XLIB::MASK)
; (XLIB::CARD16-PUT 2 #)
; (XLIB::INDEX-INCF # XLIB::NBYTE))
; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::I XLIB::NBYTE)
; (TYPE XLIB::XGCMASK BIT)
; (TYPE XLIB::GCMASK XLIB::MASK)
; (TYPE # XLIB::LOCAL))
; (UNLESS (EQL XLIB::LOCAL #)
; (SETF #)
; (XLIB::CARD32-PUT XLIB::NBYTE XLIB::LOCAL)
; (SETQ #)
; (XLIB::INDEX-INCF XLIB::NBYTE 4)))))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::DRAWABLE-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:DRAWABLE-ID XLIB:DRAWABLE))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::CARD32-PUT XLIB::NBYTE XLIB::LOCAL)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::LOCAL) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET XLIB::NBYTE))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::CARD29-PUT 12 XLIB::MASK)
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 XLIB::MASK) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a SEQUENCE, not a (OR LIST
VECTOR).
; in: DEFUN COPY-GCONTEXT-COMPONENTS
; (FIND XLIB::KEY XLIB::*GCONTEXT-EXTENSIONS* :KEY
; #'XLIB::GCONTEXT-EXTENSION-NAME)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR LIST VECTOR).
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; (FUNCALL (XLIB::GCONTEXT-EXTENSION-COPY-FUNCTION XLIB::EXTENSION) XLIB::SRC
; XLIB::DST
; (SVREF (XLIB::GCONTEXT-LOCAL-STATE XLIB::SRC)
; (XLIB::INDEX+
; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*)
; XLIB::*GCONTEXT-DATA-LENGTH*)))
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a SEQUENCE, not a (OR LIST
VECTOR).
; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR LIST VECTOR).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYGC+)
; (XLIB:GCONTEXT XLIB::SRC XLIB::DST)
; (XLIB:CARD29 (XLIB::XGCMASK->GCMASK XLIB::MASK)))
; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:GCONTEXT-ID XLIB::DST))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT LET XLIB::CARD29-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/gcontext-tmpEGA125WT.fasl
; compilation finished in 0:00:02.448
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-FUNCTION in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-PLANE-MASK in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-FOREGROUND in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-BACKGROUND in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-LINE-WIDTH in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-LINE-STYLE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-CAP-STYLE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-JOIN-STYLE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-FILL-STYLE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-FILL-RULE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-TILE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-STIPPLE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-TS-X in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-TS-Y in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-FONT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-SUBWINDOW-MODE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-EXPOSURES in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-CLIP-X in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-CLIP-Y in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-CLIP-MASK in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-DASH-OFFSET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-DASHES in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-ARC-MODE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-CLIP in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-DASH in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-FONT-OBJ in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-TIMESTAMP in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-STATE-NEXT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::XGCMASK->GCMASK in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::ACCESS-GCONTEXT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::MODIFY-GCONTEXT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEF-GC-ACCESSOR in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::INCF-INTERNAL-TIMESTAMP in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:WITH-GCONTEXT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:DEFINE-GCONTEXT-ACCESSOR in DEFMACRO
; compiling file "/usr/share/common-lisp/source/clx/input.lisp" (written 05 FEB 2026 08:13:27 PM):
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; file: /usr/share/common-lisp/source/clx/input.lisp
; in: DEFUN READ-INPUT
; (CONS NIL NIL)
;
; note: deleting unreachable code
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; in: DEFUN QUEUE-EVENT
; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::EVENT-CODE) XLIB:DISPLAY
; XLIB::ARGS)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in:
; DECLARE-EVENT (:KEY-PRESS :KEY-RELEASE :BUTTON-PRESS :BUTTON-RELEASE)
; (XLIB:DECLARE-EVENT (:KEY-PRESS :KEY-RELEASE :BUTTON-PRESS :BUTTON-RELEASE)
; (XLIB::DATA XLIB::CODE)
; (XLIB:CARD16 SEQUENCE)
; ((OR NULL XLIB:CARD32) TIME)
; (XLIB:WINDOW XLIB::ROOT (XLIB:WINDOW XLIB::EVENT-WINDOW))
; ((OR NULL XLIB:WINDOW) XLIB::CHILD)
; (XLIB:INT16 XLIB::ROOT-X XLIB::ROOT-Y XLIB::X XLIB::Y)
; (XLIB:CARD16 XLIB::STATE)
; (BOOLEAN XLIB::SAME-SCREEN-P))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB::ROOT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD29
; (THE XLIB:CARD29
; (XLIB:WINDOW-ID
; (XLIB::CHECK-CONSISTENCY '(:WINDOW :EVENT-WINDOW) XLIB:WINDOW
; XLIB::EVENT-WINDOW)))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE
; --> XLIB::WINDOW-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB::CHILD))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::ROOT-X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 20))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF
; --> XLIB::NULL-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :MOTION-NOTIFY
; (XLIB:DECLARE-EVENT :MOTION-NOTIFY
; ((XLIB::DATA BOOLEAN) XLIB::HINT-P)
; (XLIB:CARD16 SEQUENCE)
; ((OR NULL XLIB:CARD32) TIME)
; (XLIB:WINDOW XLIB::ROOT (XLIB:WINDOW XLIB::EVENT-WINDOW))
; ((OR NULL XLIB:WINDOW) XLIB::CHILD)
; (XLIB:INT16 XLIB::ROOT-X XLIB::ROOT-Y XLIB::X XLIB::Y)
; (XLIB:CARD16 XLIB::STATE)
; (BOOLEAN XLIB::SAME-SCREEN-P))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB::ROOT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD29
; (THE XLIB:CARD29
; (XLIB:WINDOW-ID
; (XLIB::CHECK-CONSISTENCY '(:WINDOW :EVENT-WINDOW) XLIB:WINDOW
; XLIB::EVENT-WINDOW)))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE
; --> XLIB::WINDOW-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB::CHILD))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::ROOT-X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 20))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF
; --> XLIB::NULL-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT (:ENTER-NOTIFY :LEAVE-NOTIFY)
; (XLIB:DECLARE-EVENT (:ENTER-NOTIFY :LEAVE-NOTIFY)
; ((XLIB::DATA
; (XLIB::MEMBER8 :ANCESTOR :VIRTUAL :INFERIOR :NONLINEAR
; :NONLINEAR-VIRTUAL))
; XLIB::KIND)
; (XLIB:CARD16 SEQUENCE)
; ((OR NULL XLIB:CARD32) TIME)
; (XLIB:WINDOW XLIB::ROOT (XLIB:WINDOW XLIB::EVENT-WINDOW))
; ((OR NULL XLIB:WINDOW) XLIB::CHILD)
; (XLIB:INT16 XLIB::ROOT-X XLIB::ROOT-Y XLIB::X XLIB::Y)
; (XLIB:CARD16 XLIB::STATE)
; ((XLIB::MEMBER8 :NORMAL :GRAB :UNGRAB) XLIB::MODE)
; ((BIT 0) XLIB::FOCUS-P)
; ((BIT 1) XLIB::SAME-SCREEN-P))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB::ROOT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD29
; (THE XLIB:CARD29
; (XLIB:WINDOW-ID
; (XLIB::CHECK-CONSISTENCY '(:WINDOW :EVENT-WINDOW) XLIB:WINDOW
; XLIB::EVENT-WINDOW)))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE
; --> XLIB::WINDOW-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB::CHILD))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::ROOT-X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 20))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF
; --> XLIB::NULL-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :KEYMAP-NOTIFY
; (XLIB:DECLARE-EVENT :KEYMAP-NOTIFY
; ((XLIB::BIT-VECTOR256 0) XLIB::KEYMAP))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::BIT-VECTOR256-PUT
; ==>
; (XLIB::WRITE-BITVECTOR256 XLIB::%BUFFER (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 0)
; XLIB::KEYMAP)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :EXPOSURE
; (XLIB:DECLARE-EVENT :EXPOSURE
; (XLIB:CARD16 SEQUENCE)
; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW))
; (XLIB:CARD16 XLIB::X XLIB::Y XLIB::WIDTH XLIB::HEIGHT COUNT))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :GRAPHICS-EXPOSURE
; (XLIB:DECLARE-EVENT :GRAPHICS-EXPOSURE
; (XLIB:CARD16 SEQUENCE)
; (XLIB:DRAWABLE (XLIB:DRAWABLE XLIB::EVENT-WINDOW))
; (XLIB:CARD16 XLIB::X XLIB::Y XLIB::WIDTH XLIB::HEIGHT)
; (XLIB:CARD16 XLIB::MINOR)
; (XLIB:CARD16 COUNT)
; (XLIB:CARD8 XLIB::MAJOR))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :NO-EXPOSURE
; (XLIB:DECLARE-EVENT :NO-EXPOSURE
; (XLIB:CARD16 SEQUENCE)
; (XLIB:DRAWABLE (XLIB:DRAWABLE XLIB::EVENT-WINDOW))
; (XLIB:CARD16 XLIB::MINOR)
; (XLIB:CARD8 XLIB::MAJOR))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::MINOR) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :CREATE-NOTIFY
; (XLIB:DECLARE-EVENT :CREATE-NOTIFY
; (XLIB:CARD16 SEQUENCE)
; (XLIB:WINDOW (XLIB::PARENT XLIB::EVENT-WINDOW) XLIB:WINDOW)
; (XLIB:INT16 XLIB::X XLIB::Y)
; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH)
; (BOOLEAN XLIB::OVERRIDE-REDIRECT-P))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB:WINDOW))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :DESTROY-NOTIFY
; (XLIB:DECLARE-EVENT :DESTROY-NOTIFY
; (XLIB:CARD16 SEQUENCE)
; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB:WINDOW))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :UNMAP-NOTIFY
; (XLIB:DECLARE-EVENT :UNMAP-NOTIFY
; (XLIB:CARD16 SEQUENCE)
; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW)
; (BOOLEAN XLIB::CONFIGURE-P))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB:WINDOW))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :MAP-NOTIFY
; (XLIB:DECLARE-EVENT :MAP-NOTIFY
; (XLIB:CARD16 SEQUENCE)
; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW)
; (BOOLEAN XLIB::OVERRIDE-REDIRECT-P))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB:WINDOW))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :MAP-REQUEST
; (XLIB:DECLARE-EVENT :MAP-REQUEST
; (XLIB:CARD16 SEQUENCE)
; (XLIB:WINDOW (XLIB::PARENT XLIB::EVENT-WINDOW) XLIB:WINDOW))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB:WINDOW))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :REPARENT-NOTIFY
; (XLIB:DECLARE-EVENT :REPARENT-NOTIFY
; (XLIB:CARD16 SEQUENCE)
; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW XLIB::PARENT)
; (XLIB:INT16 XLIB::X XLIB::Y)
; (BOOLEAN XLIB::OVERRIDE-REDIRECT-P))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB:WINDOW))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB::PARENT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :CONFIGURE-NOTIFY
; (XLIB:DECLARE-EVENT :CONFIGURE-NOTIFY
; (XLIB:CARD16 SEQUENCE)
; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW)
; ((OR NULL XLIB:WINDOW) XLIB::ABOVE-SIBLING)
; (XLIB:INT16 XLIB::X XLIB::Y)
; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH)
; (BOOLEAN XLIB::OVERRIDE-REDIRECT-P))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB:WINDOW))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE
; --> XLIB::WINDOW-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB::ABOVE-SIBLING))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF
; --> XLIB::NULL-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :CONFIGURE-REQUEST
; (XLIB:DECLARE-EVENT :CONFIGURE-REQUEST
; ((XLIB::DATA (XLIB::MEMBER8 :ABOVE :BELOW :TOP-IF :BOTTOM-IF :OPPOSITE))
; XLIB::STACK-MODE)
; (XLIB:CARD16 SEQUENCE)
; (XLIB:WINDOW (XLIB::PARENT XLIB::EVENT-WINDOW) XLIB:WINDOW)
; ((OR NULL XLIB:WINDOW) XLIB::ABOVE-SIBLING)
; (XLIB:INT16 XLIB::X XLIB::Y)
; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH XLIB::VALUE-MASK))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB:WINDOW))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE
; --> XLIB::WINDOW-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB::ABOVE-SIBLING))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF
; --> XLIB::NULL-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :GRAVITY-NOTIFY
; (XLIB:DECLARE-EVENT :GRAVITY-NOTIFY
; (XLIB:CARD16 SEQUENCE)
; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW)
; (XLIB:INT16 XLIB::X XLIB::Y))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB:WINDOW))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :RESIZE-REQUEST
; (XLIB:DECLARE-EVENT :RESIZE-REQUEST
; (XLIB:CARD16 SEQUENCE)
; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW))
; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::WIDTH) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :CIRCULATE-NOTIFY
; (XLIB:DECLARE-EVENT :CIRCULATE-NOTIFY
; (XLIB:CARD16 SEQUENCE)
; (XLIB:WINDOW XLIB::EVENT-WINDOW XLIB:WINDOW XLIB::PARENT)
; ((XLIB::MEMBER8 :TOP :BOTTOM) XLIB::PLACE))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB:WINDOW))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB::PARENT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :CIRCULATE-REQUEST
; (XLIB:DECLARE-EVENT :CIRCULATE-REQUEST
; (XLIB:CARD16 SEQUENCE)
; (XLIB:WINDOW (XLIB::PARENT XLIB::EVENT-WINDOW) XLIB:WINDOW)
; (XLIB::PAD16 1 2)
; ((XLIB::MEMBER8 :TOP :BOTTOM) XLIB::PLACE))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB:WINDOW))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :PROPERTY-NOTIFY
; (XLIB:DECLARE-EVENT :PROPERTY-NOTIFY
; (XLIB:CARD16 SEQUENCE)
; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW))
; (KEYWORD ATOM)
; ((OR NULL XLIB:CARD32) TIME)
; ((XLIB::MEMBER8 :NEW-VALUE :DELETED) XLIB::STATE))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::KEYWORD-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29
; (THE XLIB:CARD29
; (OR (XLIB::ATOM-ID ATOM XLIB::%BUFFER)
; (ERROR "CLX implementation error in KEYWORD-PUT")))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE
; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 TIME) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF
; --> XLIB::NULL-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :SELECTION-CLEAR
; (XLIB:DECLARE-EVENT :SELECTION-CLEAR
; (XLIB:CARD16 SEQUENCE)
; ((OR NULL XLIB:CARD32) TIME)
; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW))
; (KEYWORD XLIB::SELECTION))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29
; (THE XLIB:CARD29
; (XLIB:WINDOW-ID
; (XLIB::CHECK-CONSISTENCY '(:WINDOW :EVENT-WINDOW) XLIB:WINDOW
; XLIB::EVENT-WINDOW)))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::KEYWORD-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29
; (THE XLIB:CARD29
; (OR (XLIB::ATOM-ID XLIB::SELECTION XLIB::%BUFFER)
; (ERROR "CLX implementation error in KEYWORD-PUT")))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :SELECTION-REQUEST
; (XLIB:DECLARE-EVENT :SELECTION-REQUEST
; (XLIB:CARD16 SEQUENCE)
; ((OR NULL XLIB:CARD32) TIME)
; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW) XLIB::REQUESTOR)
; (KEYWORD XLIB::SELECTION XLIB::TARGET)
; ((OR NULL KEYWORD) XLIB::PROPERTY))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29
; (THE XLIB:CARD29
; (XLIB:WINDOW-ID
; (XLIB::CHECK-CONSISTENCY '(:WINDOW :EVENT-WINDOW) XLIB:WINDOW
; XLIB::EVENT-WINDOW)))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB::REQUESTOR))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::KEYWORD-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29
; (THE XLIB:CARD29
; (OR (XLIB::ATOM-ID XLIB::SELECTION XLIB::%BUFFER)
; (ERROR "CLX implementation error in KEYWORD-PUT")))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD29
; (THE XLIB:CARD29
; (OR (XLIB::ATOM-ID XLIB::TARGET XLIB::%BUFFER)
; (ERROR "CLX implementation error in KEYWORD-PUT")))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 20))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE
; --> XLIB::KEYWORD-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29
; (THE XLIB:CARD29
; (OR (XLIB::ATOM-ID XLIB::PROPERTY XLIB::%BUFFER)
; (ERROR "CLX implementation error in KEYWORD-PUT")))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 24))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF
; --> XLIB::NULL-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 24))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :SELECTION-NOTIFY
; (XLIB:DECLARE-EVENT :SELECTION-NOTIFY
; (XLIB:CARD16 SEQUENCE)
; ((OR NULL XLIB:CARD32) TIME)
; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW))
; (KEYWORD XLIB::SELECTION XLIB::TARGET)
; ((OR NULL KEYWORD) XLIB::PROPERTY))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29
; (THE XLIB:CARD29
; (XLIB:WINDOW-ID
; (XLIB::CHECK-CONSISTENCY '(:WINDOW :EVENT-WINDOW) XLIB:WINDOW
; XLIB::EVENT-WINDOW)))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::KEYWORD-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29
; (THE XLIB:CARD29
; (OR (XLIB::ATOM-ID XLIB::SELECTION XLIB::%BUFFER)
; (ERROR "CLX implementation error in KEYWORD-PUT")))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD29
; (THE XLIB:CARD29
; (OR (XLIB::ATOM-ID XLIB::TARGET XLIB::%BUFFER)
; (ERROR "CLX implementation error in KEYWORD-PUT")))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE
; --> XLIB::KEYWORD-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29
; (THE XLIB:CARD29
; (OR (XLIB::ATOM-ID XLIB::PROPERTY XLIB::%BUFFER)
; (ERROR "CLX implementation error in KEYWORD-PUT")))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 20))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF
; --> XLIB::NULL-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 20))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :COLORMAP-NOTIFY
; (XLIB:DECLARE-EVENT :COLORMAP-NOTIFY
; (XLIB:CARD16 SEQUENCE)
; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW))
; ((OR NULL XLIB:COLORMAP) XLIB:COLORMAP)
; (BOOLEAN XLIB::NEW-P XLIB::INSTALLED-P))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF THE
; --> XLIB::COLORMAP-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:COLORMAP-ID XLIB:COLORMAP))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::OR-PUT COND IF
; --> XLIB::NULL-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
because:
Upgraded element type of array is not known at compile time.
; in: DECLARE-EVENT :CLIENT-MESSAGE
; (XLIB:DECLARE-EVENT :CLIENT-MESSAGE
; (XLIB::DATA FORMAT)
; (XLIB:CARD16 SEQUENCE)
; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW))
; (KEYWORD TYPE)
; ((XLIB::CLIENT-MESSAGE-SEQUENCE FORMAT) XLIB::DATA))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::READING-EVENT XLIB::WITH-BUFFER-INPUT LET LET*
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
because:
Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
because:
Upgraded element type of array is not known at compile time.
;
; note: unable to
; optimize
; because:
; Upgraded element type of array is not known at compile time.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE
; --> ECASE COND IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD8 MIN
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE
; --> ECASE COND IF IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD16 MIN
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE
; --> ECASE COND IF IF IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD32 MIN
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::KEYWORD-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29
; (THE XLIB:CARD29
; (OR (XLIB::ATOM-ID TYPE XLIB::%BUFFER)
; (ERROR "CLX implementation error in KEYWORD-PUT")))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; in: DEFUN MAKE-ERROR
; (FUNCALL XLIB::ERROR-DECODE-FUNCTION XLIB:DISPLAY XLIB::EVENT)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/input-tmpE9RDNCMC.fasl
; compilation finished in 0:00:02.952
REDEFINITION-WITH-DEFMACRO: redefining XLIB:DEFINE-EXTENSION in DEFMACRO
REDEFINITION-WITH-DEFUN: redefining XLIB::CANONICALIZE-EVENT-NAME in DEFUN
REDEFINITION-WITH-DEFUN: redefining XLIB::EXTENSION-EVENT-KEY-P in DEFUN
REDEFINITION-WITH-DEFUN: redefining XLIB::ALLOCATE-EXTENSION-EVENT-CODE in DEFUN
REDEFINITION-WITH-DEFMACRO: redefining XLIB:EXTENSION-OPCODE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-EVENT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:DECLARE-EVENT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::EVENT-LOOP in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:EVENT-CASE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:EVENT-COND in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::EVENT-DISPATCH in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::BINDING-EVENT-VALUES in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:DEFINE-ERROR in DEFMACRO
; compiling file "/usr/share/common-lisp/source/clx/requests.lisp" (written 05 FEB 2026 08:13:27 PM):
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; file: /usr/share/common-lisp/source/clx/requests.lisp
; in: DEFUN CREATE-WINDOW
; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:WINDOW 'XLIB:WINDOW)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL
; ==>
; 1
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a INTEGER, not a FIXNUM.
The result is a (VALUES (OR (INTEGER * -1) (INTEGER 4096)) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a INTEGER, not a FIXNUM.
The result is a (VALUES (OR (INTEGER * -1) (INTEGER 4096)) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
etc.
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEWINDOW+)
; (XLIB::DATA XLIB::DEPTH)
; (XLIB:RESOURCE-ID XLIB::WID)
; (XLIB:WINDOW XLIB::PARENT)
; (XLIB:INT16 XLIB::X XLIB::Y)
; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH)
; ((XLIB::MEMBER16 :COPY :INPUT-OUTPUT :INPUT-ONLY) CLASS)
; (XLIB:RESOURCE-ID
; (COND ((EQ XLIB::VISUAL :COPY) 0)
; ((TYPEP XLIB::VISUAL 'XLIB:RESOURCE-ID) XLIB::VISUAL)
; (T (XLIB:VISUAL-INFO-ID XLIB::VISUAL))))
; (XLIB::MASK
; (XLIB:CARD32 XLIB::BACK-PIXMAP XLIB::BACK-PIXEL XLIB::BORDER-PIXMAP
; XLIB::BORDER-PIXEL)
; ((XLIB::MEMBER-VECTOR XLIB::+BIT-GRAVITY-VECTOR+) XLIB:BIT-GRAVITY)
; ((XLIB::MEMBER-VECTOR XLIB::+WIN-GRAVITY-VECTOR+) XLIB::GRAVITY)
; ((MEMBER :NOT-USEFUL :WHEN-MAPPED :ALWAYS) XLIB::BACKING-STORE)
; (XLIB:CARD32 XLIB::BACKING-PLANES XLIB::BACKING-PIXEL)
; ((MEMBER :OFF :ON) XLIB::OVERRIDE-REDIRECT XLIB::SAVE-UNDER)
; (XLIB:CARD32 XLIB:EVENT-MASK XLIB::DO-NOT-PROPAGATE-MASK)
; ((OR (MEMBER :COPY) XLIB:COLORMAP) XLIB:COLORMAP)
; ((OR (MEMBER :NONE) XLIB:CURSOR) XLIB:CURSOR)))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN SETQ
; ==>
; (LOGIOR XLIB::%MASK 4096)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 4096)) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 4096)) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a INTEGER, not a FIXNUM.
The result is a (VALUES (OR (INTEGER * -1) (INTEGER 8192)) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a INTEGER, not a FIXNUM.
The result is a (VALUES (OR (INTEGER * -1) (INTEGER 8192)) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
etc.
; ==>
; (LOGIOR XLIB::%MASK 8192)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 8192)) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 8192)) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a INTEGER, not a FIXNUM.
The result is a (VALUES (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a INTEGER, not a FIXNUM.
The result is a (VALUES (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
etc.
; ==>
; (LOGIOR XLIB::%MASK 16384)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a INTEGER, not a FIXNUM.
; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB::PARENT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::%MASK) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 28))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT
; --> XLIB::OR-PUT COND OR LET XLIB::MEMBER-PUT-PREDICATING LET AND IF
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 #:G96) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET
; (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT
; --> XLIB::OR-PUT COND OR LET IF THE XLIB::CURSOR-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:CURSOR-ID XLIB:CURSOR))
; XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET
; (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT
; --> XLIB::OR-PUT COND OR LET XLIB::MEMBER-PUT-PREDICATING LET AND IF
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 #:G86) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET
; (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT
; --> XLIB::OR-PUT COND OR LET IF THE XLIB::COLORMAP-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:COLORMAP-ID XLIB:COLORMAP))
; XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET
; (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT
; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::DO-NOT-PROPAGATE-MASK)
; XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET
; (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB:EVENT-MASK) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET
; (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT
; --> XLIB::MEMBER-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29
; (THE XLIB:CARD29
; (CASE XLIB::SAVE-UNDER
; (:OFF 0)
; (:ON 1)
; (T (XLIB::X-TYPE-ERROR XLIB::SAVE-UNDER '#))))
; XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD29
; (THE XLIB:CARD29
; (CASE XLIB::OVERRIDE-REDIRECT
; (:OFF 0)
; (:ON 1)
; (T (XLIB::X-TYPE-ERROR XLIB::OVERRIDE-REDIRECT '#))))
; XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT
; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::BACKING-PIXEL) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET
; (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::BACKING-PLANES) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET
; (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT
; --> XLIB::MEMBER-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29
; (THE XLIB:CARD29
; (CASE XLIB::BACKING-STORE
; (:NOT-USEFUL 0)
; (:WHEN-MAPPED 1)
; (:ALWAYS 2)
; (T (XLIB::X-TYPE-ERROR XLIB::BACKING-STORE '#))))
; XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT
; --> XLIB::MEMBER-VECTOR-PUT XLIB::MEMBER-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29
; (THE XLIB:CARD29
; (OR (POSITION XLIB::GRAVITY (THE SIMPLE-VECTOR '#) :TEST #'EQ)
; (XLIB::X-TYPE-ERROR XLIB::GRAVITY
; '(MEMBER :UNMAP :NORTH-WEST :NORTH :NORTH-EAST
; :WEST :CENTER :EAST :SOUTH-WEST :SOUTH
; :SOUTH-EAST :STATIC))))
; XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD29
; (THE XLIB:CARD29
; (OR (POSITION XLIB:BIT-GRAVITY (THE SIMPLE-VECTOR '#) :TEST #'EQ)
; (XLIB::X-TYPE-ERROR XLIB:BIT-GRAVITY
; '(MEMBER :FORGET :NORTH-WEST :NORTH :NORTH-EAST
; :WEST :CENTER :EAST :SOUTH-WEST :SOUTH
; :SOUTH-EAST :STATIC))))
; XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT
; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::BORDER-PIXEL) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET
; (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::BORDER-PIXMAP) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET
; (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::BACK-PIXEL) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET
; (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::BACK-PIXMAP) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET
; (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN REPARENT-WINDOW
; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW)
; XLIB::+X-REPARENTWINDOW+)
; (XLIB:WINDOW XLIB:WINDOW XLIB::PARENT)
; (XLIB:INT16 XLIB::X XLIB::Y))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB::PARENT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN INTERN-ATOM
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-INTERNATOM+ 12
; :SIZES 32)
; ((XLIB::DATA 0) (XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL)
; (STRING STRING))
; (VALUES (XLIB::RESOURCE-ID-GET 8)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::STRING-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-CHAR XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8) STRING 0
; #:G21)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN FIND-ATOM
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-INTERNATOM+ 12
; :SIZES 32)
; ((XLIB::DATA 1) (XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL)
; (STRING STRING))
; (VALUES (XLIB::OR-GET 8 NULL XLIB:RESOURCE-ID)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::STRING-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-CHAR XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8) STRING 0
; #:G21)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN CHANGE-PROPERTY
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEPROPERTY+)
; ((XLIB::DATA (MEMBER :REPLACE :PREPEND :APPEND)) XLIB::MODE)
; (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID XLIB::TYPE-ID)
; (XLIB:CARD8 FORMAT)
; (XLIB:CARD32 LENGTH)
; (PROGN
; (ECASE FORMAT
; (8
; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD8 :START XLIB::START
; :END XLIB::END :TRANSFORM XLIB::TRANSFORM))
; (16
; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD16 :START
; XLIB::START :END XLIB::END :TRANSFORM
; XLIB::TRANSFORM))
; (32
; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD32 :START
; XLIB::START :END XLIB::END :TRANSFORM
; XLIB::TRANSFORM)))))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::RESOURCE-ID-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 XLIB::PROPERTY-ID) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 XLIB::TYPE-ID) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD8 :START XLIB::START :END
; XLIB::END :TRANSFORM XLIB::TRANSFORM)
; ==>
; (XLIB::WRITE-SEQUENCE-CARD8 XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 24) XLIB::DATA
; XLIB::START #:G20 XLIB::TRANSFORM)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD16 :START XLIB::START :END
; XLIB::END :TRANSFORM XLIB::TRANSFORM)
; ==>
; (XLIB::WRITE-SEQUENCE-CARD16 XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 24)
; XLIB::DATA XLIB::START #:G26 XLIB::TRANSFORM)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::SEQUENCE-PUT 24 XLIB::DATA :FORMAT XLIB:CARD32 :START XLIB::START :END
; XLIB::END :TRANSFORM XLIB::TRANSFORM)
; ==>
; (XLIB::WRITE-SEQUENCE-CARD32 XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 24)
; XLIB::DATA XLIB::START #:G32 XLIB::TRANSFORM)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN DELETE-PROPERTY
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-DELETEPROPERTY+)
; (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::RESOURCE-ID-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 XLIB::PROPERTY-ID) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN GET-PROPERTY
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETPROPERTY+ NIL
; :SIZES (8 32))
; (((XLIB::DATA BOOLEAN) XLIB::DELETE-P) (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:RESOURCE-ID XLIB::PROPERTY-ID)
; ((OR NULL XLIB:RESOURCE-ID) XLIB::TYPE-ID) (XLIB:CARD32 XLIB::START)
; (XLIB:CARD32 (XLIB::INDEX- (OR XLIB::END 64000) XLIB::START)))
; (LET ((XLIB::REPLY-FORMAT (XLIB::CARD8-GET 1))
; (XLIB::REPLY-TYPE (XLIB::CARD32-GET 8))
; (XLIB::BYTES-AFTER (XLIB::CARD32-GET 12))
; (XLIB::NITEMS (XLIB::CARD32-GET 16)))
; (VALUES XLIB::REPLY-FORMAT XLIB::REPLY-TYPE XLIB::BYTES-AFTER
; (AND (PLUSP XLIB::NITEMS) (ECASE XLIB::REPLY-FORMAT # # # #)))))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::RESOURCE-ID-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 XLIB::PROPERTY-ID) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::OR-PUT COND IF XLIB::NULL-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::START) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT LET XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 20))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::OR-PUT COND IF THE XLIB::RESOURCE-ID-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 XLIB::TYPE-ID) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN ROTATE-PROPERTIES
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-ROTATEPROPERTIES+)
; (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:CARD16 LENGTH)
; (XLIB:INT16 (- XLIB::DELTA))
; ((SEQUENCE :END LENGTH) SEQUENCE))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 LENGTH) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN SET-SELECTION-OWNER
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETSELECTIONOWNER+)
; ((OR NULL XLIB:WINDOW) XLIB::OWNER)
; (XLIB:RESOURCE-ID XLIB::SELECTION-ID)
; ((OR NULL XLIB:CARD32) TIME))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::RESOURCE-ID-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 XLIB::SELECTION-ID) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF
; --> XLIB::NULL-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF
; --> THE XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 TIME) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN CONVERT-SELECTION
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CONVERTSELECTION+)
; (XLIB:WINDOW XLIB::REQUESTOR)
; (XLIB:RESOURCE-ID XLIB::SELECTION-ID XLIB::TYPE-ID)
; ((OR NULL XLIB:RESOURCE-ID) XLIB::PROPERTY-ID)
; ((OR NULL XLIB:CARD32) TIME))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::RESOURCE-ID-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 XLIB::SELECTION-ID) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 XLIB::TYPE-ID) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF
; --> XLIB::NULL-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF
; --> THE XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 TIME) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 20))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF
; --> XLIB::NULL-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 20))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF
; --> THE XLIB::RESOURCE-ID-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 XLIB::PROPERTY-ID) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; in: DEFUN SEND-EVENT
; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE)
; XLIB:DISPLAY XLIB::ARGS)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SENDEVENT+)
; ((XLIB::DATA BOOLEAN) XLIB::PROPAGATE-P)
; (LENGTH 11)
; ((OR (MEMBER :POINTER-WINDOW :INPUT-FOCUS) XLIB:WINDOW) XLIB:WINDOW)
; (XLIB:CARD32 (XLIB::ENCODE-EVENT-MASK XLIB:EVENT-MASK))
; (XLIB:CARD8 XLIB::EXTERNAL-EVENT-CODE)
; (PROGN
; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE)
; XLIB:DISPLAY XLIB::ARGS)
; (SETF (XLIB::BUFFER-BOFFSET XLIB:DISPLAY)
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 44))))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN GRAB-POINTER
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GRABPOINTER+ NIL
; :SIZES 8)
; (((XLIB::DATA BOOLEAN) XLIB::OWNER-P) (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK))
; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P))
; ((OR NULL XLIB:WINDOW) XLIB::CONFINE-TO)
; ((OR NULL XLIB:CURSOR) XLIB:CURSOR) ((OR NULL XLIB:CARD32) TIME))
; (VALUES
; (XLIB::MEMBER8-GET 1 :SUCCESS :ALREADY-GRABBED :INVALID-TIME :NOT-VIEWABLE
; :FROZEN)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT LET XLIB::CARD16-PUT XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::OR-PUT COND IF THE XLIB::CURSOR-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:CURSOR-ID XLIB:CURSOR))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::OR-PUT COND IF THE XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 TIME) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 20))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::OR-PUT COND IF XLIB::NULL-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 20))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN GRAB-BUTTON
; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW)
; XLIB::+X-GRABBUTTON+)
; ((XLIB::DATA BOOLEAN) XLIB::OWNER-P)
; (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK))
; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P))
; ((OR NULL XLIB:WINDOW) XLIB::CONFINE-TO)
; ((OR NULL XLIB:CURSOR) XLIB:CURSOR)
; (XLIB:CARD8
; (IF (EQ XLIB::BUTTON :ANY)
; 0
; XLIB::BUTTON))
; (XLIB::PAD8 1)
; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS)))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF
; --> THE XLIB::CURSOR-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:CURSOR-ID XLIB:CURSOR))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF
; --> XLIB::NULL-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN UNGRAB-BUTTON
; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW)
; XLIB::+X-UNGRABBUTTON+)
; (XLIB::DATA
; (IF (EQ XLIB::BUTTON :ANY)
; 0
; XLIB::BUTTON))
; (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS)))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN CHANGE-ACTIVE-POINTER-GRAB
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEACTIVEPOINTERGRAB+)
; ((OR NULL XLIB:CURSOR) XLIB:CURSOR)
; ((OR NULL XLIB:CARD32) TIME)
; (XLIB:CARD16 (XLIB::ENCODE-POINTER-EVENT-MASK XLIB:EVENT-MASK)))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF
; --> THE XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 TIME) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF
; --> XLIB::NULL-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN GRAB-KEYBOARD
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GRABKEYBOARD+ NIL
; :SIZES 8)
; (((XLIB::DATA BOOLEAN) XLIB::OWNER-P) (XLIB:WINDOW XLIB:WINDOW)
; ((OR NULL XLIB:CARD32) TIME)
; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P)))
; (VALUES
; (XLIB::MEMBER8-GET 1 :SUCCESS :ALREADY-GRABBED :INVALID-TIME :NOT-VIEWABLE
; :FROZEN)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::OR-PUT COND IF XLIB::NULL-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::OR-PUT COND IF THE XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 TIME) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN GRAB-KEY
; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW)
; XLIB::+X-GRABKEY+)
; ((XLIB::DATA BOOLEAN) XLIB::OWNER-P)
; (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS))
; (XLIB:CARD8
; (IF (EQ XLIB::KEY :ANY)
; 0
; XLIB::KEY))
; (BOOLEAN (NOT XLIB::SYNC-POINTER-P) (NOT XLIB::SYNC-KEYBOARD-P)))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN UNGRAB-KEY
; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW)
; XLIB::+X-UNGRABKEY+)
; (XLIB::DATA
; (IF (EQ XLIB::KEY :ANY)
; 0
; XLIB::KEY))
; (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:CARD16 (XLIB::ENCODE-MODIFIER-MASK XLIB::MODIFIERS)))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN MOTION-EVENTS
; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH
; (XLIB::INDEX* (XLIB::CARD32-GET 8) 3) :INDEX
; XLIB::+REPLYSIZE+)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETMOTIONEVENTS+
; NIL :SIZES 32)
; ((XLIB:WINDOW XLIB:WINDOW) ((OR NULL XLIB:CARD32) XLIB::START XLIB::STOP))
; (VALUES
; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH
; (XLIB::INDEX* (XLIB::CARD32-GET 8) 3) :INDEX
; XLIB::+REPLYSIZE+)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::OR-PUT COND IF XLIB::NULL-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::OR-PUT COND IF THE XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::STOP) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::OR-PUT COND IF XLIB::NULL-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::OR-PUT COND IF THE XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::START) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN TRANSLATE-COORDINATES
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-TRANSLATECOORDS+
; 16 :SIZES (8 16 32))
; ((XLIB:WINDOW XLIB::SRC XLIB::DST) (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y))
; (AND (XLIB::BOOLEAN-GET 1)
; (VALUES (XLIB::INT16-GET 12) (XLIB::INT16-GET 14)
; (XLIB::OR-GET 8 NULL XLIB:WINDOW))))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::WINDOW-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB::DST))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::INT16-PUT XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::SRC-X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN WARP-POINTER
; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::DST)
; XLIB::+X-WARPPOINTER+)
; (XLIB:RESOURCE-ID 0)
; (XLIB:WINDOW XLIB::DST)
; (XLIB:INT16 0 0)
; (XLIB:CARD16 0 0)
; (XLIB:INT16 XLIB::DST-X XLIB::DST-Y))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB::DST))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN WARP-POINTER-RELATIVE
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-WARPPOINTER+)
; (XLIB:RESOURCE-ID 0)
; (XLIB:RESOURCE-ID 0)
; (XLIB:INT16 0 0)
; (XLIB:CARD16 0 0)
; (XLIB:INT16 XLIB::X-OFF XLIB::Y-OFF))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::RESOURCE-ID-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN WARP-POINTER-IF-INSIDE
; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::DST)
; XLIB::+X-WARPPOINTER+)
; (XLIB:WINDOW XLIB::SRC XLIB::DST)
; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y)
; (XLIB:CARD16 (OR XLIB::SRC-WIDTH 0) (OR XLIB::SRC-HEIGHT 0))
; (XLIB:INT16 XLIB::DST-X XLIB::DST-Y))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB::DST))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::SRC-X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN WARP-POINTER-RELATIVE-IF-INSIDE
; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB::SRC)
; XLIB::+X-WARPPOINTER+)
; (XLIB:WINDOW XLIB::SRC)
; (XLIB:RESOURCE-ID 0)
; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y)
; (XLIB:CARD16 (OR XLIB::SRC-WIDTH 0) (OR XLIB::SRC-HEIGHT 0))
; (XLIB:INT16 XLIB::X-OFF XLIB::Y-OFF))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::RESOURCE-ID-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::SRC-X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN SET-INPUT-FOCUS
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETINPUTFOCUS+)
; ((XLIB::DATA (MEMBER :NONE :POINTER-ROOT :PARENT)) XLIB::REVERT-TO)
; ((OR (MEMBER :NONE :POINTER-ROOT) XLIB:WINDOW) XLIB::FOCUS)
; ((OR NULL XLIB:CARD32) TIME))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF
; --> THE XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 TIME) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF
; --> XLIB::NULL-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; in: DEFUN CREATE-PIXMAP
; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:PIXMAP 'XLIB:PIXMAP)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL
; ==>
; 1
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEPIXMAP+)
; (XLIB::DATA XLIB::DEPTH)
; (XLIB:RESOURCE-ID XLIB::PID)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::DRAWABLE-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:DRAWABLE-ID XLIB:DRAWABLE))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::WIDTH) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN CLEAR-AREA
; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW)
; XLIB::+X-CLEARTOBACKGROUND+)
; ((XLIB::DATA BOOLEAN) XLIB::EXPOSURES-P)
; (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:INT16 XLIB::X XLIB::Y)
; (XLIB:CARD16 (OR XLIB::WIDTH 0) (OR XLIB::HEIGHT 0)))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN COPY-AREA
; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB::SRC)
; XLIB::+X-COPYAREA+ :GC-FORCE XLIB:GCONTEXT)
; (XLIB:DRAWABLE XLIB::SRC XLIB::DST)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y XLIB::DST-X XLIB::DST-Y)
; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::DRAWABLE-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:DRAWABLE-ID XLIB::DST))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:GCONTEXT-ID XLIB:GCONTEXT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::SRC-X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN COPY-PLANE
; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB::SRC)
; XLIB::+X-COPYPLANE+ :GC-FORCE XLIB:GCONTEXT)
; (XLIB:DRAWABLE XLIB::SRC XLIB::DST)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; (XLIB:INT16 XLIB::SRC-X XLIB::SRC-Y XLIB::DST-X XLIB::DST-Y)
; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)
; (XLIB:CARD32 XLIB::PLANE))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::DRAWABLE-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:DRAWABLE-ID XLIB::DST))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:GCONTEXT-ID XLIB:GCONTEXT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::SRC-X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; in: DEFUN CREATE-COLORMAP
; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:COLORMAP 'XLIB:COLORMAP)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL
; ==>
; 1
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATECOLORMAP+)
; ((XLIB::DATA BOOLEAN) XLIB::ALLOC-P)
; (XLIB:CARD29 XLIB::ID)
; (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:CARD29 (XLIB:VISUAL-INFO-ID XLIB:VISUAL-INFO)))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB:WINDOW))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD29-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; in: DEFUN COPY-COLORMAP-AND-FREE
; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB::NEW-COLORMAP 'XLIB:COLORMAP)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL
; ==>
; 1
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-COPYCOLORMAPANDFREE+)
; (XLIB:RESOURCE-ID XLIB::ID)
; (XLIB:COLORMAP XLIB:COLORMAP))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::COLORMAP-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:COLORMAP-ID XLIB:COLORMAP))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN ALLOC-COLOR
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCNAMEDCOLOR+
; 24 :SIZES (16 32))
; ((XLIB:COLORMAP XLIB:COLORMAP) (XLIB:CARD16 LENGTH) (XLIB::PAD16 NIL)
; (STRING STRING))
; (VALUES (XLIB::CARD32-GET 8)
; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 18) :GREEN
; (XLIB::RGB-VAL-GET 20) :BLUE
; (XLIB::RGB-VAL-GET 22))
; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 12) :GREEN
; (XLIB::RGB-VAL-GET 14) :BLUE
; (XLIB::RGB-VAL-GET 16))))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 LENGTH) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::STRING-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-CHAR XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12) STRING 0
; #:G46)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLOR+ 20
; :SIZES (16 32))
; ((XLIB:COLORMAP XLIB:COLORMAP)
; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB:COLOR) (XLIB:COLOR-GREEN XLIB:COLOR)
; (XLIB:COLOR-BLUE XLIB:COLOR))
; (XLIB::PAD16 NIL))
; (VALUES (XLIB::CARD32-GET 16)
; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 8) :GREEN
; (XLIB::RGB-VAL-GET 10) :BLUE
; (XLIB::RGB-VAL-GET 12))
; XLIB:COLOR))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT LET XLIB::RGB-VAL-PUT XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 (XLIB::RGB-VAL->CARD16 XLIB::.VALUE.))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN ALLOC-COLOR-CELLS
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLORCELLS+
; NIL :SIZES 16)
; (((XLIB::DATA BOOLEAN) XLIB::CONTIGUOUS-P) (XLIB:COLORMAP XLIB:COLORMAP)
; (XLIB:CARD16 XLIB::COLORS XLIB::PLANES))
; (LET ((XLIB::PIXEL-LENGTH (XLIB::CARD16-GET 8))
; (XLIB::MASK-LENGTH (XLIB::CARD16-GET 10)))
; (VALUES
; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH
; XLIB::PIXEL-LENGTH :INDEX XLIB::+REPLYSIZE+)
; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH
; XLIB::MASK-LENGTH :INDEX
; (XLIB::INDEX+ XLIB::+REPLYSIZE+ #)))))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::COLORS) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN ALLOC-COLOR-PLANES
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-ALLOCCOLORPLANES+
; NIL :SIZES (16 32))
; (((XLIB::DATA BOOLEAN) XLIB::CONTIGUOUS-P) (XLIB:COLORMAP XLIB:COLORMAP)
; (XLIB:CARD16 XLIB::COLORS XLIB::REDS XLIB::GREENS XLIB::BLUES))
; (LET ((XLIB::RED-MASK (XLIB::CARD32-GET 12))
; (XLIB::GREEN-MASK (XLIB::CARD32-GET 16))
; (XLIB::BLUE-MASK (XLIB::CARD32-GET 20)))
; (VALUES
; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH
; (XLIB::CARD16-GET 8) :INDEX XLIB::+REPLYSIZE+)
; XLIB::RED-MASK XLIB::GREEN-MASK XLIB::BLUE-MASK)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::COLORS) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFUN FREE-COLORS
; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP)
; XLIB::+X-FREECOLORS+)
; (XLIB:COLORMAP XLIB:COLORMAP)
; (XLIB:CARD32 XLIB::PLANE-MASK)
; (SEQUENCE XLIB::PIXELS))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (LENGTH XLIB::PIXELS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::PLANE-MASK) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-CARD32 XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)
; XLIB::PIXELS 0 #:G9 NIL)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN STORE-COLOR
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORENAMEDCOLOR+)
; ((XLIB::DATA XLIB:CARD8) XLIB::FLAGS)
; (XLIB:COLORMAP XLIB:COLORMAP)
; (XLIB:CARD32 XLIB:PIXEL)
; (XLIB:CARD16 LENGTH)
; (XLIB::PAD16 NIL)
; (STRING STRING))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB:PIXEL) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 LENGTH) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::STRING-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-CHAR XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16) STRING 0
; #:G36)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-STORECOLORS+)
; (XLIB:COLORMAP XLIB:COLORMAP)
; (XLIB:CARD32 XLIB:PIXEL)
; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::SPEC) (XLIB:COLOR-GREEN XLIB::SPEC)
; (XLIB:COLOR-BLUE XLIB::SPEC))
; (XLIB:CARD8 XLIB::FLAGS)
; (XLIB::PAD8 NIL))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB:PIXEL) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::RGB-VAL-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 (XLIB::RGB-VAL->CARD16 XLIB::.VALUE.))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFUN QUERY-COLORS
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYCOLORS+ NIL
; :SIZES (8 16))
; ((XLIB:COLORMAP XLIB:COLORMAP) (SEQUENCE XLIB::PIXELS))
; (LET ((SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE #)))
; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+)
; (DOTIMES (XLIB::I (LENGTH SEQUENCE) SEQUENCE)
; (SETF # #)
; (XLIB::ADVANCE-BUFFER-OFFSET 8))))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (LENGTH XLIB::PIXELS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST (SIMPLE-ARRAY * (*))
SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
; (LENGTH SEQUENCE)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST (SIMPLE-ARRAY * (*))
; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS
SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY
*
(*)).
; (ELT SEQUENCE XLIB::I)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS
; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY
; * (*)).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS
SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYCOLORS+ NIL
; :SIZES (8 16))
; ((XLIB:COLORMAP XLIB:COLORMAP) (SEQUENCE XLIB::PIXELS))
; (LET ((SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE #)))
; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+)
; (DOTIMES (XLIB::I (LENGTH SEQUENCE) SEQUENCE)
; (SETF # #)
; (XLIB::ADVANCE-BUFFER-OFFSET 8))))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-CARD32 XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8)
; XLIB::PIXELS 0 #:G16 NIL)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN LOOKUP-COLOR
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-LOOKUPCOLOR+ 20
; :SIZES 16)
; ((XLIB:COLORMAP XLIB:COLORMAP) (XLIB:CARD16 LENGTH) (XLIB::PAD16 NIL)
; (STRING STRING))
; (VALUES
; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 14) :GREEN (XLIB::RGB-VAL-GET 16)
; :BLUE (XLIB::RGB-VAL-GET 18))
; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 8) :GREEN (XLIB::RGB-VAL-GET 10)
; :BLUE (XLIB::RGB-VAL-GET 12))))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 LENGTH) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::STRING-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-CHAR XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12) STRING 0
; #:G17)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; in: DEFUN CREATE-CURSOR
; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL
; ==>
; 1
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATECURSOR+)
; (XLIB:RESOURCE-ID XLIB::CID)
; (XLIB:PIXMAP XLIB::SOURCE)
; ((OR NULL XLIB:PIXMAP) XLIB::MASK)
; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND)
; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND))
; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND)
; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND))
; (XLIB:CARD16 XLIB::X XLIB::Y))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::PIXMAP-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:PIXMAP-ID XLIB::SOURCE))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF
; --> THE XLIB::PIXMAP-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:PIXMAP-ID XLIB::MASK))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::RGB-VAL-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 (XLIB::RGB-VAL->CARD16 XLIB::.VALUE.))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::OR-PUT COND IF
; --> XLIB::NULL-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; in: DEFUN CREATE-GLYPH-CURSOR
; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL
; ==>
; 1
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEGLYPHCURSOR+)
; (XLIB:RESOURCE-ID XLIB::CID XLIB::SOURCE-FONT-ID XLIB::MASK-FONT-ID)
; (XLIB:CARD16 XLIB::SOURCE-CHAR)
; (XLIB:CARD16 XLIB::MASK-CHAR)
; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND)
; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND))
; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND)
; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND)))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::RESOURCE-ID-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 XLIB::SOURCE-FONT-ID) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 XLIB::MASK-FONT-ID) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::SOURCE-CHAR) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN RECOLOR-CURSOR
; (XLIB::WITH-BUFFER-REQUEST ((XLIB:CURSOR-DISPLAY XLIB:CURSOR)
; XLIB::+X-RECOLORCURSOR+)
; (XLIB:CURSOR XLIB:CURSOR)
; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::FOREGROUND)
; (XLIB:COLOR-GREEN XLIB::FOREGROUND) (XLIB:COLOR-BLUE XLIB::FOREGROUND))
; (XLIB:RGB-VAL (XLIB:COLOR-RED XLIB::BACKGROUND)
; (XLIB:COLOR-GREEN XLIB::BACKGROUND) (XLIB:COLOR-BLUE XLIB::BACKGROUND)))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::RGB-VAL-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 (XLIB::RGB-VAL->CARD16 XLIB::.VALUE.))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN QUERY-BEST-CURSOR
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12
; :SIZES 16)
; ((XLIB::DATA 0) (XLIB:WINDOW XLIB:DRAWABLE)
; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT))
; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::WIDTH) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN QUERY-BEST-TILE
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12
; :SIZES 16)
; ((XLIB::DATA 1) (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT))
; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::WIDTH) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN QUERY-BEST-STIPPLE
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYBESTSIZE+ 12
; :SIZES 16)
; ((XLIB::DATA 2) (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT))
; (VALUES (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::WIDTH) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN QUERY-EXTENSION
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYEXTENSION+
; 12 :SIZES 8)
; ((XLIB:CARD16 (LENGTH STRING)) (XLIB::PAD16 NIL) (STRING STRING))
; (AND (XLIB::BOOLEAN-GET 8)
; (VALUES (XLIB::CARD8-GET 9) (XLIB::CARD8-GET 10)
; (XLIB::CARD8-GET 11))))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::STRING-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-CHAR XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8) STRING 0
; #:G16)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN CHANGE-KEYBOARD-CONTROL
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEKEYBOARDCONTROL+
; :SIZES (32))
; (XLIB::MASK
; (INTEGER XLIB::KEY-CLICK-PERCENT XLIB::BELL-PERCENT XLIB::BELL-PITCH
; XLIB::BELL-DURATION)
; (XLIB:CARD32 XLIB::LED) ((MEMBER :OFF :ON) XLIB::LED-MODE)
; (XLIB:CARD32 XLIB::KEY)
; ((MEMBER :OFF :ON :DEFAULT) XLIB::AUTO-REPEAT-MODE)))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT
; --> XLIB::MEMBER-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29
; (THE XLIB:CARD29
; (CASE XLIB::AUTO-REPEAT-MODE
; (:OFF 0)
; (:ON 1)
; (:DEFAULT 2)
; (T (XLIB::X-TYPE-ERROR XLIB::AUTO-REPEAT-MODE '#))))
; XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT
; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::KEY) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET
; (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT
; --> XLIB::MEMBER-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29
; (THE XLIB:CARD29
; (CASE XLIB::LED-MODE
; (:OFF 0)
; (:ON 1)
; (T (XLIB::X-TYPE-ERROR XLIB::LED-MODE '#))))
; XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT
; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::LED) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET
; (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN XLIB::CHECK-PUT
; --> XLIB::INTEGER-PUT XLIB::WRITE-INT32
; ==>
; (XLIB::ASET-INT32 (THE XLIB:INT32 XLIB::BELL-DURATION) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET
; (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-INT32 (THE XLIB:INT32 XLIB::BELL-PITCH) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET
; (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-INT32 (THE XLIB:INT32 XLIB::BELL-PERCENT) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET
; (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-INT32 (THE XLIB:INT32 XLIB::KEY-CLICK-PERCENT) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET
; (XLIB::INDEX-INCF XLIB::%INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFUN SET-POINTER-MAPPING
; (LENGTH MAP)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY
; XLIB::+X-SETPOINTERMAPPING+ 2 :SIZES 8)
; ((XLIB::DATA (LENGTH MAP)) ((SEQUENCE :FORMAT XLIB:CARD8) MAP))
; (VALUES (XLIB::BOOLEAN-GET 1)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (LENGTH MAP)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The result is a (VALUES (RATIONAL 0 65535)
&OPTIONAL), not a (VALUES
INTEGER
&REST T).
; in: DEFUN POINTER-CONTROL
; (/ (XLIB::CARD16-GET 8) (XLIB::CARD16-GET 10))
;
; note: unable to
; optimize
; due to type uncertainty:
; The result is a (VALUES (RATIONAL 0 65535) &OPTIONAL), not a (VALUES INTEGER
; &REST T).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFUN CHANGE-ACCESS-HOST
; (LENGTH XLIB::ADDRESS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEHOSTS+)
; ((XLIB::DATA BOOLEAN) XLIB::REMOVE-P)
; (XLIB:CARD8
; (XLIB::ENCODE-TYPE (OR NULL (MEMBER :INTERNET :DECNET :CHAOS) XLIB:CARD32)
; XLIB::FAMILY))
; (XLIB:CARD16 (LENGTH XLIB::ADDRESS))
; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::ADDRESS))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (LENGTH XLIB::ADDRESS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST (SIMPLE-ARRAY * (*))
SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY
*
(*)).
; in: DEFUN ACCESS-HOSTS
; (ELT SEQUENCE XLIB::I)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST (SIMPLE-ARRAY * (*))
; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY
; * (*)).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR LIST (SIMPLE-ARRAY * (*))
SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR LIST (SIMPLE-ARRAY * (*))
; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST.
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/requests-tmpGTSGBQIR.fasl
; compilation finished in 0:00:05.260
REDEFINITION-WITH-DEFMACRO: redefining XLIB:WITH-SERVER-GRABBED in DEFMACRO
; compiling file "/usr/share/common-lisp/source/clx/fonts.lisp" (written 05 FEB 2026 08:13:27 PM):
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; file: /usr/share/common-lisp/source/clx/fonts.lisp
; in: DEFUN OPEN-FONT
; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:FONT 'XLIB:FONT)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL
; ==>
; 1
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-OPENFONT+)
; (XLIB:RESOURCE-ID XLIB:FONT-ID)
; (XLIB:CARD16 (LENGTH XLIB::NAME-STRING))
; (XLIB::PAD16 NIL)
; (STRING XLIB::NAME-STRING))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::STRING-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-CHAR XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)
; XLIB::NAME-STRING 0 #:G11)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; in: DEFUN OPEN-FONT-INTERNAL
; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:FONT 'XLIB:FONT)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL
; ==>
; 1
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-OPENFONT+)
; (XLIB:RESOURCE-ID XLIB::ID)
; (XLIB:CARD16 (LENGTH XLIB::NAME-STRING))
; (XLIB::PAD16 NIL)
; (STRING XLIB::NAME-STRING))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::STRING-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-CHAR XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)
; XLIB::NAME-STRING 0 #:G11)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a SINGLE-FLOAT.
; in: DEFUN SET-FONT-PATH
; (CEILING XLIB::REQUEST-LENGTH 4)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a SINGLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a DOUBLE-FLOAT.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a DOUBLE-FLOAT.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a INTEGER.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a RATIONAL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a (UNSIGNED-BYTE 29).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a (UNSIGNED-BYTE 29).
SIMPLE-COMPILER-NOTE: unable to
convert division by 2^k to shift
due to type uncertainty:
The first argument is a REAL, not a INTEGER.
;
; note: unable to
; convert division by 2^k to shift
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a REAL, not a INTEGER.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a REAL, not a INTEGER.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
; (ELT XLIB::PATHS XLIB::I)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a LIST.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a LIST.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR STRING SYMBOL
CHARACTER), not a (OR
STRING
SYMBOL).
; (STRING (ELT XLIB::PATHS XLIB::I))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING
; SYMBOL).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR STRING SYMBOL
CHARACTER), not a SYMBOL.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (OR STRING SYMBOL
CHARACTER), not a STRING.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING.
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/fonts-tmpRCRZ6VP.fasl
; compilation finished in 0:00:00.600
; compiling file "/usr/share/common-lisp/source/clx/graphics.lisp" (written 05 FEB 2026 08:13:27 PM):
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; file: /usr/share/common-lisp/source/clx/graphics.lisp
; in: DEFUN DRAW-POINT
; (XLIB::PUT-ITEMS (4)
; (XLIB::CODE XLIB::+X-POLYPOINT+)
; (XLIB::DATA 0)
; (LENGTH 4)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; (XLIB:INT16 XLIB::X XLIB::Y))
; --> XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:GCONTEXT-ID XLIB:GCONTEXT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::CHECK-PUT XLIB::INT16-PUT XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::COMPARE-REQUEST (4)
; (XLIB::DATA 0)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:GCONTEXT XLIB:GCONTEXT))
; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 =
; --> XLIB::READ-CARD29
; ==>
; (XLIB::AREF-CARD29 XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFUN DRAW-POINTS
; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE)
; XLIB::+X-POLYPOINT+ :GC-FORCE XLIB:GCONTEXT)
; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (LENGTH XLIB::POINTS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:GCONTEXT-ID XLIB:GCONTEXT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-INT16 XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)
; XLIB::POINTS 0 #:G13 NIL)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN DRAW-LINE
; (XLIB::PUT-ITEMS (4)
; (XLIB::CODE XLIB::+X-POLYSEGMENT+)
; (LENGTH 5)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; (XLIB:INT16 XLIB::X1 XLIB::Y1 XLIB::X2 XLIB::Y2))
; --> XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:GCONTEXT-ID XLIB:GCONTEXT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::CHECK-PUT XLIB::INT16-PUT XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X1) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::COMPARE-REQUEST (4)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:GCONTEXT XLIB:GCONTEXT))
; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 =
; --> XLIB::READ-CARD29
; ==>
; (XLIB::AREF-CARD29 XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFUN DRAW-LINES
; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE)
; XLIB::+X-POLYLINE+ :GC-FORCE XLIB:GCONTEXT)
; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (LENGTH XLIB::POINTS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:GCONTEXT-ID XLIB:GCONTEXT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-INT16 XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)
; XLIB::POINTS 0 #:G13 NIL)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFUN FILL-POLYGON
; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE)
; XLIB::+X-FILLPOLY+ :GC-FORCE XLIB:GCONTEXT)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; ((XLIB::MEMBER8 :COMPLEX :NON-CONVEX :CONVEX) XLIB::SHAPE)
; (BOOLEAN XLIB::RELATIVE-P)
; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (LENGTH XLIB::POINTS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:GCONTEXT-ID XLIB:GCONTEXT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFUN DRAW-SEGMENTS
; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE)
; XLIB::+X-POLYSEGMENT+ :GC-FORCE XLIB:GCONTEXT)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::SEGMENTS))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (LENGTH XLIB::SEGMENTS)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:GCONTEXT-ID XLIB:GCONTEXT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-INT16 XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)
; XLIB::SEGMENTS 0 #:G9 NIL)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN DRAW-RECTANGLE
; (XLIB::PUT-ITEMS (4)
; (XLIB::CODE XLIB::REQUEST)
; (LENGTH 5)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; (XLIB:INT16 XLIB::X XLIB::Y)
; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT))
; --> XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:GCONTEXT-ID XLIB:GCONTEXT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::CHECK-PUT XLIB::INT16-PUT XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::COMPARE-REQUEST (4)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:GCONTEXT XLIB:GCONTEXT))
; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 =
; --> XLIB::READ-CARD29
; ==>
; (XLIB::AREF-CARD29 XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFUN DRAW-RECTANGLES
; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE)
; (IF XLIB::FILL-P
; XLIB::+X-POLYFILLRECTANGLE+
; XLIB::+X-POLYRECTANGLE+)
; :GC-FORCE XLIB:GCONTEXT)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (LENGTH XLIB::RECTANGLES)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:GCONTEXT-ID XLIB:GCONTEXT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-INT16 XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)
; XLIB::RECTANGLES 0 #:G9 NIL)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN DRAW-ARC
; (XLIB::PUT-ITEMS (4)
; (XLIB::CODE XLIB::REQUEST)
; (LENGTH 6)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; (XLIB:INT16 XLIB::X XLIB::Y)
; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)
; (XLIB:ANGLE XLIB::ANGLE1 XLIB::ANGLE2))
; --> XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:GCONTEXT-ID XLIB:GCONTEXT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::CHECK-PUT XLIB::INT16-PUT XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::COMPARE-REQUEST (4)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:GCONTEXT XLIB:GCONTEXT))
; --> MACROLET AND IF XLIB::CHECK-PUT XLIB::GCONTEXT-PUT XLIB::WRITE-CARD29 =
; --> XLIB::READ-CARD29
; ==>
; (XLIB::AREF-CARD29 XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN DRAW-ARCS-LIST
; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE)
; XLIB::REQUEST :GC-FORCE XLIB:GCONTEXT)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; (PROGN
; (XLIB::CARD16-PUT 2 (XLIB::INDEX+ (XLIB::INDEX-ASH LENGTH -1) 3))
; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
; (DO ((XLIB::ARC XLIB::ARCS))
; ((ENDP XLIB::ARC) (SETF #))
; (WHEN (XLIB::INDEX>= XLIB::BUFFER-BOFFSET XLIB::LIMIT)
; (SETF #)
; (XLIB::BUFFER-FLUSH XLIB:DISPLAY)
; (XLIB::SET-BUFFER-OFFSET #))
; (XLIB::INT16-PUT 0 (POP XLIB::ARC))
; (XLIB::INT16-PUT 2 (POP XLIB::ARC))
; (XLIB::CARD16-PUT 4 (POP XLIB::ARC))
; (XLIB::CARD16-PUT 6 (POP XLIB::ARC))
; (XLIB::ANGLE-PUT 8 (POP XLIB::ARC))
; (XLIB::ANGLE-PUT 10 (POP XLIB::ARC))
; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)))))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:GCONTEXT-ID XLIB:GCONTEXT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
; in: DEFUN DRAW-ARCS-VECTOR
; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 0))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 1))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 2))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 3))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 4))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a VECTOR, not a SIMPLE-ARRAY.
; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 5))
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a VECTOR, not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE)
; XLIB::REQUEST :GC-FORCE XLIB:GCONTEXT)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; (PROGN
; (XLIB::CARD16-PUT 2 (XLIB::INDEX+ (XLIB::INDEX-ASH LENGTH -1) 3))
; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
; (DO ((XLIB::N 0 #)
; (LENGTH #))
; ((XLIB::INDEX>= XLIB::N LENGTH) (SETF #))
; (WHEN (XLIB::INDEX>= XLIB::BUFFER-BOFFSET XLIB::LIMIT)
; (SETF #)
; (XLIB::BUFFER-FLUSH XLIB:DISPLAY)
; (XLIB::SET-BUFFER-OFFSET #))
; (XLIB::INT16-PUT 0 (AREF XLIB::ARCS #))
; (XLIB::INT16-PUT 2 (AREF XLIB::ARCS #))
; (XLIB::CARD16-PUT 4 (AREF XLIB::ARCS #))
; (XLIB::CARD16-PUT 6 (AREF XLIB::ARCS #))
; (XLIB::ANGLE-PUT 8 (AREF XLIB::ARCS #))
; (XLIB::ANGLE-PUT 10 (AREF XLIB::ARCS #))
; (XLIB::SET-BUFFER-OFFSET (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12)))))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:GCONTEXT-ID XLIB:GCONTEXT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFUN PUT-RAW-IMAGE
; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE)
; XLIB::+X-PUTIMAGE+ :GC-FORCE XLIB:GCONTEXT)
; ((XLIB::DATA (MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP)) FORMAT)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT)
; (XLIB:INT16 XLIB::X XLIB::Y)
; (XLIB:CARD8 XLIB::LEFT-PAD XLIB::DEPTH)
; (XLIB::PAD16 NIL)
; ((SEQUENCE :FORMAT XLIB:CARD8 :START XLIB::START) XLIB::DATA))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (LENGTH XLIB::DATA)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:GCONTEXT-ID XLIB:GCONTEXT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::WIDTH) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
The result is a (VALUES (OR (INTEGER 0 0) (INTEGER 4 17179869180))
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
The result is a (VALUES (OR (INTEGER 0 0) (INTEGER 4 17179869180))
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; in: DEFUN GET-RAW-IMAGE
; (* 4 (XLIB::CARD32-GET 4))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (OR (INTEGER 0 0) (INTEGER 4 17179869180))
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (OR (INTEGER 0 0) (INTEGER 4 17179869180))
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETIMAGE+ NIL
; :SIZES (8 32))
; (((XLIB::DATA (MEMBER ERROR :XY-PIXMAP :Z-PIXMAP)) FORMAT)
; (XLIB:DRAWABLE XLIB:DRAWABLE) (XLIB:INT16 XLIB::X XLIB::Y)
; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) (XLIB:CARD32 XLIB::PLANE-MASK))
; (LET ((XLIB::DEPTH (XLIB::CARD8-GET 1))
; (LENGTH (* 4 #))
; (XLIB::VISUAL (XLIB::RESOURCE-ID-GET 8)))
; (VALUES
; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :FORMAT XLIB:CARD8
; :LENGTH LENGTH :START XLIB::START :DATA XLIB::DATA
; :INDEX ...)
; XLIB::DEPTH (XLIB:VISUAL-INFO XLIB:DISPLAY XLIB::VISUAL))))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::INT16-PUT XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/graphics-tmpC6WXNUWP.fasl
; compilation finished in 0:00:00.804
; compiling file "/usr/share/common-lisp/source/clx/text.lisp" (written 05 FEB 2026 08:13:27 PM):
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; file: /usr/share/common-lisp/source/clx/text.lisp
; in: DEFUN TEXT-EXTENTS
; (LENGTH SEQUENCE)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
The result is a (VALUES (INTEGER -2147516416 2147516414) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
The first argument is a (SIGNED-BYTE 16), not a (UNSIGNED-BYTE 32).
The second argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -2147516416 2147516414) &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE
32)
&OPTIONAL).
etc.
; (INCF XLIB::WIDTH (THE XLIB:INT32 XLIB::NEW-FONT))
; --> THE
; ==>
; (+ (THE XLIB:INT32 XLIB::NEW-FONT) XLIB::WIDTH)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER -2147516416 2147516414) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (SIGNED-BYTE 16), not a (UNSIGNED-BYTE 32).
; The second argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -2147516416 2147516414) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
The second argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE
32)
&OPTIONAL).
etc.
; (INCF XLIB::WIDTH (THE XLIB:INT32 XLIB::W))
; --> THE
; ==>
; (+ (THE XLIB:INT32 XLIB::W) XLIB::WIDTH)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
; The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
; The second argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -4294967296 4294967294) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFUN TEXT-WIDTH
; (LENGTH SEQUENCE)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
; (INCF XLIB::WIDTH
; (IF (OR (XLIB::FONT-CHAR-INFOS-INTERNAL XLIB:FONT)
; (XLIB::FONT-LOCAL-ONLY-P XLIB:FONT))
; (XLIB::TEXT-EXTENTS-LOCAL XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END
; :WIDTH-ONLY)
; (XLIB::TEXT-WIDTH-SERVER XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END)))
; --> THE
; ==>
; (+
; (IF (OR (XLIB::FONT-CHAR-INFOS-INTERNAL XLIB:FONT)
; (XLIB::FONT-LOCAL-ONLY-P XLIB:FONT))
; (XLIB::TEXT-EXTENTS-LOCAL XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END
; :WIDTH-ONLY)
; (XLIB::TEXT-WIDTH-SERVER XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END))
; XLIB::WIDTH)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
The result is a (VALUES (INTEGER -2147516416 2147516414) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
The first argument is a (SIGNED-BYTE 16), not a (UNSIGNED-BYTE 32).
The second argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
The result is a (VALUES (INTEGER -2147516416 2147516414) &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE
32)
&OPTIONAL).
etc.
; (INCF XLIB::WIDTH (THE XLIB:INT32 XLIB::NEW-FONT))
; --> THE
; ==>
; (+ (THE XLIB:INT32 XLIB::NEW-FONT) XLIB::WIDTH)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (INTEGER -2147516416 2147516414) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (SIGNED-BYTE 16), not a (UNSIGNED-BYTE 32).
; The second argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES (INTEGER -2147516416 2147516414) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
The first argument is a T, not a (UNSIGNED-BYTE 32).
The second argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
; (INCF XLIB::WIDTH
; (IF (OR (XLIB::FONT-CHAR-INFOS-INTERNAL XLIB:FONT)
; (XLIB::FONT-LOCAL-ONLY-P XLIB:FONT))
; (XLIB::TEXT-EXTENTS-LOCAL XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END
; :WIDTH-ONLY)
; (XLIB::TEXT-WIDTH-SERVER XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END)))
; --> THE
; ==>
; (+
; (IF (OR (XLIB::FONT-CHAR-INFOS-INTERNAL XLIB:FONT)
; (XLIB::FONT-LOCAL-ONLY-P XLIB:FONT))
; (XLIB::TEXT-EXTENTS-LOCAL XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END
; :WIDTH-ONLY)
; (XLIB::TEXT-WIDTH-SERVER XLIB:FONT XLIB::WBUF 0 XLIB::BUF-END))
; XLIB::WIDTH)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a T, not a (UNSIGNED-BYTE 32).
; The second argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN TEXT-EXTENTS-SERVER
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYTEXTEXTENTS+
; 28 :SIZES (8 16 32))
; (((XLIB::DATA BOOLEAN) (ODDP LENGTH))
; (LENGTH (XLIB::INDEX+ (XLIB::INDEX-CEILING LENGTH 2) 2))
; (XLIB:RESOURCE-ID XLIB:FONT-ID)
; ((SEQUENCE :FORMAT XLIB::CHAR2B :START XLIB::START :END XLIB::END
; :APPENDING T)
; SEQUENCE))
; (VALUES (XLIB::INTEGER-GET 16) (XLIB::INT16-GET 12) (XLIB::INT16-GET 14)
; (XLIB::INTEGER-GET 20) (XLIB::INTEGER-GET 24) (XLIB::INT16-GET 8)
; (XLIB::INT16-GET 10)
; (XLIB::MEMBER8-GET 1 :LEFT-TO-RIGHT :RIGHT-TO-LEFT)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT
; ==>
; (XLIB::WRITE-SEQUENCE-CHAR2B XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8) SEQUENCE
; XLIB::START XLIB::END NIL)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN TEXT-WIDTH-SERVER
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYTEXTEXTENTS+
; 28 :SIZES 32)
; (((XLIB::DATA BOOLEAN) (ODDP LENGTH))
; (LENGTH (XLIB::INDEX+ (XLIB::INDEX-CEILING LENGTH 2) 2))
; (XLIB:RESOURCE-ID XLIB:FONT-ID)
; ((SEQUENCE :FORMAT XLIB::CHAR2B :START XLIB::START :END XLIB::END
; :APPENDING T)
; SEQUENCE))
; (VALUES (XLIB::INTEGER-GET 16)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT
; ==>
; (XLIB::WRITE-SEQUENCE-CHAR2B XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8) SEQUENCE
; XLIB::START XLIB::END NIL)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a T, not a FIXNUM.
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
etc.
; in: DEFUN DRAW-GLYPH
; (LDB (BYTE 8 0) ELT)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; etc.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; (XLIB:INT16 XLIB::X XLIB::Y)
; (XLIB:CARD8 1 0)
; (XLIB:CARD8 (LDB (BYTE 8 0) ELT))
; (XLIB:CARD8 (LDB (BYTE 8 8) ELT)))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:GCONTEXT-ID XLIB:GCONTEXT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
; in: DEFUN DRAW-GLYPHS8
; (INCF XLIB::OVERALL-WIDTH XLIB::TRANSLATED-WIDTH)
; --> THE
; ==>
; (+ XLIB::TRANSLATED-WIDTH XLIB::OVERALL-WIDTH)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (NOT NULL), not a FIXNUM.
The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
The second argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The second argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the second argument of CLOSURE-INIT
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT8+ :GC-FORCE
; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; (XLIB:INT16 XLIB::X XLIB::Y)
; (PROGN
; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY)
; (DO* (#
; #
; #
; #
; #
; #)
; (# # # # # #)
; (DECLARE #
; #
; #)
; (SETQ #)
; (MULTIPLE-VALUE-BIND # # # # # # #)))))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET
; ==>
; (FLET ((SB-THREAD::WITH-RECURSIVE-LOCK-THUNK ()
; (XLIB::FORCE-GCONTEXT-CHANGES-INTERNAL XLIB:GCONTEXT)
; (MULTIPLE-VALUE-PROG1
; (XLIB::WITHOUT-ABORTS
; #)
; (XLIB:DISPLAY-INVOKE-AFTER-FUNCTION XLIB::.DISPLAY.))))
; (DECLARE (DYNAMIC-EXTENT (FUNCTION SB-THREAD::WITH-RECURSIVE-LOCK-THUNK)))
; (SB-THREAD::CALL-WITH-RECURSIVE-LOCK-TIMED
; #'SB-THREAD::WITH-RECURSIVE-LOCK-THUNK (XLIB::BUFFER-LOCK XLIB::.DISPLAY.)
; T NIL))
;
; note: doing signed word to integer coercion (cost 20), for:
; the second argument of CLOSURE-INIT
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:GCONTEXT-ID XLIB:GCONTEXT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20) to BOFFSET
; (INCF XLIB::BOFFSET (XLIB::INDEX+ XLIB::DST-CHUNK 2))
;
; note: doing signed word to integer coercion (cost 20) to BOFFSET
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
; in: DEFUN DRAW-GLYPHS16
; (INCF XLIB::OVERALL-WIDTH XLIB::TRANSLATED-WIDTH)
; --> THE
; ==>
; (+ XLIB::TRANSLATED-WIDTH XLIB::OVERALL-WIDTH)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (NOT NULL), not a FIXNUM.
The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
The second argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE 32)
&OPTIONAL).
etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (NOT NULL), not a FIXNUM.
; The second argument is a (SIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (NOT NULL), not a (UNSIGNED-BYTE 32).
; The second argument is a (SIGNED-BYTE 32), not a (UNSIGNED-BYTE 32).
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the second argument of CLOSURE-INIT
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-POLYTEXT16+ :GC-FORCE
; XLIB:GCONTEXT :LENGTH XLIB::REQUEST-LENGTH)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; (XLIB:INT16 XLIB::X XLIB::Y)
; (PROGN
; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY)
; (DO* (#
; #
; #
; #
; #
; #)
; (# # # # # #)
; (DECLARE #
; #
; #)
; (SETQ #)
; (MULTIPLE-VALUE-BIND # # # # # # # #)))))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET
; ==>
; (FLET ((SB-THREAD::WITH-RECURSIVE-LOCK-THUNK ()
; (XLIB::FORCE-GCONTEXT-CHANGES-INTERNAL XLIB:GCONTEXT)
; (MULTIPLE-VALUE-PROG1
; (XLIB::WITHOUT-ABORTS
; #)
; (XLIB:DISPLAY-INVOKE-AFTER-FUNCTION XLIB::.DISPLAY.))))
; (DECLARE (DYNAMIC-EXTENT (FUNCTION SB-THREAD::WITH-RECURSIVE-LOCK-THUNK)))
; (SB-THREAD::CALL-WITH-RECURSIVE-LOCK-TIMED
; #'SB-THREAD::WITH-RECURSIVE-LOCK-THUNK (XLIB::BUFFER-LOCK XLIB::.DISPLAY.)
; T NIL))
;
; note: doing signed word to integer coercion (cost 20), for:
; the second argument of CLOSURE-INIT
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:GCONTEXT-ID XLIB:GCONTEXT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a T, not a FIXNUM.
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a T, not a FIXNUM.
etc.
; in: DEFUN DRAW-IMAGE-GLYPH
; (LDB (BYTE 8 0) ELT)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a T, not a FIXNUM.
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a T, not a FIXNUM.
; etc.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::OPCODE :GC-FORCE XLIB:GCONTEXT)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; (XLIB::DATA 1)
; (XLIB:INT16 XLIB::X XLIB::Y)
; (XLIB:CARD8 (LDB (BYTE 8 0) ELT))
; (XLIB:CARD8 (LDB (BYTE 8 8) ELT)))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:GCONTEXT-ID XLIB:GCONTEXT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN DRAW-IMAGE-GLYPHS8
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-IMAGETEXT8+ :GC-FORCE
; XLIB:GCONTEXT :LENGTH LENGTH)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; (XLIB:INT16 XLIB::X XLIB::Y)
; (PROGN
; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY)
; (MULTIPLE-VALUE-SETQ (XLIB::NEW-START XLIB:FONT XLIB::TRANSLATED-WIDTH)
; (FUNCALL # SEQUENCE XLIB::START XLIB::END XLIB:FONT XLIB::BUFFER-BBUF
; #))
; (SETQ XLIB::CHUNK #)
; (WHEN (AND # #) (SETQ #) (RETURN-FROM XLIB::CHANGE-FONT))
; (WHEN (XLIB::INDEX-ZEROP XLIB::CHUNK)
; (RETURN-FROM XLIB::DRAW-IMAGE-GLYPHS8 XLIB::NEW-START))
; (XLIB::DATA-PUT 1 XLIB::CHUNK)
; (LET (#)
; (XLIB::LENGTH-PUT 2 #)
; (SETF #)))))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:GCONTEXT-ID XLIB:GCONTEXT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN DRAW-IMAGE-GLYPHS16
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-IMAGETEXT16+ :GC-FORCE
; XLIB:GCONTEXT :LENGTH LENGTH)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; (XLIB:INT16 XLIB::X XLIB::Y)
; (PROGN
; (XLIB::WITH-BUFFER-FLUSH-INHIBITED (XLIB:DISPLAY)
; (MULTIPLE-VALUE-SETQ (XLIB::NEW-START XLIB:FONT XLIB::TRANSLATED-WIDTH)
; (FUNCALL # SEQUENCE XLIB::START XLIB::END XLIB:FONT XLIB::BUFFER 0))
; (SETQ XLIB::CHUNK #)
; (WHEN (AND # #) (SETQ #) (RETURN-FROM XLIB::CHANGE-FONT))
; (WHEN (XLIB::INDEX-ZEROP XLIB::CHUNK)
; (RETURN-FROM XLIB::DRAW-IMAGE-GLYPHS16 XLIB::NEW-START))
; (XLIB::WRITE-SEQUENCE-CHAR2B XLIB:DISPLAY
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16)
; XLIB::BUFFER 0 XLIB::CHUNK)
; (XLIB::DATA-PUT 1 XLIB::CHUNK)
; (LET (#)
; (XLIB::LENGTH-PUT 2 #)
; (SETF #)))))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:GCONTEXT-ID XLIB:GCONTEXT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (ARRAY *
(* *)), not a SIMPLE-ARRAY.
; in: DEFUN CHANGE-KEYBOARD-MAPPING
; (AREF XLIB::KEYSYMS XLIB::I XLIB::J)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (ARRAY *
(* *)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Not a simple array
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Not a simple array
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::CARD29-PUT (XLIB::INDEX* XLIB::W 4)
; (AREF XLIB::KEYSYMS XLIB::I XLIB::J))
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (AREF XLIB::KEYSYMS XLIB::I XLIB::J))
; XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET
; (XLIB::INDEX* XLIB::W 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a NUMBER, not a RATIONAL.
; in: DEFUN KEYBOARD-MAPPING
; (1+ XLIB::I)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a NUMBER, not a RATIONAL.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (ARRAY *
(* *)), not a SIMPLE-ARRAY.
; (AREF XLIB::RESULT XLIB::I XLIB::J)
; --> FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a (ARRAY *
(* *)), not a SIMPLE-ARRAY.
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY.
SIMPLE-COMPILER-NOTE: unable to
avoid runtime dispatch on array element type
because:
Not a simple array
;
; note: unable to
; avoid runtime dispatch on array element type
; because:
; Not a simple array
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (MOD 136902081541) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The result is a (VALUES (MOD 136902081541) &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE
32)
&OPTIONAL).
etc.
; (MAKE-ARRAY
; `(,(XLIB::INDEX+ XLIB::START XLIB::KEYCODE-COUNT)
; ,XLIB::KEYSYMS-PER-KEYCODE)
; :ELEMENT-TYPE 'XLIB:KEYSYM :INITIAL-ELEMENT 0)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (MOD 136902081541) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (MOD 136902081541) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a (OR NUMBER NULL), not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (OR NUMBER NULL), not a FIXNUM.
The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; (1+ XLIB::I)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR NUMBER NULL), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR NUMBER NULL), not a FIXNUM.
; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::CARD29-GET (* XLIB::J 4))
; ==>
; (XLIB::AREF-CARD29 XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET (* XLIB::J 4)))
;
; note: doing signed word to integer coercion (cost 20)
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/text-tmpB17HDEGA.fasl
; compilation finished in 0:00:01.516
; compiling file "/usr/share/common-lisp/source/clx/attributes.lisp" (written 05 FEB 2026 08:13:27 PM):
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline ASH (cost 2) because:
The result is a (VALUES
(INTEGER 1
57896044618658097711785492504343953926634992332820282019728792003956564819968)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline ASH (cost 3) because:
The result is a (VALUES
(INTEGER 1
57896044618658097711785492504343953926634992332820282019728792003956564819968)
&OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL).
etc.
; file: /usr/share/common-lisp/source/clx/attributes.lisp
; in: DEFUN CHANGE-WINDOW-ATTRIBUTE
; (ASH 1 NUMBER)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The result is a (VALUES
; (INTEGER 1
; 57896044618658097711785492504343953926634992332820282019728792003956564819968)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The result is a (VALUES
; (INTEGER 1
; 57896044618658097711785492504343953926634992332820282019728792003956564819968)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST ((XLIB:WINDOW-DISPLAY XLIB:WINDOW)
; XLIB::+X-CHANGEWINDOWATTRIBUTES+)
; (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:CARD32 (ASH 1 NUMBER) XLIB::VALUE))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::VALUE) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline ASH (cost 2) because:
The result is a (VALUES
(INTEGER 1
57896044618658097711785492504343953926634992332820282019728792003956564819968)
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline ASH (cost 3) because:
The result is a (VALUES
(INTEGER 1
57896044618658097711785492504343953926634992332820282019728792003956564819968)
&OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL).
etc.
; in: DEFUN CHANGE-DRAWABLE-GEOMETRY
; (ASH 1 NUMBER)
;
; note: forced to do full call
; unable to do inline ASH (cost 2) because:
; The result is a (VALUES
; (INTEGER 1
; 57896044618658097711785492504343953926634992332820282019728792003956564819968)
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline ASH (cost 3) because:
; The result is a (VALUES
; (INTEGER 1
; 57896044618658097711785492504343953926634992332820282019728792003956564819968)
; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 32) &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE)
; XLIB::+X-CONFIGUREWINDOW+)
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:CARD16 (ASH 1 NUMBER))
; (XLIB:CARD29 XLIB::VALUE))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD29-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 XLIB::VALUE) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN PUT-WINDOW-ATTRIBUTE-CHANGES
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEWINDOWATTRIBUTES+)
; (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:CARD32 XLIB::MASK)
; (PROGN
; (DO ((XLIB::BITS XLIB::MASK #)
; (XLIB::REQUEST-SIZE 2)
; (XLIB::I 1 #))
; ((ZEROP XLIB::BITS) (XLIB::CARD16-PUT 2 #) (XLIB::INDEX-INCF # #))
; (DECLARE (TYPE XLIB:MASK32 XLIB::BITS)
; (TYPE XLIB:ARRAY-INDEX XLIB::I XLIB::REQUEST-SIZE))
; (WHEN (ODDP XLIB::BITS) (XLIB::CARD32-PUT # #)))))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::MASK) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20) to BITS
; (DO ((XLIB::BITS XLIB::MASK (ASH XLIB::BITS -1))
; (XLIB::REQUEST-SIZE 2)
; (XLIB::I 1 (XLIB::INDEX+ XLIB::I 1)))
; ((ZEROP XLIB::BITS)
; (XLIB::CARD16-PUT 2 (XLIB::INDEX-INCF XLIB::REQUEST-SIZE))
; (XLIB::INDEX-INCF (XLIB::BUFFER-BOFFSET XLIB:DISPLAY)
; (XLIB::INDEX* XLIB::REQUEST-SIZE 4)))
; (DECLARE (TYPE XLIB:MASK32 XLIB::BITS)
; (TYPE XLIB:ARRAY-INDEX XLIB::I XLIB::REQUEST-SIZE))
; (WHEN (ODDP XLIB::BITS)
; (XLIB::CARD32-PUT (XLIB::INDEX* (XLIB::INDEX-INCF XLIB::REQUEST-SIZE) 4)
; (AREF XLIB::CHANGES XLIB::I))))
; --> LET TAGBODY PSETQ LET*
; ==>
; (SETQ XLIB::BITS #:NEW16)
;
; note: doing signed word to integer coercion (cost 20) to BITS
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::CARD32-PUT (XLIB::INDEX* (XLIB::INDEX-INCF XLIB::REQUEST-SIZE) 4)
; (AREF XLIB::CHANGES XLIB::I))
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 (AREF XLIB::CHANGES XLIB::I))
; XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET
; (XLIB::INDEX*
; (XLIB::INDEX-INCF XLIB::REQUEST-SIZE) 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN PUT-DRAWABLE-GEOMETRY-CHANGES
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CONFIGUREWINDOW+)
; (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:CARD16 XLIB::MASK)
; (PROGN
; (DO ((XLIB::BITS XLIB::MASK #)
; (XLIB::REQUEST-SIZE 2)
; (XLIB::I 1 #))
; ((ZEROP XLIB::BITS) (XLIB::CARD16-PUT 2 #) (XLIB::INDEX-INCF # #))
; (DECLARE (TYPE XLIB:MASK16 XLIB::BITS)
; (TYPE FIXNUM XLIB::REQUEST-SIZE)
; (TYPE XLIB:ARRAY-INDEX XLIB::I))
; (WHEN (ODDP XLIB::BITS) (XLIB::CARD29-PUT # #)))))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::MASK) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::CARD29-PUT (* (INCF XLIB::REQUEST-SIZE) 4)
; (AREF XLIB::CHANGES XLIB::I))
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (AREF XLIB::CHANGES XLIB::I))
; XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET
; (* (INCF XLIB::REQUEST-SIZE) 4)))
;
; note: doing signed word to integer coercion (cost 20)
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/attributes-tmpE3AQVWGT.fasl
; compilation finished in 0:00:00.900
REDEFINITION-WITH-DEFMACRO: redefining XLIB::STATE-ATTRIBUTES in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::STATE-ATTRIBUTE-CHANGES in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::STATE-GEOMETRY in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::STATE-GEOMETRY-CHANGES in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DRAWABLE-EQUAL-FUNCTION in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WINDOW-EQUAL-FUNCTION in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:WITH-STATE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-ATTRIBUTES in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-GEOMETRY in DEFMACRO
; compiling file "/usr/share/common-lisp/source/clx/translate.lisp" (written 05 FEB 2026 08:13:27 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/translate-tmpYKOEPICF.fasl
; compilation finished in 0:00:00.508
REDEFINITION-WITH-DEFMACRO: redefining XLIB:KEYSYM in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYSYM-MAPPING-OBJECT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYSYM-MAPPING-TRANSLATE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYSYM-MAPPING-LOWERCASE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYSYM-MAPPING-MODIFIERS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYSYM-MAPPING-MASK in DEFMACRO
; compiling file "/usr/share/common-lisp/source/clx/keysyms.lisp" (written 05 FEB 2026 08:13:27 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/keysyms-tmpQK8YY837.fasl
; compilation finished in 0:00:00.052
; compiling file "/usr/share/common-lisp/source/clx/manager.lisp" (written 05 FEB 2026 08:13:27 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/manager-tmpJQI6KMRZ.fasl
; compilation finished in 0:00:01.776
; compiling file "/usr/share/common-lisp/source/clx/image.lisp" (written 05 FEB 2026 08:13:27 PM):
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (MOD 35183298150407) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The result is a (VALUES (MOD 35183298150407) &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE
32)
&OPTIONAL).
etc.
; file: /usr/share/common-lisp/source/clx/image.lisp
; in: DEFUN IMAGE-NOSWAP
; (XLIB::INDEX* XLIB::SRCINC (XLIB::INDEX1- XLIB::HEIGHT))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (MOD 35183298150407) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (MOD 35183298150407) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (MOD 35183835021316) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The result is a (VALUES (MOD 35183835021316) &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE
32)
&OPTIONAL).
etc.
; in: DEFUN READ-PIXARRAY-1
; (XLIB::INDEX* XLIB::Y XLIB::PADDED-BYTES-PER-LINE)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (MOD 35183835021316) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (MOD 35183835021316) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (MOD 35183835021316) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The result is a (VALUES (MOD 35183835021316) &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE
32)
&OPTIONAL).
etc.
; in: DEFUN READ-PIXARRAY-4
; (XLIB::INDEX* XLIB::Y XLIB::PADDED-BYTES-PER-LINE)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (MOD 35183835021316) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (MOD 35183835021316) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (MOD 35183835021316) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The result is a (VALUES (MOD 35183835021316) &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE
32)
&OPTIONAL).
etc.
; in: DEFUN READ-PIXARRAY-8
; (XLIB::INDEX* XLIB::Y XLIB::PADDED-BYTES-PER-LINE)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (MOD 35183835021316) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (MOD 35183835021316) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE
32)
&OPTIONAL).
etc.
; in: DEFUN READ-PIXARRAY-16
; (XLIB::INDEX* XLIB::Y XLIB::PADDED-BYTES-PER-LINE)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE
32)
&OPTIONAL).
etc.
; in: DEFUN READ-PIXARRAY-24
; (XLIB::INDEX* XLIB::Y XLIB::PADDED-BYTES-PER-LINE)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE
32)
&OPTIONAL).
etc.
; in: DEFUN READ-PIXARRAY-32
; (XLIB::INDEX* XLIB::Y XLIB::PADDED-BYTES-PER-LINE)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (MOD 288230372930486282) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The second argument is a SEQUENCE, not a (OR LIST
VECTOR).
; in: DEFUN GET-IMAGE
; (FIND XLIB::DEPTH (XLIB:DISPLAY-PIXMAP-FORMATS XLIB:DISPLAY) :KEY
; #'XLIB:PIXMAP-FORMAT-DEPTH)
;
; note: unable to
; optimize
; due to type uncertainty:
; The second argument is a SEQUENCE, not a (OR LIST VECTOR).
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (MOD 68717379601) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The result is a (VALUES (MOD 68717379601) &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE
32)
&OPTIONAL).
etc.
; (XLIB::INDEX* XLIB::PADDED-BYTES-PER-LINE XLIB::HEIGHT)
; --> VALUES
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (MOD 68717379601) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (MOD 68717379601) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first argument of IF-EQ
; (ZEROP (XLIB:VISUAL-INFO-RED-MASK XLIB:VISUAL-INFO))
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first argument of IF-EQ
; (ZEROP (XLIB:VISUAL-INFO-GREEN-MASK XLIB:VISUAL-INFO))
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first argument of IF-EQ
; (ZEROP (XLIB:VISUAL-INFO-BLUE-MASK XLIB:VISUAL-INFO))
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; (SETF (XLIB:IMAGE-BLUE-MASK XLIB:IMAGE)
; (XLIB:VISUAL-INFO-BLUE-MASK XLIB:VISUAL-INFO))
; --> GETF LET* LET
; ==>
; (SB-IMPL::%PUTF (XLIB:IMAGE-PLIST #:IMAGE44) :BLUE-MASK #:NEW45)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; (SETF (XLIB:IMAGE-GREEN-MASK XLIB:IMAGE)
; (XLIB:VISUAL-INFO-GREEN-MASK XLIB:VISUAL-INFO))
; --> GETF LET* LET
; ==>
; (SB-IMPL::%PUTF (XLIB:IMAGE-PLIST #:IMAGE41) :GREEN-MASK #:NEW42)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; (SETF (XLIB:IMAGE-RED-MASK XLIB:IMAGE)
; (XLIB:VISUAL-INFO-RED-MASK XLIB:VISUAL-INFO))
; --> GETF LET* LET
; ==>
; (SB-IMPL::%PUTF (XLIB:IMAGE-PLIST #:IMAGE38) :RED-MASK #:NEW39)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-GETIMAGE+ NIL
; :SIZES (8 32))
; (((XLIB::DATA (MEMBER ERROR :XY-PIXMAP :Z-PIXMAP)) FORMAT)
; (XLIB:DRAWABLE XLIB:DRAWABLE) (XLIB:INT16 XLIB::X XLIB::Y)
; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT) (XLIB:CARD32 XLIB::PLANE-MASK))
; (LET* ((XLIB::DEPTH (XLIB::CARD8-GET 1))
; (LENGTH (XLIB::INDEX* 4 #))
; (XLIB:VISUAL-INFO (XLIB:VISUAL-INFO XLIB:DISPLAY #))
; (XLIB:BITMAP-FORMAT (XLIB:DISPLAY-BITMAP-FORMAT XLIB:DISPLAY))
; (XLIB::UNIT (XLIB:BITMAP-FORMAT-UNIT XLIB:BITMAP-FORMAT))
; (XLIB::BYTE-LSB-FIRST-P
; (XLIB:DISPLAY-IMAGE-LSB-FIRST-P XLIB:DISPLAY))
; (XLIB::BIT-LSB-FIRST-P
; (XLIB:BITMAP-FORMAT-LSB-FIRST-P XLIB:BITMAP-FORMAT)))
; (DECLARE (TYPE XLIB:IMAGE-DEPTH XLIB::DEPTH)
; (TYPE XLIB:ARRAY-INDEX LENGTH)
; (TYPE (OR NULL XLIB:VISUAL-INFO) XLIB:VISUAL-INFO)
; (TYPE XLIB:BITMAP-FORMAT XLIB:BITMAP-FORMAT)
; (TYPE (MEMBER 8 16 32) XLIB::UNIT)
; (TYPE XLIB:GENERALIZED-BOOLEAN XLIB::BYTE-LSB-FIRST-P
; XLIB::BIT-LSB-FIRST-P))
; (MULTIPLE-VALUE-BIND (XLIB::PAD XLIB::BITS-PER-PIXEL)
; (ECASE FORMAT (:XY-PIXMAP #) (:Z-PIXMAP #))
; (DECLARE (TYPE # XLIB::PAD)
; (TYPE # XLIB::BITS-PER-PIXEL))
; (LET* (# # # # #)
; (DECLARE #
; #)
; (WHEN XLIB:VISUAL-INFO # # #)
; (VALUES XLIB:IMAGE XLIB:VISUAL-INFO)))))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::INT16-PUT XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN PUT-IMAGE
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-PUTIMAGE+ :GC-FORCE
; XLIB:GCONTEXT)
; ((XLIB::DATA (MEMBER :BITMAP :XY-PIXMAP :Z-PIXMAP))
; (COND ((OR # XLIB::BITMAP-P) :BITMAP) ((PLUSP XLIB::LEFT-PAD) :XY-PIXMAP)
; (T FORMAT)))
; (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:GCONTEXT XLIB:GCONTEXT)
; (XLIB:CARD16 XLIB::WIDTH XLIB::REQUEST-HEIGHT)
; (XLIB:INT16 XLIB::X XLIB::REQUEST-Y)
; (XLIB:CARD8 XLIB::LEFT-PAD XLIB::DEPTH)
; (XLIB::PAD16 NIL)
; (PROGN
; (XLIB::LENGTH-PUT 2 XLIB::REQUEST-LENGTH)
; (SETF (XLIB::BUFFER-BOFFSET XLIB:DISPLAY)
; (XLIB::ADVANCE-BUFFER-OFFSET 24))
; (ETYPECASE XLIB:IMAGE
; (XLIB:IMAGE-X (ECASE # # #))
; (XLIB:IMAGE-XY
; (XLIB::WRITE-IMAGE-XY XLIB:DISPLAY XLIB:IMAGE XLIB::LEFT-PADDED-SRC-X
; XLIB::REQUEST-SRC-Y XLIB::LEFT-PADDED-WIDTH XLIB::REQUEST-HEIGHT
; XLIB::PADDED-BYTES-PER-LINE XLIB::UNIT XLIB::BYTE-LSB-FIRST-P
; XLIB::BIT-LSB-FIRST-P))
; (XLIB:IMAGE-Z
; (XLIB::WRITE-IMAGE-Z XLIB:DISPLAY XLIB:IMAGE XLIB::LEFT-PADDED-SRC-X
; XLIB::REQUEST-SRC-Y XLIB::LEFT-PADDED-WIDTH XLIB::REQUEST-HEIGHT
; XLIB::PADDED-BYTES-PER-LINE XLIB::UNIT XLIB::BYTE-LSB-FIRST-P
; XLIB::BIT-LSB-FIRST-P)))
; (XLIB::BUFFER-PAD-REQUEST XLIB:DISPLAY
; (XLIB::INDEX-
; (XLIB::INDEX* XLIB::REQUEST-WORDS 4)
; XLIB::REQUEST-BYTES))))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::GCONTEXT-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:GCONTEXT-ID XLIB:GCONTEXT))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::WIDTH) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The result is a (VALUES (MOD 137434759201) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
The result is a (VALUES (MOD 137434759201) &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE
32)
&OPTIONAL).
etc.
; in: DEFUN COPY-PIXARRAY
; (MAKE-ARRAY (LIST XLIB::HEIGHT XLIB::PADDED-WIDTH) :ELEMENT-TYPE
; (ARRAY-ELEMENT-TYPE ARRAY))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The result is a (VALUES (MOD 137434759201) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 3) because:
; The result is a (VALUES (MOD 137434759201) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &OPTIONAL).
; etc.
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/image-tmpWUHK9UI0.fasl
; compilation finished in 0:00:04.356
REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-IMAGE-DATA-BUFFER in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:IMAGE-NAME in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:IMAGE-X-HOT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:IMAGE-Y-HOT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:IMAGE-RED-MASK in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:IMAGE-BLUE-MASK in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB:IMAGE-GREEN-MASK in DEFMACRO
; compiling file "/usr/share/common-lisp/source/clx/resource.lisp" (written 05 FEB 2026 08:13:27 PM):
CODE-DELETION-NOTE: deleting unreachable code
CODE-DELETION-NOTE: deleting unreachable code
; file: /usr/share/common-lisp/source/clx/resource.lisp
; in: DEFUN DELETE-RESOURCE-INTERNAL
; (SETQ XLIB::LOOSE-P NIL)
;
; note: deleting unreachable code
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/resource-tmpUUOI3UDB.fasl
; compilation finished in 0:00:00.452
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RESOURCE-WITH-OPEN-FILE in DEFMACRO
; compiling file "/usr/share/common-lisp/source/clx/extensions/shape.lisp" (written 05 FEB 2026 08:13:27 PM):
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; file: /usr/share/common-lisp/source/clx/extensions/shape.lisp
; in: DECLARE-EVENT :SHAPE-NOTIFY
; (XLIB:DECLARE-EVENT :SHAPE-NOTIFY
; ((XLIB::DATA (XLIB::MEMBER8 :BOUNDING :CLIP)) XLIB::KIND)
; (XLIB:CARD16 SEQUENCE)
; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW))
; (XLIB:INT16 XLIB::X)
; (XLIB:INT16 XLIB::Y)
; (XLIB:CARD16 XLIB::WIDTH)
; (XLIB:CARD16 XLIB::HEIGHT)
; ((OR NULL XLIB:CARD32) TIME)
; (BOOLEAN XLIB::SHAPED-P))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFUN SHAPE-RECTANGLES
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY
; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE"))
; (XLIB::DATA 1)
; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION))
; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND))
; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-RECTANGLE-ORDERING XLIB::ORDERING))
; (XLIB:CARD8 0)
; (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:INT16 XLIB::X-OFFSET)
; (XLIB:INT16 XLIB::Y-OFFSET)
; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (LENGTH XLIB::RECTANGLES)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X-OFFSET) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN SHAPE-MASK
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY
; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE"))
; (XLIB::DATA 2)
; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION))
; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND))
; (XLIB:CARD16 0)
; (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:INT16 XLIB::X-OFFSET)
; (XLIB:INT16 XLIB::Y-OFFSET)
; ((OR (MEMBER :NONE) XLIB:PIXMAP) XLIB:PIXMAP))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X-OFFSET) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN SHAPE-COMBINE
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY
; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE"))
; (XLIB::DATA 3)
; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION))
; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND))
; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::SOURCE-KIND))
; (XLIB:CARD8 0)
; (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:INT16 XLIB::X-OFFSET)
; (XLIB:INT16 XLIB::Y-OFFSET)
; (XLIB:WINDOW XLIB::SOURCE-WINDOW))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X-OFFSET) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN SHAPE-OFFSET
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY
; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE"))
; (XLIB::DATA 4)
; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND))
; (XLIB:CARD8 0)
; (XLIB:CARD8 0)
; (XLIB:CARD8 0)
; (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:INT16 XLIB::X-OFFSET)
; (XLIB:INT16 XLIB::Y-OFFSET))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::X-OFFSET) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
The result is a (VALUES (OR (INTEGER 0 0) (INTEGER 4 17179869180))
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
The result is a (VALUES (OR (INTEGER 0 0) (INTEGER 4 17179869180))
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; in: DEFUN SHAPE-GET-RECTANGLES
; (* 4 (XLIB::CARD32-GET 8))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (OR (INTEGER 0 0) (INTEGER 4 17179869180))
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (UNSIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES (OR (INTEGER 0 0) (INTEGER 4 17179869180))
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/extensions/shape-tmpG1IOPEUW.fasl
; compilation finished in 0:00:00.436
; compiling file "/usr/share/common-lisp/source/clx/extensions/big-requests.lisp" (written 05 FEB 2026 08:13:27 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/extensions/big-requests-tmpM0NOM18K.fasl
; compilation finished in 0:00:00.024
; compiling file "/usr/share/common-lisp/source/clx/extensions/xvidmode.lisp" (written 05 FEB 2026 08:13:27 PM):
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; file: /usr/share/common-lisp/source/clx/extensions/xvidmode.lisp
; in: DECLARE-EVENT :XFREE86-VIDMODE-NOTIFY
; (XLIB:DECLARE-EVENT :XFREE86-VIDMODE-NOTIFY
; (XLIB:CARD16 SEQUENCE)
; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW))
; (XLIB:INT16 XLIB::STATE)
; (XLIB:INT16 XLIB::KIND)
; (BOOLEAN XLIB::FORCED-P)
; ((OR NULL XLIB:CARD32) TIME))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::INT16-PUT
; --> XLIB::WRITE-INT16
; ==>
; (XLIB::ASET-INT16 (THE XLIB:INT16 XLIB::STATE) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN XFREE86-VIDMODE-MOD-MODE-LINE
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY))
; (XLIB::DATA XLIB::+MOD-MODE-LINE+)
; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY))
; ((SEQUENCE :FORMAT XLIB:CARD16 :START 2) XLIB::V))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-CARD16 XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8) XLIB::V 2
; #:G13 NIL)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; in: DEFUN XFREE86-VIDMODE-GET-ALL-MODE-LINES
; (INCF XLIB::OFFSET 4)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; (INCF XLIB::OFFSET
; (IF (< XLIB::MAJOR 2)
; 2
; 6))
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; (INCF XLIB::OFFSET
; (IF (< XLIB::MAJOR 2)
; 4
; 16))
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; (INCF XLIB::OFFSET 4)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; (INCF XLIB::OFFSET (* 4 XLIB::SIZE))
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN XFREE86-VIDMODE-ADD-MODE-LINE
; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY))
; (XLIB::DATA XLIB::+ADD-MODE-LINE+)
; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY))
; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-CARD16 XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8) XLIB::V 0
; #:G23 NIL)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN XFREE86-VIDMODE-DELETE-MODE-LINE
; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY))
; (XLIB::DATA XLIB::+DELETE-MODE-LINE+)
; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY))
; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-CARD16 XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8) XLIB::V 0
; #:G13 NIL)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN XFREE86-VIDMODE-VALIDATE-MODE-LINE
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB::DPY
; (XLIB::VIDMODE-OPCODE XLIB::DPY) NIL
; :SIZES (8 16 32))
; ((XLIB::DATA XLIB::+VALIDATE-MODE-LINE+)
; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY))
; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V))
; (LET ((XLIB::STATUS (XLIB::INTEGER-GET 8)))
; (DECLARE (TYPE XLIB:INT32 XLIB::STATUS))
; (WHEN XLIB::STATUS (XLIB::DECODE-STATUS-MODE XLIB::STATUS))))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-CARD16 XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8) XLIB::V 0
; #:G21 NIL)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN XFREE86-VIDMODE-GET-GAMMA
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY
; (XLIB::VIDMODE-OPCODE XLIB:DISPLAY) NIL
; :SIZES (8 16 32))
; ((XLIB::DATA XLIB::+GET-GAMMA+)
; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY))
; (XLIB:CARD16 0) (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0)
; (XLIB:CARD32 0) (XLIB:CARD32 0) (XLIB:CARD32 0))
; (VALUES (/ (THE XLIB:CARD32 (OR # 0)) 10000.0)
; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0)
; (/ (THE XLIB:CARD32 (OR # 0)) 10000.0)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 20))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 24))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 28))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN XFREE86-VIDMODE-SET-GAMMA
; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY))
; (XLIB::DATA XLIB::+SET-GAMMA+)
; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB::SCR XLIB::DPY))
; (XLIB:CARD16 0)
; (XLIB:CARD32 (TRUNCATE (* XLIB::RED 10000)))
; (XLIB:CARD32 (TRUNCATE (* XLIB::GREEN 10000)))
; (XLIB:CARD32 (TRUNCATE (* XLIB::BLUE 10000)))
; (XLIB:CARD32 0)
; (XLIB:CARD32 0)
; (XLIB:CARD32 0))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 20))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 24))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 28))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN XFREE86-VIDMODE-SWITCH-TO-MODE
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::VIDMODE-OPCODE XLIB:DISPLAY))
; (XLIB::DATA XLIB::+SWITCH-TO-MODE+)
; (XLIB:CARD32 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB:DISPLAY))
; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::V))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-CARD16 XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8) XLIB::V 0
; #:G17 NIL)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The result is a (VALUES (RATIONAL 0 13107/20)
&OPTIONAL), not a (VALUES
INTEGER
&REST T).
; in: DEFUN XFREE86-VIDMODE-GET-MONITOR
; (/ (LDB (BYTE 16 0) XLIB::I) 100)
;
; note: unable to
; optimize
; due to type uncertainty:
; The result is a (VALUES (RATIONAL 0 13107/20) &OPTIONAL), not a (VALUES
; INTEGER
; &REST T).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The result is a (VALUES (RATIONAL 0 13107/20)
&OPTIONAL), not a (VALUES
INTEGER
&REST T).
; (/ (LDB (BYTE 32 16) XLIB::I) 100)
;
; note: unable to
; optimize
; due to type uncertainty:
; The result is a (VALUES (RATIONAL 0 13107/20) &OPTIONAL), not a (VALUES
; INTEGER
; &REST T).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The result is a (VALUES (RATIONAL 0 13107/20)
&OPTIONAL), not a (VALUES
INTEGER
&REST T).
; (/ (LDB (BYTE 16 0) XLIB::I) 100)
;
; note: unable to
; optimize
; due to type uncertainty:
; The result is a (VALUES (RATIONAL 0 13107/20) &OPTIONAL), not a (VALUES
; INTEGER
; &REST T).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The result is a (VALUES (RATIONAL 0 13107/20)
&OPTIONAL), not a (VALUES
INTEGER
&REST T).
; (/ (LDB (BYTE 32 16) XLIB::I) 100)
;
; note: unable to
; optimize
; due to type uncertainty:
; The result is a (VALUES (RATIONAL 0 13107/20) &OPTIONAL), not a (VALUES
; INTEGER
; &REST T).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN XFREE86-VIDMODE-SET-VIEWPORT
; (XLIB::WITH-BUFFER-REQUEST (XLIB::DPY (XLIB::VIDMODE-OPCODE XLIB::DPY))
; (XLIB::DATA XLIB::+SET-VIEWPORT+)
; (XLIB:CARD16 (XLIB::SCREEN-POSITION XLIB:SCREEN XLIB::DPY))
; (XLIB:CARD16 0)
; (XLIB:CARD32 XLIB::X)
; (XLIB:CARD32 XLIB::Y))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::Y) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/extensions/xvidmode-tmpVIL8T0YR.fasl
; compilation finished in 0:00:02.128
REDEFINITION-WITH-DEFMACRO: redefining XLIB::VIDMODE-OPCODE in DEFMACRO
; compiling file "/usr/share/common-lisp/source/clx/extensions/xrender.lisp" (written 05 FEB 2026 08:13:27 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/extensions/xrender-tmpBODYQO2B.fasl
; compilation finished in 0:00:04.188
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PICTURE-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PICTURE-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GLYPH-SET-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::GLYPH-SET-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PICTURE-FORMAT-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::PICTURE-FORMAT-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RENDER-OP-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RENDER-OP-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::%RENDER-COMPOSITE-GLYPHS in DEFMACRO
; compiling file "/usr/share/common-lisp/source/clx/extensions/glx.lisp" (written 05 FEB 2026 08:13:27 PM):
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; file: /usr/share/common-lisp/source/clx/extensions/glx.lisp
; in: DECLARE-EVENT :GLX-PBUFFER-CLOBBER
; (XLIB:DECLARE-EVENT :GLX-PBUFFER-CLOBBER
; (XLIB:CARD16 SEQUENCE)
; (XLIB:CARD16 XLIB/GLX::EVENT-TYPE)
; (XLIB:CARD16 XLIB/GLX::DRAW-TYPE)
; (XLIB:RESOURCE-ID XLIB:DRAWABLE)
; (XLIB:CARD32 XLIB/GLX::BUFFER-MASK)
; (XLIB:CARD16 XLIB/GLX::AUX-BUFFER)
; (XLIB:CARD16 XLIB/GLX::X XLIB/GLX::Y XLIB/GLX::WIDTH XLIB/GLX::HEIGHT
; COUNT))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK FUNCALL
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN QUERY-VERSION
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY
; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY
; "GLX")
; NIL)
; ((XLIB::DATA XLIB/GLX::+QUERY-VERSION+) (XLIB:CARD32 1) (XLIB:CARD32 3))
; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN QUERY-SERVER-STRING
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY
; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY
; "GLX")
; NIL)
; ((XLIB::DATA XLIB/GLX::+QUERY-SERVER-STRING+)
; (XLIB:CARD32 (OR (POSITION XLIB:SCREEN # :TEST #'EQ) 0))
; (XLIB:CARD32 XLIB/GLX::NAME))
; (LET* ((LENGTH (XLIB::CARD32-GET 12))
; (XLIB/GLX::BYTES
; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD8 :RESULT-TYPE '# :INDEX 32
; :LENGTH LENGTH)))
; (DECLARE (TYPE (SIMPLE-ARRAY XLIB:CARD8 #) XLIB/GLX::BYTES)
; (TYPE FIXNUM LENGTH))
; (MAP-INTO (MAKE-STRING (1- LENGTH)) #'CODE-CHAR XLIB/GLX::BYTES)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN CLIENT-INFO
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY
; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX"))
; (XLIB::DATA XLIB/GLX::+CLIENT-INFO+)
; (XLIB:CARD32 4)
; (XLIB:CARD32 1)
; (XLIB:CARD32 3)
; (XLIB:CARD32 0))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; in: DEFUN MAKE-CONTEXT
; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB/GLX::CTX 'XLIB/GLX::CONTEXT)
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN CREATE-CONTEXT
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY
; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX"))
; (XLIB::DATA XLIB/GLX::+CREATE-CONTEXT+)
; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX))
; (XLIB:RESOURCE-ID XLIB/GLX::VISUAL)
; (XLIB:CARD32
; (OR (POSITION XLIB:SCREEN (XLIB:DISPLAY-ROOTS XLIB:DISPLAY) :TEST #'EQ) 0))
; (XLIB:RESOURCE-ID XLIB/GLX::SHARE-LIST)
; (BOOLEAN XLIB/GLX:IS-DIRECT))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN QUERY-CONTEXT
; (XLIB::CARD32-GET (+ XLIB/GLX::I 4))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; (LOOP XLIB/GLX::REPEAT XLIB/GLX::NUM-ATTRIBUTES
; XLIB/GLX::FOR XLIB/GLX::I FIXNUM XLIB/GLX::UPFROM 32 XLIB/GLX::BY 8
; XLIB/GLX::COLLECTING (CONS (XLIB::CARD32-GET XLIB/GLX::I)
; (XLIB::CARD32-GET (+ XLIB/GLX::I 4))))
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN GET-DRAWABLE-ATTRIBUTES
; (XLIB::CARD32-GET (+ XLIB/GLX::I 4))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; (LOOP XLIB/GLX::REPEAT XLIB/GLX::NUM-ATTRIBUTES
; XLIB/GLX::FOR XLIB/GLX::I FIXNUM XLIB/GLX::UPFROM 32 XLIB/GLX::BY 8
; XLIB/GLX::COLLECTING (CONS (XLIB::CARD32-GET XLIB/GLX::I)
; (XLIB::CARD32-GET (+ XLIB/GLX::I 4))))
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the second argument of CLOSURE-INIT
; in: DEFUN MAKE-CURRENT
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY
; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY
; "GLX")
; NIL)
; ((XLIB::DATA XLIB/GLX::+MAKE-CURRENT+)
; (XLIB:RESOURCE-ID (XLIB:DRAWABLE-ID XLIB:DRAWABLE))
; (XLIB:RESOURCE-ID (XLIB/GLX::CONTEXT-ID XLIB/GLX::CTX))
; (XLIB:CARD32 XLIB/GLX::OLD-TAG))
; (LET ((XLIB/GLX::NEW-TAG (XLIB::CARD32-GET 8)))
; (SETF (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX) XLIB/GLX::NEW-TAG
; (XLIB/GLX::CONTEXT-DRAWABLE XLIB/GLX::CTX) XLIB:DRAWABLE
; (XLIB/GLX::CONTEXT-DISPLAY XLIB/GLX::CTX) XLIB:DISPLAY
; XLIB/GLX::*CURRENT-CONTEXT* XLIB/GLX::CTX)))
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the second argument of CLOSURE-INIT
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; in: DEFUN GET-VISUAL-CONFIGS
; (INCF XLIB/GLX::INDEX 4)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; in: DEFUN RENDER
; (XLIB::ASET-CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX) XLIB/GLX::RBUF 4)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; in: DEFUN SWAP-BUFFERS
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY
; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX"))
; (XLIB::DATA XLIB/GLX::+SWAP-BUFFERS+)
; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX))
; (XLIB:RESOURCE-ID
; (XLIB:DRAWABLE-ID (XLIB/GLX::CONTEXT-DRAWABLE XLIB/GLX::CTX))))
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; in: DEFUN WAIT-GL
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY
; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX"))
; (XLIB::DATA XLIB/GLX::+WAIT-GL+)
; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX)))
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; in: DEFUN WAIT-X
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY
; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX"))
; (XLIB::DATA XLIB/GLX::+WAIT-X+)
; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GLX::CTX)))
;
; note: doing unsigned word to integer coercion (cost 20)
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/extensions/glx-tmpTLIPDLNH.fasl
; compilation finished in 0:00:01.120
; compiling file "/usr/share/common-lisp/source/clx/extensions/gl.lisp" (written 05 FEB 2026 08:13:27 PM):
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; file: /usr/share/common-lisp/source/clx/extensions/gl.lisp
; in: DEFUN ASET-FLOAT32
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN ASET-FLOAT64
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFINE-SEQUENCE-SETTER INT8
; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT8)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY LET
; ==>
; (LENGTH XLIB/GL::SEQ)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR
; ==>
; (LENGTH XLIB/GL::SEQ)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY SETF SETQ THE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFINE-SEQUENCE-SETTER INT16
; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT16)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY LET
; ==>
; (LENGTH XLIB/GL::SEQ)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR
; ==>
; (LENGTH XLIB/GL::SEQ)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY SETF SETQ THE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> TYPECASE COND IF LET DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY
; ==>
; (XLIB::ASET-INT16 XLIB/GL::N XLIB/GL::BUFFER
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::START XLIB/GL::OFFSET)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFINE-SEQUENCE-SETTER INT32
; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT32)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY LET
; ==>
; (LENGTH XLIB/GL::SEQ)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR
; ==>
; (LENGTH XLIB/GL::SEQ)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY SETF SETQ THE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> TYPECASE COND IF IF IF DOTIMES DO BLOCK LET TAGBODY TAGBODY
; ==>
; (XLIB::ASET-INT32 (SVREF XLIB/GL::SEQ XLIB/GL::I) XLIB/GL::BUFFER
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::START (* XLIB/GL::I 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> TYPECASE COND IF IF DOTIMES DO BLOCK LET TAGBODY TAGBODY
; ==>
; (XLIB::ASET-INT32 (AREF XLIB/GL::SEQ XLIB/GL::I) XLIB/GL::BUFFER
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::START (* XLIB/GL::I 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> TYPECASE COND IF LET DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY
; ==>
; (XLIB::ASET-INT32 XLIB/GL::N XLIB/GL::BUFFER
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::START XLIB/GL::OFFSET)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> TYPECASE COND IF LET DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY
; --> INCF SETQ THE
; ==>
; (+ 4 XLIB/GL::OFFSET)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFINE-SEQUENCE-SETTER BOOL
; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::BOOL)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY LET
; ==>
; (LENGTH XLIB/GL::SEQ)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR
; ==>
; (LENGTH XLIB/GL::SEQ)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY SETF SETQ THE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFINE-SEQUENCE-SETTER CARD8
; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD8)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY LET
; ==>
; (LENGTH XLIB/GL::SEQ)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR
; ==>
; (LENGTH XLIB/GL::SEQ)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY SETF SETQ THE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFINE-SEQUENCE-SETTER CARD16
; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD16)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY LET
; ==>
; (LENGTH XLIB/GL::SEQ)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR
; ==>
; (LENGTH XLIB/GL::SEQ)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY SETF SETQ THE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> TYPECASE COND IF LET DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY
; ==>
; (XLIB::ASET-CARD16 XLIB/GL::N XLIB/GL::BUFFER
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::START XLIB/GL::OFFSET)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFINE-SEQUENCE-SETTER CARD32
; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD32)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY LET
; ==>
; (LENGTH XLIB/GL::SEQ)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR
; ==>
; (LENGTH XLIB/GL::SEQ)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY SETF SETQ THE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> TYPECASE COND IF IF IF DOTIMES DO BLOCK LET TAGBODY TAGBODY
; ==>
; (XLIB::ASET-CARD32 (SVREF XLIB/GL::SEQ XLIB/GL::I) XLIB/GL::BUFFER
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::START (* XLIB/GL::I 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> TYPECASE COND IF IF DOTIMES DO BLOCK LET TAGBODY TAGBODY
; ==>
; (XLIB::ASET-CARD32 (AREF XLIB/GL::SEQ XLIB/GL::I) XLIB/GL::BUFFER
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::START (* XLIB/GL::I 4))))
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> TYPECASE COND IF LET DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::N XLIB/GL::BUFFER
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::START XLIB/GL::OFFSET)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> TYPECASE COND IF LET DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY
; --> INCF SETQ THE
; ==>
; (+ 4 XLIB/GL::OFFSET)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFINE-SEQUENCE-SETTER FLOAT32
; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::FLOAT32)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY LET
; ==>
; (LENGTH XLIB/GL::SEQ)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR
; ==>
; (LENGTH XLIB/GL::SEQ)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY SETF SETQ THE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> TYPECASE COND IF IF IF DOTIMES DO BLOCK LET TAGBODY TAGBODY
; --> XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> TYPECASE COND IF IF DOTIMES DO BLOCK LET TAGBODY TAGBODY
; --> XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> TYPECASE COND IF LET DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY
; --> XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> TYPECASE COND IF LET DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY
; --> INCF SETQ THE
; ==>
; (+ 4 XLIB/GL::OFFSET)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; in: DEFINE-SEQUENCE-SETTER FLOAT64
; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::FLOAT64)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY LET
; ==>
; (LENGTH XLIB/GL::SEQ)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a SEQUENCE, not a VECTOR.
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR
; ==>
; (LENGTH XLIB/GL::SEQ)
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a SEQUENCE, not a VECTOR.
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> ASSERT TAGBODY SETF SETQ THE
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> TYPECASE COND IF IF IF DOTIMES DO BLOCK LET TAGBODY TAGBODY
; --> XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> TYPECASE COND IF IF IF DOTIMES DO BLOCK LET TAGBODY TAGBODY
; --> XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> TYPECASE COND IF IF DOTIMES DO BLOCK LET TAGBODY TAGBODY
; --> XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> TYPECASE COND IF IF DOTIMES DO BLOCK LET TAGBODY TAGBODY
; --> XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> TYPECASE COND IF LET DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY
; --> XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> TYPECASE COND IF LET DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY
; --> XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> TYPECASE COND IF LET DOLIST BLOCK LET TAGBODY UNLESS IF PROGN LET TAGBODY
; --> INCF SETQ THE
; ==>
; (+ 8 XLIB/GL::OFFSET)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; in: DEFUN GET-STRING
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY
; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY
; "GLX")
; NIL)
; ((XLIB::DATA XLIB/GL::+GET-STRING+)
; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX))
; (XLIB:CARD32 XLIB/GL::NAME))
; (LET* ((LENGTH (XLIB::CARD32-GET 12))
; (XLIB/GL::BYTES
; (XLIB::SEQUENCE-GET :FORMAT XLIB:CARD8 :RESULT-TYPE '# :INDEX 32
; :LENGTH LENGTH)))
; (DECLARE (TYPE (SIMPLE-ARRAY XLIB:CARD8 #) XLIB/GL::BYTES)
; (TYPE FIXNUM LENGTH))
; (MAP-INTO (MAKE-STRING (1- LENGTH)) #'CODE-CHAR XLIB/GL::BYTES)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT LET XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 4))
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB/GL::NAME) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND ACCUM
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:ACCUM 137
; (XLIB/GL::OP XLIB:CARD32)
; (XLIB/GL::VALUE XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND ALPHA-FUNC
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:ALPHA-FUNC 159
; (XLIB/GL::FUNC XLIB:CARD32)
; (XLIB/GL::REF XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND BLEND-COLOR
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:BLEND-COLOR 4096
; (XLIB/GL::RED XLIB/GL::FLOAT32)
; (XLIB/GL::GREEN XLIB/GL::FLOAT32)
; (XLIB/GL::BLUE XLIB/GL::FLOAT32)
; (XLIB/GL::ALPHA XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND CLEAR-ACCUM
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:CLEAR-ACCUM 128
; (XLIB/GL::RED XLIB/GL::FLOAT32)
; (XLIB/GL::GREEN XLIB/GL::FLOAT32)
; (XLIB/GL::BLUE XLIB/GL::FLOAT32)
; (XLIB/GL::ALPHA XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND CLEAR-COLOR
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:CLEAR-COLOR 130
; (XLIB/GL::RED XLIB/GL::FLOAT32)
; (XLIB/GL::GREEN XLIB/GL::FLOAT32)
; (XLIB/GL::BLUE XLIB/GL::FLOAT32)
; (XLIB/GL::ALPHA XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND CLEAR-DEPTH
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:CLEAR-DEPTH 132
; (XLIB/GL::DEPTH XLIB/GL::FLOAT64))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND CLEAR-INDEX
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:CLEAR-INDEX 129
; (XLIB/GL::C XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND CLIP-PLANE
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:CLIP-PLANE 77
; (XLIB/GL::EQUOTION-0 XLIB/GL::FLOAT64)
; (XLIB/GL::EQUOTION-1 XLIB/GL::FLOAT64)
; (XLIB/GL::EQUOTION-2 XLIB/GL::FLOAT64)
; (XLIB/GL::EQUOTION-3 XLIB/GL::FLOAT64)
; (XLIB/GL::PLANE XLIB:CARD32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND COLOR-3D
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:COLOR-3D 7
; ((XLIB/GL::R XLIB/GL::G XLIB/GL::B)
; XLIB/GL::FLOAT64))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND COLOR-3F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:COLOR-3F 8
; ((XLIB/GL::R XLIB/GL::G XLIB/GL::B)
; XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND COLOR-4D
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:COLOR-4D 15
; ((XLIB/GL::R XLIB/GL::G XLIB/GL::B
; XLIB/GL::A)
; XLIB/GL::FLOAT64))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND COLOR-4F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:COLOR-4F 16
; ((XLIB/GL::R XLIB/GL::G XLIB/GL::B
; XLIB/GL::A)
; XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND COLOR-TABLE-PARAMETER-FV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::COLOR-TABLE-PARAMETER-FV 2054
; (XLIB/GL::TARGET XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB/GL::FLOAT32 4)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND COLOR-TABLE-PARAMETER-IV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::COLOR-TABLE-PARAMETER-IV 2055
; (XLIB/GL::TARGET XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS (LIST XLIB:INT32 4)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND CONVOLUTION-PARAMETER-F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:CONVOLUTION-PARAMETER-F 4103
; (XLIB/GL::TARGET XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND CONVOLUTION-PARAMETER-FV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::CONVOLUTION-PARAMETER-FV 4104
; (XLIB/GL::TARGET XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB/GL::FLOAT32
; (ECASE XLIB/GL::PNAME
; (# 1)
; (# 4)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND CONVOLUTION-PARAMETER-IV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::CONVOLUTION-PARAMETER-IV 4106
; (XLIB/GL::TARGET XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB:INT32
; (ECASE XLIB/GL::PNAME
; (# 1)
; (# 4)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND DEPTH-RANGE
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:DEPTH-RANGE 174
; (XLIB/GL::Z-NEAR XLIB/GL::FLOAT64)
; (XLIB/GL::Z-FAR XLIB/GL::FLOAT64))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND EVAL-COORD-1D
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:EVAL-COORD-1D 151
; (XLIB/GL::U-0 XLIB/GL::FLOAT64))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND EVAL-COORD-1F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:EVAL-COORD-1F 152
; (XLIB/GL::U-0 XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND EVAL-COORD-2D
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:EVAL-COORD-2D 153
; ((XLIB/GL::U-0 XLIB/GL::U-1)
; XLIB/GL::FLOAT64))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND EVAL-COORD-2F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:EVAL-COORD-2F 154
; ((XLIB/GL::U-0 XLIB/GL::U-1)
; XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND FOG-F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:FOG-F 80
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAM XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND FOG-FV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::FOG-FV 81
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB/GL::FLOAT32
; (ECASE XLIB/GL::PNAME
; (# 1)
; (# 4)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND FOG-IV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::FOG-IV 83
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB:INT32
; (ECASE XLIB/GL::PNAME
; (# 1)
; (# 4)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND FRUSTUM
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:FRUSTUM 175
; (XLIB/GL::LEFT XLIB/GL::FLOAT64)
; (XLIB/GL::RIGHT XLIB/GL::FLOAT64)
; (XLIB/GL::BOTTOM XLIB/GL::FLOAT64)
; (XLIB/GL::TOP XLIB/GL::FLOAT64)
; (XLIB/GL::Z-NEAR XLIB/GL::FLOAT64)
; (XLIB/GL::Z-FAR XLIB/GL::FLOAT64))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND INDEX-D
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:INDEX-D 24
; (XLIB/GL::C-0 XLIB/GL::FLOAT64))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND INDEX-F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:INDEX-F 25
; (XLIB/GL::C-0 XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND LIGHT-MODEL-F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:LIGHT-MODEL-F 90
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAM XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND LIGHT-MODEL-FV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::LIGHT-MODEL-FV 91
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB/GL::FLOAT32
; (ECASE XLIB/GL::PNAME
; (# 1)
; (# 4)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND LIGHT-MODEL-IV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::LIGHT-MODEL-IV 93
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB:INT32
; (ECASE XLIB/GL::PNAME
; (# 1)
; (# 4)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND LIGHT-F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:LIGHT-F 86
; (XLIB/GL::LIGHT XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAM XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND LIGHT-FV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:LIGHT-FV 87
; (XLIB/GL::LIGHT XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB/GL::FLOAT32
; (ECASE XLIB/GL::PNAME
; (# 4)
; (# 3)
; (# 1)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND LIGHT-IV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:LIGHT-IV 89
; (XLIB/GL::LIGHT XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB:INT32
; (ECASE XLIB/GL::PNAME
; (# 4)
; (# 3)
; (# 1)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND LINE-WIDTH
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:LINE-WIDTH 95
; (XLIB/GL::WIDTH XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND LOAD-MATRIX-D
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::LOAD-MATRIX-D 178
; (XLIB/GL::M (LIST XLIB/GL::FLOAT64 16)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND LOAD-MATRIX-F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::LOAD-MATRIX-F 177
; (XLIB/GL::M (LIST XLIB/GL::FLOAT32 16)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND MAP-GRID-1D
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:MAP-GRID-1D 147
; (XLIB/GL::U1 XLIB/GL::FLOAT64)
; (XLIB/GL::U2 XLIB/GL::FLOAT64)
; (XLIB/GL::UN XLIB:INT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND MAP-GRID-1F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:MAP-GRID-1F 148
; (XLIB/GL::UN XLIB:INT32)
; (XLIB/GL::U1 XLIB/GL::FLOAT32)
; (XLIB/GL::U2 XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND MAP-GRID-2D
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:MAP-GRID-2D 149
; (XLIB/GL::U1 XLIB/GL::FLOAT64)
; (XLIB/GL::U2 XLIB/GL::FLOAT64)
; (XLIB/GL::V1 XLIB/GL::FLOAT64)
; (XLIB/GL::V2 XLIB/GL::FLOAT64)
; (XLIB/GL::UN XLIB:INT32)
; (XLIB/GL::VN XLIB:INT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND MAP-GRID-2F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:MAP-GRID-2F 150
; (XLIB/GL::UN XLIB:INT32)
; (XLIB/GL::U1 XLIB/GL::FLOAT32)
; (XLIB/GL::U2 XLIB/GL::FLOAT32)
; (XLIB/GL::VN XLIB:INT32)
; (XLIB/GL::V1 XLIB/GL::FLOAT32)
; (XLIB/GL::V2 XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND MATERIAL-F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:MATERIAL-F 96
; (XLIB/GL::FACE XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAM XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND MATERIAL-FV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:MATERIAL-FV 97
; (XLIB/GL::FACE XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB/GL::FLOAT32
; (ECASE XLIB/GL::PNAME
; (# 4)
; (# 1)
; (# 3)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of IF-EQ
; (ECASE XLIB/GL::PNAME ((4608 4609 4610 5632 5634) 4) ((5633) 1) ((6400) 3))
; --> IF OR LET IF LET EQL
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of IF-EQ
; --> IF OR LET IF LET IF LET IF LET IF EQL
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of IF-EQ
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND MATERIAL-IV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:MATERIAL-IV 99
; (XLIB/GL::FACE XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB:INT32
; (ECASE XLIB/GL::PNAME
; (# 4)
; (# 1)
; (# 3)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of IF-EQ
; (ECASE XLIB/GL::PNAME ((4608 4609 4610 5632 5634) 4) ((5633) 1) ((6400) 3))
; --> IF OR LET IF LET EQL
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of IF-EQ
; --> IF OR LET IF LET IF LET IF LET IF EQL
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of IF-EQ
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND MULT-MATRIX-D
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::MULT-MATRIX-D 181
; (XLIB/GL::M (LIST XLIB/GL::FLOAT64 16)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND MULT-MATRIX-F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::MULT-MATRIX-F 180
; (XLIB/GL::M (LIST XLIB/GL::FLOAT32 16)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-1D-ARB
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:MULTI-TEX-COORD-1D-ARB 198
; (XLIB/GL::V-0 XLIB/GL::FLOAT64)
; (XLIB/GL::TARGET XLIB:CARD32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-1F-ARB
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:MULTI-TEX-COORD-1F-ARB 199
; (XLIB/GL::TARGET XLIB:CARD32)
; (XLIB/GL::V-0 XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-2D-ARB
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:MULTI-TEX-COORD-2D-ARB 202
; ((XLIB/GL::V-0 XLIB/GL::V-1)
; XLIB/GL::FLOAT64)
; (XLIB/GL::TARGET XLIB:CARD32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-2F-ARB
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:MULTI-TEX-COORD-2F-ARB 203
; (XLIB/GL::TARGET XLIB:CARD32)
; ((XLIB/GL::V-0 XLIB/GL::V-1)
; XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-3D-ARB
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:MULTI-TEX-COORD-3D-ARB 206
; ((XLIB/GL::V-0 XLIB/GL::V-1 XLIB/GL::V-2)
; XLIB/GL::FLOAT64)
; (XLIB/GL::TARGET XLIB:CARD32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-3F-ARB
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:MULTI-TEX-COORD-3F-ARB 207
; (XLIB/GL::TARGET XLIB:CARD32)
; ((XLIB/GL::V-0 XLIB/GL::V-1 XLIB/GL::V-2)
; XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-4D-ARB
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:MULTI-TEX-COORD-4D-ARB 210
; ((XLIB/GL::V-0 XLIB/GL::V-1 XLIB/GL::V-2
; XLIB/GL::V-3)
; XLIB/GL::FLOAT64)
; (XLIB/GL::TARGET XLIB:CARD32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND MULTI-TEX-COORD-4F-ARB
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:MULTI-TEX-COORD-4F-ARB 211
; (XLIB/GL::TARGET XLIB:CARD32)
; ((XLIB/GL::V-0 XLIB/GL::V-1 XLIB/GL::V-2
; XLIB/GL::V-3)
; XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND NORMAL-3D
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:NORMAL-3D 29
; ((XLIB/GL::V-0 XLIB/GL::V-1 XLIB/GL::V-2)
; XLIB/GL::FLOAT64))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND NORMAL-3F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:NORMAL-3F 30
; ((XLIB/GL::V-0 XLIB/GL::V-1 XLIB/GL::V-2)
; XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND ORTHO
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:ORTHO 182
; (XLIB/GL::LEFT XLIB/GL::FLOAT64)
; (XLIB/GL::RIGHT XLIB/GL::FLOAT64)
; (XLIB/GL::BOTTOM XLIB/GL::FLOAT64)
; (XLIB/GL::TOP XLIB/GL::FLOAT64)
; (XLIB/GL::Z-NEAR XLIB/GL::FLOAT64)
; (XLIB/GL::Z-FAR XLIB/GL::FLOAT64))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND PASS-THROUGH
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:PASS-THROUGH 123
; (XLIB/GL::TOKEN XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND PIXEL-TRANSFER-F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:PIXEL-TRANSFER-F 166
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAM XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND PIXEL-ZOOM
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:PIXEL-ZOOM 165
; (XLIB/GL::XFACTOR XLIB/GL::FLOAT32)
; (XLIB/GL::YFACTOR XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND POINT-SIZE
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:POINT-SIZE 100
; (XLIB/GL::SIZE XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND POLYGON-OFFSET
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:POLYGON-OFFSET 192
; (XLIB/GL::FACTOR XLIB/GL::FLOAT32)
; (XLIB/GL::UNITS XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND PRIORITIZE-TEXTURES
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::PRIORITIZE-TEXTURES 4118
; (XLIB/GL::N XLIB:INT32)
; (XLIB/GL::TEXTURES
; (LIST XLIB:CARD32 XLIB/GL::N))
; (XLIB/GL::PRIORITIES
; (LIST XLIB/GL::FLOAT32 XLIB/GL::N)))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
The result is a (VALUES
(OR (INTEGER -8589934592 -4) (INTEGER 0 0)
(INTEGER 4 8589934588))
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
The result is a (VALUES
(OR (INTEGER -8589934592 -4) (INTEGER 0 0)
(INTEGER 4 8589934588))
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* + * CEILING +
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER -8589934592 -4) (INTEGER 0 0)
; (INTEGER 4 8589934588))
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER -8589934592 -4) (INTEGER 0 0)
; (INTEGER 4 8589934588))
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a (OR (INTEGER -8589934592 -4) (INTEGER 0 0)
(INTEGER 4 8589934588)), not a FIXNUM.
The result is a (VALUES
(OR (INTEGER -8589934588 0) (INTEGER 4 4)
(INTEGER 8 8589934592))
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (OR (INTEGER -8589934592 -4) (INTEGER 0 0)
(INTEGER 4 8589934588)), not a FIXNUM.
The result is a (VALUES
(OR (INTEGER -8589934588 0) (INTEGER 4 4)
(INTEGER 8 8589934592))
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR (INTEGER -8589934592 -4) (INTEGER 0 0)
; (INTEGER 4 8589934588)), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER -8589934588 0) (INTEGER 4 4)
; (INTEGER 8 8589934592))
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR (INTEGER -8589934592 -4) (INTEGER 0 0)
; (INTEGER 4 8589934588)), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER -8589934588 0) (INTEGER 4 4)
; (INTEGER 8 8589934592))
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
The result is a (VALUES
(OR (INTEGER -8589934592 -4) (INTEGER 0 0)
(INTEGER 4 8589934588))
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
The result is a (VALUES
(OR (INTEGER -8589934592 -4) (INTEGER 0 0)
(INTEGER 4 8589934588))
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER -8589934592 -4) (INTEGER 0 0)
; (INTEGER 4 8589934588))
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER -8589934592 -4) (INTEGER 0 0)
; (INTEGER 4 8589934588))
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (OR (INTEGER -8589934588 0) (INTEGER 4 4)
(INTEGER 8 8589934592)), not a FIXNUM.
The second argument is a (OR (INTEGER -8589934592 -4) (INTEGER 0 0)
(INTEGER 4 8589934588)), not a FIXNUM.
The result is a (VALUES (INTEGER -17179869180 17179869180) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
The first argument is a (OR (INTEGER -8589934588 0) (INTEGER 4 4)
(INTEGER 8 8589934592)), not a (UNSIGNED-BYTE
32).
The second argument is a (OR (INTEGER -8589934592 -4) (INTEGER 0 0)
(INTEGER 4 8589934588)), not a (UNSIGNED-BYTE
32).
The result is a (VALUES (INTEGER -17179869180 17179869180) &OPTIONAL), not a (VALUES
(UNSIGNED-BYTE
32)
&OPTIONAL).
etc.
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR (INTEGER -8589934588 0) (INTEGER 4 4)
; (INTEGER 8 8589934592)), not a FIXNUM.
; The second argument is a (OR (INTEGER -8589934592 -4) (INTEGER 0 0)
; (INTEGER 4 8589934588)), not a FIXNUM.
; The result is a (VALUES (INTEGER -17179869180 17179869180) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline (unsigned-byte 32) arithmetic (cost 5) because:
; The first argument is a (OR (INTEGER -8589934588 0) (INTEGER 4 4)
; (INTEGER 8 8589934592)), not a (UNSIGNED-BYTE
; 32).
; The second argument is a (OR (INTEGER -8589934592 -4) (INTEGER 0 0)
; (INTEGER 4 8589934588)), not a (UNSIGNED-BYTE
; 32).
; The result is a (VALUES (INTEGER -17179869180 17179869180) &OPTIONAL), not a (VALUES
; (UNSIGNED-BYTE
; 32)
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a (INTEGER -17179869180 17179869180), not a FIXNUM.
The result is a (VALUES (INTEGER -17179869177 17179869183) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER -17179869180 17179869180), not a FIXNUM.
The result is a (VALUES (INTEGER -17179869177 17179869183) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
etc.
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* + * CEILING
; ==>
; 1
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER -17179869180 17179869180), not a FIXNUM.
; The result is a (VALUES (INTEGER -17179869177 17179869183) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER -17179869180 17179869180), not a FIXNUM.
; The result is a (VALUES (INTEGER -17179869177 17179869183) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline ASH (cost 1) because:
The first argument is a (INTEGER -4294967295 4294967295), not a FIXNUM.
The result is a (VALUES
(OR (INTEGER -17179869180 -4) (INTEGER 0 0)
(INTEGER 4 17179869180))
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline ASH (cost 2) because:
The first argument is a (INTEGER -4294967295 4294967295), not a FIXNUM.
The result is a (VALUES
(OR (INTEGER -17179869180 -4) (INTEGER 0 0)
(INTEGER 4 17179869180))
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* + *
; ==>
; 1
;
; note: forced to do full call
; unable to do inline ASH (cost 1) because:
; The first argument is a (INTEGER -4294967295 4294967295), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER -17179869180 -4) (INTEGER 0 0)
; (INTEGER 4 17179869180))
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline ASH (cost 2) because:
; The first argument is a (INTEGER -4294967295 4294967295), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER -17179869180 -4) (INTEGER 0 0)
; (INTEGER 4 17179869180))
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a (OR (INTEGER -17179869180 -4) (INTEGER 0 0)
(INTEGER 4 17179869180)), not a FIXNUM.
The result is a (VALUES
(OR (INTEGER -17179869176 0) (INTEGER 4 4)
(INTEGER 8 17179869184))
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (OR (INTEGER -17179869180 -4) (INTEGER 0 0)
(INTEGER 4 17179869180)), not a FIXNUM.
The result is a (VALUES
(OR (INTEGER -17179869176 0) (INTEGER 4 4)
(INTEGER 8 17179869184))
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET*
; ==>
; (+ 4 (* 4 (CEILING (+ 4 (* 4 XLIB/GL::N) (* 4 XLIB/GL::N)) 4)))
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (OR (INTEGER -17179869180 -4) (INTEGER 0 0)
; (INTEGER 4 17179869180)), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER -17179869176 0) (INTEGER 4 4)
; (INTEGER 8 17179869184))
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (OR (INTEGER -17179869180 -4) (INTEGER 0 0)
; (INTEGER 4 17179869180)), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER -17179869176 0) (INTEGER 4 4)
; (INTEGER 8 17179869184))
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
The result is a (VALUES
(OR (INTEGER -8589934592 -4) (INTEGER 0 0)
(INTEGER 4 8589934588))
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
The result is a (VALUES
(OR (INTEGER -8589934592 -4) (INTEGER 0 0)
(INTEGER 4 8589934588))
&OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
etc.
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN SETF SETQ THE THE + THE
; ==>
; (* 4 XLIB/GL::N)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER -8589934592 -4) (INTEGER 0 0)
; (INTEGER 4 8589934588))
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (SIGNED-BYTE 32), not a FIXNUM.
; The result is a (VALUES
; (OR (INTEGER -8589934592 -4) (INTEGER 0 0)
; (INTEGER 4 8589934588))
; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND RASTER-POS-2D
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:RASTER-POS-2D 33
; ((XLIB/GL::V-0 XLIB/GL::V-1)
; XLIB/GL::FLOAT64))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND RASTER-POS-2F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:RASTER-POS-2F 34
; ((XLIB/GL::V-0 XLIB/GL::V-1)
; XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND RASTER-POS-3D
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:RASTER-POS-3D 37
; ((XLIB/GL::V-0 XLIB/GL::V-1 XLIB/GL::V-2)
; XLIB/GL::FLOAT64))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND RASTER-POS-3F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:RASTER-POS-3F 38
; ((XLIB/GL::V-0 XLIB/GL::V-1 XLIB/GL::V-2)
; XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND RASTER-POS-4D
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:RASTER-POS-4D 41
; ((XLIB/GL::V-0 XLIB/GL::V-1 XLIB/GL::V-2
; XLIB/GL::V-3)
; XLIB/GL::FLOAT64))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND RASTER-POS-4F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:RASTER-POS-4F 42
; ((XLIB/GL::V-0 XLIB/GL::V-1 XLIB/GL::V-2
; XLIB/GL::V-3)
; XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND RECT-D
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:RECT-D 45
; ((XLIB/GL::V1-0 XLIB/GL::V1-1
; XLIB/GL::V2-0 XLIB/GL::V2-1)
; XLIB/GL::FLOAT64))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND RECT-F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:RECT-F 46
; ((XLIB/GL::V1-0 XLIB/GL::V1-1
; XLIB/GL::V2-0 XLIB/GL::V2-1)
; XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND ROTATE-D
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:ROTATE-D 185
; ((XLIB:ANGLE XLIB/GL::X XLIB/GL::Y
; XLIB/GL::Z)
; XLIB/GL::FLOAT64))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND ROTATE-F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:ROTATE-F 186
; ((XLIB:ANGLE XLIB/GL::X XLIB/GL::Y
; XLIB/GL::Z)
; XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND SCALE-D
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:SCALE-D 187
; ((XLIB/GL::X XLIB/GL::Y XLIB/GL::Z)
; XLIB/GL::FLOAT64))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND SCALE-F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:SCALE-F 188
; ((XLIB/GL::X XLIB/GL::Y XLIB/GL::Z)
; XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND TEX-ENV-F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:TEX-ENV-F 111
; (XLIB/GL::TARGET XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAM XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND TEX-ENV-FV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::TEX-ENV-FV 112
; (XLIB/GL::TARGET XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAM
; (LIST XLIB/GL::FLOAT32
; (ECASE XLIB/GL::PNAME
; (8704 1)
; (8705 4)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND TEX-ENV-IV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::TEX-ENV-IV 114
; (XLIB/GL::TARGET XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAM
; (LIST XLIB:INT32
; (ECASE XLIB/GL::PNAME
; (8704 1)
; (8705 4)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND TEX-GEN-D
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:TEX-GEN-D 115
; (XLIB/GL::PARAM XLIB/GL::FLOAT64)
; (XLIB/GL::COORD XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND TEX-GEN-DV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::TEX-GEN-DV 116
; (XLIB/GL::COORD XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB/GL::FLOAT64
; (ECASE XLIB/GL::PNAME
; (# 1)
; (9473 4)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of IF-EQ
; (ECASE XLIB/GL::PNAME ((9472 9474) 1) (9473 4))
; --> IF OR LET IF EQL
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND TEX-GEN-F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:TEX-GEN-F 117
; (XLIB/GL::COORD XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAM XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND TEX-GEN-FV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::TEX-GEN-FV 118
; (XLIB/GL::COORD XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB/GL::FLOAT32
; (ECASE XLIB/GL::PNAME
; (# 1)
; (9473 4)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of IF-EQ
; (ECASE XLIB/GL::PNAME ((9472 9474) 1) (9473 4))
; --> IF OR LET IF EQL
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of IF-EQ
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND TEX-GEN-IV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::TEX-GEN-IV 120
; (XLIB/GL::COORD XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB:INT32
; (ECASE XLIB/GL::PNAME
; (# 1)
; (9473 4)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for:
the first argument of IF-EQ
; (ECASE XLIB/GL::PNAME ((9472 9474) 1) (9473 4))
; --> IF OR LET IF EQL
; ==>
; 1
;
; note: doing signed word to integer coercion (cost 20), for:
; the first argument of IF-EQ
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND TEX-PARAMETER-F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:TEX-PARAMETER-F 105
; (XLIB/GL::TARGET XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAM XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND TEX-PARAMETER-FV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::TEX-PARAMETER-FV 106
; (XLIB/GL::TARGET XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB/GL::FLOAT32
; (ECASE XLIB/GL::PNAME
; (# 4)
; (# 1)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The first argument is a T, not a (NOT
SB-KERNEL:EXTENDED-SEQUENCE).
; in: DEFINE-RENDERING-COMMAND TEX-PARAMETER-IV
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL::TEX-PARAMETER-IV 108
; (XLIB/GL::TARGET XLIB:CARD32)
; (XLIB/GL::PNAME XLIB:CARD32)
; (XLIB/GL::PARAMS
; (LIST XLIB:INT32
; (ECASE XLIB/GL::PNAME
; (# 4)
; (# 1)))))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION
; --> SB-C::%FUNCALL
; ==>
; 1
;
; note: unable to
; optimize
; due to type uncertainty:
; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND TRANSLATE-D
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:TRANSLATE-D 189
; ((XLIB/GL::X XLIB/GL::Y XLIB/GL::Z)
; XLIB/GL::FLOAT64))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND TRANSLATE-F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:TRANSLATE-F 190
; ((XLIB/GL::X XLIB/GL::Y XLIB/GL::Z)
; XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND VERTEX-2D
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:VERTEX-2D 65
; ((XLIB/GL::X XLIB/GL::Y) XLIB/GL::FLOAT64))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND VERTEX-2F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:VERTEX-2F 66
; ((XLIB/GL::X XLIB/GL::Y) XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND VERTEX-3D
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:VERTEX-3D 69
; ((XLIB/GL::X XLIB/GL::Y XLIB/GL::Z)
; XLIB/GL::FLOAT64))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND VERTEX-3F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:VERTEX-3F 70
; ((XLIB/GL::X XLIB/GL::Y XLIB/GL::Z)
; XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND VERTEX-4D
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:VERTEX-4D 73
; ((XLIB/GL::X XLIB/GL::Y XLIB/GL::Z
; XLIB/GL::W)
; XLIB/GL::FLOAT64))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK
; ==>
; (LET ((XLIB/GL::LOW (SB-KERNEL:DOUBLE-FLOAT-LOW-BITS XLIB/GL::VALUE))
; (XLIB/GL::HIGH (SB-KERNEL:DOUBLE-FLOAT-HIGH-BITS XLIB/GL::VALUE)))
; (DECLARE (TYPE (UNSIGNED-BYTE 32) XLIB/GL::LOW XLIB/GL::HIGH))
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4))))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT64 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::LOW ARRAY XLIB/GL::INDEX)
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::HIGH ARRAY
; (THE XLIB:ARRAY-INDEX (+ XLIB/GL::INDEX 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFINE-RENDERING-COMMAND VERTEX-4F
; (XLIB/GL::DEFINE-RENDERING-COMMAND XLIB/GL:VERTEX-4F 74
; ((XLIB/GL::X XLIB/GL::Y XLIB/GL::Z
; XLIB/GL::W)
; XLIB/GL::FLOAT32))
; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK
; --> LET* PROGN XLIB/GL::ASET-FLOAT32 BLOCK LET
; ==>
; (XLIB::ASET-CARD32 XLIB/GL::BITS ARRAY XLIB/GL::INDEX)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; in: DEFUN NEW-LIST
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY
; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX"))
; (XLIB::DATA XLIB/GL::+NEW-LIST+)
; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX))
; (XLIB:CARD32 LIST)
; (XLIB:CARD32 XLIB/GL::MODE))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 4))
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 LIST) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB/GL::MODE) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; in: DEFUN GEN-LISTS
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY
; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY
; "GLX")
; NIL)
; ((XLIB::DATA XLIB/GL::+GEN-LISTS+)
; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX))
; (INTEGER XLIB/GL::RANGE))
; (XLIB::CARD32-GET 8))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT LET XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 4))
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::INTEGER-PUT XLIB::WRITE-INT32
; ==>
; (XLIB::ASET-INT32 (THE XLIB:INT32 XLIB/GL::RANGE) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; in: DEFUN END-LIST
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY
; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX"))
; (XLIB::DATA XLIB/GL::+END-LIST+)
; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 4))
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; in: DEFUN ENABLE
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY
; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY
; "GLX")
; NIL)
; ((XLIB::DATA XLIB/GL::+ENABLE+)
; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX))
; (XLIB:CARD32 XLIB/GL::CAP)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT LET XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 4))
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB/GL::CAP) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; in: DEFUN FLUSH
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY
; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "GLX"))
; (XLIB::DATA XLIB/GL::+FLUSH+)
; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX)))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT LET XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 4))
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; in: DEFUN FINISH
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY
; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY
; "GLX")
; NIL)
; ((XLIB::DATA XLIB/GL::+FINISH+)
; (XLIB:CARD32 (XLIB/GLX::CONTEXT-TAG XLIB/GL::CTX))))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT LET XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::.VALUE.) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 4))
;
; note: doing unsigned word to integer coercion (cost 20)
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/extensions/gl-tmpMOOD9PZK.fasl
; compilation finished in 0:00:06.308
REDEFINITION-WITH-DEFUN: redefining XLIB/GL::BYTE-WIDTH in DEFUN
REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SETTER in DEFUN
REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SEQUENCE-SETTER in DEFUN
REDEFINITION-WITH-DEFMACRO: redefining XLIB/GL::DEFINE-SEQUENCE-SETTER in DEFMACRO
REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-INT8 in DEFUN
REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-INT16 in DEFUN
REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-INT32 in DEFUN
REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-BOOL in DEFUN
REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-CARD8 in DEFUN
REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-CARD16 in DEFUN
REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-CARD32 in DEFUN
REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-FLOAT32 in DEFUN
REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-FLOAT64 in DEFUN
REDEFINITION-WITH-DEFUN: redefining XLIB/GL::MAKE-ARGSPECS in DEFUN
REDEFINITION-WITH-DEFUN: redefining XLIB/GL::BYTE-WIDTH-CALCULATION in DEFUN
REDEFINITION-WITH-DEFUN: redefining XLIB/GL::COMPOSITE-ARGS in DEFUN
REDEFINITION-WITH-DEFUN: redefining XLIB/GL::MAKE-SETTER-FORMS in DEFUN
REDEFINITION-WITH-DEFMACRO: redefining XLIB/GL::DEFINE-RENDERING-COMMAND in DEFMACRO
; compiling file "/usr/share/common-lisp/source/clx/extensions/dpms.lisp" (written 05 FEB 2026 08:13:27 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/extensions/dpms-tmpJSQEHKQD.fasl
; compilation finished in 0:00:00.192
REDEFINITION-WITH-DEFMACRO: redefining XLIB/DPMS::DPMS-OPCODE in DEFMACRO
; compiling file "/usr/share/common-lisp/source/clx/extensions/xtest.lisp" (written 05 FEB 2026 08:13:27 PM):
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; file: /usr/share/common-lisp/source/clx/extensions/xtest.lisp
; in: DEFUN COMPARE-CURSOR
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY
; (XLIB/XTEST::OPCODE XLIB:DISPLAY) NIL)
; ((XLIB::DATA XLIB/XTEST::+COMPARE-CURSOR+)
; (XLIB:RESOURCE-ID (XLIB:WINDOW-ID XLIB:WINDOW))
; (XLIB:RESOURCE-ID XLIB:CURSOR-ID))
; (VALUES (XLIB::CARD8-GET 1)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::RESOURCE-ID-PUT XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 XLIB:CURSOR-ID) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN FAKE-MOTION-EVENT
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB/XTEST::OPCODE XLIB:DISPLAY))
; (XLIB::DATA XLIB/XTEST::+FAKE-INPUT+)
; (XLIB:CARD8 XLIB/XTEST::+FAKE-MOTION-NOTIFY+)
; (XLIB:CARD8
; (IF XLIB/XTEST::RELATIVE
; 1
; 0))
; (XLIB/XTEST::PAD16 0)
; (XLIB:CARD32 XLIB/XTEST::DELAY)
; (XLIB:CARD32 XLIB/XTEST::ROOT-WINDOW-ID)
; (XLIB/XTEST::PAD32 0 0)
; (XLIB:CARD16 XLIB/XTEST::X)
; (XLIB:CARD16 XLIB/XTEST::Y)
; (XLIB/XTEST::PAD32 0 0))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB/XTEST::ROOT-WINDOW-ID)
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB/XTEST::X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 24))
;
; note: doing signed word to integer coercion (cost 20)
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/extensions/xtest-tmpX9RFG54G.fasl
; compilation finished in 0:00:00.260
REDEFINITION-WITH-DEFMACRO: redefining XLIB/XTEST::OPCODE in DEFMACRO
; compiling file "/usr/share/common-lisp/source/clx/extensions/screensaver.lisp" (written 05 FEB 2026 08:13:27 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/extensions/screensaver-tmpJZYZV5YE.fasl
; compilation finished in 0:00:00.060
; compiling file "/usr/share/common-lisp/source/clx/extensions/randr.lisp" (written 05 FEB 2026 08:13:27 PM):
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; file: /usr/share/common-lisp/source/clx/extensions/randr.lisp
; in: DECLARE-EVENT :RR-SCREEN-CHANGE-NOTIFY
; (XLIB:DECLARE-EVENT :RR-SCREEN-CHANGE-NOTIFY
; ((XLIB::DATA (XLIB::MEMBER8 XLIB::+ROTATION-MASK-VECTOR+)))
; (XLIB:CARD16 SEQUENCE)
; (XLIB:CARD32 XLIB:TIMESTAMP XLIB::CONFIG-TIMESTAMP)
; (XLIB:WINDOW XLIB::ROOT-WINDOW XLIB::REQUEST-WINDOW)
; (XLIB:CARD16 XLIB::SIZE-ID XLIB::SUB-PIXEL-ORDER XLIB::WIDTH XLIB::HEIGHT
; XLIB::WIDTH-IN-MM XLIB::HEIGHT-IN-MM))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::CONFIG-TIMESTAMP) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB::ROOT-WINDOW))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB::REQUEST-WINDOW))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::SIZE-ID) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 20))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :RR-CRTC-CHANGE-NOTIFY
; (XLIB:DECLARE-EVENT :RR-CRTC-CHANGE-NOTIFY
; ((XLIB::DATA (XLIB::MEMBER8 XLIB::+ROTATION-MASK-VECTOR+)))
; (XLIB:CARD16 SEQUENCE)
; (XLIB:CARD32 XLIB:TIMESTAMP)
; (XLIB:WINDOW XLIB::REQUEST-WINDOW)
; (XLIB:CARD32 XLIB::CRTC)
; (XLIB:CARD32 XLIB::MODE)
; (XLIB:CARD16 XLIB::ROTATION)
; (XLIB::PAD16)
; (XLIB:INT16 XLIB::X XLIB::Y)
; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB::REQUEST-WINDOW))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::CRTC) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::MODE) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::ROTATION) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 20))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :RR-OUTPUT-CHANGE-NOTIFY
; (XLIB:DECLARE-EVENT :RR-OUTPUT-CHANGE-NOTIFY
; (XLIB:CARD16 SEQUENCE)
; (XLIB:CARD32 XLIB:TIMESTAMP XLIB::CONFIG-TIMESTAMP)
; (XLIB:WINDOW XLIB::REQUEST-WINDOW)
; (XLIB:CARD32 XLIB::OUTPUT XLIB::CRTC XLIB::MODE)
; (XLIB:CARD16 XLIB::ROTATION)
; (XLIB:CARD8 XLIB::CONNECTION)
; (XLIB:CARD8 XLIB::SUB-PIXEL-ORDER))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::CONFIG-TIMESTAMP) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB::REQUEST-WINDOW))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::OUTPUT) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::CRTC) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 20))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::MODE) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 24))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::ROTATION) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 28))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DECLARE-EVENT :RR-OUTPUT-PROPERTY-NOTIFY
; (XLIB:DECLARE-EVENT :RR-OUTPUT-PROPERTY-NOTIFY
; (XLIB:CARD16 SEQUENCE)
; (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:CARD32 XLIB::OUTPUT ATOM XLIB:TIMESTAMP)
; (BOOLEAN XLIB::STATE))
; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA
; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::OUTPUT) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 ATOM) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB:TIMESTAMP) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN RR-QUERY-VERSION
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY
; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL
; :SIZES (32))
; ((XLIB::DATA XLIB::+RR-QUERYVERSION+) (XLIB:CARD32 XLIB::+RR-MAJOR+)
; (XLIB:CARD32 XLIB::+RR-MINOR+))
; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::+RR-MINOR+) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN RR-SET-SCREEN-CONFIG
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY
; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL
; :SIZES (16 32))
; ((XLIB::DATA XLIB::+RR-SETSCREENCONFIG+) (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:CARD32 XLIB:TIMESTAMP) (XLIB:CARD32 XLIB::CONF-TIMESTAMP)
; (XLIB:CARD16 XLIB::SIZE-ID) (XLIB:CARD16 XLIB::ROT-MASK)
; (XLIB:CARD16 XLIB::REFRESH) (XLIB::PAD16))
; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+)
; (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) (XLIB::WINDOW-GET 16)
; (XLIB::MEMBER16-VECTOR-GET 20 XLIB::+RENDER-SUBPIXEL-ORDER+)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB:TIMESTAMP) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::CONF-TIMESTAMP) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::SIZE-ID) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN RR-SELECT-INPUT
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY))
; (XLIB::DATA XLIB::+RR-SELECTINPUT+)
; (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:CARD16 XLIB::SELECT-MASK)
; (XLIB::PAD16))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::SELECT-MASK) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN RR-SET-SCREEN-SIZE
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY))
; (XLIB::DATA XLIB::+RR-SETSCREENSIZE+)
; (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:CARD16 XLIB::WIDTH)
; (XLIB:CARD16 XLIB::HEIGHT)
; (XLIB:CARD32 XLIB::WIDTH-MM)
; (XLIB:CARD32 XLIB::HEIGHT-MM))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::WIDTH) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::HEIGHT-MM) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN RR-GET-SCREEN-RESOURCES
; (XLIB::RR-MODE-INFO-GET XLIB::OFFSET)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; (+ XLIB::OFFSET 32)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN RR-GET-OUTPUT-INFO
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY
; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL
; :SIZES (8 16 32))
; ((XLIB::DATA XLIB::+RR-GETOUTPUTINFO+) (XLIB:CARD32 XLIB::OUTPUT)
; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP))
; (LET* ((XLIB::NUM-CRTCS (XLIB::CARD16-GET 26))
; (XLIB::NUM-MODES (XLIB::CARD16-GET 28))
; (XLIB::NUM-CLONES (XLIB::CARD16-GET 32))
; (XLIB::NAME-LENGTH (XLIB::CARD16-GET 34))
; (XLIB::CRTC-START 36)
; (XLIB::MODE-START (XLIB::INDEX+ XLIB::CRTC-START #))
; (XLIB::CLONE-START (XLIB::INDEX+ XLIB::MODE-START #))
; (XLIB::NAME-START (XLIB::INDEX+ XLIB::CLONE-START #)))
; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+)
; (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) (XLIB::CARD32-GET 16)
; (XLIB::CARD32-GET 20)
; (XLIB::MEMBER8-VECTOR-GET 24 XLIB::+RR-CONNECTION+)
; (XLIB::MEMBER8-VECTOR-GET 25 XLIB::+RENDER-SUBPIXEL-ORDER+)
; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH
; XLIB::NUM-CRTCS :INDEX XLIB::CRTC-START)
; (XLIB::CARD16-GET 30)
; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH
; XLIB::NUM-MODES :INDEX XLIB::MODE-START)
; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :LENGTH
; XLIB::NUM-CLONES :INDEX XLIB::CLONE-START)
; ...)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::CONFIG-TIMESTAMP) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN RR-QUERY-OUTPUT-PROPERTY
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY
; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL
; :SIZES (8 16 32))
; ((XLIB::DATA XLIB::+RR-QUERYOUTPUTPROPERTY+) (XLIB:CARD32 XLIB::OUTPUT)
; (XLIB:CARD32 ATOM))
; (VALUES (XLIB::BOOLEAN-GET 8) (XLIB::BOOLEAN-GET 9) (XLIB::BOOLEAN-GET 10)
; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :INDEX
; XLIB::+REPLYSIZE+ :LENGTH
; (XLIB::CARD32-GET 4))))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 ATOM) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN RR-CONFIGURE-OUTPUT-PROPERTY
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY))
; (XLIB::DATA XLIB::+RR-CONFIGUREOUTPUTPROPERTY+)
; (XLIB:CARD32 XLIB::OUTPUT)
; (XLIB:CARD32 ATOM)
; (BOOLEAN XLIB::PENDING XLIB::RANGE)
; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 ATOM) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN RR-CHANGE-OUTPUT-PROPERTY
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY))
; (XLIB::DATA XLIB::+RR-CHANGEOUTPUTPROPERTY+)
; (XLIB:CARD32 XLIB::OUTPUT)
; (XLIB:CARD32 ATOM)
; (XLIB:CARD32 XLIB::ATOM-TYPE)
; (XLIB:CARD8 32)
; (XLIB:CARD8 XLIB::MODE)
; (XLIB::PAD16)
; (XLIB:CARD32 XLIB::DATA-LENGTH)
; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 ATOM) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::ATOM-TYPE) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-CARD32 XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 24) XLIB::SEQ
; 0 #:G23 NIL)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN RR-DELETE-OUTPUT-PROPERTY
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY))
; (XLIB::DATA XLIB::+RR-DELETEOUTPUTPROPERTY+)
; (XLIB:CARD32 XLIB::OUTPUT)
; (XLIB:CARD32 ATOM))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 ATOM) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: unable to
optimize
due to type uncertainty:
The result is a (VALUES (RATIONAL 0 4294967295)
&OPTIONAL), not a (VALUES
INTEGER
&REST T).
; in: DEFUN RR-GET-OUTPUT-PROPERTY
; (/ XLIB::BYTES-AFTER XLIB::VALUE-LENGTH)
;
; note: unable to
; optimize
; due to type uncertainty:
; The result is a (VALUES (RATIONAL 0 4294967295) &OPTIONAL), not a (VALUES
; INTEGER
; &REST T).
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY
; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL
; :SIZES (8 16 32))
; ((XLIB::DATA XLIB::+RR-GETOUTPUTPROPERTY+) (XLIB:CARD32 XLIB::OUTPUT)
; (XLIB:CARD32 ATOM) (XLIB:CARD32 TYPE) (XLIB:CARD32 0) (XLIB:CARD32 0)
; (XLIB:CARD8 DELETE) (XLIB:CARD8 XLIB::PENDING) (XLIB::PAD16))
; (LET* ((XLIB::BYTES-AFTER (XLIB::CARD32-GET 12))
; (XLIB::VALUE-LENGTH (XLIB::CARD32-GET 16))
; (XLIB::BYTE-FORMAT (UNLESS # #)))
; (VALUES (XLIB::CARD32-GET 8) XLIB::VALUE-LENGTH
; (WHEN (NOT #) (CASE XLIB::BYTE-FORMAT # # #)))))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 ATOM) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 TYPE) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 0) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 20))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; in: DEFUN RR-CREATE-MODE
; (XLIB::RR-MODE-INFO-PUT 8 XLIB:MODE-INFO)
; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 (XLIB::RR-MODE-INFO-ID XLIB:MODE-INFO))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::CARD16-PUT XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16
; (THE XLIB:CARD16 (XLIB::RR-MODE-INFO-WIDTH XLIB:MODE-INFO))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET (XLIB::INDEX+ 8 4)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20)
; --> XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32
; (THE XLIB:CARD32 (XLIB::RR-MODE-INFO-DOT-CLOCK XLIB:MODE-INFO))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET (XLIB::INDEX+ 8 8)))
;
; note: doing unsigned word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::CARD16-PUT XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16
; (THE XLIB:CARD16 (XLIB::RR-MODE-INFO-H-SYNC-START XLIB:MODE-INFO))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET (XLIB::INDEX+ 8 12)))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::STRING-PUT 40 XLIB::NAME)
; ==>
; (XLIB::WRITE-SEQUENCE-CHAR XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 40) XLIB::NAME
; 0 #:G45)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN RR-ADD-OUTPUT-MODE
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY))
; (XLIB::DATA XLIB::+RR-ADDOUTPUTMODE+)
; (XLIB:CARD32 XLIB::OUTPUT)
; (XLIB:CARD32 XLIB::MODE))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::MODE) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN RR-DELETE-OUTPUT-MODE
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY))
; (XLIB::DATA XLIB::+RR-DELETEOUTPUTMODE+)
; (XLIB:CARD32 XLIB::OUTPUT)
; (XLIB:CARD32 XLIB::MODE))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::MODE) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN RR-GET-CRTC-INFO
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY
; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL
; :SIZES (8 16 32))
; ((XLIB::DATA XLIB::+RR-GETCRTCINFO+) (XLIB:CARD32 XLIB::CRTC)
; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP))
; (LET* ((XLIB::NUM-OUTPUTS (XLIB::CARD16-GET 28))
; (XLIB::POS-OUTPUTS (XLIB::CARD16-GET 30))
; (XLIB::POS-START (XLIB::INDEX+ XLIB::+REPLYSIZE+ #)))
; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+)
; (XLIB::CARD32-GET 8) (XLIB::INT16-GET 12) (XLIB::INT16-GET 14)
; (XLIB::CARD16-GET 16) (XLIB::CARD16-GET 18) (XLIB::CARD32-GET 20)
; (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 24))
; (XLIB::MAKE-ROTATION-KEYS (XLIB::CARD16-GET 26))
; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :INDEX
; XLIB::+REPLYSIZE+ :LENGTH XLIB::NUM-OUTPUTS)
; (XLIB::SEQUENCE-GET :RESULT-TYPE XLIB::RESULT-TYPE :INDEX
; XLIB::POS-START :LENGTH XLIB::POS-OUTPUTS))))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::CONFIG-TIMESTAMP) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN RR-SET-CRTC-CONFIG
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY
; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL
; :SIZES (8 16 32))
; ((XLIB::DATA XLIB::+RR-SETCRTCCONFIG+) (XLIB:CARD32 XLIB::CRTC)
; (XLIB:CARD32 XLIB:TIMESTAMP) (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP)
; (XLIB:CARD16 XLIB::X) (XLIB:CARD16 XLIB::Y) (XLIB:CARD32 XLIB::MODE)
; (XLIB:CARD16 XLIB::ROT-MASK) (XLIB::PAD16)
; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ))
; (VALUES (XLIB::MEMBER8-VECTOR-GET 1 XLIB::+RR-CONFIG-STATUS+)
; (XLIB::CARD32-GET 8)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB:TIMESTAMP) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::CONFIG-TIMESTAMP) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD16-PUT XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::X) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 16))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::ROT-MASK) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 24))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-CARD32 XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 28) XLIB::SEQ
; 0 #:G26 NIL)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN RR-SET-CRTC-GAMMA
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY))
; (XLIB::DATA XLIB::+RR-SETCRTCGAMMA+)
; (XLIB:CARD32 XLIB::CRTC)
; (XLIB:CARD16 XLIB::SIZE)
; (XLIB::PAD16)
; ((SEQUENCE :FORMAT XLIB:CARD16) XLIB::SEQ))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD16-PUT
; --> XLIB::WRITE-CARD16
; ==>
; (XLIB::ASET-CARD16 (THE XLIB:CARD16 XLIB::SIZE) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-CARD16 XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12) XLIB::SEQ
; 0 #:G13 NIL)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN RR-GET-SCREEN-RESOURCES-CURRENT
; (XLIB::RR-MODE-INFO-GET XLIB::OFFSET)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20), for:
the first result of inline (unsigned-byte 32) arithmetic
; (+ XLIB::OFFSET 32)
;
; note: doing unsigned word to integer coercion (cost 20), for:
; the first result of inline (unsigned-byte 32) arithmetic
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN RR-SET-OUTPUT-PRIMARY
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY))
; (XLIB::DATA XLIB::+RR-SETOUTPUTPRIMARY+)
; (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:CARD32 XLIB::OUTPUT))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::OUTPUT) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN RR-GET-PROVIDER-INFO
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY
; (XLIB::RANDR-OPCODE XLIB:DISPLAY) NIL
; :SIZES (8 16 32))
; ((XLIB::DATA XLIB::+RR-GETPROVIDERINFO+) (XLIB:CARD32 XLIB::PROVIDER)
; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP))
; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12) (XLIB::CARD16-GET 16)
; (XLIB::CARD16-GET 18) (XLIB::CARD16-GET 20)
; (XLIB::STRING-GET (XLIB::CARD16-GET 22) 56)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::CONFIG-TIMESTAMP) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN RR-SET-PROVIDER-OUTPUT-SOURCE
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY))
; (XLIB::DATA XLIB::+RR-SETPROVIDEROUTPUTSOURCE+)
; (XLIB:CARD32 XLIB::PROVIDER)
; (XLIB:CARD32 XLIB::SOURCE-PROVIDER)
; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::SOURCE-PROVIDER) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::CONFIG-TIMESTAMP) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN RR-SET-PROVIDER-OFFLOAD-SINK
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY (XLIB::RANDR-OPCODE XLIB:DISPLAY))
; (XLIB::DATA XLIB::+RR-SETPROVIDEROFFLOADSINK+)
; (XLIB:CARD32 XLIB::PROVIDER)
; (XLIB:CARD32 XLIB::SINK-PROVIDER)
; (XLIB:CARD32 XLIB::CONFIG-TIMESTAMP))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::CARD32-PUT
; --> XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::SINK-PROVIDER) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::CONFIG-TIMESTAMP) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12))
;
; note: doing signed word to integer coercion (cost 20)
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/extensions/randr-tmp7AGT8VJK.fasl
; compilation finished in 0:00:02.144
REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-MASK-FNS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RR-TRANSFORM-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RR-TRANSFORM-PUT in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RR-MODE-INFO-GET in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining XLIB::RR-MODE-INFO-PUT in DEFMACRO
; compiling file "/usr/share/common-lisp/source/clx/extensions/xinerama.lisp" (written 05 FEB 2026 08:13:27 PM):
SIMPLE-COMPILER-NOTE: doing unsigned word to integer coercion (cost 20) from NUMBER
; file: /usr/share/common-lisp/source/clx/extensions/xinerama.lisp
; in: DEFUN XINERAMA-QUERY-SCREENS
; (XLIB/XINERAMA::MAKE-SCREEN-INFO :NUMBER NUMBER :X
; (XLIB::INT16-GET XLIB/XINERAMA::INDEX) :Y
; (XLIB::INT16-GET (+ XLIB/XINERAMA::INDEX 2)) :WIDTH
; (XLIB::CARD16-GET (+ XLIB/XINERAMA::INDEX 4)) :HEIGHT
; (XLIB::CARD16-GET (+ XLIB/XINERAMA::INDEX 6)))
;
; note: doing unsigned word to integer coercion (cost 20) from NUMBER
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/extensions/xinerama-tmpVX9R9U8P.fasl
; compilation finished in 0:00:00.144
; compiling file "/usr/share/common-lisp/source/clx/extensions/dbe.lisp" (written 05 FEB 2026 08:13:27 PM):
SIMPLE-COMPILER-NOTE: unable to
optimize away possible call to FDEFINITION at runtime
because:
callable expression is not known to be a function
; file: /usr/share/common-lisp/source/clx/extensions/dbe.lisp
; in: DEFUN CREATE-BACK-BUFFER
; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB::BB 'XLIB::BACK-BUFFER)
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL
; ==>
; 1
;
; note: unable to
; optimize away possible call to FDEFINITION at runtime
; because:
; callable expression is not known to be a function
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN DBE-ALLOCATE-BACK-BUFFER-NAME
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY
; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY
; "DOUBLE-BUFFER"))
; (XLIB::DATA XLIB::+ALLOCATE-BACK-BUFFER-NAME+)
; (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:DRAWABLE XLIB::BACK-BUFFER)
; (XLIB:CARD8 XLIB::SWAP-HINT)
; (XLIB::PAD8)
; (XLIB::PAD16))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::DRAWABLE-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:DRAWABLE-ID XLIB::BACK-BUFFER))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN DBE-SWAP-BUFFERS
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY
; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY
; "DOUBLE-BUFFER"))
; (XLIB::DATA XLIB::+SWAP-BUFFERS+)
; (XLIB:CARD32 XLIB::NUM)
; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-CARD32 XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8) XLIB::SEQ
; 0 #:G13 NIL)
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum arithmetic (cost 1) because:
The first argument is a (INTEGER 1 4294967295), not a FIXNUM.
The result is a (VALUES (INTEGER 2 4294967296) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
unable to do inline fixnum arithmetic (cost 2) because:
The first argument is a (INTEGER 1 4294967295), not a FIXNUM.
The result is a (VALUES (INTEGER 2 4294967296) &OPTIONAL), not a (VALUES
FIXNUM
&OPTIONAL).
etc.
; in: DEFUN DBE-GET-VISUAL-INFO
; (LOOP :FOR XLIB::I :FROM 1 :TO (XLIB::CARD32-GET XLIB::NEXT)
; :FOR XLIB::OFF := (+ XLIB::NEXT 4) :THEN ...)
;
; note: forced to do full call
; unable to do inline fixnum arithmetic (cost 1) because:
; The first argument is a (INTEGER 1 4294967295), not a FIXNUM.
; The result is a (VALUES (INTEGER 2 4294967296) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; unable to do inline fixnum arithmetic (cost 2) because:
; The first argument is a (INTEGER 1 4294967295), not a FIXNUM.
; The result is a (VALUES (INTEGER 2 4294967296) &OPTIONAL), not a (VALUES
; FIXNUM
; &OPTIONAL).
; etc.
SIMPLE-COMPILER-NOTE: forced to do full call
unable to do inline fixnum comparison (cost 4) because:
The first argument is a (INTEGER 2 4294967296), not a FIXNUM.
The second argument is a (INTEGER 1 4294967295), not a FIXNUM.
unable to do inline (unsigned-byte 32) comparison (cost 6) because:
The first argument is a (INTEGER 2 4294967296), not a (UNSIGNED-BYTE 32).
etc.
;
; note: forced to do full call
; unable to do inline fixnum comparison (cost 4) because:
; The first argument is a (INTEGER 2 4294967296), not a FIXNUM.
; The second argument is a (INTEGER 1 4294967295), not a FIXNUM.
; unable to do inline (unsigned-byte 32) comparison (cost 6) because:
; The first argument is a (INTEGER 2 4294967296), not a (UNSIGNED-BYTE 32).
; etc.
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20) to OFF
;
; note: doing signed word to integer coercion (cost 20) to OFF
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY
; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY
; "DOUBLE-BUFFER")
; NIL :SIZES (8 16 32))
; ((XLIB::DATA XLIB::+GET-VISUAL-INFO+) (XLIB:CARD32 XLIB::NUM)
; ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::WL))
; (VALUES
; (LET ((XLIB::NUM #) (XLIB::NEXT 32) (XLIB::RESULT-LIST NIL))
; (DECLARE (TYPE FIXNUM XLIB::NUM XLIB::NEXT))
; (DOTIMES (XLIB::I XLIB::NUM #) (PUSH # XLIB::RESULT-LIST)))))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-CARD32 XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8) XLIB::WL 0
; #:G21 NIL)
;
; note: doing signed word to integer coercion (cost 20)
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/extensions/dbe-tmpQCDFKETQ.fasl
; compilation finished in 0:00:00.408
; compiling file "/usr/share/common-lisp/source/clx/extensions/xc-misc.lisp" (written 05 FEB 2026 08:13:27 PM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/extensions/xc-misc-tmpO1PDDUR.fasl
; compilation finished in 0:00:00.108
; compiling file "/usr/share/common-lisp/source/clx/extensions/dri2.lisp" (written 05 FEB 2026 08:13:27 PM):
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; file: /usr/share/common-lisp/source/clx/extensions/dri2.lisp
; in: DEFUN DRI2-QUERY-VERSION
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY
; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL)
; ((XLIB::DATA XLIB::+DRI2-QUERY-VERSION+) (XLIB:CARD32 XLIB::+DRI-MAJOR+)
; (XLIB:CARD32 XLIB::+DRI-MINOR+))
; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::+DRI-MINOR+) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN DRI2-CONNECT
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY
; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL)
; ((XLIB::DATA XLIB::+DRI2-CONNECT+) (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:CARD32 XLIB::DRIVER-TYPE))
; (LET* ((XLIB::DRIVER-NAME-LENGTH (XLIB::CARD32-GET 8))
; (XLIB::DEVICE-NAME-LENGTH (XLIB::CARD32-GET 12))
; (XLIB::DEVICE-START (+ 32 #)))
; (VALUES (XLIB::STRING-GET XLIB::DRIVER-NAME-LENGTH 32)
; (XLIB::STRING-GET XLIB::DEVICE-NAME-LENGTH XLIB::DEVICE-START))))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::DRIVER-TYPE) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN DRI2-AUTHENTICATE
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY
; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL)
; ((XLIB::DATA XLIB::+DRI2-AUTHENTICATE+) (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:CARD32 XLIB::TOKEN))
; (VALUES (XLIB::CARD32-GET 8)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::TOKEN) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN DRI2-GET-BUFFERS
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY
; (XLIB::DRI2-OPCODE XLIB:DISPLAY) NIL)
; ((XLIB::DATA XLIB::+DRI2-GET-BUFFERS+) (XLIB:DRAWABLE XLIB:DRAWABLE)
; (XLIB:CARD32 XLIB::LEN) ((SEQUENCE :FORMAT XLIB:CARD32) XLIB::SEQ))
; (VALUES (XLIB::CARD32-GET 16) (XLIB::CARD32-GET 12) (XLIB::CARD32-GET 8)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::LEN) XLIB::BUFFER-BBUF
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET
; ==>
; (XLIB::WRITE-SEQUENCE-CARD32 XLIB::%BUFFER
; (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 12) XLIB::SEQ
; 0 #:G21 NIL)
;
; note: doing signed word to integer coercion (cost 20)
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/extensions/dri2-tmpIX4U16ZB.fasl
; compilation finished in 0:00:00.352
; compiling file "/usr/share/common-lisp/source/clx/extensions/composite.lisp" (written 05 FEB 2026 08:13:27 PM):
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; file: /usr/share/common-lisp/source/clx/extensions/composite.lisp
; in: DEFUN COMPOSITE-QUERY-VERSION
; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY
; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY)
; NIL :SIZES (32))
; ((XLIB::DATA XLIB::+COMPOSITE-QUERYVERSION+)
; (XLIB:CARD32 XLIB::+COMPOSITE-MAJOR+)
; (XLIB:CARD32 XLIB::+COMPOSITE-MINOR+))
; (VALUES (XLIB::CARD32-GET 8) (XLIB::CARD32-GET 12)))
; --> UNWIND-PROTECT FLET BLOCK MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL BLOCK
; --> SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN XLIB::WITH-BUFFER MACROLET LET
; --> XLIB::HOLDING-LOCK SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN
; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET*
; --> XLIB::CHECK-PUT XLIB::CARD32-PUT XLIB::WRITE-CARD32
; ==>
; (XLIB::ASET-CARD32 (THE XLIB:CARD32 XLIB::+COMPOSITE-MINOR+)
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN COMPOSITE-CREATE-REGION-FROM-BORDER-CLIP
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY
; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY))
; (XLIB::DATA XLIB::+COMPOSITE-CREATEREGIONFROMBORDERCLIP+)
; (XLIB:CARD32 XLIB::REGION)
; (XLIB:WINDOW XLIB:WINDOW))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::WINDOW-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:WINDOW-ID XLIB:WINDOW))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20)
; in: DEFUN COMPOSITE-NAME-WINDOW-PIXMAP
; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY
; (XLIB::COMPOSITE-OPCODE XLIB:DISPLAY))
; (XLIB::DATA XLIB::+COMPOSITE-NAMEWINDOWPIXMAP+)
; (XLIB:WINDOW XLIB:WINDOW)
; (XLIB:DRAWABLE XLIB:DRAWABLE))
; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK
; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET
; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1
; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL
; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::DRAWABLE-PUT
; --> XLIB::WRITE-CARD29
; ==>
; (XLIB::ASET-CARD29 (THE XLIB:CARD29 (XLIB:DRAWABLE-ID XLIB:DRAWABLE))
; XLIB::BUFFER-BBUF (XLIB::INDEX+ XLIB::BUFFER-BOFFSET 8))
;
; note: doing signed word to integer coercion (cost 20)
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/usr/share/common-lisp/source/clx/extensions/composite-tmp93OFNPHA.fasl
; compilation finished in 0:00:00.216
REDEFINITION-WITH-DEFMACRO: redefining XLIB::COMPOSITE-OPCODE in DEFMACRO
; compiling file "/build/stumpwm/src/stumpwm/dynamic-mixins/src/package.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/dynamic-mixins/src/package-tmpOH5AKS8D.fasl
; compilation finished in 0:00:00.004
; compiling file "/build/stumpwm/src/stumpwm/dynamic-mixins/src/sorting.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/dynamic-mixins/src/sorting-tmpTNV77KDS.fasl
; compilation finished in 0:00:00.020
; compiling file "/build/stumpwm/src/stumpwm/dynamic-mixins/src/dynamic-mixins.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/dynamic-mixins/src/dynamic-mixins-tmp9AOKGDLT.fasl
; compilation finished in 0:00:00.112
; compiling file "/build/stumpwm/src/stumpwm/package.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/package-tmpXS9JOGMS.fasl
; compilation finished in 0:00:00.004
; compiling file "/build/stumpwm/src/stumpwm/debug.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/debug-tmpERBDX74X.fasl
; compilation finished in 0:00:00.040
; compiling file "/build/stumpwm/src/stumpwm/primitives.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/primitives-tmpTQIEF2IQ.fasl
; compilation finished in 0:00:00.816
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::DEFINE-SWM-CLASS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:WITH-RESTARTS-MENU in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:ADD-HOOK in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:REMOVE-HOOK in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:REMOVE-ALL-HOOKS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-FRAME-PREFERENCE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::DEFINE-FULLSCREEN-IN-FRAME-RULE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::WITH-FOCUS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:WITH-DATA-FILE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:MOVE-TO-HEAD in DEFMACRO
; compiling file "/build/stumpwm/src/stumpwm/wrappers.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/wrappers-tmpPAAFO6LP.fasl
; compilation finished in 0:00:00.200
; compiling file "/build/stumpwm/src/stumpwm/pathnames.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/pathnames-tmp4PCSVQUR.fasl
; compilation finished in 0:00:00.016
; compiling file "/build/stumpwm/src/stumpwm/font-rendering.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/font-rendering-tmpCUMSDKM4.fasl
; compilation finished in 0:00:00.072
; compiling file "/build/stumpwm/src/stumpwm/keysyms.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/keysyms-tmpVBY1FQ3S.fasl
; compilation finished in 0:00:00.412
; compiling file "/build/stumpwm/src/stumpwm/keytrans.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/keytrans-tmpS8NUOPMQ.fasl
; compilation finished in 0:00:00.032
; compiling file "/build/stumpwm/src/stumpwm/kmap.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/kmap-tmpPYED056U.fasl
; compilation finished in 0:00:00.244
; compiling file "/build/stumpwm/src/stumpwm/input.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/input-tmpUOCPY155.fasl
; compilation finished in 0:00:00.636
; compiling file "/build/stumpwm/src/stumpwm/core.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/core-tmpP4BCARWB.fasl
; compilation finished in 0:00:00.028
; compiling file "/build/stumpwm/src/stumpwm/command.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/command-tmpOUEHOD9C.fasl
; compilation finished in 0:00:00.516
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFCOMMAND in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-STUMPWM-COMMAND in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFCOMMAND-ALIAS in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-STUMPWM-TYPE in DEFMACRO
; compiling file "/build/stumpwm/src/stumpwm/menu-declarations.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/menu-declarations-tmp5ZHGID8G.fasl
; compilation finished in 0:00:00.060
; compiling file "/build/stumpwm/src/stumpwm/menu-definitions.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/menu-definitions-tmp9D2N5DM.fasl
; compilation finished in 0:00:00.260
; compiling file "/build/stumpwm/src/stumpwm/screen.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/screen-tmpKDSLP2NX.fasl
; compilation finished in 0:00:00.692
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::SET-ANY-COLOR in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::WITH-CURRENT-SCREEN in DEFMACRO
; compiling file "/build/stumpwm/src/stumpwm/head.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/head-tmp4QLHV6NG.fasl
; compilation finished in 0:00:00.112
; compiling file "/build/stumpwm/src/stumpwm/group.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/group-tmpMFQG7214.fasl
; compilation finished in 0:00:00.336
; compiling file "/build/stumpwm/src/stumpwm/bindings.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/bindings-tmpEL1UBVEC.fasl
; compilation finished in 0:00:00.136
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::FILL-KEYMAP in DEFMACRO
; compiling file "/build/stumpwm/src/stumpwm/events.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/events-tmpO7N5WXBL.fasl
; compilation finished in 0:00:00.400
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::DEFINE-STUMP-EVENT-HANDLER in DEFMACRO
; compiling file "/build/stumpwm/src/stumpwm/window.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/window-tmp7GPJW3WR.fasl
; compilation finished in 0:00:00.660
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-WINDOW-SLOT in DEFMACRO
; compiling file "/build/stumpwm/src/stumpwm/floating-group.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/floating-group-tmpESZVJLGB.fasl
; compilation finished in 0:00:00.400
; compiling file "/build/stumpwm/src/stumpwm/tile-window.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/tile-window-tmp861VENRV.fasl
; compilation finished in 0:00:00.256
; compiling file "/build/stumpwm/src/stumpwm/tile-group.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/tile-group-tmp7MX18LSW.fasl
; compilation finished in 0:00:00.988
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:SAVE-FRAME-EXCURSION in DEFMACRO
; compiling file "/build/stumpwm/src/stumpwm/window-placement.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/window-placement-tmp4CP5SEFX.fasl
; compilation finished in 0:00:00.088
; compiling file "/build/stumpwm/src/stumpwm/message-window.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/message-window-tmpZ7L7FP0S.fasl
; compilation finished in 0:00:00.212
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::DEFINE-SIMPLE-GRAVITY in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:WITH-MESSAGE-QUEUING in DEFMACRO
; compiling file "/build/stumpwm/src/stumpwm/selection.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/selection-tmpGCPRU2E.fasl
; compilation finished in 0:00:00.180
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::MULTISELECT in DEFMACRO
; compiling file "/build/stumpwm/src/stumpwm/module.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/module-tmpTYRYY2X9.fasl
; compilation finished in 0:00:00.048
; compiling file "/build/stumpwm/src/stumpwm/ioloop.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/ioloop-tmpOMAPSGL7.fasl
; compilation finished in 0:00:00.320
; compiling file "/build/stumpwm/src/stumpwm/timers.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/timers-tmpB76HJA0J.fasl
; compilation finished in 0:00:00.072
; compiling file "/build/stumpwm/src/stumpwm/stumpwm.lisp" (written 29 AUG 2026 02:16:52 AM):
SIMPLE-STYLE-WARNING: IGNORE declaration for a variable from outer scope: SIGNUM
; file: /build/stumpwm/src/stumpwm/stumpwm.lisp
; in: DEFUN STUMPWM
; (STUMPWM::SET-SIGNAL-HANDLER SB-POSIX:SIGHUP
; (STUMPWM:DFORMAT 0
; "SIGHUP received: forcing immediate restart of stumpwm~%")
; (STUMPWM::FORCE-STUMPWM-RESTART))
; --> ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA SB-ALIEN::%ALIEN-CALLBACK-ALIEN
; --> SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION LET LET
; ==>
; (LOCALLY
; (DECLARE (IGNORE SIGNUM))
; (STUMPWM:DFORMAT 0
; "SIGHUP received: forcing immediate restart of stumpwm~%")
; (STUMPWM::FORCE-STUMPWM-RESTART))
;
; caught STYLE-WARNING:
; IGNORE declaration for a variable from outer scope: SIGNUM
SIMPLE-STYLE-WARNING: The variable SIGNUM is defined but never used.
; --> ALIEN-SAP SB-ALIEN::ALIEN-LAMBDA SB-ALIEN::%ALIEN-CALLBACK-ALIEN
; --> SB-ALIEN::ALIEN-LAMBDA2 LAMBDA FUNCTION LET
; ==>
; (LET ((SIGNUM (DEREF (SAP-ALIEN # #))))
; (LOCALLY
; (DECLARE (IGNORE SIGNUM))
; (STUMPWM:DFORMAT 0
; "SIGHUP received: forcing immediate restart of stumpwm~%")
; (STUMPWM::FORCE-STUMPWM-RESTART)))
;
; caught STYLE-WARNING:
; The variable SIGNUM is defined but never used.
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/stumpwm-tmp7QTM681J.fasl
; compilation finished in 0:00:00.288
COMPILE-WARNED-WARNING: Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "stumpwm" "stumpwm">
WARNING:
Lisp compilation had style-warnings while
compiling #<CL-SOURCE-FILE "stumpwm" "stumpwm">
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::SET-SIGNAL-HANDLER in DEFMACRO
; compiling file "/build/stumpwm/src/stumpwm/user.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/user-tmpLGH8FB0W.fasl
; compilation finished in 0:00:00.276
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFPROGRAM-SHORTCUT in DEFMACRO
; compiling file "/build/stumpwm/src/stumpwm/interactive-keymap.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/interactive-keymap-tmpDGQGGEC4.fasl
; compilation finished in 0:00:00.048
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-INTERACTIVE-KEYMAP in DEFMACRO
; compiling file "/build/stumpwm/src/stumpwm/iresize.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/iresize-tmp6X5OKNPG.fasl
; compilation finished in 0:00:00.036
; compiling file "/build/stumpwm/src/stumpwm/help.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/help-tmpABKNHGCI.fasl
; compilation finished in 0:00:00.448
; compiling file "/build/stumpwm/src/stumpwm/fdump.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/fdump-tmpDGT3OQUT.fasl
; compilation finished in 0:00:00.264
; compiling file "/build/stumpwm/src/stumpwm/time.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/time-tmpNF26V1SW.fasl
; compilation finished in 0:00:00.192
; compiling file "/build/stumpwm/src/stumpwm/mode-line.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/mode-line-tmp2SBNA8NV.fasl
; compilation finished in 0:00:00.184
; compiling file "/build/stumpwm/src/stumpwm/mode-line-formatters.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/mode-line-formatters-tmpGXTLRZRR.fasl
; compilation finished in 0:00:00.140
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::ALTERNATE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::SCROLL in DEFMACRO
; compiling file "/build/stumpwm/src/stumpwm/color.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/color-tmp2OV9B8J5.fasl
; compilation finished in 0:00:00.372
; compiling file "/build/stumpwm/src/stumpwm/wse.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/wse-tmpDWRCTFSG.fasl
; compilation finished in 0:00:00.068
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:ACT-ON-MATCHING-WINDOWS in DEFMACRO
; compiling file "/build/stumpwm/src/stumpwm/dynamic-window.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/dynamic-window-tmpUJ89U641.fasl
; compilation finished in 0:00:00.072
; compiling file "/build/stumpwm/src/stumpwm/dynamic-group.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/dynamic-group-tmpJAPE3FUS.fasl
; compilation finished in 0:00:00.888
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::SWAP in DEFMACRO
REDEFINITION-WITH-DEFMETHOD: redefining PRINT-SWM-OBJECT (#<STANDARD-CLASS STUMPWM::DYNAMIC-WINDOW>
#<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::WITH-GROUP-HEAD-INFO in DEFMACRO
; compiling file "/build/stumpwm/src/stumpwm/remap-keys.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/remap-keys-tmp1V7T6W0W.fasl
; compilation finished in 0:00:00.040
; compiling file "/build/stumpwm/src/stumpwm/manual.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/manual-tmp952LXWTD.fasl
; compilation finished in 0:00:00.276
; compiling file "/build/stumpwm/src/stumpwm/minor-modes.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/minor-modes-tmpLVFWNUU9.fasl
; compilation finished in 0:00:00.860
REDEFINITION-WITH-DEFUN: redefining STUMPWM::MAKE-SPECIAL-VARIABLE-NAME in DEFUN
REDEFINITION-WITH-DEFUN: redefining STUMPWM::PARSE-MINOR-MODE-OPTIONS in DEFUN
REDEFINITION-WITH-DEFUN: redefining STUMPWM::DEFINE-COMMAND-MACRO in DEFUN
REDEFINITION-WITH-DEFUN: redefining STUMPWM::DEFINE-ENABLE-METHODS in DEFUN
REDEFINITION-WITH-DEFUN: redefining STUMPWM::GENLIGHTER in DEFUN
REDEFINITION-WITH-DEFUN: redefining STUMPWM::DEFINE-HOOKS in DEFUN
REDEFINITION-WITH-DEFUN: redefining STUMPWM:ADD-MINOR-MODE-SCOPE in DEFUN
REDEFINITION-WITH-DEFUN: redefining STUMPWM::GET-SCOPE in DEFUN
REDEFINITION-WITH-DEFUN: redefining STUMPWM::SCOPE-TYPE in DEFUN
REDEFINITION-WITH-DEFUN: redefining STUMPWM::SCOPE-FILTER-TYPE in DEFUN
REDEFINITION-WITH-DEFUN: redefining STUMPWM::SCOPE-CURRENT-OBJECT-FUNCTION in DEFUN
REDEFINITION-WITH-DEFUN: redefining STUMPWM::SCOPE-ALL-OBJECTS-FUNCTION in DEFUN
REDEFINITION-WITH-DEFUN: redefining STUMPWM::FIND-ACTIVE-GLOBAL-MINOR-MODES-FOR-SCOPE in DEFUN
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-MINOR-MODE-SCOPE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-DESCENDED-MINOR-MODE-SCOPE in DEFMACRO
REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-MINOR-MODE in DEFMACRO
; compiling file "/build/stumpwm/src/stumpwm/replace-class.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/replace-class-tmpDKBKLORG.fasl
; compilation finished in 0:00:00.080
REDEFINITION-WITH-DEFGENERIC: redefining DYNAMIC-MIXINS-SWM:REPLACE-CLASS in DEFGENERIC
WARNING: redefining DYNAMIC-MIXINS-SWM:REPLACE-CLASS in DEFGENERIC
; compiling file "/build/stumpwm/src/stumpwm/version.lisp" (written 29 AUG 2026 02:16:52 AM):
; wrote /build/.cache/common-lisp/sbcl-2.6.8-linux-arm/build/stumpwm/src/stumpwm/version-tmpMO2T7PGC.fasl
; compilation finished in 0:00:00.080
;
; compilation unit finished
; caught 9 STYLE-WARNING conditions
; printed 1896 notes
[undoing binding stack and other enclosing state... done]
[performing final GC... done]
[saving current Lisp image into stumpwm:
writing 2960 bytes from the static space at 0x4100000
writing 31744000 bytes from the dynamic space at 0x4f000000
writing 9694504 bytes from the read-only space at 0x4e6c1000
writing 0 bytes from the text space at (nil)
done]
/usr/bin/sbcl --non-interactive --eval "(require 'asdf)" --eval "(setf sb-impl::*default-external-format* :UTF-8)" --eval "(progn (load \"load-stumpwm.lisp\") (load \"manual.lisp\"))" --eval "(progn (stumpwm::generate-manual) (sb-ext:quit))"
This is SBCL 2.6.8, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.
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.
WARNING: redefining DYNAMIC-MIXINS-SWM:REPLACE-CLASS in DEFGENERIC
warning: Function dynamic-group-head-layout not found.
warning: Function dynamic-group-head-split-ratio not found.
warning: Symbol exchange-window-with-master not found in package STUMPWM
test "makeinfo" = "no" || makeinfo stumpwm.texi
stumpwm.texi:99: warning: node prev pointer for `Interacting With Unix' is `Screens' but prev is `Internals' in menu
stumpwm.texi:1653: warning: node prev pointer for `Common Built-in Commands' is `Writing Commands' but prev is `StumpWM Types' in menu
This is pdfTeX, Version 3.141592653-2.6-1.40.29 (TeX Live 2026/Arch Linux) (preloaded format=pdfetex)
restricted \write18 enabled.
entering extended mode
(./stumpwm.texi (/usr/share/texmf-dist/tex/texinfo/texinfo.tex
Loading texinfo [version 2025-12-23.13]: pdf, fonts, glyphs, page headings,
tables, conditionals, indexing, sectioning, toc, environments, defuns, macros,
cross references, insertions, (/usr/share/texmf-dist/tex/generic/epsf/epsf.tex
This is `epsf.tex' v2.7.4 <14 February 2011>
) localization, formatting, microtype, and turning on texinfo input format.)
[1{/var/lib/texmf/fonts/map/pdftex/updmap/pdftex.map}] [2] Chapter 1
Writing index file stumpwm.fn
Cross reference values unknown; you must run TeX again. [1] [2]
Writing index file stumpwm.vr
[3] [4] [5] [6] [7] [8] [9] Chapter 2 [10] [11] [12]
Overfull \hbox (55.34668pt too wide) in paragraph at lines 1177--1177
[]@texttt (stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "C-z") "echo Zzz
zz...")[] |
[13]
Overfull \hbox (84.09012pt too wide) in paragraph at lines 1218--1218
[]@texttt (stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "C-f") ^^M*my-fr
ame-bindings*)[] |
[14] [15] [16] [17] [18] Chapter 3 [19] [20] [21] [22] [23] [24] [25]
Overfull \hbox (60.93126pt too wide) in paragraph at lines 1987--1987
[] @texttt (loop ; gather all the directions in which there^^Ms a nei
ghbouring frame[] |
[26]
Overfull \hbox (20.85455pt too wide) in paragraph at lines 2037--2037
[] @texttt ;; find all symbols in th
e[] |
Overfull \hbox (112.83356pt too wide) in paragraph at lines 2040--2040
[] @texttt (do-symbols (s (find-pa
ckage "STUMPWM"))[] |
Overfull \hbox (153.07437pt too wide) in paragraph at lines 2041--2041
[] @texttt (push (string-downcas
e (symbol-name s)) acc))[] |
[27] [28] Chapter 4 [29] [30] [31] [32] [33] [34] [35] Chapter 5 [36] [37]
[38] [39] [40] [41] [42] [43] [44]
Overfull \hbox (89.8388pt too wide) in paragraph at lines 3127--3127
[]@texttt (frame-number raise lock &key from-group create restore dump-name cl
ass class-not[] |
[45] [46] [47] Chapter 6 [48] [49] [50] [51] [52] [53] Chapter 7 [54] [55]
[56] [57]
Overfull \hbox (43.6852pt too wide) in paragraph at lines 3940--3940
[]@texttt (register-ml-on-click-id :ml-on-click-focus-window #^^Mml-on-click-f
ocus-window)[] |
Overfull \hbox (20.69044pt too wide) in paragraph at lines 3977--3977
[]@texttt "^(:on-click :ml-on-click-focus-window 308242)window text^(:on-click
-end)"[] |
[58] Chapter 8 [59] [60] [61] [62] [63] [64] Chapter 9 [65] [66] Chapter 10
[67] [68] [69] [70] [71] [72] [73] [74]
Writing index file stumpwm.tp
[75] [76] [77] Chapter 11 [78] [79] [80] Chapter 12 [81] [82] Chapter 13
[83] [84] Chapter 14 [85] [86] [87] [88] [89] [90] [91] [92] Chapter 15
[93] [94] [95] [96] Chapter 16 [97] [98] [99] [100] Chapter 17 [101] [102]
Overfull \hbox (14.94176pt too wide) in paragraph at lines 6210--6210
[]@texttt git clone git@github.com:stumpwm/stumpwm-contrib.git ~/.stumpwm.d/mo
dules[] |
Overfull \hbox (198.89977pt too wide) in paragraph at lines 6263--6263
[]@texttt (quickproject:make-project #p"~/.stumpwm.d/modules/new-module" :depe
nds-on ^^M(stumpwm) :name "new-module")[] |
[103] Chapter 18 [104] [105] [106] [107] Chapter 19 [108] [109]
(Command and Function Index) [110]
No file stumpwm.fns.
(Variable Index) [111] [112]
No file stumpwm.vrs.
[113]
kpathsea: Running mktexpk --mfmode / --bdpi 600 --mag 1+3/600 --dpi 603 ectt1095
mktexpk: Running mf-nowin -progname=mf \mode:=ljfour; mag:=1+3/600; nonstopmode; input ectt1095
This is METAFONT, Version 2.71828182 (TeX Live 2026/Arch Linux) (preloaded base=mf)
(/usr/share/texmf-dist/fonts/source/jknappen/ec/ectt1095.mf
(/usr/share/texmf-dist/fonts/source/jknappen/ec/exbase.mf)
(/usr/share/texmf-dist/fonts/source/jknappen/ec/ectt.mf
(/usr/share/texmf-dist/fonts/source/jknappen/ec/exroman.mf
Ok (/usr/share/texmf-dist/fonts/source/jknappen/ec/exaccess.mf
Ok) (/usr/share/texmf-dist/fonts/source/jknappen/ec/expseudo.mf
Ok) (/usr/share/texmf-dist/fonts/source/jknappen/ec/exruwest.mf
Ok [192] [193] [194] [195] [196] [197] [198] [199] [200] [201] [202] [203]
[204] [205] [206] [207] [208] [209] [210] [211] [212] [213] [214] [215]
[216] [217] [218] [219] [220] [221] [222] [223])
(/usr/share/texmf-dist/fonts/source/jknappen/ec/exrlwest.mf
Ok [224] [225] [226] [227] [228] [229] [230] [231] [232] [233] [234] [235]
[236] [237] [238] [239] [240] [241] [242] [243] [244] [245] [246] [247]
[248] [249] [250] [251] [252] [253] [254] [255])
(/usr/share/texmf-dist/fonts/source/jknappen/ec/exrueast.mf
Ok [128] [129] [130] [131] [132] [133] [134] [135] [136] [137] [138] [139]
[140] [141] [142] [143] [144] [145] [146] [147] [148] [149] [150] [151]
[152] [153] [154] [155] [156] [157])
(/usr/share/texmf-dist/fonts/source/jknappen/ec/exrleast.mf
Ok [158] [160] [161] [162] [163] [164] [165] [166] [167] [168] [169] [170]
[171] [172] [173] [174] [175] [176] [177] [178] [179] [180] [181] [182]
[183] [184] [185] [186] [187] [188])
(/usr/share/texmf-dist/fonts/source/jknappen/ec/exbraces.mf
Ok [94] [126] [23] [40] [41] [60] [124] [62] [91] [93] [92] [123] [125]
[95] [127] [32]) (/usr/share/texmf-dist/fonts/source/jknappen/ec/expunct.mf
Ok [14] [15] [19] [20] [13] [18] [33] [39] [42] [43] [44] [46] [47] [58]
[59] [61] [96] [189] [17] [45] [16] [21] [22])
(/usr/share/texmf-dist/fonts/source/jknappen/ec/exaccent.mf
Ok [0] [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12])
(/usr/share/texmf-dist/fonts/source/jknappen/ec/exsign.mf
Ok [24] [34] [35] [36] [37] [64] [191] [159])
(/usr/share/texmf-dist/fonts/source/jknappen/ec/exrlig.mf
Ok [25] [26] [28] [27] [29] [30] [31])
(/usr/share/texmf-dist/fonts/source/jknappen/ec/exromp.mf
Ok [38] [63] [190])
(/usr/share/texmf-dist/fonts/source/jknappen/ec/exrulett.mf
Ok [65] [66] [67] [68] [69] [70] [71] [72] [73] [74] [75] [76] [77] [78]
[79] [80] [81] [82] [83] [84] [85] [86] [87] [88] [89] [90])
(/usr/share/texmf-dist/fonts/source/jknappen/ec/exrllett.mf
Ok [97] [98] [99] [100] [101] [102] [103] [104] [105] [106] [107] [108]
[109] [110] [111] [112] [113] [114] [115] [116] [117] [118] [119] [120]
[121] [122]) (/usr/share/texmf-dist/fonts/source/jknappen/ec/exrdigit.mf
Ok [48] [49] [50] [51] [52] [53] [54] [55] [56] [57])
(/usr/share/texmf-dist/fonts/source/jknappen/ec/exmligtb.mf
Ok) ) ) )
Font metrics written on ectt1095.tfm.
Output written on ectt1095.603gf (256 characters, 47808 bytes).
Transcript written on ectt1095.log.
mktexpk: /build/.texlive/texmf-var/fonts/pk/ljfour/jknappen/ec/ectt1095.603pk: successfully generated.
)
(see the transcript file for additional information) </build/.texlive/texmf-var
/fonts/pk/ljfour/jknappen/ec/ectt1095.603pk></usr/share/texmf-dist/fonts/type1/
public/amsfonts/cm/cmbx12.pfb></usr/share/texmf-dist/fonts/type1/public/amsfont
s/cm/cmr10.pfb></usr/share/texmf-dist/fonts/type1/public/amsfonts/cm/cmr9.pfb><
/usr/share/texmf-dist/fonts/type1/public/amsfonts/cm/cmsl10.pfb></usr/share/tex
mf-dist/fonts/type1/public/amsfonts/cm/cmsltt10.pfb></usr/share/texmf-dist/font
s/type1/public/amsfonts/cm/cmss10.pfb></usr/share/texmf-dist/fonts/type1/public
/amsfonts/cm/cmsy10.pfb></usr/share/texmf-dist/fonts/type1/public/amsfonts/cm/c
mti10.pfb></usr/share/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt10.pfb>
Output written on stumpwm.pdf (115 pages, 318973 bytes).
Transcript written on stumpwm.log.
This is pdfTeX, Version 3.141592653-2.6-1.40.29 (TeX Live 2026/Arch Linux) (preloaded format=pdfetex)
restricted \write18 enabled.
entering extended mode
(./stumpwm.texi (/usr/share/texmf-dist/tex/texinfo/texinfo.tex
Loading texinfo [version 2025-12-23.13]: pdf, fonts, glyphs, page headings,
tables, conditionals, indexing, sectioning, toc, environments, defuns, macros,
cross references, insertions, (/usr/share/texmf-dist/tex/generic/epsf/epsf.tex
This is `epsf.tex' v2.7.4 <14 February 2011>
) localization, formatting, microtype, and turning on texinfo input format.)
[1{/var/lib/texmf/fonts/map/pdftex/updmap/pdftex.map}] [2] Chapter 1
(/build/stumpwm/src/stumpwm/stumpwm.aux)
Writing index file stumpwm.fn
[1] [2]
Writing index file stumpwm.vr
[3] [4] [5] [6] [7] [8] [9] Chapter 2 [10] [11] [12]
Overfull \hbox (55.34668pt too wide) in paragraph at lines 1177--1177
[]@texttt (stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "C-z") "echo Zzz
zz...")[] |
[13]
Overfull \hbox (84.09012pt too wide) in paragraph at lines 1218--1218
[]@texttt (stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "C-f") ^^M*my-fr
ame-bindings*)[] |
[14] [15] [16] [17] [18] Chapter 3 [19] [20] [21] [22] [23] [24] [25]
Overfull \hbox (60.93126pt too wide) in paragraph at lines 1987--1987
[] @texttt (loop ; gather all the directions in which there^^Ms a nei
ghbouring frame[] |
[26]
Overfull \hbox (20.85455pt too wide) in paragraph at lines 2037--2037
[] @texttt ;; find all symbols in th
e[] |
Overfull \hbox (112.83356pt too wide) in paragraph at lines 2040--2040
[] @texttt (do-symbols (s (find-pa
ckage "STUMPWM"))[] |
Overfull \hbox (153.07437pt too wide) in paragraph at lines 2041--2041
[] @texttt (push (string-downcas
e (symbol-name s)) acc))[] |
[27] [28] Chapter 4 [29] [30] [31] [32] [33] [34] [35] Chapter 5 [36] [37]
[38] [39] [40] [41] [42] [43] [44]
Overfull \hbox (89.8388pt too wide) in paragraph at lines 3127--3127
[]@texttt (frame-number raise lock &key from-group create restore dump-name cl
ass class-not[] |
[45] [46] [47] Chapter 6 [48] [49] [50] [51] [52] [53] Chapter 7 [54] [55]
[56] [57]
Overfull \hbox (43.6852pt too wide) in paragraph at lines 3940--3940
[]@texttt (register-ml-on-click-id :ml-on-click-focus-window #^^Mml-on-click-f
ocus-window)[] |
Overfull \hbox (20.69044pt too wide) in paragraph at lines 3977--3977
[]@texttt "^(:on-click :ml-on-click-focus-window 308242)window text^(:on-click
-end)"[] |
[58] Chapter 8 [59] [60] [61] [62] [63] [64] Chapter 9 [65] [66] Chapter 10
[67] [68] [69] [70] [71] [72] [73] [74]
Writing index file stumpwm.tp
[75] [76] [77] Chapter 11 [78] [79] [80] Chapter 12 [81] [82] Chapter 13
[83] [84] Chapter 14 [85] [86] [87] [88] [89] [90] [91] [92] Chapter 15
[93] [94] [95] [96] Chapter 16 [97] [98] [99] [100] Chapter 17 [101] [102]
Overfull \hbox (14.94176pt too wide) in paragraph at lines 6210--6210
[]@texttt git clone git@github.com:stumpwm/stumpwm-contrib.git ~/.stumpwm.d/mo
dules[] |
Overfull \hbox (198.89977pt too wide) in paragraph at lines 6263--6263
[]@texttt (quickproject:make-project #p"~/.stumpwm.d/modules/new-module" :depe
nds-on ^^M(stumpwm) :name "new-module")[] |
[103] Chapter 18 [104] [105] [106] [107] Chapter 19 [108] [109]
(Command and Function Index) [110] (/build/stumpwm/src/stumpwm/stumpwm.fns
[111] [112] [113]) (Variable Index) [114]
(/build/stumpwm/src/stumpwm/stumpwm.vrs [115]) [116] )
(see the transcript file for additional information) </build/.texlive/texmf-var
/fonts/pk/ljfour/jknappen/ec/ectt1095.603pk></usr/share/texmf-dist/fonts/type1/
public/amsfonts/cm/cmbx12.pfb></usr/share/texmf-dist/fonts/type1/public/amsfont
s/cm/cmmi9.pfb></usr/share/texmf-dist/fonts/type1/public/amsfonts/cm/cmr10.pfb>
</usr/share/texmf-dist/fonts/type1/public/amsfonts/cm/cmr9.pfb></usr/share/texm
f-dist/fonts/type1/public/amsfonts/cm/cmsl10.pfb></usr/share/texmf-dist/fonts/t
ype1/public/amsfonts/cm/cmsltt10.pfb></usr/share/texmf-dist/fonts/type1/public/
amsfonts/cm/cmss10.pfb></usr/share/texmf-dist/fonts/type1/public/amsfonts/cm/cm
sy10.pfb></usr/share/texmf-dist/fonts/type1/public/amsfonts/cm/cmti10.pfb></usr
/share/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt10.pfb></usr/share/texmf-d
ist/fonts/type1/public/amsfonts/cm/cmtt9.pfb>
Output written on stumpwm.pdf (118 pages, 362180 bytes).
Transcript written on stumpwm.log.
This is pdfTeX, Version 3.141592653-2.6-1.40.29 (TeX Live 2026/Arch Linux) (preloaded format=pdfetex)
restricted \write18 enabled.
entering extended mode
(./stumpwm.texi (/usr/share/texmf-dist/tex/texinfo/texinfo.tex
Loading texinfo [version 2025-12-23.13]: pdf, fonts, glyphs, page headings,
tables, conditionals, indexing, sectioning, toc, environments, defuns, macros,
cross references, insertions, (/usr/share/texmf-dist/tex/generic/epsf/epsf.tex
This is `epsf.tex' v2.7.4 <14 February 2011>
) localization, formatting, microtype, and turning on texinfo input format.)
[1{/var/lib/texmf/fonts/map/pdftex/updmap/pdftex.map}] [2] Chapter 1
(/build/stumpwm/src/stumpwm/stumpwm.aux)
Writing index file stumpwm.fn
[1] [2]
Writing index file stumpwm.vr
[3] [4] [5] [6] [7] [8] [9] Chapter 2 [10] [11] [12]
Overfull \hbox (55.34668pt too wide) in paragraph at lines 1177--1177
[]@texttt (stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "C-z") "echo Zzz
zz...")[] |
[13]
Overfull \hbox (84.09012pt too wide) in paragraph at lines 1218--1218
[]@texttt (stumpwm:define-key stumpwm:*root-map* (stumpwm:kbd "C-f") ^^M*my-fr
ame-bindings*)[] |
[14] [15] [16] [17] [18] Chapter 3 [19] [20] [21] [22] [23] [24] [25]
Overfull \hbox (60.93126pt too wide) in paragraph at lines 1987--1987
[] @texttt (loop ; gather all the directions in which there^^Ms a nei
ghbouring frame[] |
[26]
Overfull \hbox (20.85455pt too wide) in paragraph at lines 2037--2037
[] @texttt ;; find all symbols in th
e[] |
Overfull \hbox (112.83356pt too wide) in paragraph at lines 2040--2040
[] @texttt (do-symbols (s (find-pa
ckage "STUMPWM"))[] |
Overfull \hbox (153.07437pt too wide) in paragraph at lines 2041--2041
[] @texttt (push (string-downcas
e (symbol-name s)) acc))[] |
[27] [28] Chapter 4 [29] [30] [31] [32] [33] [34] [35] Chapter 5 [36] [37]
[38] [39] [40] [41] [42] [43] [44]
Overfull \hbox (89.8388pt too wide) in paragraph at lines 3127--3127
[]@texttt (frame-number raise lock &key from-group create restore dump-name cl
ass class-not[] |
[45] [46] [47] Chapter 6 [48] [49] [50] [51] [52] [53] Chapter 7 [54] [55]
[56] [57]
Overfull \hbox (43.6852pt too wide) in paragraph at lines 3940--3940
[]@texttt (register-ml-on-click-id :ml-on-click-focus-window #^^Mml-on-click-f
ocus-window)[] |
Overfull \hbox (20.69044pt too wide) in paragraph at lines 3977--3977
[]@texttt "^(:on-click :ml-on-click-focus-window 308242)window text^(:on-click
-end)"[] |
[58] Chapter 8 [59] [60] [61] [62] [63] [64] Chapter 9 [65] [66] Chapter 10
[67] [68] [69] [70] [71] [72] [73] [74]
Writing index file stumpwm.tp
[75] [76] [77] Chapter 11 [78] [79] [80] Chapter 12 [81] [82] Chapter 13
[83] [84] Chapter 14 [85] [86] [87] [88] [89] [90] [91] [92] Chapter 15
[93] [94] [95] [96] Chapter 16 [97] [98] [99] [100] Chapter 17 [101] [102]
Overfull \hbox (14.94176pt too wide) in paragraph at lines 6210--6210
[]@texttt git clone git@github.com:stumpwm/stumpwm-contrib.git ~/.stumpwm.d/mo
dules[] |
Overfull \hbox (198.89977pt too wide) in paragraph at lines 6263--6263
[]@texttt (quickproject:make-project #p"~/.stumpwm.d/modules/new-module" :depe
nds-on ^^M(stumpwm) :name "new-module")[] |
[103] Chapter 18 [104] [105] [106] [107] Chapter 19 [108] [109]
(Command and Function Index) [110] (/build/stumpwm/src/stumpwm/stumpwm.fns
[111] [112] [113]) (Variable Index) [114]
(/build/stumpwm/src/stumpwm/stumpwm.vrs [115]) [116] )
(see the transcript file for additional information) </build/.texlive/texmf-var
/fonts/pk/ljfour/jknappen/ec/ectt1095.603pk></usr/share/texmf-dist/fonts/type1/
public/amsfonts/cm/cmbx12.pfb></usr/share/texmf-dist/fonts/type1/public/amsfont
s/cm/cmmi9.pfb></usr/share/texmf-dist/fonts/type1/public/amsfonts/cm/cmr10.pfb>
</usr/share/texmf-dist/fonts/type1/public/amsfonts/cm/cmr9.pfb></usr/share/texm
f-dist/fonts/type1/public/amsfonts/cm/cmsl10.pfb></usr/share/texmf-dist/fonts/t
ype1/public/amsfonts/cm/cmsltt10.pfb></usr/share/texmf-dist/fonts/type1/public/
amsfonts/cm/cmss10.pfb></usr/share/texmf-dist/fonts/type1/public/amsfonts/cm/cm
sy10.pfb></usr/share/texmf-dist/fonts/type1/public/amsfonts/cm/cmti10.pfb></usr
/share/texmf-dist/fonts/type1/public/amsfonts/cm/cmtt10.pfb></usr/share/texmf-d
ist/fonts/type1/public/amsfonts/cm/cmtt9.pfb>
Output written on stumpwm.pdf (118 pages, 362180 bytes).
Transcript written on stumpwm.log.
stumpwm.texi:81: warning: no HTML cross-references entry found for `dir'
==> Entering fakeroot environment...
==> Starting package()...
test -z "/build/stumpwm/pkg/stumpwm/usr/bin" || mkdir -p "/build/stumpwm/pkg/stumpwm/usr/bin"
install -m 755 stumpwm "/build/stumpwm/pkg/stumpwm/usr/bin"
test -z "/build/stumpwm/pkg/stumpwm/usr/share/info" || mkdir -p "/build/stumpwm/pkg/stumpwm/usr/share/info"
test "makeinfo" = "no" || install -m 644 stumpwm.info "/build/stumpwm/pkg/stumpwm/usr/share/info"
test "makeinfo" = "no" || install-info --info-dir="/build/stumpwm/pkg/stumpwm/usr/share/info" "/build/stumpwm/pkg/stumpwm/usr/share/info/stumpwm.info"
install: creating directory '/build/stumpwm/pkg/stumpwm/usr/share/doc'
install: creating directory '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm'
'sample-stumpwmrc.lisp' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/sample-stumpwmrc.lisp'
'README.md' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/README.md'
'stumpwm.pdf' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/stumpwm.pdf'
'stumpwm_html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html'
'stumpwm_html/index.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/index.html'
'stumpwm_html/Introduction.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Introduction.html'
'stumpwm_html/Starting-StumpWM.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Starting-StumpWM.html'
'stumpwm_html/Basic-Usage.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Basic-Usage.html'
'stumpwm_html/Basic-Concepts.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Basic-Concepts.html'
'stumpwm_html/Screens-and-Heads.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Screens-and-Heads.html'
'stumpwm_html/Group-Basics.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Group-Basics.html'
'stumpwm_html/Floating-Group-Basics.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Floating-Group-Basics.html'
'stumpwm_html/Dynamic-Group-Basics.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Dynamic-Group-Basics.html'
'stumpwm_html/Dynamic-Group-Index.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Dynamic-Group-Index.html'
'stumpwm_html/Frame-Basics.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Frame-Basics.html'
'stumpwm_html/Window-Basics.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Window-Basics.html'
'stumpwm_html/System-Trays-and-the-Mode-Line.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/System-Trays-and-the-Mode-Line.html'
'stumpwm_html/Manipulating-Frames-and-Windows.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Manipulating-Frames-and-Windows.html'
'stumpwm_html/Moving-Between-Frames.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Moving-Between-Frames.html'
'stumpwm_html/Manipulating-Windows.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Manipulating-Windows.html'
'stumpwm_html/Interacting-with-the-Lisp-process.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Interacting-with-the-Lisp-process.html'
'stumpwm_html/Init-File.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Init-File.html'
'stumpwm_html/Contact-the-StumpWM-developers.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Contact-the-StumpWM-developers.html'
'stumpwm_html/Key-Bindings.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Key-Bindings.html'
'stumpwm_html/List-of-Default-Keybindings.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/List-of-Default-Keybindings.html'
'stumpwm_html/Binding-Keys.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Binding-Keys.html'
'stumpwm_html/Modifiers.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Modifiers.html'
'stumpwm_html/AltGr-Keys.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/AltGr-Keys.html'
'stumpwm_html/Remapped-Keys.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Remapped-Keys.html'
'stumpwm_html/Commands.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Commands.html'
'stumpwm_html/Writing-Commands.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Writing-Commands.html'
'stumpwm_html/StumpWM-Types.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/StumpWM-Types.html'
'stumpwm_html/Common-Built_002din-Commands.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Common-Built_002din-Commands.html'
'stumpwm_html/Message-and-Input-Bar.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Message-and-Input-Bar.html'
'stumpwm_html/Customizing-The-Bar.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Customizing-The-Bar.html'
'stumpwm_html/Using-The-Input-Bar.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Using-The-Input-Bar.html'
'stumpwm_html/Programming-The-Message-Bar.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Programming-The-Message-Bar.html'
'stumpwm_html/Programming-the-Input-Bar.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Programming-the-Input-Bar.html'
'stumpwm_html/Windows.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Windows.html'
'stumpwm_html/Window-Marks.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Window-Marks.html'
'stumpwm_html/Customizing-Window-Appearance.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Customizing-Window-Appearance.html'
'stumpwm_html/Controlling-Raise-And-Map-Requests.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Controlling-Raise-And-Map-Requests.html'
'stumpwm_html/Programming-With-Windows.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Programming-With-Windows.html'
'stumpwm_html/Rule-Based-Window-Placement.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Rule-Based-Window-Placement.html'
'stumpwm_html/Window-Selection-Expressions.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Window-Selection-Expressions.html'
'stumpwm_html/Frames.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Frames.html'
'stumpwm_html/Interactively-Resizing-Frames.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Interactively-Resizing-Frames.html'
'stumpwm_html/Frame-Dumping.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Frame-Dumping.html'
'stumpwm_html/Mode_002dline.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Mode_002dline.html'
'stumpwm_html/Mode_002dline-Interaction.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Mode_002dline-Interaction.html'
'stumpwm_html/Groups.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Groups.html'
'stumpwm_html/Customizing-Groups.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Customizing-Groups.html'
'stumpwm_html/Screens.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Screens.html'
'stumpwm_html/External-Monitors.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/External-Monitors.html'
'stumpwm_html/Programming-With-Screens.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Programming-With-Screens.html'
'stumpwm_html/Minor-Modes.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Minor-Modes.html'
'stumpwm_html/Programming-With-Minor-Modes.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Programming-With-Minor-Modes.html'
'stumpwm_html/Minor-Mode-Scopes.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Minor-Mode-Scopes.html'
'stumpwm_html/Minor-Mode-Example.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Minor-Mode-Example.html'
'stumpwm_html/Internals.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Internals.html'
'stumpwm_html/IO-Loop.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/IO-Loop.html'
'stumpwm_html/Internal-Functions-Documentation.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Internal-Functions-Documentation.html'
'stumpwm_html/Interacting-With-Unix.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Interacting-With-Unix.html'
'stumpwm_html/Interacting-With-X11.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Interacting-With-X11.html'
'stumpwm_html/Miscellaneous-Commands.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Miscellaneous-Commands.html'
'stumpwm_html/Menus.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Menus.html'
'stumpwm_html/StumpWM_0027s-Data-Directory.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/StumpWM_0027s-Data-Directory.html'
'stumpwm_html/Debugging-StumpWM.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Debugging-StumpWM.html'
'stumpwm_html/Sending-a-Bug-Report.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Sending-a-Bug-Report.html'
'stumpwm_html/Timers.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Timers.html'
'stumpwm_html/Getting-Help.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Getting-Help.html'
'stumpwm_html/Colors.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Colors.html'
'stumpwm_html/Behind-The-Scenes-Look-At-Colors.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Behind-The-Scenes-Look-At-Colors.html'
'stumpwm_html/Hooks.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Hooks.html'
'stumpwm_html/Modules.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Modules.html'
'stumpwm_html/Writing-Modules.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Writing-Modules.html'
'stumpwm_html/Hacking.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Hacking.html'
'stumpwm_html/General-Advice.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/General-Advice.html'
'stumpwm_html/Adding-Documentation-and-Editing-This-Manual.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Adding-Documentation-and-Editing-This-Manual.html'
'stumpwm_html/Using-git-with-StumpWM.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Using-git-with-StumpWM.html'
'stumpwm_html/Sending-Patches.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Sending-Patches.html'
'stumpwm_html/Advanced-Configuration.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Advanced-Configuration.html'
'stumpwm_html/Command-and-Function-Index.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Command-and-Function-Index.html'
'stumpwm_html/Variable-Index.html' -> '/build/stumpwm/pkg/stumpwm/usr/share/doc/stumpwm/html/Variable-Index.html'
install: creating directory '/build/stumpwm/pkg/stumpwm/usr/share/xsessions'
'../stumpwm.desktop' -> '/build/stumpwm/pkg/stumpwm/usr/share/xsessions/stumpwm.desktop'
==> Tidying install...
-> Removing libtool files...
-> Removing static library files...
-> Purging unwanted files...
-> Compressing man and info pages...
==> Checking for packaging issues...
==> WARNING: Package contains reference to $srcdir
usr/bin/stumpwm
==> Creating package "stumpwm"...
-> Generating .PKGINFO file...
-> Generating .BUILDINFO file...
-> Generating .MTREE file...
-> Compressing package...
==> Leaving fakeroot environment.
==> Finished making: stumpwm 24.11-16 (Sat Aug 29 02:19:01 2026)
==> Cleaning up...
[?12l[?25h