=>> Building x11/cl-clx-sbcl build started at 2025-07-03T13:32:51-05:00 port directory: /usr/ports/x11/cl-clx-sbcl package name: cl-clx-sbcl-0.7.6_9 building for: FreeBSD 143amd64-current-job-02 14.3-RELEASE FreeBSD 14.3-RELEASE amd64 maintained by: jrm@FreeBSD.org port version: 0.7.6 port revision: 9 Makefile datestamp: -rw-r--r-- 1 root wheel 455 Jul 3 13:34 /usr/ports/x11/cl-clx-sbcl/Makefile Ports top last git commit: 64e56a4eadc5 Ports top unclean checkout: no =>> Inspecting /poudriere/data/.m/143amd64-current/02//usr/ports/x11/cl-clx-sbcl for modifications to git checkout... no Port dir last git commit: 80d29c5c05c5 Port dir unclean checkout: no Poudriere version: poudriere-git-3.4.99.20250601 Host OSVERSION: 1403000 Jail OSVERSION: 1403000 Job Id: 02 ---Begin Environment--- SHELL=/bin/sh OSVERSION=1403000 UNAME_v=FreeBSD 14.3-RELEASE UNAME_r=14.3-RELEASE BLOCKSIZE=K MAIL=/var/mail/root MM_CHARSET=UTF-8 LANG=C.UTF-8 STATUS=1 HOME=/root PATH=/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin:/root/bin MAKE_OBJDIR_CHECK_WRITABLE=0 LOCALBASE=/usr/local USER=root POUDRIERE_NAME=poudriere-git USE_COLORS=no POUDRIERE_VERSION=3.4.99.20250601 MASTERMNT=/poudriere/data/.m/143amd64-current/ref LC_COLLATE=C POUDRIERE_BUILD_TYPE=bulk PACKAGE_BUILDING=yes SAVED_TERM=screen-256color OUTPUT_REDIRECTED_STDERR=4 OUTPUT_REDIRECTED=1 PWD=/poudriere/data/.m/143amd64-current/02/.p OUTPUT_REDIRECTED_STDOUT=3 P_PORTS_FEATURES=FLAVORS SUBPACKAGES SELECTED_OPTIONS MASTERNAME=143amd64-current OLDPWD=/poudriere/data/.m/143amd64-current/ref/.p/pool POUDRIERE_PKGNAME=poudriere-git-3.4.99.20250601 PREFIX=/usr/local POUDRIEREPATH=/usr/local/bin/poudriere ---End Environment--- ---Begin Poudriere Port Flags/Env--- PORT_FLAGS= PKGENV= FLAVOR= MAKE_ARGS= ---End Poudriere Port Flags/Env--- ---Begin OPTIONS List--- ---End OPTIONS List--- --MAINTAINER-- jrm@FreeBSD.org --End MAINTAINER-- --PORTVERSION-- 0.7.6 --End PORTVERSION-- --PORTREVISION-- 9 --End PORTREVISION-- --CONFIGURE_ARGS-- --End CONFIGURE_ARGS-- --CONFIGURE_ENV-- XDG_DATA_HOME=/wrkdirs/usr/ports/x11/cl-clx-sbcl/work XDG_CONFIG_HOME=/wrkdirs/usr/ports/x11/cl-clx-sbcl/work XDG_CACHE_HOME=/wrkdirs/usr/ports/x11/cl-clx-sbcl/work/.cache HOME=/wrkdirs/usr/ports/x11/cl-clx-sbcl/work TMPDIR="/tmp" PATH=/wrkdirs/usr/ports/x11/cl-clx-sbcl/work/.bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin:/root/bin PKG_CONFIG_LIBDIR=/wrkdirs/usr/ports/x11/cl-clx-sbcl/work/.pkgconfig:/usr/local/libdata/pkgconfig:/usr/local/share/pkgconfig:/usr/libdata/pkgconfig SHELL=/bin/sh CONFIG_SHELL=/bin/sh --End CONFIGURE_ENV-- --MAKE_ENV-- XDG_DATA_HOME=/wrkdirs/usr/ports/x11/cl-clx-sbcl/work XDG_CONFIG_HOME=/wrkdirs/usr/ports/x11/cl-clx-sbcl/work XDG_CACHE_HOME=/wrkdirs/usr/ports/x11/cl-clx-sbcl/work/.cache HOME=/wrkdirs/usr/ports/x11/cl-clx-sbcl/work TMPDIR="/tmp" PATH=/wrkdirs/usr/ports/x11/cl-clx-sbcl/work/.bin:/sbin:/bin:/usr/sbin:/usr/bin:/usr/local/sbin:/usr/local/bin:/root/bin PKG_CONFIG_LIBDIR=/wrkdirs/usr/ports/x11/cl-clx-sbcl/work/.pkgconfig:/usr/local/libdata/pkgconfig:/usr/local/share/pkgconfig:/usr/libdata/pkgconfig MK_DEBUG_FILES=no MK_KERNEL_SYMBOLS=no SHELL=/bin/sh NO_LINT=YES PREFIX=/usr/local LOCALBASE=/usr/local CC="cc" CFLAGS="-O2 -pipe -fstack-protector-strong -fno-strict-aliasing " CPP="cpp" CPPFLAGS="" LDFLAGS=" " LIBS="" CXX="c++" CXXFLAGS="-O2 -pipe -fstack-protector-strong -fno-strict-aliasing " BSD_INSTALL_PROGRAM="install -s -m 555" BSD_INSTALL_LIB="install -s -m 0644" BSD_INSTALL_SCRIPT="install -m 555" BSD_INSTALL_DATA="install -m 0644" BSD_INSTALL_MAN="install -m 444" --End MAKE_ENV-- --PLIST_SUB-- OSREL=14.3 PREFIX=%D LOCALBASE=/usr/local RESETPREFIX=/usr/local LIB32DIR=lib DOCSDIR="share/doc/cl-clx-sbcl" EXAMPLESDIR="share/examples/cl-clx-sbcl" DATADIR="share/clx" WWWDIR="www/clx" ETCDIR="etc/clx" --End PLIST_SUB-- --SUB_LIST-- PREFIX=/usr/local LOCALBASE=/usr/local DATADIR=/usr/local/share/clx DOCSDIR=/usr/local/share/doc/cl-clx-sbcl EXAMPLESDIR=/usr/local/share/examples/cl-clx-sbcl WWWDIR=/usr/local/www/clx ETCDIR=/usr/local/etc/clx --End SUB_LIST-- ---Begin make.conf--- USE_PACKAGE_DEPENDS=yes BATCH=yes WRKDIRPREFIX=/wrkdirs PORTSDIR=/usr/ports PACKAGES=/packages DISTDIR=/distfiles FORCE_PACKAGE=yes PACKAGE_BUILDING=yes PACKAGE_BUILDING_FLAVORS=yes WITH_CCACHE_BUILD=yes CCACHE_DIR=/root/.ccache #### Misc Poudriere #### .include "/etc/make.conf.ports_env" GID=0 UID=0 ---End make.conf--- --Resource limits-- cpu time (seconds, -t) unlimited file size (512-blocks, -f) unlimited data seg size (kbytes, -d) 33554432 stack size (kbytes, -s) 524288 core file size (512-blocks, -c) unlimited max memory size (kbytes, -m) unlimited locked memory (kbytes, -l) unlimited max user processes (-u) 63795 open files (-n) 8192 virtual mem size (kbytes, -v) unlimited swap limit (kbytes, -w) unlimited socket buffer size (bytes, -b) unlimited pseudo-terminals (-p) unlimited kqueues (-k) unlimited umtx shared locks (-o) unlimited pipebuf (-y) unlimited --End resource limits-- =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> License MIT accepted by the user =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 ===> cl-clx-sbcl-0.7.6_9 depends on file: /usr/local/sbin/pkg - not found ===> Installing existing package /packages/All/pkg-2.2.1.pkg [143amd64-current-job-02] Installing pkg-2.2.1... [143amd64-current-job-02] Extracting pkg-2.2.1: .......... done ===> cl-clx-sbcl-0.7.6_9 depends on file: /usr/local/sbin/pkg - found ===> Returning to build of cl-clx-sbcl-0.7.6_9 =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> License MIT accepted by the user ===> Fetching all distfiles required by cl-clx-sbcl-0.7.6_9 for building =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> License MIT accepted by the user ===> Fetching all distfiles required by cl-clx-sbcl-0.7.6_9 for building =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> License MIT accepted by the user ===> Fetching all distfiles required by cl-clx-sbcl-0.7.6_9 for building ===> Extracting for cl-clx-sbcl-0.7.6_9 =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> Patching for cl-clx-sbcl-0.7.6_9 =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 ===> cl-clx-sbcl-0.7.6_9 depends on package: cl-clx>=0 - not found ===> Installing existing package /packages/All/cl-clx-0.7.6_1.pkg [143amd64-current-job-02] Installing cl-clx-0.7.6_1... [143amd64-current-job-02] `-- Installing indexinfo-0.3.1_1... [143amd64-current-job-02] `-- Extracting indexinfo-0.3.1_1: .... done [143amd64-current-job-02] Extracting cl-clx-0.7.6_1: .......... done ===> cl-clx-sbcl-0.7.6_9 depends on package: cl-clx>=0 - found ===> Returning to build of cl-clx-sbcl-0.7.6_9 ===> cl-clx-sbcl-0.7.6_9 depends on executable: sbcl - not found ===> Installing existing package /packages/All/sbcl-2.5.6,1.pkg [143amd64-current-job-02] Installing sbcl-2.5.6,1... [143amd64-current-job-02] `-- Installing cl-freebsd-asdf-init-20250101... [143amd64-current-job-02] `-- Extracting cl-freebsd-asdf-init-20250101: ..... done [143amd64-current-job-02] `-- Installing gmp-6.3.0... [143amd64-current-job-02] `-- Extracting gmp-6.3.0: .......... done [143amd64-current-job-02] `-- Installing mpfr-4.2.2,1... [143amd64-current-job-02] `-- Extracting mpfr-4.2.2,1: .......... done [143amd64-current-job-02] `-- Installing zstd-1.5.7... [143amd64-current-job-02] | `-- Installing liblz4-1.10.0,1... [143amd64-current-job-02] | `-- Extracting liblz4-1.10.0,1: .......... done [143amd64-current-job-02] `-- Extracting zstd-1.5.7: .......... done [143amd64-current-job-02] Extracting sbcl-2.5.6,1: .......... done ===> cl-clx-sbcl-0.7.6_9 depends on executable: sbcl - found ===> Returning to build of cl-clx-sbcl-0.7.6_9 ===> cl-clx-sbcl-0.7.6_9 depends on file: /usr/local/bin/ccache - not found ===> Installing existing package /packages/All/ccache-3.7.12_8.pkg [143amd64-current-job-02] Installing ccache-3.7.12_8... [143amd64-current-job-02] Extracting ccache-3.7.12_8: .......... done Create compiler links... create symlink for cc create symlink for cc (world) create symlink for c++ create symlink for c++ (world) create symlink for CC create symlink for CC (world) create symlink for clang create symlink for clang (world) create symlink for clang++ create symlink for clang++ (world) ===== Message from ccache-3.7.12_8: -- NOTE: Please read /usr/local/share/doc/ccache/ccache-howto-freebsd.txt for information on using ccache with FreeBSD ports and src. ===> cl-clx-sbcl-0.7.6_9 depends on file: /usr/local/bin/ccache - found ===> Returning to build of cl-clx-sbcl-0.7.6_9 =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> Configuring for cl-clx-sbcl-0.7.6_9 =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> Building for cl-clx-sbcl-0.7.6_9 ; compiling file "/usr/local/lib/common-lisp/clx/package.lisp" (written 08 JUN 2025 08:53:36 PM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/package-tmpGHU3ALSV.fasl ; compilation finished in 0:00:00.020 ; compiling file "/usr/local/lib/common-lisp/clx/depdefs.lisp" (written 08 JUN 2025 08:53:36 PM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/depdefs-tmpAAURSO1.fasl ; compilation finished in 0:00:00.181 ; compiling file "/usr/local/lib/common-lisp/clx/clx.lisp" (written 08 JUN 2025 08:53:36 PM): ; file: /usr/local/lib/common-lisp/clx/clx.lisp ; in: DEFUN ENCODE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:EVENT-MASK 'XLIB:EVENT-MASK) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-DEVICE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:DEVICE-EVENT-MASK 'XLIB:DEVICE-EVENT-MASK) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-MODIFIER-MASK ; (XLIB::X-TYPE-ERROR XLIB:MODIFIER-MASK 'XLIB:MODIFIER-MASK) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-STATE-MASK ; (XLIB::X-TYPE-ERROR XLIB::STATE-MASK ; '(OR XLIB:MASK16 (XLIB::CLX-LIST XLIB:STATE-MASK-KEY))) ; ; note: deleting unreachable code ; in: DEFUN ENCODE-POINTER-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:POINTER-EVENT-MASK 'XLIB:POINTER-EVENT-MASK) ; ; note: deleting unreachable code ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/clx-tmp5GEXGEG5.fasl ; compilation finished in 0:00:00.511 ; compiling file "/usr/local/lib/common-lisp/clx/dependent.lisp" (written 08 JUN 2025 08:53:36 PM): ; file: /usr/local/lib/common-lisp/clx/dependent.lisp ; 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 (REAL 0 1), not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (REAL 0 1), not a DOUBLE-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. ; ; 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. ; (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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: unable to ; open-code INTEGER to RATIO comparison ; due to type uncertainty: ; The first argument is a RATIONAL, 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. ; 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) ; in: DEFMACRO READ-IMAGE-LOAD-BYTE ; (SETQ POSITION (- 7 POSITION)) ; ; note: deleting unreachable code ; in: DEFMACRO READ-IMAGE-ASSEMBLE-BYTES ; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES)) ; ; note: deleting unreachable code ; in: DEFMACRO WRITE-IMAGE-LOAD-BYTE ; (- XLIB::INTEGER-SIZE 8 POSITION) ; ; note: deleting unreachable code ; in: DEFMACRO WRITE-IMAGE-ASSEMBLE-BYTES ; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES)) ; ; note: deleting unreachable code ; in: DEFUN COPY-BIT-RECT ; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::SDATA XLIB::SOURCE) (XLIB::SSTART) ; (XLIB::SEND)) ; (DECLARE (IGNORE XLIB::SEND)) ; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::DDATA XLIB::DEST) (XLIB::DSTART) ; (XLIB::DEND)) ; (DECLARE (IGNORE XLIB::DEND)) ; (ASSERT (AND (ZEROP XLIB::SSTART) (ZEROP XLIB::DSTART))) ; (DO ((XLIB::SRC-IDX # #) ; (XLIB::DEST-IDX # #) ; (COUNT XLIB::HEIGHT #)) ; ((ZEROP COUNT)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-IDX XLIB::DEST-IDX COUNT)) ; (SB-KERNEL:UB1-BASH-COPY XLIB::SDATA XLIB::SRC-IDX XLIB::DDATA ; XLIB::DEST-IDX XLIB::WIDTH)))) ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND IF NOT ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a 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 (NOT (SIMPLE-ARRAY * (*))) ARRAY), not a (OR ; VECTOR ; SIMPLE-ARRAY). ; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::DDATA XLIB::DEST) (XLIB::DSTART) ; (XLIB::DEND)) ; (DECLARE (IGNORE XLIB::DEND)) ; (ASSERT (AND (ZEROP XLIB::SSTART) (ZEROP XLIB::DSTART))) ; (DO ((XLIB::SRC-IDX (XLIB::INDEX+ # XLIB::SX #) ; (XLIB::INDEX+ XLIB::SRC-IDX XLIB::SOURCE-WIDTH)) ; (XLIB::DEST-IDX (XLIB::INDEX+ # XLIB::DX #) ; (XLIB::INDEX+ XLIB::DEST-IDX XLIB::DEST-WIDTH)) ; (COUNT XLIB::HEIGHT (1- COUNT))) ; ((ZEROP COUNT)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-IDX XLIB::DEST-IDX COUNT)) ; (SB-KERNEL:UB1-BASH-COPY XLIB::SDATA XLIB::SRC-IDX XLIB::DDATA ; XLIB::DEST-IDX XLIB::WIDTH))) ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND IF NOT ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a 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 (NOT (SIMPLE-ARRAY * (*))) ARRAY), not a (OR ; VECTOR ; SIMPLE-ARRAY). ; in: DEFUN FAST-READ-PIXARRAY-USING-BITBLT ; (XLIB::COPY-BIT-RECT XLIB::BBUF ; (XLIB::INDEX* XLIB::PADDED-BYTES-PER-LINE SB-VM:N-BYTE-BITS) ; (XLIB::INDEX* XLIB::BOFFSET SB-VM:N-BYTE-BITS) 0 XLIB:PIXARRAY ; (XLIB::INDEX* (ARRAY-DIMENSION XLIB:PIXARRAY 1) XLIB::BITS-PER-PIXEL) ; XLIB::X XLIB::Y XLIB::HEIGHT (XLIB::INDEX* XLIB::WIDTH XLIB::BITS-PER-PIXEL)) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN FAST-READ-PIXARRAY ; (XLIB::READ-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X ; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE ; XLIB::BITS-PER-PIXEL FUNCTION XLIB::UNIT ...) ; ; note: deleting unreachable code ; in: DEFUN FAST-WRITE-PIXARRAY-USING-BITBLT ; (ARRAY-DIMENSION XLIB:PIXARRAY 1) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; (XLIB::COPY-BIT-RECT XLIB:PIXARRAY ; (XLIB::INDEX* (ARRAY-DIMENSION XLIB:PIXARRAY 1) XLIB::BITS-PER-PIXEL) ; XLIB::X XLIB::Y XLIB::BBUF ; (XLIB::INDEX* XLIB::PADDED-BYTES-PER-LINE SB-VM:N-BYTE-BITS) ; (XLIB::INDEX* XLIB::BOFFSET SB-VM:N-BYTE-BITS) 0 XLIB::HEIGHT ; (XLIB::INDEX* XLIB::WIDTH XLIB::BITS-PER-PIXEL)) ; ; note: doing signed word to integer coercion (cost 20) ; 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 /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/dependent-tmpAR3FSGEY.fasl ; compilation finished in 0:00:00.213 WARNING: Lisp compilation had style-warnings while compiling # ; compiling file "/usr/local/lib/common-lisp/clx/common.lisp" (written 08 JUN 2025 08:53:36 PM): ; file: /usr/local/lib/common-lisp/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 (REAL 0), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (REAL 0), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; 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 /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/common-tmpJAIDFZTC.fasl ; compilation finished in 0:00:00.010 ; compiling file "/usr/local/lib/common-lisp/clx/macros.lisp" (written 08 JUN 2025 08:53:36 PM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/macros-tmp8V3J6PE9.fasl ; compilation finished in 0:00:00.356 ; compiling file "/usr/local/lib/common-lisp/clx/bufmac.lisp" (written 08 JUN 2025 08:53:36 PM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/bufmac-tmp9V47YWQF.fasl ; compilation finished in 0:00:00.024 ; compiling file "/usr/local/lib/common-lisp/clx/buffer.lisp" (written 08 JUN 2025 08:53:36 PM): ; file: /usr/local/lib/common-lisp/clx/buffer.lisp ; in: DEFUN READ-VECTOR-CARD8 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD8 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFUN READ-VECTOR-CARD8-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD8 XLIB::INDEX))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFUN READ-VECTOR-CARD16 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD16 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFUN READ-VECTOR-CARD16-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD16 XLIB::INDEX))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFUN READ-VECTOR-CARD32 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD32 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFUN READ-VECTOR-CARD32-WITH-TRANSFORM ; (SETF (AREF XLIB::DATA XLIB::J) ; (FUNCALL XLIB::TRANSFORM (XLIB::READ-CARD32 XLIB::INDEX))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFUN WRITE-VECTOR-CARD8 ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFUN WRITE-VECTOR-CARD16 ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFUN WRITE-VECTOR-INT16 ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFUN WRITE-VECTOR-CARD32 ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFUN WRITE-VECTOR-CHAR2B ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/buffer-tmp9BN22RMA.fasl ; compilation finished in 0:00:00.559 ; compiling file "/usr/local/lib/common-lisp/clx/display.lisp" (written 08 JUN 2025 08:53:36 PM): ; file: /usr/local/lib/common-lisp/clx/display.lisp ; in: DEFUN DISPLAY-CONNECT ; (LENGTH XLIB::AUTHORIZATION-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH XLIB::AUTHORIZATION-DATA) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH XLIB::AUTHORIZATION-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/display-tmp1CXFJSK9.fasl ; compilation finished in 0:00:00.133 ; compiling file "/usr/local/lib/common-lisp/clx/gcontext.lisp" (written 08 JUN 2025 08:53:36 PM): ; file: /usr/local/lib/common-lisp/clx/gcontext.lisp ; in: DEFUN SET-GCONTEXT-DASHES ; (VECTOR) ; ; note: deleting unreachable code ; 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. ; (LENGTH XLIB::LOCAL-DASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-SETDASHES+) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; (XLIB:CARD16 (OR (XLIB::GCONTEXT-INTERNAL-DASH-OFFSET XLIB::LOCAL-STATE) 0) ; (LENGTH XLIB::LOCAL-DASH)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::LOCAL-DASH)) ; --> XLIB::WITH-BUFFER PROGN MULTIPLE-VALUE-PROG1 XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::LOCAL-DASH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (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 ; (EQL (SVREF XLIB::SERVER-STATE XLIB::I) ; (SETQ XLIB::LOCAL (SVREF XLIB::LOCAL-STATE XLIB::I))) ; ; note: forced to do IF-EQL (cost 15) ; 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 float comparison (cost 4) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; in: DEFUN COPY-GCONTEXT-LOCAL-STATE ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) ; --> XLIB::WITH-BUFFER PROGN FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (ELT XLIB::*GCONTEXT-EXTENSIONS* XLIB::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (FUNCALL XLIB::COPY-FUNCTION XLIB:GCONTEXT XLIB::TEMP-GC ; (SVREF XLIB::LOCAL-STATE ; (XLIB::INDEX+ XLIB::I XLIB::*GCONTEXT-DATA-LENGTH*))) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: forced to do GENERIC-NEGATE (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a 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. ; (ASH XLIB::EXTENSION-MASK (- XLIB::*GCONTEXT-DATA-LENGTH*)) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; in: DEFUN RESTORE-GCONTEXT-TEMP-STATE ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: unable to ; Eliminate %negate/%negate of rationals ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (FUNCALL XLIB::COPY-FUNCTION XLIB::TEMP-GC XLIB:GCONTEXT ; (SVREF XLIB::LOCAL-STATE XLIB::I)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (- XLIB::*GCONTEXT-DATA-LENGTH*) ; ; note: forced to do GENERIC-NEGATE (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a 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. ; (ASH XLIB::TEMP-MASK (- XLIB::*GCONTEXT-DATA-LENGTH*)) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; in: DEFUN CREATE-GCONTEXT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN COPY-GCONTEXT-COMPONENTS ; (FIND XLIB::KEY XLIB::*GCONTEXT-EXTENSIONS* :KEY ; #'XLIB::GCONTEXT-EXTENSION-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (FUNCALL (XLIB::GCONTEXT-EXTENSION-COPY-FUNCTION XLIB::EXTENSION) XLIB::SRC ; XLIB::DST ; (SVREF (XLIB::GCONTEXT-LOCAL-STATE XLIB::SRC) ; (XLIB::INDEX+ ; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) ; XLIB::*GCONTEXT-DATA-LENGTH*))) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/gcontext-tmpX4BRKI0R.fasl ; compilation finished in 0:00:00.635 ; compiling file "/usr/local/lib/common-lisp/clx/input.lisp" (written 08 JUN 2025 08:53:36 PM): ; file: /usr/local/lib/common-lisp/clx/input.lisp ; in: DEFUN READ-INPUT ; (CONS NIL NIL) ; ; note: deleting unreachable code ; in: DEFUN QUEUE-EVENT ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::EVENT-CODE) XLIB:DISPLAY ; XLIB::ARGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DECLARE-EVENT :CLIENT-MESSAGE ; (XLIB:DECLARE-EVENT :CLIENT-MESSAGE ; (XLIB::DATA FORMAT) ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (KEYWORD TYPE) ; ((XLIB::CLIENT-MESSAGE-SEQUENCE FORMAT) XLIB::DATA)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::READING-EVENT XLIB::WITH-BUFFER-INPUT LET LET* ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to optimize because: ELEMENT-TYPE is not constant. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ; --> ECASE COND IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD8 MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ; --> ECASE COND IF IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD16 MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ; --> ECASE COND IF IF IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD32 MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN MAKE-ERROR ; (FUNCALL XLIB::ERROR-DECODE-FUNCTION XLIB:DISPLAY XLIB::EVENT) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/input-tmpQ371UGST.fasl ; compilation finished in 0:00:01.064 ; compiling file "/usr/local/lib/common-lisp/clx/requests.lisp" (written 08 JUN 2025 08:53:36 PM): ; file: /usr/local/lib/common-lisp/clx/requests.lisp ; in: DEFUN CREATE-WINDOW ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:WINDOW 'XLIB:WINDOW) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEWINDOW+) ; (XLIB::DATA XLIB::DEPTH) ; (XLIB:RESOURCE-ID XLIB::WID) ; (XLIB:WINDOW XLIB::PARENT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH) ; ((XLIB::MEMBER16 :COPY :INPUT-OUTPUT :INPUT-ONLY) CLASS) ; (XLIB:RESOURCE-ID ; (COND ((EQ XLIB::VISUAL :COPY) 0) ; ((TYPEP XLIB::VISUAL 'XLIB:RESOURCE-ID) XLIB::VISUAL) ; (T (XLIB:VISUAL-INFO-ID XLIB::VISUAL)))) ; (XLIB::MASK ; (XLIB:CARD32 XLIB::BACK-PIXMAP XLIB::BACK-PIXEL XLIB::BORDER-PIXMAP ; XLIB::BORDER-PIXEL) ; ((XLIB::MEMBER-VECTOR XLIB::+BIT-GRAVITY-VECTOR+) XLIB:BIT-GRAVITY) ; ((XLIB::MEMBER-VECTOR XLIB::+WIN-GRAVITY-VECTOR+) XLIB::GRAVITY) ; ((MEMBER :NOT-USEFUL :WHEN-MAPPED :ALWAYS) XLIB::BACKING-STORE) ; (XLIB:CARD32 XLIB::BACKING-PLANES XLIB::BACKING-PIXEL) ; ((MEMBER :OFF :ON) XLIB::OVERRIDE-REDIRECT XLIB::SAVE-UNDER) ; (XLIB:CARD32 XLIB:EVENT-MASK XLIB::DO-NOT-PROPAGATE-MASK) ; ((OR (MEMBER :COPY) XLIB:COLORMAP) XLIB:COLORMAP) ; ((OR (MEMBER :NONE) XLIB:CURSOR) XLIB:CURSOR))) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* LET UNLESS IF PROGN SETQ THE ; ==> ; (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. ; ==> ; (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. ; ==> ; (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. ; 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 ; 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 ; 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 ; 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 ; 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. ; in: DEFUN QUERY-COLORS ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY XLIB::+X-QUERYCOLORS+ NIL ; :SIZES (8 16)) ; ((XLIB:COLORMAP XLIB:COLORMAP) (SEQUENCE XLIB::PIXELS)) ; (LET ((SEQUENCE (MAKE-SEQUENCE XLIB::RESULT-TYPE #))) ; (XLIB::ADVANCE-BUFFER-OFFSET XLIB::+REPLYSIZE+) ; (DOTIMES (XLIB::I (LENGTH SEQUENCE) SEQUENCE) ; (SETF # #) ; (XLIB::ADVANCE-BUFFER-OFFSET 8)))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::PIXELS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (SETF (ELT SEQUENCE XLIB::I) ; (XLIB:MAKE-COLOR :RED (XLIB::RGB-VAL-GET 0) :GREEN ; (XLIB::RGB-VAL-GET 2) :BLUE (XLIB::RGB-VAL-GET 4))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; 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 ; 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 ; in: DEFUN SET-POINTER-MAPPING ; (LENGTH MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST-AND-REPLY (XLIB:DISPLAY ; XLIB::+X-SETPOINTERMAPPING+ 2 :SIZES 8) ; ((XLIB::DATA (LENGTH MAP)) ((SEQUENCE :FORMAT XLIB:CARD8) MAP)) ; (VALUES (XLIB::BOOLEAN-GET 1))) ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK XLIB::WITHOUT-ABORTS PROGN ; --> XLIB::WITH-BUFFER-REQUEST-INTERNAL XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH MAP) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; 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). ; in: DEFUN CHANGE-ACCESS-HOST ; (LENGTH XLIB::ADDRESS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CHANGEHOSTS+) ; ((XLIB::DATA BOOLEAN) XLIB::REMOVE-P) ; (XLIB:CARD8 ; (XLIB::ENCODE-TYPE (OR NULL (MEMBER :INTERNET :DECNET :CHAOS) XLIB:CARD32) ; XLIB::FAMILY)) ; (XLIB:CARD16 (LENGTH XLIB::ADDRESS)) ; ((SEQUENCE :FORMAT XLIB:CARD8) XLIB::ADDRESS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::ADDRESS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN ACCESS-HOSTS ; (SETF (ELT SEQUENCE XLIB::I) ; (CONS ; (IF (< XLIB::FAMILY 3) ; (SVREF '# XLIB::FAMILY) ; XLIB::FAMILY) ; (XLIB::SEQUENCE-GET :LENGTH XLIB::LEN :FORMAT XLIB:CARD8 ; :RESULT-TYPE 'LIST :INDEX ; (+ XLIB::BUFFER-BOFFSET 4)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/requests-tmp2OWI3Q7U.fasl ; compilation finished in 0:00:01.308 ; compiling file "/usr/local/lib/common-lisp/clx/fonts.lisp" (written 08 JUN 2025 08:53:36 PM): ; file: /usr/local/lib/common-lisp/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 ; 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 ; in: DEFUN SET-FONT-PATH ; (ELT XLIB::PATHS XLIB::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (STRING (ELT XLIB::PATHS XLIB::I)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (OR STRING ; SYMBOL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (CEILING XLIB::REQUEST-LENGTH 4) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/fonts-tmp9KKTJMYV.fasl ; compilation finished in 0:00:00.162 ; compiling file "/usr/local/lib/common-lisp/clx/graphics.lisp" (written 08 JUN 2025 08:53:36 PM): ; file: /usr/local/lib/common-lisp/clx/graphics.lisp ; in: DEFUN DRAW-POINTS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYPOINT+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::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. ; 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. ; 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. ; 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. ; 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. ; in: DEFUN DRAW-ARCS-VECTOR ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 0)) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 1)) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 2)) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 3)) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 4)) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 5)) ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; 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. ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/graphics-tmpJU0JWO19.fasl ; compilation finished in 0:00:00.164 ; compiling file "/usr/local/lib/common-lisp/clx/text.lisp" (written 08 JUN 2025 08:53:36 PM): ; file: /usr/local/lib/common-lisp/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. ; in: DEFUN TEXT-WIDTH ; (LENGTH SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; 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. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN KEYBOARD-MAPPING ; (SETF (AREF XLIB::RESULT XLIB::I XLIB::J) (XLIB::CARD29-GET (* XLIB::J 4))) ; --> FUNCALL ; ==> ; 1 ; ; 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. ; ; note: unable to ; avoid runtime dispatch on array element type ; because: ; Upgraded element type of array is not known at compile time. ; (1+ XLIB::I) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR NULL 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 (OR NULL NUMBER), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/text-tmpZX2WN8N4.fasl ; compilation finished in 0:00:00.350 ; compiling file "/usr/local/lib/common-lisp/clx/attributes.lisp" (written 08 JUN 2025 08:53:36 PM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/attributes-tmpOU81XRV0.fasl ; compilation finished in 0:00:00.303 ; compiling file "/usr/local/lib/common-lisp/clx/translate.lisp" (written 08 JUN 2025 08:53:36 PM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/translate-tmpY2ML9CFA.fasl ; compilation finished in 0:00:00.085 ; compiling file "/usr/local/lib/common-lisp/clx/keysyms.lisp" (written 08 JUN 2025 08:53:36 PM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/keysyms-tmpX2JYJDQE.fasl ; compilation finished in 0:00:00.010 ; compiling file "/usr/local/lib/common-lisp/clx/manager.lisp" (written 08 JUN 2025 08:53:36 PM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/manager-tmpOPCILR65.fasl ; compilation finished in 0:00:00.605 ; compiling file "/usr/local/lib/common-lisp/clx/image.lisp" (written 08 JUN 2025 08:53:36 PM): ; file: /usr/local/lib/common-lisp/clx/image.lisp ; in: DEFUN GET-IMAGE ; (FIND XLIB::DEPTH (XLIB:DISPLAY-PIXMAP-FORMATS XLIB:DISPLAY) :KEY ; #'XLIB:PIXMAP-FORMAT-DEPTH) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/image-tmpRV9F8A9A.fasl ; compilation finished in 0:00:00.960 ; compiling file "/usr/local/lib/common-lisp/clx/resource.lisp" (written 08 JUN 2025 08:53:36 PM): ; file: /usr/local/lib/common-lisp/clx/resource.lisp ; in: DEFUN DELETE-RESOURCE-INTERNAL ; (SETQ XLIB::LOOSE-P NIL) ; ; note: deleting unreachable code ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/resource-tmpK2ZAJT4I.fasl ; compilation finished in 0:00:00.263 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/shape.lisp" (written 13 MAY 2024 07:28:08 AM): ; file: /usr/local/lib/common-lisp/clx/extensions/shape.lisp ; in: DEFUN SHAPE-RECTANGLES ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY ; (XLIB:EXTENSION-OPCODE XLIB:DISPLAY "SHAPE")) ; (XLIB::DATA 1) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-OPERATION XLIB::OPERATION)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-KIND XLIB::KIND)) ; (XLIB:CARD8 (XLIB::ENCODE-SHAPE-RECTANGLE-ORDERING XLIB::ORDERING)) ; (XLIB:CARD8 0) ; (XLIB:WINDOW XLIB:WINDOW) ; (XLIB:INT16 XLIB::X-OFFSET) ; (XLIB:INT16 XLIB::Y-OFFSET) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::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. ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/extensions/shape-tmpUX5S4ADN.fasl ; compilation finished in 0:00:00.146 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/big-requests.lisp" (written 13 MAY 2024 07:28:08 AM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/extensions/big-requests-tmp10401X32.fasl ; compilation finished in 0:00:00.006 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/xvidmode.lisp" (written 13 MAY 2024 07:28:08 AM): ; file: /usr/local/lib/common-lisp/clx/extensions/xvidmode.lisp ; 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). ; (/ (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). ; (/ (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). ; (/ (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). ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/extensions/xvidmode-tmpZ7CBRM0G.fasl ; compilation finished in 0:00:00.657 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/xrender.lisp" (written 13 MAY 2024 07:28:08 AM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/extensions/xrender-tmp9OZEQ0G2.fasl ; compilation finished in 0:00:00.922 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/glx.lisp" (written 13 MAY 2024 07:28:08 AM): ; file: /usr/local/lib/common-lisp/clx/extensions/glx.lisp ; in: DEFUN MAKE-CONTEXT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB/GLX::CTX 'XLIB/GLX::CONTEXT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFUN GET-VISUAL-CONFIGS ; (/ (- XLIB/GLX::NUM-PROPERTIES XLIB/GLX::NUM-ORDERED) 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The result is a (VALUES (RATIONAL 1/2 4294967295/2) &OPTIONAL), not a (VALUES ; INTEGER ; &REST ; T). ; (LOOP XLIB/GLX::REPEAT (/ (- XLIB/GLX::NUM-PROPERTIES XLIB/GLX::NUM-ORDERED) ; 2) ; XLIB/GLX::COLLECTING (CONS (XLIB::CARD32-GET (INCF XLIB/GLX::INDEX 4)) ; (XLIB::CARD32-GET (INCF XLIB/GLX::INDEX 4)))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a (UNSIGNED-BYTE 62). ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/extensions/glx-tmpB2JTL1W9.fasl ; compilation finished in 0:00:00.259 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/gl.lisp" (written 13 MAY 2024 07:28:08 AM): ; file: /usr/local/lib/common-lisp/clx/extensions/gl.lisp ; in: DEFINE-SEQUENCE-SETTER INT8 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT8) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF ; --> TYPEP ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; in: DEFINE-SEQUENCE-SETTER INT16 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT16) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF ; --> TYPEP ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; in: DEFINE-SEQUENCE-SETTER INT32 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:INT32) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF ; --> TYPEP ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; in: DEFINE-SEQUENCE-SETTER BOOL ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::BOOL) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF ; --> TYPEP ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; in: DEFINE-SEQUENCE-SETTER CARD8 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD8) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF ; --> TYPEP ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; in: DEFINE-SEQUENCE-SETTER CARD16 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD16) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF ; --> TYPEP ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; in: DEFINE-SEQUENCE-SETTER CARD32 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB:CARD32) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF ; --> TYPEP ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; in: DEFINE-SEQUENCE-SETTER FLOAT32 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::FLOAT32) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF ; --> TYPEP ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; in: DEFINE-SEQUENCE-SETTER FLOAT64 ; (XLIB/GL::DEFINE-SEQUENCE-SETTER XLIB/GL::FLOAT64) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> ASSERT TAGBODY LET SB-KERNEL:ASSERT-ERROR ; ==> ; (LENGTH XLIB/GL::SEQ) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; --> SB-C::%FUNCALL MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF ; --> TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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). ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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 MULTIPLE-VALUE-BIND LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a T, not a (NOT SB-KERNEL:EXTENDED-SEQUENCE). ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/extensions/gl-tmpP3BI68WQ.fasl ; compilation finished in 0:00:01.244 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/dpms.lisp" (written 13 MAY 2024 07:28:08 AM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/extensions/dpms-tmpQDARA81Z.fasl ; compilation finished in 0:00:00.052 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/xtest.lisp" (written 13 MAY 2024 07:28:08 AM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/extensions/xtest-tmpYEMMM7SE.fasl ; compilation finished in 0:00:00.047 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/screensaver.lisp" (written 13 MAY 2024 07:28:08 AM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/extensions/screensaver-tmp73HU0RPK.fasl ; compilation finished in 0:00:00.041 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/randr.lisp" (written 13 MAY 2024 07:28:08 AM): ; file: /usr/local/lib/common-lisp/clx/extensions/randr.lisp ; 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). ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/extensions/randr-tmpIO5N7K88.fasl ; compilation finished in 0:00:00.554 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/xinerama.lisp" (written 13 MAY 2024 07:28:08 AM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/extensions/xinerama-tmpCM21U60Z.fasl ; compilation finished in 0:00:00.046 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/dbe.lisp" (written 13 MAY 2024 07:28:08 AM): ; file: /usr/local/lib/common-lisp/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 ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/extensions/dbe-tmp9DT7SEFG.fasl ; compilation finished in 0:00:00.096 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/xc-misc.lisp" (written 13 MAY 2024 07:28:08 AM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/extensions/xc-misc-tmp8065ESJT.fasl ; compilation finished in 0:00:00.018 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/dri2.lisp" (written 13 MAY 2024 07:28:08 AM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/extensions/dri2-tmp7S8Z6FGF.fasl ; compilation finished in 0:00:00.098 ; compiling file "/usr/local/lib/common-lisp/clx/extensions/composite.lisp" (written 13 MAY 2024 07:28:08 AM): ; wrote /wrkdirs/usr/ports/x11/cl-clx-sbcl/work/clx-0.7.6/extensions/composite-tmpSIT3QPKP.fasl ; compilation finished in 0:00:00.051 ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; printed 231 notes =========================================================================== =================================================== ===== env: USE_PACKAGE_DEPENDS_ONLY=1 USER=root UID=0 GID=0 ===> cl-clx-sbcl-0.7.6_9 depends on package: cl-clx>=0 - found ===> cl-clx-sbcl-0.7.6_9 depends on executable: sbcl - found =========================================================================== =================================================== ===== env: NO_DEPENDS=yes USER=root UID=0 GID=0 ===> Staging for cl-clx-sbcl-0.7.6_9 ===> Generating temporary packing list ====> Compressing man pages (compress-man) =========================================================================== =================================================== ===== env: 'PKG_NOTES=build_timestamp ports_top_git_hash ports_top_checkout_unclean port_git_hash port_checkout_unclean built_by' 'PKG_NOTE_build_timestamp=2025-07-03T18:32:51+00:00' 'PKG_NOTE_ports_top_git_hash=64e56a4eadc5' 'PKG_NOTE_ports_top_checkout_unclean=no' 'PKG_NOTE_port_git_hash=80d29c5c05c5' 'PKG_NOTE_port_checkout_unclean=no' 'PKG_NOTE_built_by=poudriere-git-3.4.99.20250601' PKG_NO_VERSION_FOR_DEPS=1 NO_DEPENDS=yes USER=root UID=0 GID=0 ===> Building packages for cl-clx-sbcl-0.7.6_9 ===> Building cl-clx-sbcl-0.7.6_9 =========================================================================== =>> Cleaning up wrkdir ===> Cleaning for cl-clx-sbcl-0.7.6_9 build of x11/cl-clx-sbcl | cl-clx-sbcl-0.7.6_9 ended at 2025-07-03T13:33:09-05:00 build time: 00:00:18