>>> Building on exopi-6 under x11/stumpwm BDEPENDS = [devel/metaauto;archivers/zstd;print/texinfo;devel/autoconf/2.71;lang/sbcl;devel/gmake] DIST = [x11/stumpwm:alexandria-20220707-git.tgz;x11/stumpwm:clx-0.7.6.tar.gz;x11/stumpwm:stumpwm-23.11.tar.gz;x11/stumpwm:cl-ppcre-2.1.1.tar.gz] FULLPKGNAME = stumpwm-23.11p9 RDEPENDS = [archivers/zstd] (Junk lock obtained for exopi-6 at 1731947486.51) >>> Running depends in x11/stumpwm at 1731947486.56 last junk was in devel/libftdi1 /usr/sbin/pkg_add -aI -Drepair autoconf-2.71p0 sbcl-2.4.10 texinfo-7.1p0 was: /usr/sbin/pkg_add -aI -Drepair autoconf-2.71p0 gmake-4.4.1 metaauto-1.0p4 sbcl-2.4.10 texinfo-7.1p0 zstd-1.5.6 /usr/sbin/pkg_add -aI -Drepair autoconf-2.71p0 sbcl-2.4.10 texinfo-7.1p0 Updating font cache: ok New and changed readme(s): /usr/local/share/doc/pkg-readmes/texlive_base >>> Running show-prepare-results in x11/stumpwm at 1731947515.54 ===> x11/stumpwm ===> Building from scratch stumpwm-23.11p9 ===> stumpwm-23.11p9 depends on: sbcl-* -> sbcl-2.4.10 ===> stumpwm-23.11p9 depends on: texinfo-* -> texinfo-7.1p0 ===> stumpwm-23.11p9 depends on: metaauto-* -> metaauto-1.0p4 ===> stumpwm-23.11p9 depends on: autoconf-2.71 -> autoconf-2.71p0 ===> stumpwm-23.11p9 depends on: gmake-* -> gmake-4.4.1 ===> stumpwm-23.11p9 depends on: zstd-* -> zstd-1.5.6 ===> Verifying specs: c m pthread util zstd ===> found c.100.3 m.10.1 pthread.27.1 util.18.0 zstd.6.4 autoconf-2.71p0 gmake-4.4.1 metaauto-1.0p4 sbcl-2.4.10 texinfo-7.1p0 zstd-1.5.6 (Junk lock released for exopi-6 at 1731947516.90) distfiles size=965834 >>> Running build in x11/stumpwm at 1731947516.94 ===> x11/stumpwm ===> Checking files for stumpwm-23.11p9 `/exopi-cvs/ports/distfiles/stumpwm-23.11.tar.gz' is up to date. `/exopi-cvs/ports/distfiles/cl-ppcre-2.1.1.tar.gz' is up to date. `/exopi-cvs/ports/distfiles/clx-0.7.6.tar.gz' is up to date. `/exopi-cvs/ports/distfiles/alexandria-20220707-git.tgz' is up to date. >> (SHA256) all files: OK ===> Extracting for stumpwm-23.11p9 ===> Patching for stumpwm-23.11p9 ===> Applying OpenBSD patch patch-make-image_lisp_in Hmm... Looks like a unified diff to me... The text leading up to this was: -------------------------- |Contains: | - https://github.com/stumpwm/stumpwm/commit/20d839f2ddfdfd25a8460152bc5dc45a9354e773 | - https://github.com/stumpwm/stumpwm/commit/f271a45e05fb25d70cdd4c12717d908fd9e27dee | |Should be removed at the next release | |Index: make-image.lisp.in |--- make-image.lisp.in.orig |+++ make-image.lisp.in -------------------------- Patching file make-image.lisp.in using Plan A... Hunk #1 succeeded at 1. Hunk #2 succeeded at 50. done ===> Compiler link: clang -> /usr/bin/clang ===> Compiler link: clang++ -> /usr/bin/clang++ ===> Compiler link: cc -> /usr/bin/cc ===> Compiler link: c++ -> /usr/bin/c++ ===> Generating configure for stumpwm-23.11p9 Running autoconf-2.71 in /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11 ===> Configuring for stumpwm-23.11p9 Using /exopi-obj/pobj/stumpwm-23.11/config.site (generated) ln: /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/stumpwm-tests.asd: File exists configure: WARNING: unrecognized options: --disable-silent-rules, --disable-gtk-doc configure: loading site script /exopi-obj/pobj/stumpwm-23.11/config.site checking for sbcl... /usr/local/bin/sbcl configure: Using sbcl at /usr/local/bin/sbcl checking for makeinfo... yes configure: WARNING: SBCL_HOME must be defined to use asdf/quicklisp (it should be where your sbcl.core resides) configure: creating ./config.status config.status: creating Makefile configure: WARNING: unrecognized options: --disable-silent-rules, --disable-gtk-doc configure: creating ./config.status config.status: creating Makefile config.status: creating make-image.lisp configure: WARNING: unrecognized options: --disable-silent-rules, --disable-gtk-doc configure: creating ./config.status config.status: creating Makefile config.status: creating make-image.lisp config.status: creating load-stumpwm.lisp configure: WARNING: unrecognized options: --disable-silent-rules, --disable-gtk-doc ===> Building for stumpwm-23.11p9 /usr/local/bin/sbcl --non-interactive --eval "(setf sb-impl::*default-external-format* :UTF-8)" --load ./make-image.lisp This is SBCL 2.4.10.openbsd.sbcl-2.4.10, an implementation of ANSI Common Lisp. More information about SBCL is available at . SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. BAD-SYSTEM-NAME: System definition file #P"/exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/cl-ppcre.asd" contains definition for system "cl-ppcre-test". Please only define "cl-ppcre" and secondary systems with a name starting with "cl-ppcre/" (e.g. "cl-ppcre/test") in that file. WARNING: System definition file #P"/exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/cl-ppcre.asd" contains definition for system "cl-ppcre-test". Please only define "cl-ppcre" and secondary systems with a name starting with "cl-ppcre/" (e.g. "cl-ppcre/test") in that file. ; compiling file "/exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/package.lisp" (written 09 MAY 2022 08:22:41 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/package-tmpGHU3ALSV.fasl ; compilation finished in 0:00:00.005 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/definitions.lisp" (written 09 MAY 2022 08:22:41 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/definitions-tmpAAURSO1.fasl ; compilation finished in 0:00:00.007 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DEFINE-CONSTANT in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/binding.lisp" (written 09 MAY 2022 08:22:41 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/binding-tmp5GEXGEG5.fasl ; compilation finished in 0:00:00.010 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:IF-LET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WHEN-LET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WHEN-LET* in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/strings.lisp" (written 09 MAY 2022 08:22:41 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/strings-tmpAR3FSGEY.fasl ; compilation finished in 0:00:00.001 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/conditions.lisp" (written 09 MAY 2022 08:22:41 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/conditions-tmpJAIDFZTC.fasl ; compilation finished in 0:00:00.025 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:IGNORE-SOME-CONDITIONS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:UNWIND-PROTECT-CASE in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/symbols.lisp" (written 09 MAY 2022 08:22:41 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/symbols-tmp8V3J6PE9.fasl ; compilation finished in 0:00:00.008 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/macros.lisp" (written 09 MAY 2022 08:22:41 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/macros-tmp9V47YWQF.fasl ; compilation finished in 0:00:00.064 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WITH-GENSYMS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WITH-UNIQUE-NAMES in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:ONCE-ONLY in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DESTRUCTURING-CASE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DESTRUCTURING-CCASE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DESTRUCTURING-ECASE in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/functions.lisp" (written 09 MAY 2022 08:22:41 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/functions-tmp9BN22RMA.fasl ; compilation finished in 0:00:00.029 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA::ENSURE-FUNCTIONF/1 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:ENSURE-FUNCTIONF in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:NAMED-LAMBDA in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/lists.lisp" (written 09 MAY 2022 08:22:41 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/lists-tmp1CXFJSK9.fasl ; compilation finished in 0:00:00.088 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DOPLIST in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:APPENDF in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:NCONCF in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:UNIONF in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:NUNIONF in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:REVERSEF in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:NREVERSEF in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:REMOVE-FROM-PLISTF in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DELETE-FROM-PLISTF in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/types.lisp" (written 09 MAY 2022 08:22:41 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/types-tmpX4BRKI0R.fasl ; compilation finished in 0:00:00.053 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:COERCEF in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/io.lisp" (written 09 MAY 2022 08:22:41 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/io-tmpQ371UGST.fasl ; compilation finished in 0:00:00.115 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA::WITH-OPEN-FILE* in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WITH-INPUT-FROM-FILE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WITH-OUTPUT-TO-FILE in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/hash-tables.lisp" (written 09 MAY 2022 08:22:41 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/hash-tables-tmp2OWI3Q7U.fasl ; compilation finished in 0:00:00.034 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:ENSURE-GETHASH in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/control-flow.lisp" (written 09 MAY 2022 08:22:41 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/control-flow-tmp9KKTJMYV.fasl ; compilation finished in 0:00:00.026 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:SWITCH in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:ESWITCH in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:CSWITCH in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:WHICHEVER in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:XOR in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:NTH-VALUE-OR in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:MULTIPLE-VALUE-PROG2 in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/arrays.lisp" (written 09 MAY 2022 08:22:41 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/arrays-tmpJU0JWO19.fasl ; compilation finished in 0:00:00.011 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/sequences.lisp" (written 09 MAY 2022 08:22:41 AM): SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; file: /exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/sequences.lisp ; in: DEFUN LENGTH= ; (LENGTH FIRST) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; wrote /exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/sequences-tmpZX2WN8N4.fasl ; compilation finished in 0:00:00.148 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:REMOVEF in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:DELETEF in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/numbers.lisp" (written 09 MAY 2022 08:22:41 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/numbers-tmpOU81XRV0.fasl ; compilation finished in 0:00:00.093 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:MAXF in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA:MINF in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/features.lisp" (written 09 MAY 2022 08:22:41 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-1/features-tmpY2ML9CFA.fasl ; compilation finished in 0:00:00.004 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-2/package.lisp" (written 09 MAY 2022 08:22:41 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-2/package-tmpX2JYJDQE.fasl ; compilation finished in 0:00:00.006 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-2/arrays.lisp" (written 09 MAY 2022 08:22:41 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-2/arrays-tmpOPCILR65.fasl ; compilation finished in 0:00:00.008 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-2/control-flow.lisp" (written 09 MAY 2022 08:22:41 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-2/control-flow-tmpRV9F8A9A.fasl ; compilation finished in 0:00:00.017 REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA-2:LINE-UP-FIRST in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining ALEXANDRIA-2:LINE-UP-LAST in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-2/sequences.lisp" (written 09 MAY 2022 08:22:41 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-2/sequences-tmpK2ZAJT4I.fasl ; compilation finished in 0:00:00.001 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-2/lists.lisp" (written 09 MAY 2022 08:22:41 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/alexandria-20220707-git/alexandria-2/lists-tmpUX5S4ADN.fasl ; compilation finished in 0:00:00.002 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/packages.lisp" (written 07 APR 2019 05:51:26 PM): ; wrote /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/packages-tmp10401X32.fasl ; compilation finished in 0:00:00.001 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/specials.lisp" (written 07 APR 2019 05:51:26 PM): ; wrote /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/specials-tmpZ7CBRM0G.fasl ; compilation finished in 0:00:00.007 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/util.lisp" (written 07 APR 2019 05:51:26 PM): SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a STRING, not a (OR NULL (SIMPLE-ARRAY * (*))). ; file: /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/util.lisp ; in: DEFUN STRING-LIST-TO-SIMPLE-STRING ; (REPLACE CL-PPCRE::RESULT-STRING STRING :START1 CL-PPCRE::CURR-POS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a (OR NULL (SIMPLE-ARRAY * (*))). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a STRING, not a (OR SIMPLE-BASE-STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a (OR SIMPLE-BASE-STRING NULL). SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; in: DEFUN COMPLEMENT* ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; wrote /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/util-tmp9OZEQ0G2.fasl ; compilation finished in 0:00:00.028 REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::DEFCONSTANT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::WITH-UNIQUE-NAMES in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::WITH-REBINDING in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/errors.lisp" (written 07 APR 2019 05:51:26 PM): ; wrote /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/errors-tmpB2JTL1W9.fasl ; compilation finished in 0:00:00.010 REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::SIGNAL-SYNTAX-ERROR* in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::SIGNAL-SYNTAX-ERROR in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::SIGNAL-INVOCATION-ERROR in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/charset.lisp" (written 07 APR 2019 05:51:26 PM): SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; file: /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/charset.lisp ; in: DEFUN MIX ; (+ CL-PPCRE::CODE CL-PPCRE::HASH) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; in: DEFUN COMPUTE-INDEX ; (LENGTH VECTOR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) ; ; note: unable to ; optimize SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a (OR FLOAT (RATIONAL (-17592186044414) (17592186044414))), not a RATIONAL. ; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL (-17592186044414) ; (17592186044414))), not a RATIONAL. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (OR FLOAT (RATIONAL (-17592186044414) (17592186044414))), not a FIXNUM. The result is a (VALUES (OR FLOAT (RATIONAL (-17592186044413) (17592186044415))) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (OR FLOAT (RATIONAL (-17592186044414) (17592186044414))), not a FIXNUM. The result is a (VALUES (OR FLOAT (RATIONAL (-17592186044413) (17592186044415))) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR FLOAT ; (RATIONAL (-17592186044414) (17592186044414))), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT (RATIONAL (-17592186044413) (17592186044415))) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR FLOAT ; (RATIONAL (-17592186044414) (17592186044414))), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT (RATIONAL (-17592186044413) (17592186044415))) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to convert x*2^k to shift due to type uncertainty: The first argument is a NUMBER, not a INTEGER. ; in: DEFUN %ADD-TO-CHARSET/EXPAND ; (* 2 CL-PPCRE::NEW-SIZE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to associate */(* /) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (>= CL-PPCRE::NEW-SIZE 371370) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: forced to do GENERIC-* (cost 30) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a NUMBER, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a NUMBER, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; (* 2 CL-PPCRE::NEW-SIZE) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM. The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM. The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; in: DEFUN MAP-CHARSET ; (DECF CL-PPCRE::N) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM. ; The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER * 4611686018427387903), not a FIXNUM. ; The result is a (VALUES (INTEGER * 4611686018427387902) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; in: DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: forced to do full call unable to do inline float comparison (cost 3) because: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a DOUBLE-FLOAT. ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; wrote /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/charset-tmpP3BI68WQ.fasl ; compilation finished in 0:00:00.035 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/charmap.lisp" (written 07 APR 2019 05:51:26 PM): SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; file: /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/charmap.lisp ; in: DEFUN MAKE-CHARMAP ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; in: DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LIM16) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: forced to do full call unable to do inline float comparison (cost 3) because: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a DOUBLE-FLOAT. ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a REAL, not a FIXNUM. The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a REAL, not a FIXNUM. The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; (1- CL-PPCRE::END) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a DOUBLE-FLOAT. etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LIM16) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. ; wrote /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/charmap-tmpQDARA81Z.fasl ; compilation finished in 0:00:00.041 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/chartest.lisp" (written 07 APR 2019 05:51:26 PM): SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; file: /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/chartest.lisp ; in: DEFUN CREATE-HASH-TABLE-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. because: TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: forced to do full call unable to do inline float comparison (cost 3) because: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a DOUBLE-FLOAT. ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LIM0) ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; in: DEFUN CREATE-OPTIMIZED-TEST-FUNCTION ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. SIMPLE-COMPILER-NOTE: unable to convert division by 2^k to shift due to type uncertainty: The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; SIMPLE-COMPILER-NOTE: unable to convert division by 2^k to shift due to type uncertainty: The first argument is a REAL, not a INTEGER. ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a T, not a FIXNUM. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; wrote /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/chartest-tmpYEMMM7SE.fasl ; compilation finished in 0:00:00.029 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/lexer.lisp" (written 07 APR 2019 05:51:26 PM): SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; file: /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/lexer.lisp ; in: DEFUN NEXT-CHAR ; (- (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER) 2) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; in: DEFUN GET-NUMBER ; (+ (CL-PPCRE::LEXER-POS CL-PPCRE::LEXER) (THE FIXNUM CL-PPCRE::MAX-LENGTH)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; in: DEFUN UNESCAPE-CHAR ; (CHAR-UPCASE CL-PPCRE::NEXT-CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; wrote /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/lexer-tmp73HU0RPK.fasl ; compilation finished in 0:00:00.311 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/parser.lisp" (written 07 APR 2019 05:51:26 PM): SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; file: /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/parser.lisp ; in: DEFUN GROUP ; (+ CL-PPCRE::OPEN-PAREN-POS 2) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; in: DEFUN SEQ ; (SETF (AREF STRING 0) CL-PPCRE::CHAR1) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (AREF STRING 1) CL-PPCRE::CHAR2) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; wrote /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/parser-tmpIO5N7K88.fasl ; compilation finished in 0:00:00.036 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/regex-class.lisp" (written 07 APR 2019 05:51:26 PM): SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL (SIMPLE-ARRAY * (*))). ; file: /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/regex-class.lisp ; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (STR) ; (COERCE CL-PPCRE::STR-SLOT 'SIMPLE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR SIMPLE-BASE-STRING NULL). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; (LENGTH (CL-PPCRE::STR CL-PPCRE::STR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; wrote /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/regex-class-tmpCM21U60Z.fasl ; compilation finished in 0:00:00.057 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/regex-class-util.lisp" (written 07 APR 2019 05:51:26 PM): SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; file: /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/regex-class-util.lisp ; in: DEFMETHOD CASE-MODE (STR T) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (SEQ) ; (LENGTH CL-PPCRE::CLEANED-ELEMENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (ALTERNATION) ; (LENGTH CL-PPCRE::CHOICES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; in: DEFMETHOD EVERYTHINGP (REPETITION) ; (= 1 CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. (COMPLEX (SINGLE-FLOAT 1.0 1.0)) (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) (COMPLEX (SINGLE-FLOAT 1.0 1.0)) (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) (COMPLEX (SINGLE-FLOAT 1.0 1.0)) (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) (COMPLEX (SINGLE-FLOAT 1.0 1.0)) (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10) unable to do inline float comparison (cost 3) because: ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX ; SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX ; DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) (COMPLEX (SINGLE-FLOAT 1.0 1.0)) (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. The second argument is a NUMBER, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) (COMPLEX (SINGLE-FLOAT 1.0 1.0)) (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). etc. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a NUMBER, not a FIXNUM. The second argument is a (NOT NULL), not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a (NOT NULL), not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; in: DEFMETHOD REGEX-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-LENGTH ; CL-PPCRE::SUB-REGEX) ; IF (NOT CL-PPCRE::LEN) ; DO ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM6 CL-PPCRE::LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; in: DEFMETHOD REGEX-LENGTH (ALTERNATION) ; (/= CL-PPCRE::LEN CL-PPCRE::OLD-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a (NOT NULL), not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a (NOT NULL), not a (COMPLEX SINGLE-FLOAT). etc. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a (COMPLEX SINGLE-FLOAT). ; etc. SIMPLE-COMPILER-NOTE: forced to do IF-EQL (cost 15) unable to do inline fixnum comparison (cost 4) because: The first argument is a (NOT NULL), not a FIXNUM. The second argument is a T, not a FIXNUM. unable to do inline float comparison (cost 4) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. etc. ; in: DEFMETHOD REGEX-LENGTH (BRANCH) ; (EQL CL-PPCRE::THEN-LENGTH ; (CL-PPCRE::REGEX-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH))) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; unable to do inline float comparison (cost 4) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. SIMPLE-COMPILER-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: DEFMETHOD REGEX-LENGTH (REPETITION) ; (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; 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. SIMPLE-COMPILER-NOTE: forced to do GENERIC-* (cost 30) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a T, not a FIXNUM. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline (signed-byte 64) arithmetic (cost 4) because: The first argument is a T, not a (SIGNED-BYTE 64). The second argument is a T, not a (SIGNED-BYTE 64). The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). etc. ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The second argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a NUMBER, not a FIXNUM. The second argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (SEQ) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::ELEMENTS ; CL-PPCRE::SEQ) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::SUM CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:SUM6 CL-PPCRE::LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; in: DEFMETHOD REGEX-MIN-LENGTH (ALTERNATION) ; (LOOP CL-PPCRE::FOR CL-PPCRE::SUB-REGEX CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::FOR CL-PPCRE::LEN = (CL-PPCRE::REGEX-MIN-LENGTH ; CL-PPCRE::SUB-REGEX) ; CL-PPCRE::MINIMIZE CL-PPCRE::LEN) ; --> LET LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF ; ==> ; (< #:MINMAXTMP10 #:MINMAX9) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a DOUBLE-FLOAT. etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; in: DEFMETHOD REGEX-MIN-LENGTH (BRANCH) ; (MIN (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH)) ; (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a T, not a DOUBLE-FLOAT. The second argument is a T, not a DOUBLE-FLOAT. etc. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-* (cost 30) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline (signed-byte 64) arithmetic (cost 4) because: The first argument is a T, not a (SIGNED-BYTE 64). The second argument is a T, not a (SIGNED-BYTE 64). The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). etc. ; in: DEFMETHOD REGEX-MIN-LENGTH (REPETITION) ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The second argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; in: DEFMETHOD COMPUTE-OFFSETS (ALTERNATION T) ; (/= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET) ; SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a (NOT NULL), not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a (NOT NULL), not a (COMPLEX SINGLE-FLOAT). etc. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a (COMPLEX SINGLE-FLOAT). ; etc. SIMPLE-COMPILER-NOTE: forced to do IF-EQL (cost 15) unable to do inline fixnum comparison (cost 4) because: The first argument is a (NOT NULL), not a FIXNUM. The second argument is a T, not a FIXNUM. unable to do inline float comparison (cost 4) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. etc. ; in: DEFMETHOD COMPUTE-OFFSETS (BRANCH T) ; (EQL CL-PPCRE::THEN-OFFSET ; (CL-PPCRE::COMPUTE-OFFSETS (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::START-POS)) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; unable to do inline float comparison (cost 4) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-* (cost 30) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline (signed-byte 64) arithmetic (cost 4) because: The first argument is a T, not a (SIGNED-BYTE 64). The second argument is a T, not a (SIGNED-BYTE 64). The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). etc. ; in: DEFMETHOD COMPUTE-OFFSETS (REPETITION T) ; (* CL-PPCRE::MINIMUM CL-PPCRE::LEN) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The second argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a NUMBER, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a NUMBER, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (+ CL-PPCRE::START-POS (* CL-PPCRE::MINIMUM CL-PPCRE::LEN)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; in: DEFMETHOD COMPUTE-OFFSETS (CHAR-CLASS T) ; (1+ CL-PPCRE::START-POS) SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a T, not a FIXNUM. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; in: DEFMETHOD COMPUTE-OFFSETS (EVERYTHING T) SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (1+ CL-PPCRE::START-POS) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. etc. ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; in: DEFMETHOD COMPUTE-OFFSETS (STR T) ; (+ CL-PPCRE::START-POS (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a (NOT NULL), not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a (NOT NULL), not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; in: DEFMETHOD COMPUTE-OFFSETS (FILTER T) ; (+ CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; wrote /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/regex-class-util-tmp9DT7SEFG.fasl ; compilation finished in 0:00:00.092 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/convert.lisp" (written 07 APR 2019 05:51:26 PM): SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; file: /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/convert.lisp ; in: DEFUN CONVERT-CHAR-CLASS-TO-TEST-FUNCTION ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20) ; in: DEFUN MAYBE-SPLIT-REPETITION ; (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM) ; ; note: doing signed word to integer coercion (cost 20) SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; in: DEFUN MAYBE-ACCUMULATE ; (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; (CL-PPCRE::STR CL-PPCRE::STR) ; (CL-PPCRE::SKIP CL-PPCRE::STR) T) ; --> SETF LET* ; ==> ; (REPLACE #:SEQUENCE #:NEW3 :START1 #:START :END1 NIL) ; SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY CHARACTER (*))). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY CHARACTER (*))). The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; The second argument is a SEQUENCE, not a (OR NULL ; (SIMPLE-ARRAY CHARACTER (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (OR NULL ; (SIMPLE-ARRAY CHARACTER (*))). ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; (MAKE-ARRAY (CL-PPCRE::LEN CL-PPCRE::STR) :INITIAL-CONTENTS ; (CL-PPCRE::STR CL-PPCRE::STR) :ELEMENT-TYPE 'CHARACTER ; :FILL-POINTER T :ADJUSTABLE T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BRANCH) T) ; (LENGTH (CL-PPCRE::CHOICES CL-PPCRE::ALTERNATIONS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :GREEDY-REPETITION) T) ; (ZEROP LENGTH) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :NAMED-REGISTER) T) ; (COPY-SEQ (SECOND CL-PPCRE::PARSE-TREE)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR STRING SYMBOL CHARACTER), not a SIMPLE-BASE-STRING. The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) CHARACTER), not a SIMPLE-BASE-STRING. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BACK-REFERENCE) T) ; (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a SIMPLE-BASE-STRING. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY CHARACTER (*)). The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) CHARACTER), not a (SIMPLE-ARRAY CHARACTER (*)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a (SIMPLE-ARRAY CHARACTER (*)). ; (COPY-SEQ CL-PPCRE::BACKREF-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. The second argument is a UNSIGNED-BYTE, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: The first argument is a T, not a (UNSIGNED-BYTE 64). The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (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 fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; (- CL-PPCRE::REG-NUM CL-PPCRE::REG-INDEX) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (1- CL-PPCRE::BACKREF-NUMBER) ; ; note: forced to do GENERIC-- (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a UNSIGNED-BYTE, not a FIXNUM. The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a UNSIGNED-BYTE, not a FIXNUM. The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; (LOOP CL-PPCRE::FOR CL-PPCRE::NAME CL-PPCRE::IN CL-PPCRE::REG-NAMES ; CL-PPCRE::FOR CL-PPCRE::REG-INDEX CL-PPCRE::FROM 0 ; WHEN (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; CL-PPCRE::COLLECT ...) ; --> LET LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY ; --> SB-LOOP::LOOP-DESETQ SETQ THE 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; in: DEFUN CONVERT ; (COERCE (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) 'SIMPLE-STRING) ; SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL (SIMPLE-ARRAY * (*))). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR SIMPLE-BASE-STRING NULL). ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). ; wrote /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/convert-tmp8065ESJT.fasl ; compilation finished in 0:00:00.179 REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::CASE-INSENSITIVE-MODE-P in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::MULTI-LINE-MODE-P in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::SINGLE-LINE-MODE-P in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/optimize.lisp" (written 07 APR 2019 05:51:26 PM): SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a VECTOR, not a (OR NULL (SIMPLE-ARRAY * (*))). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a VECTOR, not a (OR SIMPLE-BASE-STRING NULL). ; file: /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/optimize.lisp ; in: DEFMETHOD GATHER-STRINGS (SEQ) ; (MAKE-ARRAY CL-PPCRE::COLLECTOR-LENGTH :INITIAL-CONTENTS CL-PPCRE::COLLECTOR ; :ELEMENT-TYPE 'CHARACTER :FILL-POINTER T :ADJUSTABLE T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a VECTOR, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a VECTOR, not a (OR SIMPLE-BASE-STRING NULL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: The first argument is a T, not a (UNSIGNED-BYTE 64). The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). etc. ; (INCF CL-PPCRE::COLLECTOR-LENGTH (CL-PPCRE::LEN CL-PPCRE::ELEMENT)) ; --> THE ; ==> ; (+ (CL-PPCRE::LEN CL-PPCRE::ELEMENT) CL-PPCRE::COLLECTOR-LENGTH) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (UNSIGNED-BYTE 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; in: DEFMETHOD START-ANCHORED-P (REPETITION) ; (PLUSP (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 3) because: The first argument is a T, not a FIXNUM. unable to do inline fixnum comparison (cost 4) because: The first argument is a T, not a FIXNUM. etc. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; in: DEFMETHOD START-ANCHORED-P (REGEX) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::REGEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. ; in: DEFMETHOD END-STRING-AUX (SEQ) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: SIMPLE-COMPILER-NOTE: unable to open code ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (MAKE-ARRAY CL-PPCRE::CONCATENATED-LENGTH :INITIAL-CONTENTS ; (REVERSE (CL-PPCRE::STR CL-PPCRE::CONCATENATED-START)) ; :ELEMENT-TYPE 'CHARACTER :FILL-POINTER T :ADJUSTABLE T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: SIMPLE-COMPILER-NOTE: unable to ; The second argument is a SEQUENCE, not a (OR NULL (SIMPLE-ARRAY * (*))). optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR SIMPLE-BASE-STRING NULL). SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; (CHAR CL-PPCRE::STR CL-PPCRE::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; in: DEFMETHOD COMPUTE-MIN-REST (ALTERNATION T) ; (LOOP CL-PPCRE::FOR CL-PPCRE::CHOICE CL-PPCRE::IN (CL-PPCRE::CHOICES ; CL-PPCRE::ALTERNATION) ; CL-PPCRE::MINIMIZE (CL-PPCRE::COMPUTE-MIN-REST CL-PPCRE::CHOICE ; CL-PPCRE::CURRENT-MIN-REST)) ; --> LET SB-LOOP::WITH-MINIMAX-VALUE LET TAGBODY ; --> SB-LOOP::LOOP-ACCUMULATE-MINIMAX-VALUE PROGN WHEN IF OR LET IF ; ==> ; (< #:MINMAXTMP11 #:MINMAX10) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a DOUBLE-FLOAT. etc. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a DOUBLE-FLOAT. ; etc. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; in: DEFMETHOD COMPUTE-MIN-REST (BRANCH T) ; (MIN ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST) ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a T, not a DOUBLE-FLOAT. The second argument is a T, not a DOUBLE-FLOAT. etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; in: DEFMETHOD COMPUTE-MIN-REST (STR T) ; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a (NOT NULL), not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a (NOT NULL), not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; in: DEFMETHOD COMPUTE-MIN-REST (FILTER T) ; (+ CL-PPCRE::CURRENT-MIN-REST (OR (CL-PPCRE::LEN CL-PPCRE::FILTER) 0)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-* (cost 30) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline (signed-byte 64) arithmetic (cost 4) because: The first argument is a T, not a (SIGNED-BYTE 64). The second argument is a T, not a (SIGNED-BYTE 64). The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). etc. ; in: DEFMETHOD COMPUTE-MIN-REST (REPETITION T) ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a T, not a (SIGNED-BYTE 64). ; The second argument is a T, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a NUMBER, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a NUMBER, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (+ CL-PPCRE::CURRENT-MIN-REST ; (* (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION) ; (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; in: DEFMETHOD COMPUTE-MIN-REST (LOOKBEHIND T) ; (+ CL-PPCRE::CURRENT-MIN-REST (CL-PPCRE::LEN CL-PPCRE::LOOKBEHIND)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; in: DEFMETHOD COMPUTE-MIN-REST (REGEX T) ; (1+ CL-PPCRE::CURRENT-MIN-REST) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; wrote /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/optimize-tmp7S8Z6FGF.fasl ; compilation finished in 0:00:00.167 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/closures.lisp" (written 07 APR 2019 05:51:26 PM): SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; file: /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/closures.lisp ; in: DEFUN *STRING*-EQUAL ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-MATCHER-AUX (LOOKBEHIND T) ; (- CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; in: DEFMETHOD CREATE-MATCHER-AUX (CHAR-CLASS T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::CHAR-CLASS ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::START-POS)) ; (LAMBDA (CL-PPCRE::START-POS) ; (DECLARE (FIXNUM CL-PPCRE::START-POS)) ; (AND (< CL-PPCRE::START-POS CL-PPCRE::*END-POS*) ; (CL-PPCRE::CHAR-CLASS-TEST) ; (FUNCALL CL-PPCRE::NEXT-FN (1+ CL-PPCRE::START-POS))))) ; --> LET LAMBDA FUNCTION AND IF IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-MATCHER-AUX (STR T) ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::START-POS ; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS) CL-PPCRE::CHR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (LENGTH CL-PPCRE::END-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::END-STRING CL-PPCRE::START-POS ; CL-PPCRE::TEST-END-POS 0 CL-PPCRE::END-STRING-LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (+ CL-PPCRE::START-POS CL-PPCRE::LEN) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-MATCHER-AUX (BACK-REFERENCE T) ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::*STRING* CL-PPCRE::START-POS ; CL-PPCRE::NEXT-POS CL-PPCRE::REG-START CL-PPCRE::REG-END) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code SIMPLE-COMPILER-NOTE: unable to ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: FN is not known to be a function ; in: DEFMETHOD CREATE-MATCHER-AUX (FILTER T) ; (FUNCALL CL-PPCRE::FN CL-PPCRE::START-POS) ; ; note: unable to SIMPLE-COMPILER-NOTE: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function optimize away possible call to FDEFINITION at runtime because: NEXT-FN is not known to be a function ; (FUNCALL CL-PPCRE::NEXT-FN CL-PPCRE::NEXT-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; NEXT-FN is not known to be a function ; wrote /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/closures-tmpSIT3QPKP.fasl ; compilation finished in 0:00:00.165 REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::INSERT-CHAR-CLASS-TESTER in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/repetition-closures.lisp" (written 07 APR 2019 05:51:26 PM): SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; file: /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/repetition-closures.lisp ; in: DEFMETHOD CREATE-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET BLOCK ; --> TAGBODY WHEN IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; Upgraded element type of array is not known at compile time. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; Upgraded element type of array is not known at compile time. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; in: DEFMETHOD CREATE-GREEDY-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FUNCALL ; ==> ; 1 SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; in: DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (FUNCALL CL-PPCRE::INNER-MATCHER CL-PPCRE::CURR-POS)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. The second argument is a (INTEGER -13835058055282163709 13835058055282163712), not a FIXNUM. ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (INTEGER -9223372036854775808 9223372036854775806), not a FIXNUM. ; The second argument is a (INTEGER -13835058055282163709 ; 13835058055282163712), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do -/SIGNED=>INTEGER (cost 7) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163710 13835058055282163711) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163710 13835058055282163711) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (INTEGER -13835058055282163710 13835058055282163711), not a FIXNUM. The result is a (VALUES (INTEGER -13835058055282163709 13835058055282163712) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -13835058055282163710 ; 13835058055282163711), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -13835058055282163709 13835058055282163712) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20), for: the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; in: DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to SIMPLE-COMPILER-NOTE: unable to optimize ; optimize ; because: ; Upgraded element type of array is not known at compile time. because: Upgraded element type of array is not known at compile time. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; in: DEFMETHOD CREATE-NON-GREEDY-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (SVREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; because: SIMPLE-COMPILER-NOTE: unable to ; Upgraded element type of array is not known at compile time. optimize because: Upgraded element type of array is not known at compile time. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 SIMPLE-COMPILER-NOTE: unable to ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. optimize because: Upgraded element type of array is not known at compile time. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: SIMPLE-COMPILER-NOTE: unable to ; Upgraded element type of array is not known at compile time. optimize because: Upgraded element type of array is not known at compile time. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; in: ; DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS)))) ; --> LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA FUNCTION ; --> LET AND IF IF LOOP BLOCK LET TAGBODY UNLESS IF AND IF FUNCALL ; ==> ; 1 SIMPLE-COMPILER-NOTE: unable to ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to SIMPLE-COMPILER-NOTE: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: SIMPLE-COMPILER-NOTE: unable to ; The second argument is a CHARACTER, not a BASE-CHAR. open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS CL-PPCRE::NEXT-POS ; 0 CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; SIMPLE-COMPILER-NOTE: unable to ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; Upgraded element type of array is not known at compile time. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0 ; (AREF CL-PPCRE::*LAST-POS-STORES* CL-PPCRE::ZERO-LENGTH-NUM) NIL) ; --> SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; (ZEROP (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (INCF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) ; --> + AREF ; ==> ; 1 SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (DECF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM)) SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; --> SB-IMPL::XSUBTRACT AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: ; in: DEFMETHOD CREATE-MATCHER-AUX (REPETITION T) ; (ZEROP CL-PPCRE::MAXIMUM) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (PLUSP CL-PPCRE::LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a (COMPLEX SINGLE-FLOAT). etc. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. SIMPLE-COMPILER-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. ; (EQL CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; 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. SIMPLE-COMPILER-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. ; ; 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. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 3) because: The first argument is a T, not a FIXNUM. unable to do inline fixnum comparison (cost 4) because: The first argument is a T, not a FIXNUM. etc. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 3) because: The first argument is a T, not a FIXNUM. unable to do inline fixnum comparison (cost 4) because: The first argument is a T, not a FIXNUM. etc. ; (PLUSP CL-PPCRE::LEN) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 3) because: The first argument is a T, not a FIXNUM. unable to do inline fixnum comparison (cost 4) because: The first argument is a T, not a FIXNUM. etc. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. ; wrote /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/repetition-closures-tmpE0PA0714.fasl ; compilation finished in 0:00:00.510 REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::INCF-AFTER in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/scanner.lisp" (written 07 APR 2019 05:51:26 PM): SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; file: /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/scanner.lisp ; in: DEFUN CREATE-BMH-MATCHER ; (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION IF LOOP BLOCK LET TAGBODY LOOP BLOCK LET LET TAGBODY UNLESS IF ; --> AND IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::I) ; (SCHAR CL-PPCRE::PATTERN CL-PPCRE::J)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH CL-PPCRE::PATTERN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CHAR-UPCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-DOWNCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (SEARCH CL-PPCRE::PATTERN CL-PPCRE::*STRING* :START2 CL-PPCRE::START-POS ; :END2 CL-PPCRE::*END-POS* :TEST CL-PPCRE::TEST) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFUN CREATE-CHAR-SEARCHER ; (CL-PPCRE::CHAR-SEARCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION AND IF LOOP BLOCK LET LET TAGBODY WHEN IF SETQ THE AND IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::I) CL-PPCRE::CHR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFUN CREATE-SCANNER-AUX ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: SIMPLE-COMPILER-NOTE: unable to open code ; The first argument is a CHARACTER, not a BASE-CHAR. due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: SIMPLE-COMPILER-NOTE: unable to ; The first argument is a REAL, not a DOUBLE-FLOAT. associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. The first argument is a NUMBER, not a RATIONAL. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open code due to type uncertainty: The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a NUMBER, not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a NUMBER, not a FIXNUM. ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (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). ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do GENERIC-+ (cost 10) SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a NUMBER, not a FIXNUM. ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a T, not a FIXNUM. ; The first argument is a NUMBER, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The first argument is a NUMBER, not a FIXNUM. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a NUMBER, not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: forced to do GENERIC-+ (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 fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20) from TRY-POS SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20) from TRY-POS ; (FUNCALL CL-PPCRE::END-STRING-TEST CL-PPCRE::TRY-POS) ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; ; note: doing signed word to integer coercion (cost 20) from TRY-POS ; wrote /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/scanner-tmpJRWHHVG0.fasl ; compilation finished in 0:00:00.477 REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::BMH-MATCHER-AUX in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::CHAR-SEARCHER-AUX in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::INSERT-ADVANCE-FN in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/api.lisp" (written 07 APR 2019 05:51:26 PM): SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; file: /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/api.lisp ; in: DEFMETHOD CREATE-SCANNER (STRING) ; (COPY-SEQ CL-PPCRE::QUOTED-REGEX-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. ; in: DEFMETHOD CREATE-SCANNER (T) ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; (= 1 (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 3) because: The first argument is a T, not a FIXNUM. unable to do inline fixnum comparison (cost 4) because: The first argument is a T, not a FIXNUM. etc. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 3) because: The first argument is a T, not a FIXNUM. unable to do inline fixnum comparison (cost 4) because: The first argument is a T, not a FIXNUM. etc. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a T, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a T, not a FIXNUM. ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; in: DEFMETHOD SCAN (STRING T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::REGEX-STRING) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR SIMPLE-BASE-STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; in: DEFMETHOD SCAN #'T ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR SIMPLE-BASE-STRING NULL). ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; in: DEFMETHOD SCAN (T T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::PARSE-TREE) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR SIMPLE-BASE-STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN SCAN-TO-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (MAP 'VECTOR ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (IF CL-PPCRE::REG-START ; (FUNCALL CL-PPCRE::SUBSTR-FN CL-PPCRE::TARGET-STRING ; CL-PPCRE::REG-START CL-PPCRE::REG-END) ; NIL)) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. &OPTIONAL-AND-&KEY-IN-LAMBDA-LIST: &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END REG-STARTS REG-ENDS REGEX TARGET-STRING &OPTIONAL RESULT-FORM &KEY START END) ; in: DEFMACRO DO-SCANS ; (DEFMACRO CL-PPCRE:DO-SCANS ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY &ENVIRONMENT CL-PPCRE::ENV) ; #<(SIMPLE-ARRAY CHARACTER ; (495)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START, MATCH-END, REG-STARTS, and ; REG-ENDS bound to the four return values of each match in turn. ... {110459ABEF}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::%START CL-PPCRE::%END ; CL-PPCRE::%REGEX CL-PPCRE::SCANNER) ; (DECLARE (IGNORABLE CL-PPCRE::%REGEX CL-PPCRE::SCANNER)) ; `(BLOCK NIL ; (LET* # ; # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END ; REG-STARTS REG-ENDS REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) &OPTIONAL-AND-&KEY-IN-LAMBDA-LIST: &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END REGEX TARGET-STRING &OPTIONAL RESULT-FORM &KEY START END) ; in: DEFMACRO DO-MATCHES ; (DEFMACRO CL-PPCRE:DO-MATCHES ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (477)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START and MATCH-END bound to the ; start/end positions of each match in turn. After the last match, ; ... {1104966A5F}> ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; `(CL-PPCRE:DO-SCANS (,CL-PPCRE::MATCH-START ,CL-PPCRE::MATCH-END ; ,CL-PPCRE::REG-STARTS ,CL-PPCRE::REG-ENDS ; ,CL-PPCRE::REGEX ,CL-PPCRE::TARGET-STRING ; ,CL-PPCRE::RESULT-FORM :START ,CL-PPCRE::START :END ; ,CL-PPCRE::END) ; ,@CL-PPCRE::BODY))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) &OPTIONAL-AND-&KEY-IN-LAMBDA-LIST: &OPTIONAL and &KEY found in the same lambda list: (MATCH-VAR REGEX TARGET-STRING &OPTIONAL RESULT-FORM &KEY START END SHAREDP) ; in: DEFMACRO DO-MATCHES-AS-STRINGS ; (DEFMACRO CL-PPCRE:DO-MATCHES-AS-STRINGS ; ( ; (CL-PPCRE::MATCH-VAR ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (569)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-VAR bound to the substring of ; TARGET-STRING corresponding to each match in turn. After the last ; ma... {1104AD8DDF}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::SUBSTR-FN) ; `(LET (#) ; (CL-PPCRE:DO-MATCHES # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-VAR REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END ; SHAREDP) &OPTIONAL-AND-&KEY-IN-LAMBDA-LIST: &OPTIONAL and &KEY found in the same lambda list: (REGEX TARGET-STRING &OPTIONAL RESULT-FORM &KEY START END SHAREDP) ; in: DEFMACRO DO-REGISTER-GROUPS ; (DEFMACRO CL-PPCRE:DO-REGISTER-GROUPS ; (CL-PPCRE::VAR-LIST ; (CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (820)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with the variables in VAR-LIST bound to the ; corresponding register groups for each match in turn, i.e. each ; va... {1104C96D2F}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::SUBSTR-FN CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS CL-PPCRE::START-INDEX) ; `(LET (#) ; (CL-PPCRE:DO-SCANS # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX TARGET-STRING ; &OPTIONAL RESULT-FORM ; &KEY START END SHAREDP) SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN ALL-MATCHES ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::RESULT-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::RESULT-LIST)) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR SIMPLE-BASE-STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a T, not a (COMPLEX SINGLE-FLOAT). etc. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a NUMBER, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a NUMBER, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN ALL-MATCHES-AS-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES-AS-STRINGS (CL-PPCRE::MATCH CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START ; CL-PPCRE::START :END CL-PPCRE::END :SHAREDP ; CL-PPCRE::SHAREDP) ; (PUSH CL-PPCRE::MATCH CL-PPCRE::RESULT-LIST)) ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING7) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE ; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR SIMPLE-BASE-STRING NULL). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a T, not a (COMPLEX SINGLE-FLOAT). etc. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a NUMBER, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a NUMBER, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN SPLIT ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL (SIMPLE-ARRAY * (*))). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR SIMPLE-BASE-STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. ; (PLUSP CL-PPCRE::LIMIT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...) ; --> LET LET LET LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; SIMPLE-COMPILER-NOTE: unable to ; note: unable to open code because: The operands might not be the same type. associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a T, not a (COMPLEX SINGLE-FLOAT). etc. ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a T, not a (COMPLEX SINGLE-FLOAT). etc. ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline fixnum comparison (cost 3) because: The first argument is a (NOT NULL), not a FIXNUM. unable to do inline fixnum comparison (cost 4) because: The first argument is a (NOT NULL), not a FIXNUM. etc. ; (PLUSP CL-PPCRE::LIMIT) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (NOT NULL), not a FIXNUM. ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a UNSIGNED-BYTE, not a FIXNUM. The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a UNSIGNED-BYTE, not a FIXNUM. The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; (INCF CL-PPCRE::COUNTER) ; --> THE ; ==> ; (+ 1 CL-PPCRE::COUNTER) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). etc. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a NUMBER, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a NUMBER, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-> (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a (NOT NULL), not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a T, not a DOUBLE-FLOAT. The second argument is a (NOT NULL), not a DOUBLE-FLOAT. etc. ; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The second argument is a (NOT NULL), not a DOUBLE-FLOAT. ; etc. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; in: DEFUN STRING-CASE-MODIFIER ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::FROM)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; (CHAR CL-PPCRE::STR CL-PPCRE::FROM) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; (CHAR CL-PPCRE::STR CL-PPCRE::TO) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; (CHAR CL-PPCRE::STR CL-PPCRE::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to expand inline because: upgraded array element type not known at compile time ; in: DEFMETHOD BUILD-REPLACEMENT-TEMPLATE (STRING) ; (POSITION-IF #'CL-PPCRE::DIGIT-CHAR-P CL-PPCRE::REPLACEMENT-STRING :START ; CL-PPCRE::MATCH-START :END CL-PPCRE::MATCH-END) ; ; note: unable to ; expand inline ; because: ; upgraded array element type not known at compile time SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; (CHAR CL-PPCRE::REPLACEMENT-STRING (1+ CL-PPCRE::MATCH-START)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: forced to do GENERIC-< (cost 10) unable to do inline fixnum comparison (cost 4) because: The second argument is a (NOT NULL), not a FIXNUM. ; (< CL-PPCRE::FROM CL-PPCRE::MATCH-START) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a (NOT NULL), not a FIXNUM. SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a (OR NULL INTEGER), not a FIXNUM. The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a (OR NULL INTEGER), not a FIXNUM. The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; (1- ; (PARSE-INTEGER CL-PPCRE::REPLACEMENT-STRING :START CL-PPCRE::PARSE-START ; :JUNK-ALLOWED T)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR NULL INTEGER), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR NULL INTEGER), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do <-INTEGER-FIXNUM (cost 8) unable to do inline fixnum comparison (cost 3) because: The first argument is a INTEGER, not a FIXNUM. ; (< CL-PPCRE::TOKEN 0) ; ; note: forced to do <-INTEGER-FIXNUM (cost 8) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. SIMPLE-COMPILER-NOTE: unable to optimize because: The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; in: DEFUN BUILD-REPLACEMENT ; (ARRAY-DIMENSION CL-PPCRE::REG-STARTS 0) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. SIMPLE-COMPILER-NOTE: unable to open code because: can't determine sequence argument type ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to open code because: can't determine sequence argument type SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TOKEN is not known to be a function ; (APPLY CL-PPCRE::TOKEN ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING ; CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TOKEN is not known to be a function SIMPLE-COMPILER-NOTE: unable to open code because: can't determine sequence argument type ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to open code because: can't determine sequence argument type SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: TOKEN is not known to be a function ; (FUNCALL CL-PPCRE::TOKEN CL-PPCRE::TARGET-STRING CL-PPCRE::START ; CL-PPCRE::END CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TOKEN is not known to be a function SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a (NOT NULL), not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a (NOT NULL), not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a (NOT NULL), not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a (NOT NULL), not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a (NOT NULL), not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a (NOT NULL), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a UNSIGNED-BYTE, not a FIXNUM. The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a UNSIGNED-BYTE, not a FIXNUM. The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; (1+ CL-PPCRE::TOKEN) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-- (cost 10) unable to do inline fixnum arithmetic (cost 2) because: The first argument is a T, not a FIXNUM. The second argument is a T, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline float arithmetic (cost 2) because: The first argument is a T, not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT &OPTIONAL). etc. ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a T, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a T, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFUN REGEX-REPLACE ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN REGEX-REPLACE-ALL ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL (SIMPLE-ARRAY * (*))). ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR NULL ; (SIMPLE-ARRAY ; * (*))). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a (OR LIST (AND (NOT SIMPLE-BASE-STRING) (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) SB-KERNEL:EXTENDED-SEQUENCE), not a (OR SIMPLE-BASE-STRING NULL). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (OR ; SIMPLE-BASE-STRING ; NULL). SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a SINGLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a DOUBLE-FLOAT. The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to open code because: The operands might not be the same type. SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. SIMPLE-COMPILER-NOTE: forced to do GENERIC-= (cost 10) unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a T, not a SINGLE-FLOAT. unable to do inline float comparison (cost 3) because: The first argument is a (NOT NULL), not a SINGLE-FLOAT. The second argument is a T, not a (COMPLEX SINGLE-FLOAT). etc. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. SIMPLE-COMPILER-NOTE: forced to do GENERIC-+ (cost 10) unable to do inline fixnum arithmetic (cost 1) because: The first argument is a NUMBER, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a NUMBER, not a FIXNUM. The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. &OPTIONAL-AND-&KEY-IN-LAMBDA-LIST: &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES &KEY (CASE-INSENSITIVE T)) ; in: DEFUN REGEX-APROPOS-LIST ; (DEFUN CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; #<(SIMPLE-ARRAY CHARACTER ; (221)) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {110464570F}> ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR)))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS-LIST ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (221)) Similar to the standard function APROPOS-LIST but returns a list of ; all symbols which match the regular expression REGEX. If ; CASE-INSENSITIVE is true and REGEX isn't already a scanner, a ; case-insensi... {110464570F}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS-LIST ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) &OPTIONAL-AND-&KEY-IN-LAMBDA-LIST: &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES &KEY (CASE-INSENSITIVE T)) ; in: DEFUN REGEX-APROPOS ; (DEFUN CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {1104AA115F}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES)) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX &OPTIONAL CL-PPCRE::PACKAGES &KEY ; (CL-PPCRE::CASE-INSENSITIVE T)) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {1104AA115F}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE) ; (CL-PPCRE::PRINT-SYMBOL-INFO SYMBOL)) ; (VALUES))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; wrote /exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/api-tmp4WZVROCX.fasl ; compilation finished in 0:00:00.491 COMPILE-WARNED-WARNING: Lisp compilation had style-warnings while compiling # WARNING: Lisp compilation had style-warnings while compiling # REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE:REGISTER-GROUPS-BIND in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE:DO-SCANS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE:DO-MATCHES in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE:DO-MATCHES-AS-STRINGS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE:DO-REGISTER-GROUPS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE::REGEX-APROPOS-AUX in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining CL-PPCRE:DEFINE-PARSE-TREE-SYNONYM in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/package.lisp" (written 13 MAY 2024 09:28:08 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/package-tmpA0I3UKX8.fasl ; compilation finished in 0:00:00.019 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/depdefs.lisp" (written 13 MAY 2024 09:28:08 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/depdefs-tmp267Y2N80.fasl ; compilation finished in 0:00:00.165 REDEFINITION-WITH-DEFUN: redefining XLIB::%REEVALUATE-CONSTANT in DEFUN REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-CONSTANT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFCONSTANT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-VECTOR in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITHIN-DEFINITION in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RESOURCE-ID-MAP-TEST in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::ATOM-CACHE-MAP-TEST in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYSYM->CHARACTER-MAP-TEST in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX+ in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-LOGAND in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-LOGIOR in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX- in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX* in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX1+ in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX1- in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-INCF in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-DECF in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-MIN in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-MAX in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-FLOOR in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-CEILING in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-TRUNCATE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-MOD in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-ASH in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-PLUSP in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-ZEROP in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-EVENP in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX-ODDP in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX> in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX= in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX< in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX>= in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INDEX<= in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEF-CLX-CLASS in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/clx.lisp" (written 13 MAY 2024 09:28:08 AM): CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code ; file: /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/clx.lisp ; in: DEFUN ENCODE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:EVENT-MASK 'XLIB:EVENT-MASK) ; ; note: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code ; in: DEFUN ENCODE-DEVICE-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:DEVICE-EVENT-MASK 'XLIB:DEVICE-EVENT-MASK) ; ; note: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code ; in: DEFUN ENCODE-MODIFIER-MASK ; (XLIB::X-TYPE-ERROR XLIB:MODIFIER-MASK 'XLIB:MODIFIER-MASK) ; ; note: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code ; in: DEFUN ENCODE-STATE-MASK ; (XLIB::X-TYPE-ERROR XLIB::STATE-MASK ; '(OR XLIB:MASK16 (XLIB::CLX-LIST XLIB:STATE-MASK-KEY))) ; ; note: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code ; in: DEFUN ENCODE-POINTER-EVENT-MASK ; (XLIB::X-TYPE-ERROR XLIB:POINTER-EVENT-MASK 'XLIB:POINTER-EVENT-MASK) ; ; note: deleting unreachable code ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/clx-tmpOUPE5FSJ.fasl ; compilation finished in 0:00:00.665 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/dependent.lisp" (written 13 MAY 2024 09:28:08 AM): SIMPLE-COMPILER-NOTE: unable to open-code INTEGER to RATIO comparison due to type uncertainty: The first argument is a RATIONAL, not a INTEGER. ; file: /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/dependent.lisp ; in: DEFUN RADIANS->INT16 SIMPLE-COMPILER-NOTE: unable to open-code INTEGER to RATIO comparison due to type uncertainty: The first argument is a (RATIONAL -884279719003555/140737488355328), not a INTEGER. ; (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. &OPTIONAL-AND-&KEY-IN-LAMBDA-LIST: &OPTIONAL and &KEY found in the same lambda list: (LOCK DISPLAY &OPTIONAL (WHOSTATE CLX wait) &KEY TIMEOUT) ; in: DEFMACRO HOLDING-LOCK ; (DEFMACRO XLIB::HOLDING-LOCK ; ( ; (XLIB::LOCK ; XLIB:DISPLAY ; &OPTIONAL ; (XLIB::WHOSTATE "CLX wait") ; &KEY ; XLIB::TIMEOUT) ; &BODY XLIB::BODY) ; (DECLARE (IGNORE XLIB:DISPLAY XLIB::WHOSTATE)) ; `(SB-THREAD:WITH-RECURSIVE-LOCK (,XLIB::LOCK ; ,@(WHEN XLIB::TIMEOUT ; `(:TIMEOUT ,XLIB::TIMEOUT))) ; ,@XLIB::BODY)) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (LOCK DISPLAY &OPTIONAL ; (WHOSTATE CLX wait) &KEY ; TIMEOUT) CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code ; in: DEFMACRO READ-IMAGE-LOAD-BYTE ; (SETQ POSITION (- 7 POSITION)) ; ; note: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code ; in: DEFMACRO READ-IMAGE-ASSEMBLE-BYTES ; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES)) ; ; note: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code ; in: DEFMACRO WRITE-IMAGE-LOAD-BYTE ; (- XLIB::INTEGER-SIZE 8 POSITION) ; ; note: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code ; in: DEFMACRO WRITE-IMAGE-ASSEMBLE-BYTES ; (SETQ XLIB::BYTES (REVERSE XLIB::BYTES)) ; ; note: deleting unreachable code SIMPLE-COMPILER-NOTE: unable to inline non-SIMPLE-vector-handling logic due to type uncertainty: The first argument is a (AND ARRAY (NOT (SIMPLE-ARRAY * (*)))), not a (OR VECTOR SIMPLE-ARRAY). ; in: DEFUN COPY-BIT-RECT ; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::SDATA XLIB::SOURCE) (XLIB::SSTART) ; (XLIB::SEND)) ; (DECLARE (IGNORE XLIB::SEND)) ; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::DDATA XLIB::DEST) (XLIB::DSTART) ; (XLIB::DEND)) ; (DECLARE (IGNORE XLIB::DEND)) ; (ASSERT (AND (ZEROP XLIB::SSTART) (ZEROP XLIB::DSTART))) ; (DO ((XLIB::SRC-IDX # #) ; (XLIB::DEST-IDX # #) ; (COUNT XLIB::HEIGHT #)) ; ((ZEROP COUNT)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-IDX XLIB::DEST-IDX COUNT)) ; (SB-KERNEL:UB1-BASH-COPY XLIB::SDATA XLIB::SRC-IDX XLIB::DDATA ; XLIB::DEST-IDX XLIB::WIDTH)))) ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND IF THE ; ==> ; (SB-KERNEL:%WITH-ARRAY-DATA #:N-ARRAY0 #:N-SVALUE1 #:N-EVALUE2) ; ; note: unable to ; inline non-SIMPLE-vector-handling logic ; due to type uncertainty: ; The first argument is a (AND ARRAY (NOT (SIMPLE-ARRAY * (*)))), not a (OR ; VECTOR SIMPLE-COMPILER-NOTE: unable to inline non-SIMPLE-vector-handling logic due to type uncertainty: The first argument is a (AND ARRAY (NOT (SIMPLE-ARRAY * (*)))), not a (OR VECTOR SIMPLE-ARRAY). ; SIMPLE-ARRAY). ; (SB-KERNEL:WITH-ARRAY-DATA ((XLIB::DDATA XLIB::DEST) (XLIB::DSTART) ; (XLIB::DEND)) ; (DECLARE (IGNORE XLIB::DEND)) ; (ASSERT (AND (ZEROP XLIB::SSTART) (ZEROP XLIB::DSTART))) ; (DO ((XLIB::SRC-IDX (XLIB::INDEX+ # XLIB::SX #) ; (XLIB::INDEX+ XLIB::SRC-IDX XLIB::SOURCE-WIDTH)) ; (XLIB::DEST-IDX (XLIB::INDEX+ # XLIB::DX #) ; (XLIB::INDEX+ XLIB::DEST-IDX XLIB::DEST-WIDTH)) ; (COUNT XLIB::HEIGHT (1- COUNT))) ; ((ZEROP COUNT)) ; (DECLARE (TYPE XLIB:ARRAY-INDEX XLIB::SRC-IDX XLIB::DEST-IDX COUNT)) ; (SB-KERNEL:UB1-BASH-COPY XLIB::SDATA XLIB::SRC-IDX XLIB::DDATA ; XLIB::DEST-IDX XLIB::WIDTH))) ; --> LET LET MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL COND IF THE ; ==> ; (SB-KERNEL:%WITH-ARRAY-DATA #:N-ARRAY5 #:N-SVALUE6 #:N-EVALUE7) ; ; note: unable to ; inline non-SIMPLE-vector-handling logic ; due to type uncertainty: ; The first argument is a (AND ARRAY (NOT (SIMPLE-ARRAY * (*)))), not a (OR ; VECTOR ; SIMPLE-ARRAY). SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20) ; 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) CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code ; in: DEFUN FAST-READ-PIXARRAY ; (XLIB::READ-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X ; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE ; XLIB::BITS-PER-PIXEL FUNCTION XLIB::UNIT ...) ; ; note: deleting unreachable code SIMPLE-COMPILER-NOTE: unable to optimize because: The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; 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. SIMPLE-COMPILER-NOTE: doing signed word to integer coercion (cost 20) ; (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) CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code ; in: DEFUN FAST-WRITE-PIXARRAY ; (XLIB::WRITE-PIXARRAY-INTERNAL XLIB::BBUF XLIB::BOFFSET XLIB:PIXARRAY XLIB::X ; XLIB::Y XLIB::WIDTH XLIB::HEIGHT XLIB::PADDED-BYTES-PER-LINE ; XLIB::BITS-PER-PIXEL FUNCTION XLIB::+IMAGE-UNIT+ ...) ; ; note: deleting unreachable code ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/dependent-tmpIGHCU6ZA.fasl ; compilation finished in 0:00:00.211 COMPILE-WARNED-WARNING: Lisp compilation had style-warnings while compiling # WARNING: Lisp compilation had style-warnings while compiling # REDEFINITION-WITH-DEFUN: redefining XLIB::DECLARE-BUFMAC in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB::DECLARE-BUFFUN in DEFUN REDEFINITION-WITH-DEFMACRO: redefining XLIB::HOLDING-LOCK in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITHOUT-ABORTS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITHOUT-INTERRUPTS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CONDITIONAL-STORE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRAP-BUF-OUTPUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRAP-BUF-INPUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-STACK-LIST in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-STACK-LIST* in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-GCONTEXT-BINDINGS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::TYPE? in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::USE-CLOSURES in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-UNDERLYING-SIMPLE-VECTOR in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-IMAGE-LOAD-BYTE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-IMAGE-ASSEMBLE-BYTES in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-IMAGE-LOAD-BYTE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-IMAGE-ASSEMBLE-BYTES in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/common.lisp" (written 13 MAY 2024 09:28:08 AM): SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL 0), not a SINGLE-FLOAT. ; file: /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/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. SIMPLE-COMPILER-NOTE: unable to open-code FLOAT to RATIONAL comparison due to type uncertainty: The first argument is a (REAL 0), not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code 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. SIMPLE-COMPILER-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. ; (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 /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/common-tmpBO0TUGLK.fasl ; compilation finished in 0:00:00.017 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/macros.lisp" (written 13 MAY 2024 09:28:08 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/macros-tmpIIXPIQNW.fasl ; compilation finished in 0:00:00.424 REDEFINITION-WITH-DEFMACRO: redefining XLIB::TYPE-CHECK in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::REQUIRED-ARG in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::LROUND in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WROUND in DEFMACRO REDEFINITION-WITH-DEFUN: redefining XLIB::GETIFY in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB::PUTIFY in DEFUN REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-ACCESSOR in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD32-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD32-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD29-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD29-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD16-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD16-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD8-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CARD8-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INTEGER-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INTEGER-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INT16-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INT16-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RGB-VAL-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RGB-VAL-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::ANGLE-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::ANGLE-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::BIT-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::BIT-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::BOOLEAN-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::BOOLEAN-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DRAWABLE-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DRAWABLE-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WINDOW-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WINDOW-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PIXMAP-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PIXMAP-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CURSOR-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CURSOR-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::COLORMAP-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::COLORMAP-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::FONT-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::FONT-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYWORD-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYWORD-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RESOURCE-ID-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RESOURCE-ID-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RESOURCE-ID-OR-NIL-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RESOURCE-ID-OR-NIL-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CHAR-INFO-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER8-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER8-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER8-PUT-PREDICATING in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER16-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER16-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER16-PUT-PREDICATING in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER-PUT-PREDICATING in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER-VECTOR-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER-VECTOR-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER-VECTOR-PUT-PREDICATING in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER16-VECTOR-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER16-VECTOR-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER16-VECTOR-PUT-PREDICATING in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER8-VECTOR-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER8-VECTOR-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MEMBER8-VECTOR-PUT-PREDICATING in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::BOOLE-CONSTANT-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::BOOLE-CONSTANT-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::BOOLE-CONSTANT-PUT-PREDICATING in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::NULL-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::NULL-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PAD8-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PAD8-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PAD16-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PAD16-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PAD32-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PAD32-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::BIT-VECTOR256-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::BIT-VECTOR256-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::STRING-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::STRING-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::SEQUENCE-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::SEQUENCE-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CLIENT-MESSAGE-EVENT-GET-SEQUENCE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CLIENT-MESSAGE-SEQUENCE-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CLIENT-MESSAGE-SEQUENCE-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CODE-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CODE-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CODE-PUT-PREDICATING in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::LENGTH-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::LENGTH-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::LENGTH-PUT-PREDICATING in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DATA-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DATA-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DATA-PUT-PREDICATING in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::OR-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::OR-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PROGN-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PROGN-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::CHECK-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER-REQUEST-INTERNAL in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER-REQUEST in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER-REQUEST-AND-REPLY in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::COMPARE-REQUEST in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PUT-ITEMS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DECODE-TYPE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::ENCODE-TYPE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::SET-DECODE-TYPE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-ATOMIC-PUSH in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-ATOMIC-POP in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-NCONC in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-PUSH in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-POP in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-ENQUEUE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-DEQUEUE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-REQUEUE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-DOLIST in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-DELETE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::THREADED-LENGTH in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/bufmac.lisp" (written 13 MAY 2024 09:28:08 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/bufmac-tmpOHM494YR.fasl ; compilation finished in 0:00:00.045 REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-CARD8 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-INT8 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-CARD16 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-INT16 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-CARD32 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-INT32 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-CARD29 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITE-CHAR2B in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::SET-BUFFER-OFFSET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::ADVANCE-BUFFER-OFFSET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER-OUTPUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WRITING-BUFFER-CHUNKS in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/buffer.lisp" (written 13 MAY 2024 09:28:08 AM): SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; file: /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/buffer.lisp ; in: DEFUN READ-VECTOR-CARD8 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD8 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; 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 ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; in: DEFUN READ-VECTOR-CARD16 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD16 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; 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 ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; in: DEFUN READ-VECTOR-CARD32 ; (SETF (AREF XLIB::DATA XLIB::J) (XLIB::READ-CARD32 XLIB::INDEX)) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; 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 ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; in: DEFUN WRITE-VECTOR-CARD8 ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; in: DEFUN WRITE-VECTOR-CARD8-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; in: DEFUN WRITE-VECTOR-CARD16 ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; in: DEFUN WRITE-VECTOR-CARD16-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; in: DEFUN WRITE-VECTOR-INT16 ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; in: DEFUN WRITE-VECTOR-INT16-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; in: DEFUN WRITE-VECTOR-CARD32 ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; in: DEFUN WRITE-VECTOR-CARD32-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; in: DEFUN WRITE-VECTOR-CHAR2B ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; in: DEFUN WRITE-VECTOR-CHAR2B-WITH-TRANSFORM ; (AREF XLIB::DATA XLIB::INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/buffer-tmpOVFB07XF.fasl ; compilation finished in 0:00:00.706 REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-CARD8 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-INT8 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-CARD16 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-INT16 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-CARD32 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-INT32 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::READ-CARD29 in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::EVENT-CODE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::READING-EVENT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER-INPUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-BUFFER-FLUSH-INHIBITED in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-TRANSFORMED-SEQUENCE-READER in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-LIST-READERS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-SEQUENCE-READER in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-TRANSFORMED-SEQUENCE-WRITER in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-LIST-WRITERS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-SEQUENCE-WRITER in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/display.lisp" (written 13 MAY 2024 09:28:08 AM): SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; file: /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/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. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH XLIB::AUTHORIZATION-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/display-tmpG6VFGMYP.fasl ; compilation finished in 0:00:00.299 REDEFINITION-WITH-DEFMACRO: redefining XLIB:WITH-DISPLAY in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::ALLOCATE-RESOURCE-ID in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEALLOCATE-RESOURCE-ID in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:WITH-EVENT-QUEUE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-EVENT-QUEUE-INTERNAL in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/gcontext.lisp" (written 13 MAY 2024 09:28:08 AM): SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR CONS VECTOR SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; file: /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/gcontext.lisp ; 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. SIMPLE-COMPILER-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-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 SIMPLE-COMPILER-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. ; (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. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to Eliminate %negate/%negate of rationals due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. ; 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. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. ; (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. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; (FUNCALL XLIB::COPY-FUNCTION XLIB:GCONTEXT XLIB::TEMP-GC ; (SVREF XLIB::LOCAL-STATE ; (XLIB::INDEX+ XLIB::I XLIB::*GCONTEXT-DATA-LENGTH*))) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: forced to do 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. ; (- 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. SIMPLE-COMPILER-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. ; (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. SIMPLE-COMPILER-NOTE: forced to do full call unable to do inline ASH (cost 2) because: The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM. The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline ASH (cost 3) because: The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (UNSIGNED-BYTE 64). The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). etc. ; (ASH BIT -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to Eliminate %negate/%negate of rationals due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; in: DEFUN RESTORE-GCONTEXT-TEMP-STATE ; (- 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 SIMPLE-COMPILER-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. ; (- 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. SIMPLE-COMPILER-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. ; (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. SIMPLE-COMPILER-NOTE: forced to do full call unable to do inline ASH (cost 2) because: The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM. The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline ASH (cost 3) because: The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (UNSIGNED-BYTE 64). The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). etc. ; (ASH BIT -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (OR (INTEGER * -1) (INTEGER 1)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; in: DEFUN CREATE-GCONTEXT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:GCONTEXT 'XLIB:GCONTEXT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR LIST VECTOR). SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; 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 SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (POSITION XLIB::EXTENSION XLIB::*GCONTEXT-EXTENSIONS*) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/gcontext-tmp4QIPRMOF.fasl ; compilation finished in 0:00:00.824 REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-FUNCTION in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-PLANE-MASK in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-FOREGROUND in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-BACKGROUND in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-LINE-WIDTH in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-LINE-STYLE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-CAP-STYLE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-JOIN-STYLE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-FILL-STYLE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-FILL-RULE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-TILE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-STIPPLE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-TS-X in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-TS-Y in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-FONT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-SUBWINDOW-MODE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-EXPOSURES in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-CLIP-X in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-CLIP-Y in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-CLIP-MASK in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-DASH-OFFSET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-DASHES in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-ARC-MODE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-CLIP in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-DASH in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-FONT-OBJ in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-INTERNAL-TIMESTAMP in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GCONTEXT-STATE-NEXT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::XGCMASK->GCMASK in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::ACCESS-GCONTEXT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::MODIFY-GCONTEXT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEF-GC-ACCESSOR in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::INCF-INTERNAL-TIMESTAMP in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:WITH-GCONTEXT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:DEFINE-GCONTEXT-ACCESSOR in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/input.lisp" (written 13 MAY 2024 09:28:08 AM): CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code ; file: /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/input.lisp ; in: DEFUN READ-INPUT ; (CONS NIL NIL) ; ; note: deleting unreachable code SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; in: DEFUN QUEUE-EVENT ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::EVENT-CODE) XLIB:DISPLAY ; XLIB::ARGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; in: DECLARE-EVENT :CLIENT-MESSAGE ; (XLIB:DECLARE-EVENT :CLIENT-MESSAGE ; (XLIB::DATA FORMAT) ; (XLIB:CARD16 SEQUENCE) ; (XLIB:WINDOW (XLIB:WINDOW XLIB::EVENT-WINDOW)) ; (KEYWORD TYPE) ; ((XLIB::CLIENT-MESSAGE-SEQUENCE FORMAT) XLIB::DATA)) ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::READING-EVENT XLIB::WITH-BUFFER-INPUT LET LET* ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. 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 SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> PROGN DEFUN PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; --> FUNCTION BLOCK XLIB::WITH-BUFFER-OUTPUT LET LET* ; --> XLIB::CLIENT-MESSAGE-SEQUENCE-PUT XLIB::CLIENT-MESSAGE-EVENT-PUT-SEQUENCE ; --> ECASE COND IF IF IF XLIB::SEQUENCE-PUT XLIB::WRITE-SEQUENCE-CARD32 MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; in: DEFUN MAKE-ERROR ; (FUNCALL XLIB::ERROR-DECODE-FUNCTION XLIB:DISPLAY XLIB::EVENT) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/input-tmpGW0QV22K.fasl ; compilation finished in 0:00:01.105 REDEFINITION-WITH-DEFMACRO: redefining XLIB:DEFINE-EXTENSION in DEFMACRO REDEFINITION-WITH-DEFUN: redefining XLIB::CANONICALIZE-EVENT-NAME in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB::EXTENSION-EVENT-KEY-P in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB::ALLOCATE-EXTENSION-EVENT-CODE in DEFUN REDEFINITION-WITH-DEFMACRO: redefining XLIB:EXTENSION-OPCODE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-EVENT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:DECLARE-EVENT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::EVENT-LOOP in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:EVENT-CASE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:EVENT-COND in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::EVENT-DISPATCH in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::BINDING-EVENT-VALUES in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:DEFINE-ERROR in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/requests.lisp" (written 13 MAY 2024 09:28:08 AM): SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; file: /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/requests.lisp ; in: DEFUN CREATE-WINDOW ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:WINDOW 'XLIB:WINDOW) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: forced to do full call unable to do inline fixnum arithmetic (cost 1) because: The first argument is a INTEGER, not a FIXNUM. The result is a (VALUES (OR (INTEGER * -1) (INTEGER 4096)) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a INTEGER, not a FIXNUM. The result is a (VALUES (OR (INTEGER * -1) (INTEGER 4096)) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; (XLIB::WITH-BUFFER-REQUEST (XLIB:DISPLAY XLIB::+X-CREATEWINDOW+) ; (XLIB::DATA XLIB::DEPTH) ; (XLIB:RESOURCE-ID XLIB::WID) ; (XLIB:WINDOW XLIB::PARENT) ; (XLIB:INT16 XLIB::X XLIB::Y) ; (XLIB:CARD16 XLIB::WIDTH XLIB::HEIGHT XLIB::BORDER-WIDTH) ; ((XLIB::MEMBER16 :COPY :INPUT-OUTPUT :INPUT-ONLY) CLASS) ; (XLIB:RESOURCE-ID ; (COND ((EQ XLIB::VISUAL :COPY) 0) ; ((TYPEP XLIB::VISUAL 'XLIB:RESOURCE-ID) XLIB::VISUAL) ; (T (XLIB:VISUAL-INFO-ID XLIB::VISUAL)))) ; (XLIB::MASK ; (XLIB:CARD32 XLIB::BACK-PIXMAP XLIB::BACK-PIXEL XLIB::BORDER-PIXMAP ; XLIB::BORDER-PIXEL) ; ((XLIB::MEMBER-VECTOR XLIB::+BIT-GRAVITY-VECTOR+) XLIB:BIT-GRAVITY) ; ((XLIB::MEMBER-VECTOR XLIB::+WIN-GRAVITY-VECTOR+) XLIB::GRAVITY) ; ((MEMBER :NOT-USEFUL :WHEN-MAPPED :ALWAYS) XLIB::BACKING-STORE) ; (XLIB:CARD32 XLIB::BACKING-PLANES XLIB::BACKING-PIXEL) ; ((MEMBER :OFF :ON) XLIB::OVERRIDE-REDIRECT XLIB::SAVE-UNDER) ; (XLIB:CARD32 XLIB:EVENT-MASK XLIB::DO-NOT-PROPAGATE-MASK) ; ((OR (MEMBER :COPY) XLIB:COLORMAP) XLIB:COLORMAP) ; ((OR (MEMBER :NONE) XLIB:CURSOR) XLIB:CURSOR))) SIMPLE-COMPILER-NOTE: forced to do full call unable to do inline fixnum arithmetic (cost 1) because: The first argument is a INTEGER, not a FIXNUM. The result is a (VALUES (OR (INTEGER * -1) (INTEGER 8192)) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a INTEGER, not a FIXNUM. The result is a (VALUES (OR (INTEGER * -1) (INTEGER 8192)) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-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. SIMPLE-COMPILER-NOTE: forced to do full call unable to do inline fixnum arithmetic (cost 1) because: The first argument is a INTEGER, not a FIXNUM. The result is a (VALUES (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). unable to do inline fixnum arithmetic (cost 2) because: The first argument is a INTEGER, not a FIXNUM. The result is a (VALUES (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). etc. ; ==> ; (LOGIOR XLIB::%MASK 16384) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 16384)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; in: DEFUN SEND-EVENT ; (APPLY (SVREF XLIB::*EVENT-SEND-VECTOR* XLIB::INTERNAL-EVENT-CODE) ; XLIB:DISPLAY XLIB::ARGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; in: DEFUN CREATE-PIXMAP ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:PIXMAP 'XLIB:PIXMAP) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; in: DEFUN CREATE-COLORMAP ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:COLORMAP 'XLIB:COLORMAP) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; in: DEFUN COPY-COLORMAP-AND-FREE ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB::NEW-COLORMAP 'XLIB:COLORMAP) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN FREE-COLORS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:COLORMAP-DISPLAY XLIB:COLORMAP) ; XLIB::+X-FREECOLORS+) ; (XLIB:COLORMAP XLIB:COLORMAP) ; (XLIB:CARD32 XLIB::PLANE-MASK) ; (SEQUENCE XLIB::PIXELS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::PIXELS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: 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)))) SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; --> UNWIND-PROTECT FLET BLOCK BLOCK SB-C::%WITHIN-CLEANUP RETURN-FROM PROGN ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET 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. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (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. SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; in: DEFUN CREATE-CURSOR ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; in: DEFUN CREATE-GLYPH-CURSOR ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:CURSOR 'XLIB:CURSOR) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; 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 /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/requests-tmp2K9J0HSR.fasl ; compilation finished in 0:00:01.441 REDEFINITION-WITH-DEFMACRO: redefining XLIB:WITH-SERVER-GRABBED in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/fonts.lisp" (written 13 MAY 2024 09:28:08 AM): SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; file: /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/fonts.lisp ; in: DEFUN OPEN-FONT ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:FONT 'XLIB:FONT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; in: DEFUN OPEN-FONT-INTERNAL ; (XLIB::ALLOCATE-RESOURCE-ID XLIB:DISPLAY XLIB:FONT 'XLIB:FONT) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK LET FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a SINGLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a REAL, not a DOUBLE-FLOAT. SIMPLE-COMPILER-NOTE: unable to optimize ; in: DEFUN SET-FONT-PATH ; (CEILING XLIB::REQUEST-LENGTH 4) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. due to type uncertainty: The first argument is a REAL, not a INTEGER. SIMPLE-COMPILER-NOTE: unable to convert division by 2^k to shift due to type uncertainty: The first argument is a REAL, not a INTEGER. SIMPLE-COMPILER-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 REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (ELT XLIB::PATHS XLIB::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a LIST. SIMPLE-COMPILER-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 SEQUENCE, not a LIST. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR STRING SYMBOL CHARACTER), not a SYMBOL. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; (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. ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/fonts-tmpP44I4E0Y.fasl ; compilation finished in 0:00:00.114 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/graphics.lisp" (written 13 MAY 2024 09:28:08 AM): SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; file: /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/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. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN DRAW-LINES ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYLINE+ :GC-FORCE XLIB:GCONTEXT) ; ((XLIB::DATA BOOLEAN) XLIB::RELATIVE-P) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN FILL-POLYGON ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-FILLPOLY+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((XLIB::MEMBER8 :COMPLEX :NON-CONVEX :CONVEX) XLIB::SHAPE) ; (BOOLEAN XLIB::RELATIVE-P) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::POINTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::POINTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN DRAW-SEGMENTS ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; XLIB::+X-POLYSEGMENT+ :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::SEGMENTS)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::SEGMENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN DRAW-RECTANGLES ; (XLIB::WITH-BUFFER-REQUEST ((XLIB:DRAWABLE-DISPLAY XLIB:DRAWABLE) ; (IF XLIB::FILL-P ; XLIB::+X-POLYFILLRECTANGLE+ ; XLIB::+X-POLYRECTANGLE+) ; :GC-FORCE XLIB:GCONTEXT) ; (XLIB:DRAWABLE XLIB:DRAWABLE) ; (XLIB:GCONTEXT XLIB:GCONTEXT) ; ((SEQUENCE :FORMAT XLIB:INT16) XLIB::RECTANGLES)) ; --> XLIB::WITH-BUFFER MACROLET LET XLIB::HOLDING-LOCK ; --> SB-THREAD:WITH-RECURSIVE-LOCK SB-INT:DX-FLET FLET ; --> SB-THREAD::WITH-RECURSIVE-LOCK-THUNK BLOCK MULTIPLE-VALUE-PROG1 ; --> XLIB::WITHOUT-ABORTS PROGN XLIB::WITH-BUFFER-REQUEST-INTERNAL ; --> XLIB::WITH-BUFFER-OUTPUT LET LET* XLIB::CHECK-PUT XLIB::SEQUENCE-PUT LET ; ==> ; (LENGTH XLIB::RECTANGLES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; in: DEFUN DRAW-ARCS-VECTOR ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 0)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 1)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 2)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 3)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 4)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize because: Upgraded element type of array is not known at compile time. ; (AREF XLIB::ARCS (XLIB::INDEX+ XLIB::N 5)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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 /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/graphics-tmp63LQ7EX6.fasl ; compilation finished in 0:00:00.435 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/text.lisp" (written 13 MAY 2024 09:28:08 AM): SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; file: /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/text.lisp ; in: DEFUN TEXT-EXTENTS ; (LENGTH SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN TEXT-WIDTH ; (LENGTH SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY. SIMPLE-COMPILER-NOTE: unable to associate +/(+ -) of constants due to type uncertainty: The first argument is a NUMBER, not a RATIONAL. SIMPLE-COMPILER-NOTE: unable to avoid runtime dispatch on array element type due to type uncertainty: The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY. SIMPLE-COMPILER-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 /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/text-tmp86F1A8FB.fasl ; compilation finished in 0:00:00.409 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/attributes.lisp" (written 13 MAY 2024 09:28:08 AM): ; in: DEFUN CHANGE-KEYBOARD-MAPPING ; (AREF XLIB::KEYSYMS XLIB::I XLIB::J) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY. ; in: DEFUN KEYBOARD-MAPPING ; (1+ XLIB::I) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SETF (AREF XLIB::RESULT XLIB::I XLIB::J) (XLIB::CARD29-GET (* XLIB::J 4))) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (ARRAY * (* *)), not a SIMPLE-ARRAY. ; (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 /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/attributes-tmpH7D4HL98.fasl ; compilation finished in 0:00:00.306 REDEFINITION-WITH-DEFMACRO: redefining XLIB::STATE-ATTRIBUTES in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::STATE-ATTRIBUTE-CHANGES in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::STATE-GEOMETRY in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::STATE-GEOMETRY-CHANGES in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::DRAWABLE-EQUAL-FUNCTION in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WINDOW-EQUAL-FUNCTION in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:WITH-STATE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-ATTRIBUTES in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-GEOMETRY in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/translate.lisp" (written 13 MAY 2024 09:28:08 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/translate-tmpCDM7YXYI.fasl ; compilation finished in 0:00:00.100 REDEFINITION-WITH-DEFMACRO: redefining XLIB:KEYSYM in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYSYM-MAPPING-OBJECT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYSYM-MAPPING-TRANSLATE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYSYM-MAPPING-LOWERCASE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYSYM-MAPPING-MODIFIERS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::KEYSYM-MAPPING-MASK in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/keysyms.lisp" (written 13 MAY 2024 09:28:08 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/keysyms-tmpLM57P5P.fasl ; compilation finished in 0:00:00.010 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/manager.lisp" (written 13 MAY 2024 09:28:08 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/manager-tmpZE69DN33.fasl ; compilation finished in 0:00:00.736 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/image.lisp" (written 13 MAY 2024 09:28:08 AM): SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; file: /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/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 /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/image-tmpG8099TO3.fasl ; compilation finished in 0:00:01.200 REDEFINITION-WITH-DEFMACRO: redefining XLIB::WITH-IMAGE-DATA-BUFFER in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:IMAGE-NAME in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:IMAGE-X-HOT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:IMAGE-Y-HOT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:IMAGE-RED-MASK in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:IMAGE-BLUE-MASK in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB:IMAGE-GREEN-MASK in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/resource.lisp" (written 13 MAY 2024 09:28:08 AM): CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code ; file: /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/resource.lisp ; in: DEFUN DELETE-RESOURCE-INTERNAL ; (SETQ XLIB::LOOSE-P NIL) ; ; note: deleting unreachable code ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/resource-tmpTASQCYAW.fasl ; compilation finished in 0:00:00.168 REDEFINITION-WITH-DEFMACRO: redefining XLIB::RESOURCE-WITH-OPEN-FILE in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/shape.lisp" (written 13 MAY 2024 09:28:08 AM): SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; file: /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/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 /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/shape-tmp35U57IV6.fasl ; compilation finished in 0:00:00.368 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/big-requests.lisp" (written 13 MAY 2024 09:28:08 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/big-requests-tmpTZOONXRW.fasl ; compilation finished in 0:00:00.008 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/xvidmode.lisp" (written 13 MAY 2024 09:28:08 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/xvidmode-tmpWN0UKDSV.fasl ; compilation finished in 0:00:01.003 REDEFINITION-WITH-DEFMACRO: redefining XLIB::VIDMODE-OPCODE in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/xrender.lisp" (written 13 MAY 2024 09:28:08 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/xrender-tmpBF3HHBTQ.fasl ; compilation finished in 0:00:01.007 REDEFINITION-WITH-DEFMACRO: redefining XLIB::PICTURE-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PICTURE-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GLYPH-SET-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::GLYPH-SET-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PICTURE-FORMAT-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::PICTURE-FORMAT-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RENDER-OP-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RENDER-OP-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::%RENDER-COMPOSITE-GLYPHS in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/glx.lisp" (written 13 MAY 2024 09:28:08 AM): SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; file: /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/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 SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; in: DEFUN GET-VISUAL-CONFIGS ; (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)))) ; SIMPLE-COMPILER-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. SIMPLE-COMPILER-NOTE: unable to fold division by 1 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 INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a (RATIONAL 1/2 4294967295/2), not a INTEGER. ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/glx-tmpGYUNPZCY.fasl ; compilation finished in 0:00:00.435 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/gl.lisp" (written 13 MAY 2024 09:28:08 AM): SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; file: /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/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. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. SIMPLE-COMPILER-NOTE: unable to optimize due to type uncertainty: The first argument is a SEQUENCE, not a VECTOR. ; 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. ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/gl-tmpD68Q8WCA.fasl ; compilation finished in 0:00:01.778 REDEFINITION-WITH-DEFUN: redefining XLIB/GL::BYTE-WIDTH in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SETTER in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SEQUENCE-SETTER in DEFUN REDEFINITION-WITH-DEFMACRO: redefining XLIB/GL::DEFINE-SEQUENCE-SETTER in DEFMACRO REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-INT8 in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-INT16 in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-INT32 in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-BOOL in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-CARD8 in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-CARD16 in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-CARD32 in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-FLOAT32 in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::SSET-FLOAT64 in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::MAKE-ARGSPECS in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::BYTE-WIDTH-CALCULATION in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::COMPOSITE-ARGS in DEFUN REDEFINITION-WITH-DEFUN: redefining XLIB/GL::MAKE-SETTER-FORMS in DEFUN REDEFINITION-WITH-DEFMACRO: redefining XLIB/GL::DEFINE-RENDERING-COMMAND in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/dpms.lisp" (written 13 MAY 2024 09:28:08 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/dpms-tmp7MK9KM9C.fasl ; compilation finished in 0:00:00.168 REDEFINITION-WITH-DEFMACRO: redefining XLIB/DPMS::DPMS-OPCODE in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/xtest.lisp" (written 13 MAY 2024 09:28:08 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/xtest-tmpJJ71X849.fasl ; compilation finished in 0:00:00.056 REDEFINITION-WITH-DEFMACRO: redefining XLIB/XTEST::OPCODE in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/screensaver.lisp" (written 13 MAY 2024 09:28:08 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/screensaver-tmp1VUK6SR2.fasl ; compilation finished in 0:00:00.014 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/randr.lisp" (written 13 MAY 2024 09:28:08 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/randr-tmpR2FIHSUG.fasl ; compilation finished in 0:00:00.607 REDEFINITION-WITH-DEFMACRO: redefining XLIB::DEFINE-MASK-FNS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RR-TRANSFORM-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RR-TRANSFORM-PUT in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RR-MODE-INFO-GET in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining XLIB::RR-MODE-INFO-PUT in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/xinerama.lisp" (written 13 MAY 2024 09:28:08 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/xinerama-tmp8PYELRKX.fasl ; compilation finished in 0:00:00.041 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/dbe.lisp" (written 13 MAY 2024 09:28:08 AM): SIMPLE-COMPILER-NOTE: unable to optimize away possible call to FDEFINITION at runtime because: callable expression is not known to be a function ; file: /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/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 /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/dbe-tmpEHTOKYT0.fasl ; compilation finished in 0:00:00.117 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/xc-misc.lisp" (written 13 MAY 2024 09:28:08 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/xc-misc-tmpS6U1VHI9.fasl ; compilation finished in 0:00:00.017 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/dri2.lisp" (written 13 MAY 2024 09:28:08 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/dri2-tmpVTFK6ZJW.fasl ; compilation finished in 0:00:00.245 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/composite.lisp" (written 13 MAY 2024 09:28:08 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/clx-0.7.6/extensions/composite-tmp75WVSJEW.fasl ; compilation finished in 0:00:00.067 REDEFINITION-WITH-DEFMACRO: redefining XLIB::COMPOSITE-OPCODE in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/dynamic-mixins/src/package.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/dynamic-mixins/src/package-tmpBU5UM3S4.fasl ; compilation finished in 0:00:00.001 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/dynamic-mixins/src/sorting.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/dynamic-mixins/src/sorting-tmpOBHVA3CD.fasl ; compilation finished in 0:00:00.006 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/dynamic-mixins/src/dynamic-mixins.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/dynamic-mixins/src/dynamic-mixins-tmpJ6ELVFLF.fasl ; compilation finished in 0:00:00.032 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/package.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/package-tmpULDB0RG.fasl ; compilation finished in 0:00:00.001 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/debug.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/debug-tmpUTZ0UUTE.fasl ; compilation finished in 0:00:00.007 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/primitives.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/primitives-tmpOOSRA8PZ.fasl ; compilation finished in 0:00:00.272 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::DEFINE-SWM-CLASS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:WITH-RESTARTS-MENU in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:ADD-HOOK in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:REMOVE-HOOK in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:REMOVE-ALL-HOOKS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-FRAME-PREFERENCE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::DEFINE-FULLSCREEN-IN-FRAME-RULE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::WITH-FOCUS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:WITH-DATA-FILE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:MOVE-TO-HEAD in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/wrappers.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/wrappers-tmpDMIL0RVK.fasl ; compilation finished in 0:00:00.032 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/pathnames.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/pathnames-tmp8MR9IMIO.fasl ; compilation finished in 0:00:00.004 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/font-rendering.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/font-rendering-tmpJQDKAVAY.fasl ; compilation finished in 0:00:00.017 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/keysyms.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/keysyms-tmp3I8CEEQY.fasl ; compilation finished in 0:00:00.115 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/keytrans.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/keytrans-tmpA3RHFLWZ.fasl ; compilation finished in 0:00:00.009 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/kmap.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/kmap-tmpYZIB7VXO.fasl ; compilation finished in 0:00:00.093 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/input.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/input-tmpR8PK79V8.fasl ; compilation finished in 0:00:00.203 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/core.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/core-tmpN1ZVB1HZ.fasl ; compilation finished in 0:00:00.008 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/command.lisp" (written 25 NOV 2023 12:44:47 AM): TYPE-STYLE-WARNING: The binding of I is not a REAL: NIL See also: The SBCL Manual, Node "Handling of Types" ; file: /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/command.lisp ; in: DEFUN ARGUMENT-POP ; (LOOP STUMPWM::FOR STUMPWM::I STUMPWM::FROM STUMPWM::START STUMPWM::BELOW (LENGTH ; STUMPWM::INPUT) ; STUMPWM::FOR CHAR = (CHAR STUMPWM::INPUT STUMPWM::I) ; DO ...) ; --> LET LET TAGBODY ; ==> ; NIL ; ; caught STYLE-WARNING: ; The binding of I is not a REAL: ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/command-tmpZGRRPISB.fasl ; compilation finished in 0:00:00.261 COMPILE-WARNED-WARNING: Lisp compilation had style-warnings while compiling # WARNING: Lisp compilation had style-warnings while compiling # REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFCOMMAND in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-STUMPWM-COMMAND in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFCOMMAND-ALIAS in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-STUMPWM-TYPE in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/menu-declarations.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/menu-declarations-tmpFNKDE5XP.fasl ; compilation finished in 0:00:00.025 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/menu-definitions.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/menu-definitions-tmpRJTU435C.fasl ; compilation finished in 0:00:00.106 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/screen.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/screen-tmpI9WG87JK.fasl ; compilation finished in 0:00:00.079 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::SET-ANY-COLOR in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::WITH-CURRENT-SCREEN in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/head.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/head-tmpYDE6I9E6.fasl ; compilation finished in 0:00:00.025 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/group.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/group-tmp319UV2V8.fasl ; compilation finished in 0:00:00.124 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/bindings.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/bindings-tmpLYQINFYS.fasl ; compilation finished in 0:00:00.021 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::FILL-KEYMAP in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/events.lisp" (written 25 NOV 2023 12:44:47 AM): CODE-DELETION-NOTE: deleting unreachable code CODE-DELETION-NOTE: deleting unreachable code ; file: /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/events.lisp ; in: DEFUN SCROLL-BUTTON-KEYWORD-P ; (EQ STUMPWM::BUTTON :WHEEL-RIGHT) ; ; note: deleting unreachable code ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/events-tmpGA31XWNO.fasl ; compilation finished in 0:00:00.159 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::DEFINE-STUMP-EVENT-HANDLER in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/window.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/window-tmp5HT23M6C.fasl ; compilation finished in 0:00:00.417 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-WINDOW-SLOT in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/floating-group.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/floating-group-tmpA60KLDKY.fasl ; compilation finished in 0:00:00.185 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/tile-window.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/tile-window-tmpD801X3GJ.fasl ; compilation finished in 0:00:00.070 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/tile-group.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/tile-group-tmpGOW1GC70.fasl ; compilation finished in 0:00:00.340 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:SAVE-FRAME-EXCURSION in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/window-placement.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/window-placement-tmpPQ1X28TL.fasl ; compilation finished in 0:00:00.034 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/message-window.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/message-window-tmpE92ECU7O.fasl ; compilation finished in 0:00:00.147 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::DEFINE-SIMPLE-GRAVITY in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:WITH-MESSAGE-QUEUING in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/selection.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/selection-tmp8S0II570.fasl ; compilation finished in 0:00:00.018 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::MULTISELECT in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/module.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/module-tmpJE88A12F.fasl ; compilation finished in 0:00:00.014 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/ioloop.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/ioloop-tmpA5FNLPLT.fasl ; compilation finished in 0:00:00.082 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/timers.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/timers-tmpHKCV9TP8.fasl ; compilation finished in 0:00:00.030 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/stumpwm.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/stumpwm-tmpZ18MA7XE.fasl ; compilation finished in 0:00:00.062 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::SET-SIGNAL-HANDLER in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/user.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/user-tmp6LQJ9T0C.fasl ; compilation finished in 0:00:00.188 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFPROGRAM-SHORTCUT in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/interactive-keymap.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/interactive-keymap-tmpTX7OA81T.fasl ; compilation finished in 0:00:00.017 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-INTERACTIVE-KEYMAP in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/iresize.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/iresize-tmpWOTC3PB7.fasl ; compilation finished in 0:00:00.018 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/help.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/help-tmpHQE95SAC.fasl ; compilation finished in 0:00:00.183 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/fdump.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/fdump-tmpO87FP9NR.fasl ; compilation finished in 0:00:00.076 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/time.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/time-tmpP6A3E92I.fasl ; compilation finished in 0:00:00.030 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/mode-line.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/mode-line-tmpUSHT8RIL.fasl ; compilation finished in 0:00:00.076 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/mode-line-formatters.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/mode-line-formatters-tmp7YCPD44Y.fasl ; compilation finished in 0:00:00.035 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::ALTERNATE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::SCROLL in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/color.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/color-tmpQXR7SNXD.fasl ; compilation finished in 0:00:00.071 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/wse.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/wse-tmp6FLI1OC3.fasl ; compilation finished in 0:00:00.030 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:ACT-ON-MATCHING-WINDOWS in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/dynamic-window.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/dynamic-window-tmpWBK8JTS9.fasl ; compilation finished in 0:00:00.017 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/dynamic-group.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/dynamic-group-tmpUVEUD2ZN.fasl ; compilation finished in 0:00:00.518 REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::SWAP in DEFMACRO REDEFINITION-WITH-DEFMETHOD: redefining PRINT-SWM-OBJECT (# #) in DEFMETHOD REDEFINITION-WITH-DEFMACRO: redefining STUMPWM::WITH-GROUP-HEAD-INFO in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/remap-keys.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/remap-keys-tmpOWNJOEU.fasl ; compilation finished in 0:00:00.012 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/manual.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/manual-tmpVT5BMTA5.fasl ; compilation finished in 0:00:00.067 ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/minor-modes.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/minor-modes-tmpN3CFVWZF.fasl ; compilation finished in 0:00:00.282 REDEFINITION-WITH-DEFUN: redefining STUMPWM::MAKE-SPECIAL-VARIABLE-NAME in DEFUN REDEFINITION-WITH-DEFUN: redefining STUMPWM::PARSE-MINOR-MODE-OPTIONS in DEFUN REDEFINITION-WITH-DEFUN: redefining STUMPWM::DEFINE-COMMAND-MACRO in DEFUN REDEFINITION-WITH-DEFUN: redefining STUMPWM::DEFINE-ENABLE-METHODS in DEFUN REDEFINITION-WITH-DEFUN: redefining STUMPWM::GENLIGHTER in DEFUN REDEFINITION-WITH-DEFUN: redefining STUMPWM::DEFINE-HOOKS in DEFUN REDEFINITION-WITH-DEFUN: redefining STUMPWM:ADD-MINOR-MODE-SCOPE in DEFUN REDEFINITION-WITH-DEFUN: redefining STUMPWM::GET-SCOPE in DEFUN REDEFINITION-WITH-DEFUN: redefining STUMPWM::SCOPE-TYPE in DEFUN REDEFINITION-WITH-DEFUN: redefining STUMPWM::SCOPE-FILTER-TYPE in DEFUN REDEFINITION-WITH-DEFUN: redefining STUMPWM::SCOPE-CURRENT-OBJECT-FUNCTION in DEFUN REDEFINITION-WITH-DEFUN: redefining STUMPWM::SCOPE-ALL-OBJECTS-FUNCTION in DEFUN REDEFINITION-WITH-DEFUN: redefining STUMPWM::FIND-ACTIVE-GLOBAL-MINOR-MODES-FOR-SCOPE in DEFUN REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-MINOR-MODE-SCOPE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-DESCENDED-MINOR-MODE-SCOPE in DEFMACRO REDEFINITION-WITH-DEFMACRO: redefining STUMPWM:DEFINE-MINOR-MODE in DEFMACRO ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/replace-class.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/replace-class-tmpNK27C0R1.fasl ; compilation finished in 0:00:00.019 REDEFINITION-WITH-DEFGENERIC: redefining DYNAMIC-MIXINS-SWM:REPLACE-CLASS in DEFGENERIC WARNING: redefining DYNAMIC-MIXINS-SWM:REPLACE-CLASS in DEFGENERIC ; compiling file "/exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/version.lisp" (written 25 NOV 2023 12:44:47 AM): ; wrote /exopi-obj/pobj/stumpwm-23.11/stumpwm-23.11/version-tmp3BPE71HR.fasl ; compilation finished in 0:00:00.003 ; ; compilation unit finished ; caught 8 STYLE-WARNING conditions ; printed 777 notes [undoing binding stack and other enclosing state... done] [performing final GC... done] [defragmenting immobile space... (inst,code,sym)=1103+25824+25285... done] [saving current Lisp image into stumpwm: writing 98304 bytes from the linkage space at 0xfffc00000 writing 3168 bytes from the static space at 0x20000000 compressed 32768 bytes into 526 at level 9 writing 19857408 bytes from the dynamic space at 0x1100000000 compressed 19857408 bytes into 3122462 at level 9 writing 10242624 bytes from the read-only space at 0x10ff638000 compressed 10256384 bytes into 4847606 at level 9 writing 1359872 bytes from the fixedobj space at 0x20900000 compressed 1376256 bytes into 329887 at level 9 writing 15335424 bytes from the text space at 0x1000000000 compressed 15335424 bytes into 3564050 at level 9 done] /usr/local/bin/sbcl --non-interactive --eval "(setf sb-impl::*default-external-format* :UTF-8)" --eval "(progn (load \"load-stumpwm.lisp\") (load \"manual.lisp\"))" --eval "(progn (stumpwm::generate-manual) (sb-ext:quit))" This is SBCL 2.4.10.openbsd.sbcl-2.4.10, an implementation of ANSI Common Lisp. More information about SBCL is available at . SBCL is free software, provided as is, with absolutely no warranty. It is mostly in the public domain; some portions are provided under BSD-style licenses. See the CREDITS and COPYING files in the distribution for more information. WARNING: System definition file #P"/exopi-obj/pobj/stumpwm-23.11/cl-ppcre-2.1.1/cl-ppcre.asd" contains definition for system "cl-ppcre-test". Please only define "cl-ppcre" and secondary systems with a name starting with "cl-ppcre/" (e.g. "cl-ppcre/test") in that file. WARNING: redefining DYNAMIC-MIXINS-SWM:REPLACE-CLASS in DEFGENERIC warning: Function dynamic-group-head-layout not found. warning: Function dynamic-group-head-split-ratio not found. warning: Symbol exchange-window-with-master not found in package STUMPWM test "/usr/local/bin/gmakeinfo" = "no" || /usr/local/bin/gmakeinfo stumpwm.texi >>> Running package in x11/stumpwm at 1731947551.87 ===> x11/stumpwm ===> Faking installation for stumpwm-23.11p9 test -z "/exopi-obj/pobj/stumpwm-23.11/fake-amd64/usr/local/bin" || mkdir -p "/exopi-obj/pobj/stumpwm-23.11/fake-amd64/usr/local/bin" install -m 755 stumpwm "/exopi-obj/pobj/stumpwm-23.11/fake-amd64/usr/local/bin" test -z "/exopi-obj/pobj/stumpwm-23.11/fake-amd64/usr/local/info" || mkdir -p "/exopi-obj/pobj/stumpwm-23.11/fake-amd64/usr/local/info" test "/usr/local/bin/gmakeinfo" = "no" || install -m 644 stumpwm.info "/exopi-obj/pobj/stumpwm-23.11/fake-amd64/usr/local/info" test "/usr/local/bin/gmakeinfo" = "no" || install-info --info-dir="/exopi-obj/pobj/stumpwm-23.11/fake-amd64/usr/local/info" "/exopi-obj/pobj/stumpwm-23.11/fake-amd64/usr/local/info/stumpwm.info" ===> Building package for stumpwm-23.11p9 Create /exopi-cvs/ports/packages/amd64/all/stumpwm-23.11p9.tgz Creating package stumpwm-23.11p9 reading plist| checking dependencies| checking dependencies|archivers/zstd checksumming| checksumming| | 0% checksumming|**** | 7% checksumming|******** | 13% checksumming|************ | 20% checksumming|**************** | 27% checksumming|******************** | 33% checksumming|************************ | 40% checksumming|**************************** | 47% checksumming|********************************* | 53% checksumming|************************************* | 60% checksumming|***************************************** | 67% checksumming|********************************************* | 73% checksumming|************************************************* | 80% checksumming|***************************************************** | 87% checksumming|********************************************************* | 93% checksumming|*************************************************************|100% archiving| archiving| | 0% archiving|********** | 16% archiving|********************* | 33% archiving|******************************* | 49% archiving|****************************************** | 65% archiving|**************************************************** | 81% archiving|************************************************************** | 98% archiving|*************************************************************** | 98% archiving|****************************************************************|100% Link to /exopi-cvs/ports/packages/amd64/ftp/stumpwm-23.11p9.tgz >>> Running clean in x11/stumpwm at 1731947554.88 ===> x11/stumpwm ===> Cleaning for stumpwm-23.11p9 >>> Ended at 1731947555.21 max_stuck=27.53/depends=28.99/show-prepare-results=1.40/build=34.93/package=2.99/clean=0.38