>>> lem: Building testing/lem 2.2.0-r0 (using abuild 3.13.0-r3) started Mon, 29 Apr 2024 14:55:29 +0000 >>> lem: Checking sanity of /home/buildozer/aports/testing/lem/APKBUILD... >>> lem: Analyzing dependencies... >>> lem: Installing for build: build-base libdecor-dev ncurses-dev sbcl sdl2-dev sdl2_image-dev sdl2_ttf-dev roswell (1/181) Installing libxau (1.0.11-r4) (2/181) Installing libmd (1.1.0-r0) (3/181) Installing libbsd (0.12.2-r0) (4/181) Installing libxdmcp (1.1.5-r1) (5/181) Installing libxcb (1.16.1-r0) (6/181) Installing libx11 (1.8.9-r1) (7/181) Installing libxext (1.3.6-r2) (8/181) Installing libxrender (0.9.11-r5) (9/181) Installing libbz2 (1.0.8-r6) (10/181) Installing libpng (1.6.43-r0) (11/181) Installing freetype (2.13.2-r0) (12/181) Installing fontconfig (2.15.0-r1) (13/181) Installing pixman (0.43.2-r0) (14/181) Installing cairo (1.18.0-r0) (15/181) Installing dbus-libs (1.14.10-r1) (16/181) Installing libffi (3.4.6-r0) (17/181) Installing libintl (0.22.5-r0) (18/181) Installing libeconf (0.6.2-r0) (19/181) Installing libblkid (2.40-r2) (20/181) Installing libmount (2.40-r2) (21/181) Installing glib (2.80.0-r3) (22/181) Installing libxft (2.3.8-r3) (23/181) Installing fribidi (1.0.14-r0) (24/181) Installing graphite2 (1.3.14-r6) (25/181) Installing harfbuzz (8.4.0-r0) (26/181) Installing pango (1.52.2-r0) (27/181) Installing wayland-libs-client (1.22.0-r4) (28/181) Installing wayland-libs-cursor (1.22.0-r4) (29/181) Installing libdecor (0.2.2-r0) (30/181) Installing expat (2.6.2-r0) (31/181) Installing expat-dev (2.6.2-r0) (32/181) Installing linux-headers (6.6-r0) (33/181) Installing libffi-dev (3.4.6-r0) (34/181) Installing xz-libs (5.6.1-r3) (35/181) Installing libxml2 (2.12.6-r2) (36/181) Installing wayland-libs-egl (1.22.0-r4) (37/181) Installing wayland-libs-server (1.22.0-r4) (38/181) Installing wayland-dev (1.22.0-r4) (39/181) Installing libdecor-dev (0.2.2-r0) (40/181) Installing libformw (6.4_p20240330-r0) (41/181) Installing libmenuw (6.4_p20240330-r0) (42/181) Installing libpanelw (6.4_p20240330-r0) (43/181) Installing libncurses++ (6.4_p20240330-r0) (44/181) Installing ncurses-dev (6.4_p20240330-r0) (45/181) Installing sbcl (2.4.3-r0) (46/181) Installing sdl2 (2.28.5-r1) (47/181) Installing hwdata-pci (0.381-r0) (48/181) Installing libpciaccess (0.18.1-r0) (49/181) Installing libdrm (2.4.120-r0) (50/181) Installing libpciaccess-dev (0.18.1-r0) (51/181) Installing libdrm-dev (2.4.120-r0) (52/181) Installing xorgproto (2024.1-r0) (53/181) Installing libxau-dev (1.0.11-r4) (54/181) Installing gdbm (1.23-r1) (55/181) Installing mpdecimal (4.0.0-r0) (56/181) Installing readline (8.2.10-r0) (57/181) Installing sqlite-libs (3.45.3-r0) (58/181) Installing python3 (3.12.3-r1) (59/181) Installing python3-pycache-pyc0 (3.12.3-r1) (60/181) Installing pyc (3.12.3-r1) (61/181) Installing xcb-proto-pyc (1.16.0-r1) (62/181) Installing python3-pyc (3.12.3-r1) (63/181) Installing xcb-proto (1.16.0-r1) (64/181) Installing libxdmcp-dev (1.1.5-r1) (65/181) Installing libxcb-dev (1.16.1-r0) (66/181) Installing xtrans (1.5.0-r0) (67/181) Installing libx11-dev (1.8.9-r1) (68/181) Installing libxext-dev (1.3.6-r2) (69/181) Installing libxdamage (1.1.6-r5) (70/181) Installing libxfixes (6.0.1-r4) (71/181) Installing libxfixes-dev (6.0.1-r4) (72/181) Installing libxdamage-dev (1.1.6-r5) (73/181) Installing libxshmfence (1.3.2-r6) (74/181) Installing libxshmfence-dev (1.3.2-r6) (75/181) Installing mesa (24.0.5-r0) (76/181) Installing mesa-gbm (24.0.5-r0) (77/181) Installing mesa-glapi (24.0.5-r0) (78/181) Installing mesa-egl (24.0.5-r0) (79/181) Installing libxxf86vm (1.1.5-r6) (80/181) Installing mesa-gl (24.0.5-r0) (81/181) Installing mesa-gles (24.0.5-r0) (82/181) Installing llvm17-libs (17.0.6-r1) (83/181) Installing mesa-osmesa (24.0.5-r0) (84/181) Installing clang17-headers (17.0.6-r1) (85/181) Installing libclc (17.0.6-r0) (86/181) Installing spirv-llvm-translator-libs (17.0.0-r0) (87/181) Installing spirv-tools (1.3.261.1-r0) (88/181) Installing clang17-libs (17.0.6-r1) (89/181) Installing libelf (0.191-r0) (90/181) Installing mesa-rusticl (24.0.5-r0) (91/181) Installing mesa-xatracker (24.0.5-r0) (92/181) Installing libxxf86vm-dev (1.1.5-r6) (93/181) Installing mesa-dev (24.0.5-r0) (94/181) Installing sdl2-dev (2.28.5-r1) (95/181) Installing sdl2_image (2.8.2-r0) (96/181) Installing sdl2_image-dev (2.8.2-r0) (97/181) Installing brotli (1.1.0-r2) (98/181) Installing brotli-dev (1.1.0-r2) (99/181) Installing zlib-dev (1.3.1-r1) (100/181) Installing libpng-dev (1.6.43-r0) (101/181) Installing freetype-dev (2.13.2-r0) (102/181) Installing harfbuzz-cairo (8.4.0-r0) (103/181) Installing harfbuzz-gobject (8.4.0-r0) (104/181) Installing icu-data-en (74.2-r0) Executing icu-data-en-74.2-r0.post-install * * If you need ICU with non-English locales and legacy charset support, install * package icu-data-full. * (105/181) Installing icu-libs (74.2-r0) (106/181) Installing harfbuzz-icu (8.4.0-r0) (107/181) Installing harfbuzz-subset (8.4.0-r0) (108/181) Installing cairo-tools (1.18.0-r0) (109/181) Installing fontconfig-dev (2.15.0-r1) (110/181) Installing libxrender-dev (0.9.11-r5) (111/181) Installing pixman-dev (0.43.2-r0) (112/181) Installing util-macros (1.20.0-r0) (113/181) Installing xcb-util (0.4.1-r3) (114/181) Installing xcb-util-dev (0.4.1-r3) (115/181) Installing cairo-gobject (1.18.0-r0) (116/181) Installing bzip2-dev (1.0.8-r6) (117/181) Installing libxml2-utils (2.12.6-r2) (118/181) Installing docbook-xml (4.5-r9) Executing docbook-xml-4.5-r9.post-install (119/181) Installing libgpg-error (1.48-r0) (120/181) Installing libgcrypt (1.10.3-r0) (121/181) Installing libxslt (1.1.39-r1) (122/181) Installing docbook-xsl (1.79.2-r9) Executing docbook-xsl-1.79.2-r9.post-install (123/181) Installing xz (5.6.1-r3) (124/181) Installing gettext-asprintf (0.22.5-r0) (125/181) Installing gettext-libs (0.22.5-r0) (126/181) Installing gettext-envsubst (0.22.5-r0) (127/181) Installing gettext (0.22.5-r0) (128/181) Installing gettext-dev (0.22.5-r0) (129/181) Installing py3-parsing (3.1.2-r1) (130/181) Installing py3-parsing-pyc (3.1.2-r1) (131/181) Installing py3-packaging (24.0-r1) (132/181) Installing py3-packaging-pyc (24.0-r1) (133/181) Installing bsd-compat-headers (0.7.2-r6) (134/181) Installing libedit-dev (20230828.3.1-r4) (135/181) Installing libpcre2-16 (10.43-r0) (136/181) Installing libpcre2-32 (10.43-r0) (137/181) Installing pcre2-dev (10.43-r0) (138/181) Installing libuuid (2.40-r2) (139/181) Installing libfdisk (2.40-r2) (140/181) Installing libsmartcols (2.40-r2) (141/181) Installing sqlite (3.45.3-r0) (142/181) Installing sqlite-dev (3.45.3-r0) (143/181) Installing util-linux (2.40-r2) (144/181) Installing setarch (2.40-r2) (145/181) Installing util-linux-misc (2.40-r2) (146/181) Installing skalibs (2.14.1.1-r0) (147/181) Installing utmps-libs (0.1.2.2-r1) (148/181) Installing linux-pam (1.6.0-r0) (149/181) Installing runuser (2.40-r2) (150/181) Installing mount (2.40-r2) (151/181) Installing losetup (2.40-r2) (152/181) Installing hexdump (2.40-r2) (153/181) Installing uuidgen (2.40-r2) (154/181) Installing blkid (2.40-r2) (155/181) Installing sfdisk (2.40-r2) (156/181) Installing mcookie (2.40-r2) (157/181) Installing agetty (2.40-r2) (158/181) Installing wipefs (2.40-r2) (159/181) Installing cfdisk (2.40-r2) (160/181) Installing umount (2.40-r2) (161/181) Installing flock (2.40-r2) (162/181) Installing lsblk (2.40-r2) (163/181) Installing libcap-ng (0.8.4-r0) (164/181) Installing setpriv (2.40-r2) (165/181) Installing logger (2.40-r2) (166/181) Installing partx (2.40-r2) (167/181) Installing fstrim (2.40-r2) (168/181) Installing findmnt (2.40-r2) (169/181) Installing util-linux-dev (2.40-r2) (170/181) Installing glib-dev (2.80.0-r3) (171/181) Installing cairo-dev (1.18.0-r0) (172/181) Installing graphite2-dev (1.3.14-r6) (173/181) Installing icu (74.2-r0) (174/181) Installing icu-dev (74.2-r0) (175/181) Installing harfbuzz-dev (8.4.0-r0) (176/181) Installing sdl2_ttf (2.20.2-r0) (177/181) Installing sdl2_ttf-dev (2.20.2-r0) (178/181) Installing roswell (22.12.14.113-r0) (179/181) Installing .makedepends-lem (20240429.145532) (180/181) Installing util-linux-openrc (2.40-r2) (181/181) Installing agetty-openrc (0.54-r1) Executing busybox-1.36.1-r26.trigger Executing glib-2.80.0-r3.trigger No schema files found: doing nothing. OK: 978 MiB in 288 packages >>> lem: Cleaning up srcdir >>> lem: Cleaning up pkgdir >>> lem: Cleaning up tmpdir >>> lem: Fetching https://distfiles.alpinelinux.org/distfiles/edge/lem-2.2.0.tar.gz % Total % Received % Xferd Average Speed Time Time Time Current Dload Upload Total Spent Left Speed 0 0 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0 0 0 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0 0 146 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0 curl: (56) The requested URL returned error: 404 >>> lem: Fetching https://github.com/lem-project/lem/archive/refs/tags/v2.2.0/lem-2.2.0.tar.gz % Total % Received % Xferd Average Speed Time Time Time Current Dload Upload Total Spent Left Speed 0 0 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0 0 0 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0 100 3561k 0 3561k 0 0 3929k 0 --:--:-- --:--:-- --:--:-- 3929k 100 10.6M 0 10.6M 0 0 5698k 0 --:--:-- 0:00:01 --:--:-- 7303k 100 16.8M 0 16.8M 0 0 5954k 0 --:--:-- 0:00:02 --:--:-- 6873k 100 23.8M 0 23.8M 0 0 6242k 0 --:--:-- 0:00:03 --:--:-- 6938k 100 31.1M 0 31.1M 0 0 6461k 0 --:--:-- 0:00:04 --:--:-- 7033k 100 38.4M 0 38.4M 0 0 6660k 0 --:--:-- 0:00:05 --:--:-- 7155k 100 43.1M 0 43.1M 0 0 6741k 0 --:--:-- 0:00:06 --:--:-- 7169k >>> lem: Fetching https://distfiles.alpinelinux.org/distfiles/edge/qlot-1.5.1.tar.gz % Total % Received % Xferd Average Speed Time Time Time Current Dload Upload Total Spent Left Speed 0 0 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0 0 146 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0 curl: (56) The requested URL returned error: 404 >>> lem: Fetching https://github.com/fukamachi/qlot/releases/download/1.5.1/qlot-1.5.1.tar.gz % Total % Received % Xferd Average Speed Time Time Time Current Dload Upload Total Spent Left Speed 0 0 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0 0 0 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0 0 0 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0 100 8925k 100 8925k 0 0 11.1M 0 --:--:-- --:--:-- --:--:-- 15.9M >>> lem: Fetching https://distfiles.alpinelinux.org/distfiles/edge/lem-2.2.0.tar.gz >>> lem: Fetching https://distfiles.alpinelinux.org/distfiles/edge/qlot-1.5.1.tar.gz >>> lem: Checking sha512sums... lem-2.2.0.tar.gz: OK qlot-1.5.1.tar.gz: OK aarch64-disable-timer-tests_patch: OK build-ncurses.lisp: OK build-sdl2.lisp: OK general.lisp: OK lem.desktop: OK >>> lem: Unpacking /var/cache/distfiles/edge/lem-2.2.0.tar.gz... >>> lem: Unpacking /var/cache/distfiles/edge/qlot-1.5.1.tar.gz... WARNING: redefining UIOP/STREAM:OUTPUT-STRING in DEFUN ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/alexandria-20231021-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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cffi-20231021-git/toolchain/c-toolchain.lisp ; in: DEFUN DEFAULT-TOOLCHAIN-PARAMETERS ; '("-m32") ; ; note: deleting unreachable code ; (OR (UIOP/OS:GETENVP "CC") "cc" "gcc") ; --> IF LET IF ; ==> ; "gcc" ; ; note: deleting unreachable code ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/babel-20230214-git/src/enc-ebcdic.lisp ; in: DEFUN BABEL-ENCODINGS::EBCDIC-FI-ENCODER ; (BABEL-ENCODINGS::HANDLE-ERROR) ; ; caught STYLE-WARNING: ; undefined function: BABEL-ENCODINGS::HANDLE-ERROR ; ; compilation unit finished ; Undefined function: ; BABEL-ENCODINGS::HANDLE-ERROR ; caught 1 STYLE-WARNING condition ; printed 3 notes ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-utilities-1.2.4/extremum.lisp ; in: DEFUN COMPARATOR ; (FUNCALL CL-UTILITIES::TEST (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::A) ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::B)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST is not known to be a function ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::A) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; KEY is not known to be a function ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::B) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; KEY is not known to be a function ; in: DEFUN EXTREMUM ; (DEFUN CL-UTILITIES:EXTREMUM ; (SEQUENCE CL-UTILITIES::PREDICATE ; &KEY (CL-UTILITIES::KEY #'IDENTITY) (CL-UTILITIES::START 0) ; CL-UTILITIES::END) ; #<(SIMPLE-ARRAY CHARACTER ; (225)) Returns the element of SEQUENCE that would appear first if the ; sequence were ordered according to SORT using PREDICATE and KEY using ; an unstable sorting algorithm. See http://www.cliki.net/EXTREMUM fo... {100CA8907F}> ; (CL-UTILITIES::WITH-CHECK-LENGTH (SEQUENCE CL-UTILITIES::START ; CL-UTILITIES::END) ; (REDUCE ; (CL-UTILITIES::COMPARATOR CL-UTILITIES::PREDICATE CL-UTILITIES::KEY) ; SEQUENCE :START CL-UTILITIES::START :END CL-UTILITIES::END))) ; ==> ; (SB-IMPL::%DEFUN 'CL-UTILITIES:EXTREMUM ; (SB-INT:NAMED-LAMBDA CL-UTILITIES:EXTREMUM ; (SEQUENCE CL-UTILITIES::PREDICATE &KEY ; (CL-UTILITIES::KEY #'IDENTITY) (CL-UTILITIES::START 0) ; CL-UTILITIES::END) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (225)) Returns the element of SEQUENCE that would appear first if the ; sequence were ordered according to SORT using PREDICATE and KEY using ; an unstable sorting algorithm. See http://www.cliki.net/EXTREMUM fo... {100CA8907F}> ; (BLOCK CL-UTILITIES:EXTREMUM ; (CL-UTILITIES::WITH-CHECK-LENGTH (SEQUENCE ; CL-UTILITIES::START ; CL-UTILITIES::END) ; (REDUCE # SEQUENCE :START CL-UTILITIES::START :END ; CL-UTILITIES::END))))) ; ; caught STYLE-WARNING: ; Call to CL-UTILITIES::ZERO-LENGTH-P could not be inlined because its source ; code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be ; in effect to save function definitions for inlining. ; in: DEFUN EXTREMUM-FASTKEY ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::X) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; KEY is not known to be a function ; (FUNCALL CL-UTILITIES::PREDICATE CL-UTILITIES::X-KEY ; CL-UTILITIES::SMALLEST-KEY) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; PREDICATE is not known to be a function ; (CL-UTILITIES::WITH-CHECK-LENGTH (SEQUENCE CL-UTILITIES::START ; CL-UTILITIES::END) ; (LET* ((CL-UTILITIES::SMALLEST (ELT SEQUENCE 0)) ; (CL-UTILITIES::SMALLEST-KEY ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::SMALLEST)) ; (CL-UTILITIES::CURRENT-INDEX 0) ; (CL-UTILITIES::REAL-END (OR CL-UTILITIES::END #))) ; (DECLARE ; (TYPE (INTEGER 0) CL-UTILITIES::CURRENT-INDEX CL-UTILITIES::REAL-END ; CL-UTILITIES::START) ; (FIXNUM CL-UTILITIES::CURRENT-INDEX CL-UTILITIES::REAL-END ; CL-UTILITIES::START)) ; (MAP NIL ; #'(LAMBDA (CL-UTILITIES::X) ; (WHEN # #) ; (INCF CL-UTILITIES::CURRENT-INDEX)) ; SEQUENCE) ; CL-UTILITIES::SMALLEST)) ; --> IF OR LET IF >= OR LET IF ; ==> ; (LENGTH #:SEQUENCE1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> IF OR LET IF ; ==> ; (>= #:START2 (OR #:END3 (LENGTH #:SEQUENCE1))) ; ; 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. ; (ELT SEQUENCE 0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::SMALLEST) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; KEY is not known to be a function ; (CL-UTILITIES::WITH-CHECK-LENGTH (SEQUENCE CL-UTILITIES::START ; CL-UTILITIES::END) ; (LET* ((CL-UTILITIES::SMALLEST (ELT SEQUENCE 0)) ; (CL-UTILITIES::SMALLEST-KEY ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::SMALLEST)) ; (CL-UTILITIES::CURRENT-INDEX 0) ; (CL-UTILITIES::REAL-END (OR CL-UTILITIES::END #))) ; (DECLARE ; (TYPE (INTEGER 0) CL-UTILITIES::CURRENT-INDEX CL-UTILITIES::REAL-END ; CL-UTILITIES::START) ; (FIXNUM CL-UTILITIES::CURRENT-INDEX CL-UTILITIES::REAL-END ; CL-UTILITIES::START)) ; (MAP NIL ; #'(LAMBDA (CL-UTILITIES::X) ; (WHEN # #) ; (INCF CL-UTILITIES::CURRENT-INDEX)) ; SEQUENCE) ; CL-UTILITIES::SMALLEST)) ; --> IF OR LET IF ; ==> ; (>= #:START2 (OR #:END3 (LENGTH #:SEQUENCE1))) ; ; 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. WARNING: Lisp compilation had style-warnings while compiling # ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-utilities-1.2.4/expt-mod.lisp ; in: DEFUN EXPT-MOD ; (EXPT CL-UTILITIES::N CL-UTILITIES::EXPONENT) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a INTEGER. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a INTEGER. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR RATIONAL (COMPLEX RATIONAL)). ; The second argument is a NUMBER, not a INTEGER. ; (MOD (EXPT CL-UTILITIES::N CL-UTILITIES::EXPONENT) CL-UTILITIES::MODULUS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/flexi-streams-20220220-git/util.lisp ; in: DEFUN GET-MULTIBYTE-MAPPER ; (AREF FLEXI-STREAMS::TABLE FLEXI-STREAMS::M 0) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (ARRAY * (* 2)), not a SIMPLE-ARRAY. ; (AREF FLEXI-STREAMS::TABLE FLEXI-STREAMS::M 1) ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (ARRAY * (* 2)), not a SIMPLE-ARRAY. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/flexi-streams-20220220-git/external-format.lisp ; in: DEFUN EXTERNAL-FORMAT-EQUAL ; (EQL (FLEXI-STREAMS:EXTERNAL-FORMAT-ID FLEXI-STREAMS::EF1) ; (FLEXI-STREAMS:EXTERNAL-FORMAT-ID FLEXI-STREAMS::EF2)) ; ; 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/flexi-streams-20220220-git/length.lisp ; in: DEFMETHOD ENCODING-FACTOR (FLEXI-CRLF-MIXIN) ; (* 1.02d0 (CALL-NEXT-METHOD)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline float arithmetic (cost 5) because: ; The first argument is a T, not a DOUBLE-FLOAT. ; The result is a (VALUES (OR DOUBLE-FLOAT (COMPLEX DOUBLE-FLOAT)) ; &OPTIONAL), not a (VALUES DOUBLE-FLOAT &OPTIONAL). ; unable to do inline float arithmetic (cost 5) because: ; The first argument is a T, not a (COMPLEX DOUBLE-FLOAT). ; The result is a (VALUES (OR DOUBLE-FLOAT (COMPLEX DOUBLE-FLOAT)) ; &OPTIONAL), not a (VALUES (COMPLEX DOUBLE-FLOAT) ; &OPTIONAL). ; in: DEFGENERIC CHECK-END ; (- FLEXI-STREAMS::I FLEXI-STREAMS::END) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-8-BIT-FORMAT T T T) ; (- FLEXI-STREAMS::END FLEXI-STREAMS::START) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-CRLF-MIXIN T T T) ; (SEARCH #(13 10) SEQUENCE :START2 FLEXI-STREAMS::I :END2 FLEXI-STREAMS::END ; :TEST #'=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-UTF-8-FORMAT T T T) ; (AREF SEQUENCE FLEXI-STREAMS::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-CRLF-UTF-8-FORMAT T T T) ; (AREF SEQUENCE FLEXI-STREAMS::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: ; DEFMETHOD COMPUTE-NUMBER-OF-CHARS :BEFORE (FLEXI-UTF-16-FORMAT T T T) ; (- FLEXI-STREAMS::END FLEXI-STREAMS::START) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-UTF-16-LE-FORMAT T T T) ; (AREF SEQUENCE (1+ FLEXI-STREAMS::I)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-UTF-16-BE-FORMAT T T T) ; (AREF SEQUENCE FLEXI-STREAMS::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: ; DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-CRLF-UTF-16-LE-FORMAT T T T) ; (AREF SEQUENCE (1+ FLEXI-STREAMS::I)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (AREF SEQUENCE FLEXI-STREAMS::I) ; ; 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. ; in: ; DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-CRLF-UTF-16-BE-FORMAT T T T) ; (AREF SEQUENCE FLEXI-STREAMS::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (AREF SEQUENCE (1+ FLEXI-STREAMS::I)) ; ; 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. ; in: DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-GBK-FORMAT T T T) ; (AREF SEQUENCE FLEXI-STREAMS::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-CRLF-GBK-FORMAT T T T) ; (AREF SEQUENCE FLEXI-STREAMS::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: ; DEFMETHOD COMPUTE-NUMBER-OF-CHARS :BEFORE (FLEXI-UTF-32-FORMAT T T T) ; (- FLEXI-STREAMS::END FLEXI-STREAMS::START) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-UTF-32-FORMAT T T T) ; (CEILING (- FLEXI-STREAMS::END FLEXI-STREAMS::START) 4) ; ; note: forced to do +/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -9223372036854775804 9223372036854775810) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -9223372036854775804 9223372036854775810) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (INTEGER -9223372036854775804 9223372036854775810), not a FIXNUM. ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER -9223372036854775804 9223372036854775810), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER -2305843009213693951 2305843009213693952) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: ; DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-CRLF-UTF-32-LE-FORMAT T T T) ; (AREF SEQUENCE FLEXI-STREAMS::J) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (= FLEXI-STREAMS:OCTET (AREF SEQUENCE FLEXI-STREAMS::J)) ; ; note: unable to open code because: The operands might not be the same type. ; (CEILING (- FLEXI-STREAMS::END FLEXI-STREAMS::START) 4) ; ; note: forced to do +/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -9223372036854775804 9223372036854775810) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -9223372036854775804 9223372036854775810) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (INTEGER -9223372036854775804 9223372036854775810), not a FIXNUM. ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER -9223372036854775804 9223372036854775810), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER -2305843009213693951 2305843009213693952) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (DECF LENGTH) ; --> THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * 2305843009213693952), not a FIXNUM. ; The result is a (VALUES (INTEGER * 2305843009213693951) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER * 2305843009213693952), not a FIXNUM. ; The result is a (VALUES (INTEGER * 2305843009213693951) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. ; in: ; DEFMETHOD COMPUTE-NUMBER-OF-CHARS (FLEXI-CRLF-UTF-32-BE-FORMAT T T T) ; (AREF SEQUENCE FLEXI-STREAMS::J) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (= FLEXI-STREAMS:OCTET (AREF SEQUENCE FLEXI-STREAMS::J)) ; ; note: unable to open code because: The operands might not be the same type. ; (CEILING (- FLEXI-STREAMS::END FLEXI-STREAMS::START) 4) ; ; note: forced to do +/SIGNED=>INTEGER (cost 7) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -9223372036854775804 9223372036854775810) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -9223372036854775804 9223372036854775810) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (INTEGER -9223372036854775804 9223372036854775810), not a FIXNUM. ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER -9223372036854775804 9223372036854775810), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER -2305843009213693951 2305843009213693952) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (DECF LENGTH) ; --> THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * 2305843009213693952), not a FIXNUM. ; The result is a (VALUES (INTEGER * 2305843009213693951) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER * 2305843009213693952), not a FIXNUM. ; The result is a (VALUES (INTEGER * 2305843009213693951) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-8-BIT-FORMAT T T T) ; (- FLEXI-STREAMS::END FLEXI-STREAMS::START) ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-GBK-FORMAT T T T) ; (CHAR STRING FLEXI-STREAMS::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-CRLF-GBK-FORMAT T T T) ; (CHAR STRING FLEXI-STREAMS::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-UTF-8-FORMAT T T T) ; (CHAR STRING FLEXI-STREAMS::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-CRLF-UTF-8-FORMAT T T T) ; (CHAR STRING FLEXI-STREAMS::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-UTF-16-FORMAT T T T) ; (CHAR STRING FLEXI-STREAMS::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: ; DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-CRLF-UTF-16-LE-FORMAT T T T) ; (CHAR STRING FLEXI-STREAMS::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: ; DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-CRLF-UTF-16-BE-FORMAT T T T) ; (CHAR STRING FLEXI-STREAMS::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-UTF-32-FORMAT T T T) ; (* 4 (- FLEXI-STREAMS::END FLEXI-STREAMS::START)) ; ; note: forced to do */SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (OR (INTEGER 4 36893488147419103228) ; (INTEGER -36893488147419103228 -4) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -9223372036854775807 9223372036854775807), not a FIXNUM. ; The result is a (VALUES ; (OR (INTEGER 4 36893488147419103228) ; (INTEGER -36893488147419103228 -4) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; in: DEFMETHOD COMPUTE-NUMBER-OF-OCTETS (FLEXI-CRLF-MIXIN T T T) ; (+ (CALL-NEXT-METHOD) ; (* ; (CASE (FLEXI-STREAMS:EXTERNAL-FORMAT-NAME FORMAT) ; (:UTF-32 4) ; (OTHERWISE 1)) ; (COUNT #\Newline STRING :START FLEXI-STREAMS::START :END ; FLEXI-STREAMS::END :TEST #'CHAR=))) ; ; 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: ; DEFMETHOD CHARACTER-LENGTH :AROUND (FLEXI-CRLF-MIXIN (EQL #\Newline)) ; (+ (CALL-NEXT-METHOD FORMAT FLEXI-STREAMS::+CR+) ; (CALL-NEXT-METHOD FORMAT FLEXI-STREAMS::+LF+)) ; ; 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: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/flexi-streams-20220220-git/encode.lisp ; in: ; DEFINE-CHAR-ENCODERS (FLEXI-LATIN-1-FORMAT FLEXI-CR-LATIN-1-FORMAT ; FLEXI-CRLF-LATIN-1-FORMAT) ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not a LATIN-1 character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-LATIN-1-FORMAT ; FLEXI-STREAMS::FLEXI-CR-LATIN-1-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-LATIN-1-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (WHEN (> FLEXI-STREAMS:OCTET 255) ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not a LATIN-1 character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET)) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not a LATIN-1 character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not a LATIN-1 character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-LATIN-1-FORMAT ; FLEXI-STREAMS::FLEXI-CR-LATIN-1-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-LATIN-1-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (WHEN (> FLEXI-STREAMS:OCTET 255) ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not a LATIN-1 character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET)) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY LET WHEN IF ; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET WHEN IF ; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET WHEN IF ; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; in: ; DEFINE-CHAR-ENCODERS (FLEXI-ASCII-FORMAT FLEXI-CR-ASCII-FORMAT ; FLEXI-CRLF-ASCII-FORMAT) ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not an ASCII character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (WHEN (> FLEXI-STREAMS:OCTET 127) ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not an ASCII character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET)) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not an ASCII character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not an ASCII character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (WHEN (> FLEXI-STREAMS:OCTET 127) ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not an ASCII character." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET)) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY LET WHEN IF ; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET WHEN IF ; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET WHEN IF ; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; in: ; DEFINE-CHAR-ENCODERS (FLEXI-8-BIT-FORMAT FLEXI-CR-8-BIT-FORMAT ; FLEXI-CRLF-8-BIT-FORMAT) ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not in this encoding." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT) ; (WITH-ACCESSORS ((FLEXI-STREAMS::ENCODING-HASH ; FLEXI-STREAMS::EXTERNAL-FORMAT-ENCODING-HASH)) ; FORMAT ; (LET ((FLEXI-STREAMS:OCTET #)) ; (UNLESS FLEXI-STREAMS:OCTET ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not in this encoding." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET)) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not in this encoding." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not in this encoding." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT) ; (WITH-ACCESSORS ((FLEXI-STREAMS::ENCODING-HASH ; FLEXI-STREAMS::EXTERNAL-FORMAT-ENCODING-HASH)) ; FORMAT ; (LET ((FLEXI-STREAMS:OCTET #)) ; (UNLESS FLEXI-STREAMS:OCTET ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not in this encoding." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET)) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY WITH-ACCESSORS LET SYMBOL-MACROLET LET ; --> GETHASH ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY WITH-ACCESSORS LET SYMBOL-MACROLET LET ; --> UNLESS IF FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY WITH-ACCESSORS LET ; --> SYMBOL-MACROLET LET GETHASH ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY WITH-ACCESSORS LET ; --> SYMBOL-MACROLET LET UNLESS IF FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY WITH-ACCESSORS LET ; --> SYMBOL-MACROLET LET GETHASH ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY WITH-ACCESSORS LET ; --> SYMBOL-MACROLET LET UNLESS IF FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; in: ; DEFINE-CHAR-ENCODERS (FLEXI-UTF-8-FORMAT FLEXI-CR-UTF-8-FORMAT ; FLEXI-CRLF-UTF-8-FORMAT) ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT) ; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (TAGBODY ; (COND (# # #) (# # #) (# # #) (T #)) ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #)) ; FLEXI-STREAMS::TWO ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #)) ; FLEXI-STREAMS::ONE ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #)) ; FLEXI-STREAMS::ZERO))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT) ; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (TAGBODY ; (COND (# # #) (# # #) (# # #) (T #)) ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #)) ; FLEXI-STREAMS::TWO ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #)) ; FLEXI-STREAMS::ONE ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGIOR* 128 #)) ; FLEXI-STREAMS::ZERO))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; in: ; DEFINE-CHAR-ENCODERS (FLEXI-UTF-16-LE-FORMAT FLEXI-CR-UTF-16-LE-FORMAT ; FLEXI-CRLF-UTF-16-LE-FORMAT) ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-16-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-16-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-LE-FORMAT) ; (FLET ((FLEXI-STREAMS::WRITE-WORD (FLEXI-STREAMS::WORD) ; (FLEXI-STREAMS::OCTET-WRITER #) ; (FLEXI-STREAMS::OCTET-WRITER #))) ; (DECLARE (INLINE FLEXI-STREAMS::WRITE-WORD)) ; (LET ((CHAR-CODE #)) ; (DECLARE (TYPE FLEXI-STREAMS::CHAR-CODE-INTEGER CHAR-CODE)) ; (COND (# #) (T # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-16-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-16-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-LE-FORMAT) ; (FLET ((FLEXI-STREAMS::WRITE-WORD (FLEXI-STREAMS::WORD) ; (FLEXI-STREAMS::OCTET-WRITER #) ; (FLEXI-STREAMS::OCTET-WRITER #))) ; (DECLARE (INLINE FLEXI-STREAMS::WRITE-WORD)) ; (LET ((CHAR-CODE #)) ; (DECLARE (TYPE FLEXI-STREAMS::CHAR-CODE-INTEGER CHAR-CODE)) ; (COND (# #) (T # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET CHAR-CODE ; --> LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET CHAR-CODE ; --> LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; in: ; DEFINE-CHAR-ENCODERS (FLEXI-UTF-16-BE-FORMAT FLEXI-CR-UTF-16-BE-FORMAT ; FLEXI-CRLF-UTF-16-BE-FORMAT) ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-16-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-16-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-BE-FORMAT) ; (FLET ((FLEXI-STREAMS::WRITE-WORD (FLEXI-STREAMS::WORD) ; (FLEXI-STREAMS::OCTET-WRITER #) ; (FLEXI-STREAMS::OCTET-WRITER #))) ; (DECLARE (INLINE FLEXI-STREAMS::WRITE-WORD)) ; (LET ((CHAR-CODE #)) ; (DECLARE (TYPE FLEXI-STREAMS::CHAR-CODE-INTEGER CHAR-CODE)) ; (COND (# #) (T # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-16-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-16-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-BE-FORMAT) ; (FLET ((FLEXI-STREAMS::WRITE-WORD (FLEXI-STREAMS::WORD) ; (FLEXI-STREAMS::OCTET-WRITER #) ; (FLEXI-STREAMS::OCTET-WRITER #))) ; (DECLARE (INLINE FLEXI-STREAMS::WRITE-WORD)) ; (LET ((CHAR-CODE #)) ; (DECLARE (TYPE FLEXI-STREAMS::CHAR-CODE-INTEGER CHAR-CODE)) ; (COND (# #) (T # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET CHAR-CODE ; --> LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET CHAR-CODE ; --> LET FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; in: ; DEFINE-CHAR-ENCODERS (FLEXI-GBK-FORMAT FLEXI-CR-GBK-FORMAT ; FLEXI-CRLF-GBK-FORMAT) ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not in this encoding." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (IF (<= FLEXI-STREAMS:OCTET 127) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET) ; (FLET (#) ; (DECLARE #) ; (DECLARE #) ; (COND # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not in this encoding." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::SIGNAL-ENCODING-ERROR FORMAT ; "~S (code ~A) is not in this encoding." ; FLEXI-STREAMS::CHAR-GETTER ; FLEXI-STREAMS:OCTET) ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (IF (<= FLEXI-STREAMS:OCTET 127) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET) ; (FLET (#) ; (DECLARE #) ; (DECLARE #) ; (COND # # #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY LET IF FLET COND IF IF THE LET IF ; --> FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET IF FLET COND IF ; --> IF THE LET IF FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET IF FLET COND IF ; --> IF THE LET IF FLEXI-STREAMS::SIGNAL-ENCODING-ERROR LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY FLET ; ==> ; (#:WRITE-CHAR2 (#:CHAR1) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE #:CHAR1))) ; (IF (<= FLEXI-STREAMS:OCTET 127) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET) ; (FLET (#) ; (DECLARE #) ; (DECLARE #) ; (COND # # #))))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OBJECT BLOCK ETYPECASE LET COND IF ; --> IF SYMBOL-MACROLET LOCALLY FLET ; ==> ; (#:WRITE-CHAR2 (#:CHAR1) ; (LET ((FLEXI-STREAMS:OCTET (CHAR-CODE #:CHAR1))) ; (IF (<= FLEXI-STREAMS:OCTET 127) ; (FLEXI-STREAMS::OCTET-WRITER FLEXI-STREAMS:OCTET) ; (FLET (#) ; (DECLARE #) ; (DECLARE #) ; (COND # # #))))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; in: ; DEFINE-CHAR-ENCODERS (FLEXI-UTF-32-LE-FORMAT FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-CRLF-UTF-32-LE-FORMAT) ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGAND* 255 CHAR-CODE)) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -8))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -16))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -24))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGAND* 255 CHAR-CODE)) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -8))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -16))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -24))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; in: ; DEFINE-CHAR-ENCODERS (FLEXI-UTF-32-BE-FORMAT FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-CRLF-UTF-32-BE-FORMAT) ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -24))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -16))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -8))) ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGAND* 255 CHAR-CODE)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER) ; --> CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-ENCODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET ((CHAR-CODE (CHAR-CODE FLEXI-STREAMS::CHAR-GETTER))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -24))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -16))) ; (FLEXI-STREAMS::OCTET-WRITER ; (FLEXI-STREAMS::LOGAND* 255 (FLEXI-STREAMS::ASH* CHAR-CODE -8))) ; (FLEXI-STREAMS::OCTET-WRITER (FLEXI-STREAMS::LOGAND* 255 CHAR-CODE)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY LET CHAR-CODE LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET LOOP BLOCK LET TAGBODY MACROLET ; --> SYMBOL-MACROLET PROGN LOCALLY FLET LET FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS FLEXI-STREAMS::WRITE-OCTET BLOCK SETF LET* FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE ; --> LOOP BLOCK LET TAGBODY PROGN SYMBOL-MACROLET LOCALLY FLET LET ; --> FLEXI-STREAMS::CHAR-GETTER AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET POSITION ; ==> ; 1 ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a LIST. ; ; note: unable to ; expand inline ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a BIT-VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST VECTOR), not a STRING. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; 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 (INTEGER -9223372036854775807 ; 9223372036854775807), 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> MACROLET LABELS SETQ SETF LET* COND IF THE LET COND IF IF ; ==> ; (+ FLEXI-STREAMS::COLUMN (- FLEXI-STREAMS::END FLEXI-STREAMS::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 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-WRITERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the second argument of GENERIC-* ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/flexi-streams-20220220-git/decode.lisp ; in: ; DEFINE-CHAR-DECODERS (FLEXI-LATIN-1-FORMAT FLEXI-CR-LATIN-1-FORMAT ; FLEXI-CRLF-LATIN-1-FORMAT) ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-LATIN-1-FORMAT ; FLEXI-STREAMS::FLEXI-CR-LATIN-1-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-LATIN-1-FORMAT) ; FLEXI-STREAMS::OCTET-GETTER) ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 ; --> LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 ; --> LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET PROGN FLEXI-STREAMS::OCTET-GETTER BLOCK ; --> PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: ; DEFINE-CHAR-DECODERS (FLEXI-ASCII-FORMAT FLEXI-CR-ASCII-FORMAT ; FLEXI-CRLF-ASCII-FORMAT) ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET))) ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET)) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 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. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET)) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 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. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET)) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 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. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CR-ASCII-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-ASCII-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (IF (> (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; FLEXI-STREAMS:OCTET))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: ; DEFINE-CHAR-DECODERS (FLEXI-8-BIT-FORMAT FLEXI-CR-8-BIT-FORMAT ; FLEXI-CRLF-8-BIT-FORMAT) ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT) ; (WITH-ACCESSORS ((FLEXI-STREAMS::DECODING-TABLE ; FLEXI-STREAMS::EXTERNAL-FORMAT-DECODING-TABLE)) ; FORMAT ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET (#) ; (IF # ; # ; CHAR-CODE))))) ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET ((CHAR-CODE (AREF # #))) ; (IF (OR (NULL CHAR-CODE) (= # 65533)) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; CHAR-CODE))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 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. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT) ; (WITH-ACCESSORS ((FLEXI-STREAMS::DECODING-TABLE ; FLEXI-STREAMS::EXTERNAL-FORMAT-DECODING-TABLE)) ; FORMAT ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET (#) ; (IF # ; # ; CHAR-CODE))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET ((CHAR-CODE (AREF # #))) ; (IF (OR (NULL CHAR-CODE) (= # 65533)) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; CHAR-CODE))) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT) ; (WITH-ACCESSORS ((FLEXI-STREAMS::DECODING-TABLE ; FLEXI-STREAMS::EXTERNAL-FORMAT-DECODING-TABLE)) ; FORMAT ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET (#) ; (IF # ; # ; CHAR-CODE))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET ((CHAR-CODE (AREF # #))) ; (IF (OR (NULL CHAR-CODE) (= # 65533)) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; CHAR-CODE))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 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. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT) ; (WITH-ACCESSORS ((FLEXI-STREAMS::DECODING-TABLE ; FLEXI-STREAMS::EXTERNAL-FORMAT-DECODING-TABLE)) ; FORMAT ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET (#) ; (IF # ; # ; CHAR-CODE))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET ((CHAR-CODE (AREF # #))) ; (IF (OR (NULL CHAR-CODE) (= # 65533)) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; CHAR-CODE))) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT) ; (WITH-ACCESSORS ((FLEXI-STREAMS::DECODING-TABLE ; FLEXI-STREAMS::EXTERNAL-FORMAT-DECODING-TABLE)) ; FORMAT ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET (#) ; (IF # ; # ; CHAR-CODE))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET ((CHAR-CODE (AREF # #))) ; (IF (OR (NULL CHAR-CODE) (= # 65533)) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; CHAR-CODE))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 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. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT) ; (WITH-ACCESSORS ((FLEXI-STREAMS::DECODING-TABLE ; FLEXI-STREAMS::EXTERNAL-FORMAT-DECODING-TABLE)) ; FORMAT ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET (#) ; (IF # ; # ; CHAR-CODE))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET ((CHAR-CODE (AREF # #))) ; (IF (OR (NULL CHAR-CODE) (= # 65533)) ; (FLEXI-STREAMS::RECOVER-FROM-ENCODING-ERROR FORMAT ; "No character which corresponds to octet #x~X." FLEXI-STREAMS:OCTET) ; CHAR-CODE))) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CR-8-BIT-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-8-BIT-FORMAT) ; (WITH-ACCESSORS ((FLEXI-STREAMS::DECODING-TABLE ; FLEXI-STREAMS::EXTERNAL-FORMAT-DECODING-TABLE)) ; FORMAT ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (LET (#) ; (IF # ; # ; CHAR-CODE))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: ; DEFINE-CHAR-DECODERS (FLEXI-UTF-8-FORMAT FLEXI-CR-UTF-8-FORMAT ; FLEXI-CRLF-UTF-8-FORMAT) ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (FLET (#) ; (LET # ; # ; #))))) ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 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. ; ; 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. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (FLET (#) ; (LET # ; # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; ; 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. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (FLET (#) ; (LET # ; # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 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. ; ; 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. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (FLET (#) ; (LET # ; # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; ; 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. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (FLET (#) ; (LET # ; # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 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. ; ; 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. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (FLET (#) ; (LET # ; # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; ; 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. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-8-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-8-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (FLET (#) ; (LET # ; # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: ; DEFINE-CHAR-DECODERS (FLEXI-UTF-16-LE-FORMAT FLEXI-CR-UTF-16-LE-FORMAT ; FLEXI-CRLF-UTF-16-LE-FORMAT) ; (FLEXI-STREAMS::READ-NEXT-WORD) ; ; note: implementation limitation: couldn't inline expand because expansion refers to the optimized away object #. ; ; note: deleting unused function ; (SB-C::LOCAL-INLINE READ-NEXT-WORD) ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; --> LET OR ; ==> ; (LET ((#:G40 FLEXI-STREAMS::OCTET-GETTER)) ; (IF #:G40 ; #:G40 ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::OCTETS-TO-CHAR-CODE #)) ; (T (RETURN-FROM FLEXI-STREAMS::OCTETS-TO-CHAR-CODE NIL))))) ; ; note: deleting unused function ; (LET (#:G40)) ; (FLEXI-STREAMS::READ-NEXT-WORD) ; ; note: implementation limitation: couldn't inline expand because expansion refers to the optimized away object #. ; ; note: deleting unused function ; (SB-C::LOCAL-INLINE READ-NEXT-WORD) ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; --> LET OR ; ==> ; (LET ((#:G42 FLEXI-STREAMS::OCTET-GETTER)) ; (IF #:G42 ; #:G42 ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::OCTETS-TO-CHAR-CODE #)) ; (T (RETURN-FROM FLEXI-STREAMS::OCTETS-TO-CHAR-CODE NIL))))) ; ; note: deleting unused function ; (LET (#:G42)) ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 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. ; ; 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. ; ; 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. ; ; 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. ; --> LET OR LET IF COND IF THE RETURN-FROM ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a (MOD 1114112): ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; 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. ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF ; ==> ; 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. ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 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. ; ; 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. ; ; 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. ; ; 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. ; --> LET OR LET IF COND IF THE RETURN-FROM ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a (MOD 1114112): ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; 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. ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF ; ==> ; 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. ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 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. ; ; 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. ; ; 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. ; ; 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. ; --> LET OR LET IF COND IF THE ; ==> ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL) ; ; caught STYLE-WARNING: ; Result is a (VALUES &OPTIONAL NULL &REST T), not a (MOD 1114112). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; 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. ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF ; ==> ; 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. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-16-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-16-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (FLET (#) ; (DECLARE #) ; (LET # ; # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: ; DEFINE-CHAR-DECODERS (FLEXI-UTF-16-BE-FORMAT FLEXI-CR-UTF-16-BE-FORMAT ; FLEXI-CRLF-UTF-16-BE-FORMAT) ; (FLEXI-STREAMS::READ-NEXT-WORD) ; ; note: implementation limitation: couldn't inline expand because expansion refers to the optimized away object #. ; ; note: deleting unused function ; (SB-C::LOCAL-INLINE READ-NEXT-WORD) ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; --> LET OR ; ==> ; (LET ((#:G40 FLEXI-STREAMS::OCTET-GETTER)) ; (IF #:G40 ; #:G40 ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::OCTETS-TO-CHAR-CODE #)) ; (T (RETURN-FROM FLEXI-STREAMS::OCTETS-TO-CHAR-CODE NIL))))) ; ; note: deleting unused function ; (LET (#:G40)) ; (FLEXI-STREAMS::READ-NEXT-WORD) ; ; note: implementation limitation: couldn't inline expand because expansion refers to the optimized away object #. ; ; note: deleting unused function ; (SB-C::LOCAL-INLINE READ-NEXT-WORD) ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; --> LET OR ; ==> ; (LET ((#:G42 FLEXI-STREAMS::OCTET-GETTER)) ; (IF #:G42 ; #:G42 ; (COND ; (FLEXI-STREAMS::FIRST-OCTET-SEEN ; (RETURN-FROM FLEXI-STREAMS::OCTETS-TO-CHAR-CODE #)) ; (T (RETURN-FROM FLEXI-STREAMS::OCTETS-TO-CHAR-CODE NIL))))) ; ; note: deleting unused function ; (LET (#:G42)) ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 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. ; ; 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. ; ; 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. ; ; 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. ; --> LET OR LET IF COND IF THE RETURN-FROM ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a (MOD 1114112): ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; 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. ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF ; ==> ; 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. ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 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. ; ; 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. ; ; 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. ; ; 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. ; --> LET OR LET IF COND IF THE RETURN-FROM ; ==> ; NIL ; ; caught STYLE-WARNING: ; This is not a (MOD 1114112): ; NIL ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; 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. ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF ; ==> ; 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. ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 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. ; ; 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. ; ; 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. ; ; 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. ; --> LET OR LET IF COND IF THE ; ==> ; (RETURN-FROM FLEXI-STREAMS::CHAR-DECODER NIL) ; ; caught STYLE-WARNING: ; Result is a (VALUES &OPTIONAL NULL &REST T), not a (MOD 1114112). ; See also: ; The SBCL Manual, Node "Handling of Types" ; ; 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. ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER AND IF PROG1 LET THE AREF ; ==> ; 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. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-16-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-16-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-16-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (FLET (#) ; (DECLARE #) ; (LET # ; # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: ; DEFINE-CHAR-DECODERS (FLEXI-GBK-FORMAT FLEXI-CR-GBK-FORMAT ; FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733) ; (T ; (LET # ; #))))) ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733) ; (T ; (LET # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733) ; (T ; (LET # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733) ; (T ; (LET # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733) ; (T ; (LET # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; --> FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER) ; --> BLOCK PROG1 LET AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733) ; (T ; (LET # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET IF ; ==> ; (> #:CHAR-CODE0 1114111) ; ; 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. ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ; ((<= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 127) ; FLEXI-STREAMS:OCTET) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 128) 8364) ; ((= (THE FLEXI-STREAMS:OCTET FLEXI-STREAMS:OCTET) 255) 63733) ; (T ; (LET (#) ; (IF # ; # ; #))))) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::NEXT-BYTE FLEXI-STREAMS::OCTET-GETTER) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CR-GBK-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-GBK-FORMAT) ; (FLEXI-STREAMS::WHEN-LET (FLEXI-STREAMS:OCTET FLEXI-STREAMS::OCTET-GETTER) ; (COND ((<= # 127) FLEXI-STREAMS:OCTET) ((= # 128) 8364) ((= # 255) 63733) ; (T ; (LET # ; #))))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: ; DEFINE-CHAR-DECODERS (FLEXI-UTF-32-LE-FORMAT FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-23 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 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. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-153 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-171 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-132 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 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. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-489 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-507 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-468 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 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. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-801 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-840 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-822 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-LE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-LE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 0 FLEXI-STREAMS::TO 24 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: ; DEFINE-CHAR-DECODERS (FLEXI-UTF-32-BE-FORMAT FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-23 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> DEFMETHOD PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER ; --> SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD LIST* LET* ; --> SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK SYMBOL-MACROLET LET WHEN IF AND IF OR LET ; --> <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 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. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-153 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-171 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-132 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 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. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-489 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-507 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> LET PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-468 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY LET ; --> PROGN LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; --> LET OR LET FLEXI-STREAMS::OCTET-GETTER BLOCK PROG1 LET AREF ; ==> ; 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. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-801 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-822 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF FLEXI-STREAMS::ITERATE FLET LOOP ; --> BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY FLET ; --> #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-840 (FLEXI-STREAMS::ASH* FLEXI-STREAMS:OCTET COUNT)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK WITH-ACCESSORS LET SYMBOL-MACROLET LET* ; --> FLET MACROLET ETYPECASE LET COND IF IF IF FLEXI-STREAMS::ITERATE FLET ; --> LOOP BLOCK TAGBODY PROGN LET PROGN SYMBOL-MACROLET MACROLET BLOCK LOCALLY ; --> FLET #:GET-CHAR-CODE4 BLOCK LET WHEN IF AND IF OR LET <= ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::READ-NEXT-BYTE) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (FLEXI-STREAMS::DEFINE-CHAR-DECODERS (FLEXI-STREAMS::FLEXI-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CR-UTF-32-BE-FORMAT ; FLEXI-STREAMS::FLEXI-CRLF-UTF-32-BE-FORMAT) ; (LET (FLEXI-STREAMS::FIRST-OCTET-SEEN) ; (DECLARE (BOOLEAN FLEXI-STREAMS::FIRST-OCTET-SEEN)) ; (MACROLET ((FLEXI-STREAMS::READ-NEXT-BYTE # ; '#)) ; (LOOP FLEXI-STREAMS::FOR ; COUNT FLEXI-STREAMS::OF-TYPE FIXNUM FLEXI-STREAMS::FROM 24 FLEXI-STREAMS::DOWNTO 0 FLEXI-STREAMS::BY 8 ; FLEXI-STREAMS::FOR ...)))) ; --> FLEXI-STREAMS::DEFINE-SEQUENCE-READERS PROGN DEFMETHOD PROGN EVAL-WHEN ; --> SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD SB-PCL::LOAD-DEFMETHOD ; --> LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION SYMBOL-MACROLET ; --> SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET* LOOP BLOCK LET TAGBODY SETF ; --> SB-KERNEL:%SCHARSET ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. WARNING: Lisp compilation had style-warnings while compiling # ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/flexi-streams-20220220-git/in-memory.lisp ; in: DEFMETHOD PEEK-BYTE (VECTOR-INPUT-STREAM) ; (= BYTE FLEXI-STREAMS::PEEK-TYPE) ; ; note: unable to open code because: The operands might not be the same type. ; (LOOP :FOR BYTE = (READ-BYTE STREAM FLEXI-STREAMS::EOF-ERROR-P :EOF) ; :FOR FLEXI-STREAMS::NEW-INDEX :FROM FLEXI-STREAMS::INDEX ; :UNTIL (COND ((EQ BYTE :EOF) (RETURN FLEXI-STREAMS::EOF-VALUE)) ; ((NULL FLEXI-STREAMS::PEEK-TYPE)) ; ((EQ FLEXI-STREAMS::PEEK-TYPE 'T) (PLUSP BYTE)) ; ((= BYTE FLEXI-STREAMS::PEEK-TYPE))) ; :FINALLY ...) ; --> LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (PLUSP BYTE) ; ; 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. ; (LOOP :FOR BYTE = (READ-BYTE STREAM FLEXI-STREAMS::EOF-ERROR-P :EOF) ; :FOR FLEXI-STREAMS::NEW-INDEX :FROM FLEXI-STREAMS::INDEX ; :UNTIL (COND ((EQ BYTE :EOF) (RETURN FLEXI-STREAMS::EOF-VALUE)) ; ((NULL FLEXI-STREAMS::PEEK-TYPE)) ; ((EQ FLEXI-STREAMS::PEEK-TYPE 'T) (PLUSP BYTE)) ; ((= BYTE FLEXI-STREAMS::PEEK-TYPE))) ; :FINALLY ...) ; --> 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 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. ; in: DEFMETHOD PEEK-BYTE (LIST-INPUT-STREAM) ; (= BYTE FLEXI-STREAMS::PEEK-TYPE) ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP BYTE) ; ; 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. ; in: DEFMETHOD TRANSFORM-OCTET (IN-MEMORY-STREAM T) ; (FUNCALL (OR (FLEXI-STREAMS::IN-MEMORY-STREAM-TRANSFORMER STREAM) #'IDENTITY) ; FLEXI-STREAMS:OCTET) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFMETHOD STREAM-READ-SEQUENCE (LIST-INPUT-STREAM T T T) ; (FUNCALL FLEXI-STREAMS::TRANSFORMER ELT) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TRANSFORMER is not known to be a function ; (SETF (ELT SEQUENCE FLEXI-STREAMS::INDEX) ; (IF FLEXI-STREAMS::TRANSFORMER ; (FUNCALL FLEXI-STREAMS::TRANSFORMER ELT) ; ELT)) ; ; 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. ; in: DEFMETHOD STREAM-READ-BYTE (VECTOR-INPUT-STREAM) ; (AREF VECTOR FLEXI-STREAMS::CURRENT-INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFMETHOD STREAM-READ-SEQUENCE (VECTOR-INPUT-STREAM T T T) ; (AREF VECTOR FLEXI-STREAMS::VECTOR-INDEX) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (FUNCALL FLEXI-STREAMS::TRANSFORMER ELT) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TRANSFORMER is not known to be a function ; (SETF (ELT SEQUENCE FLEXI-STREAMS::INDEX) ; (IF FLEXI-STREAMS::TRANSFORMER ; (FUNCALL FLEXI-STREAMS::TRANSFORMER ELT) ; ELT)) ; ; 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. ; in: DEFMETHOD STREAM-WRITE-SEQUENCE (VECTOR-OUTPUT-STREAM T T T) ; (ELT SEQUENCE FLEXI-STREAMS::INDEX) ; ; 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. ; in: DEFMETHOD (SETF STREAM-FILE-POSITION) (T VECTOR-INPUT-STREAM) ; (<= 0 FLEXI-STREAMS::POSITION-SPEC FLEXI-STREAMS::END) ; ; 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. ; in: DEFMETHOD (SETF STREAM-FILE-POSITION) (T VECTOR-OUTPUT-STREAM) ; (ARRAY-TOTAL-SIZE VECTOR) ; ; note: unable to optimize because: can't tell the rank at compile time ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/flexi-streams-20220220-git/output.lisp ; in: DEFMETHOD STREAM-WRITE-CHAR :AFTER (FLEXI-OUTPUT-STREAM T) ; (INCF (THE INTEGER FLEXI-STREAMS::COLUMN)) ; ==> ; (+ 1 (THE INTEGER (FLEXI-STREAMS:FLEXI-STREAM-COLUMN #:G913))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; in: DEFMETHOD STREAM-WRITE-STRING (FLEXI-OUTPUT-STREAM T) ; (LENGTH STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/flexi-streams-20220220-git/input.lisp ; in: DEFMETHOD READ-BYTE* (FLEXI-INPUT-STREAM) ; (>= POSITION FLEXI-STREAMS::BOUND) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (OR NULL INTEGER), not a FIXNUM. ; (INCF POSITION) ; ==> ; (+ 1 (THE INTEGER (FLEXI-STREAMS:FLEXI-STREAM-POSITION #:G1214))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (DECF POSITION) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; in: DEFMETHOD STREAM-LISTEN (FLEXI-INPUT-STREAM) ; (>= POSITION FLEXI-STREAMS::BOUND) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (OR NULL INTEGER), not a FIXNUM. ; in: DEFUN UNREAD-CHAR% ; (DECF POSITION FLEXI-STREAMS::COUNTER) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD STREAM-READ-CHAR (FLEXI-INPUT-STREAM) ; (OR (CODE-CHAR CHAR-CODE) CHAR-CODE) ; --> IF ; ==> ; CHAR-CODE ; ; note: deleting unreachable code ; in: DEFMETHOD STREAM-READ-SEQUENCE (FLEXI-INPUT-STREAM T T T) ; (MIN FLEXI-STREAMS::END ; (+ FLEXI-STREAMS::START (- FLEXI-STREAMS::BOUND POSITION))) ; ; 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. ; (REPLACE SEQUENCE FLEXI-STREAMS::OCTET-STACK :START1 FLEXI-STREAMS::START ; :END1 FLEXI-STREAMS::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT (VECTOR CHARACTER)) (NOT BASE-STRING) ; VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY * (*)) ; &REST T). ; (LENGTH FLEXI-STREAMS::OCTET-STACK) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (ELT SEQUENCE (1- FLEXI-STREAMS::INDEX)) ; ; 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. ; (- FLEXI-STREAMS::BOUND POSITION) ; ; 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. ; (+ FLEXI-STREAMS::START (- FLEXI-STREAMS::BOUND POSITION)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; 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 (INTEGER -4611686018427387904 4611686018427387902), not a (UNSIGNED-BYTE ; 64). ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (MIN FLEXI-STREAMS::END ; (+ FLEXI-STREAMS::START (- FLEXI-STREAMS::BOUND POSITION))) ; ; 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. ; (INCF POSITION (- FLEXI-STREAMS::INDEX FLEXI-STREAMS::START)) ; ==> ; (+ (- FLEXI-STREAMS::INDEX FLEXI-STREAMS::START) ; (FLEXI-STREAMS:FLEXI-STREAM-POSITION #:G3466)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -4611686018427387902 4611703610613432319), not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER -4611686018427387902 4611703610613432319), not a (UNSIGNED-BYTE ; 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: doing signed word to integer coercion (cost 20), for: ; the first argument of GENERIC-+ ; in: DEFMETHOD STREAM-UNREAD-CHAR (FLEXI-INPUT-STREAM T) ; (= (CHAR-CODE CHAR) FLEXI-STREAMS::LAST-CHAR-CODE) ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD UNREAD-BYTE (T FLEXI-INPUT-STREAM) ; (= BYTE FLEXI-STREAMS::LAST-OCTET) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do 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. ; (DECF (THE INTEGER POSITION)) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; in: DEFMETHOD PEEK-BYTE (FLEXI-INPUT-STREAM) ; (= FLEXI-STREAMS:OCTET FLEXI-STREAMS::PEEK-TYPE) ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP FLEXI-STREAMS:OCTET) ; ; 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/flexi-streams-20220220-git/io.lisp ; in: DEFMETHOD RESET-INPUT-STATE (FLEXI-IO-STREAM) ; (LENGTH FLEXI-STREAMS::OCTET-STACK) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD WRITE-BYTE* :AFTER (T FLEXI-IO-STREAM) ; (INCF POSITION) ; ==> ; (+ 1 (FLEXI-STREAMS:FLEXI-STREAM-POSITION #:G79)) ; ; 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/flexi-streams-20220220-git/strings.lisp ; in: DEFUN STRING-TO-OCTETS ; (LENGTH STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN OCTETS-TO-STRING ; (LENGTH SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN OCTET-LENGTH ; (LENGTH STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN CHAR-LENGTH ; (LENGTH SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/fast-http-20231021-git/src/util.lisp ; in: DEFUN NUMBER-STRING-P ; (RETURN-FROM FAST-HTTP.UTIL:NUMBER-STRING-P NIL) ; ; note: deleting unreachable code ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/fast-http-20231021-git/src/parser.lisp ; in: DEFUN-SPEEDY PARSE-HEADER-VALUE ; (PROC-PARSE:WITH-OCTETS-PARSING (FAST-HTTP.PARSER::DATA :START ; FAST-HTTP.PARSER::START :END ; FAST-HTTP.PARSER::END) ; (PROC-PARSE:SKIP* (NOT #\Return)) ; (PROC-PARSE:ADVANCE) ; (PROC-PARSE:SKIP #\Newline) ; (WHEN FAST-HTTP.PARSER::FIELD-START ; (FAST-HTTP.PARSER::CALLBACK-DATA :HEADER-FIELD FAST-HTTP.HTTP:HTTP ; FAST-HTTP.PARSER:CALLBACKS ; FAST-HTTP.PARSER::DATA ; FAST-HTTP.PARSER::FIELD-START ; FAST-HTTP.PARSER::FIELD-END)) ; (FAST-HTTP.PARSER::CALLBACK-DATA :HEADER-VALUE FAST-HTTP.HTTP:HTTP ; FAST-HTTP.PARSER:CALLBACKS ; FAST-HTTP.PARSER::DATA ; FAST-HTTP.PARSER::START ; (- (PROC-PARSE:POS) 2)) ; (PROC-PARSE:POS)) ; --> LET OR LET IF ; ==> ; (LENGTH #:DATA5) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN-SPEEDY PARSE-HEADER-VALUE-CONTENT-LENGTH ; (* 10 FAST-HTTP.PARSER::CONTENT-LENGTH) ; ; note: forced to do GENERIC-* (cost 30) ; 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 10) (INTEGER * -10) (INTEGER 0 0)) ; &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 10) (INTEGER * -10) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (+ (* 10 FAST-HTTP.PARSER::CONTENT-LENGTH) ; (FAST-HTTP.BYTE-VECTOR:DIGIT-BYTE-CHAR-TO-INTEGER (PROC-PARSE:CURRENT))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 10) (INTEGER * -10) (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER 10) (INTEGER * -10) (INTEGER 0 0)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN-SPEEDY PARSE-HEADER-LINE ; (<= FAST-HTTP.PARSER::END FAST-HTTP.PARSER::START) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; in: DEFUN-SPEEDY READ-BODY-DATA ; (- FAST-HTTP.PARSER::END FAST-HTTP.PARSER::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (<= (FAST-HTTP.HTTP:HTTP-CONTENT-LENGTH FAST-HTTP.HTTP:HTTP) ; FAST-HTTP.PARSER::READABLE-COUNT) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; (+ FAST-HTTP.PARSER::START ; (FAST-HTTP.HTTP:HTTP-CONTENT-LENGTH FAST-HTTP.HTTP:HTTP)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (DECF (FAST-HTTP.HTTP:HTTP-CONTENT-LENGTH FAST-HTTP.HTTP:HTTP) ; FAST-HTTP.PARSER::READABLE-COUNT) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN-SPEEDY PARSE-CHUNKED-BODY ; (= FAST-HTTP.PARSER::START FAST-HTTP.PARSER::END) ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; (* 16 (FAST-HTTP.HTTP:HTTP-CONTENT-LENGTH FAST-HTTP.HTTP:HTTP)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 16) (INTEGER * -16) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 16) (INTEGER * -16) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (+ (* 16 (FAST-HTTP.HTTP:HTTP-CONTENT-LENGTH FAST-HTTP.HTTP:HTTP)) ; FAST-HTTP.PARSER::UNHEX-VAL) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 16) (INTEGER * -16) (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER 16) (INTEGER * -16) (INTEGER 0 0)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/fast-http-20231021-git/src/fast-http.lisp ; in: DEFUN-CAREFUL MAKE-PARSER ; (STRING= FAST-HTTP::PARSING-HEADER-FIELD "set-cookie") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR NULL (SIMPLE-ARRAY CHARACTER (*))), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR NULL ; (SIMPLE-ARRAY CHARACTER ; (*))), not a (SIMPLE-ARRAY CHARACTER (*)). ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/quri-20230618-git/src/encode.lisp ; in: DEFUN URL-ENCODE ; (SETF (AREF QURI.ENCODE::RES QURI.ENCODE::I) #\+) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (AREF QURI.ENCODE::RES QURI.ENCODE::I) (CODE-CHAR BYTE)) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (AREF QURI.ENCODE::RES QURI.ENCODE::I) #\%) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/quri-20230618-git/src/decode.lisp ; in: DEFUN URL-DECODE ; (QURI.UTIL:GOTO QURI.DECODE::PARSING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:WITH-ARRAY-PARSING (CHAR QURI.DECODE::P QURI.DECODE::DATA ; QURI.DECODE::START QURI.DECODE::END ; (AND (NOT (STRINGP QURI.DECODE::DATA)) ; #'CODE-CHAR)) ; (QURI.DECODE::PARSING ; (COND ((CHAR= CHAR #\%) (QURI.UTIL:GONEXT)) ; ((CHAR= CHAR #\+) (QURI.DECODE::WRITE-TO-BUFFER 32) ; (QURI.UTIL:REDO)) ; (T (QURI.DECODE::WRITE-TO-BUFFER #) (QURI.UTIL:REDO)))) ; (QURI.DECODE::PARSING-ENCODED-PART ; (SETQ QURI.DECODE::PARSING-ENCODED-PART CHAR) (QURI.UTIL:GONEXT)) ; (QURI.DECODE::PARSING-ENCODED-PART-SECOND ; (HANDLER-BIND ((QURI.ERROR:URL-DECODING-ERROR #)) ; (QURI.DECODE::WRITE-TO-BUFFER (+ # #))) ; (SETQ QURI.DECODE::PARSING-ENCODED-PART NIL) ; (QURI.UTIL:GOTO QURI.DECODE::PARSING)) ; (:EOF ; (WHEN QURI.DECODE::PARSING-ENCODED-PART ; (ERROR 'QURI.ERROR:URL-DECODING-ERROR)))) ; --> QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY LOCALLY SETQ THE IF ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY LOCALLY SETQ THE IF ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:GONEXT) ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:GOTO QURI.DECODE::PARSING) ; --> SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:REDO) ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:GOTO QURI.DECODE::PARSING) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; (- QURI.DECODE::END QURI.DECODE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (QURI.UTIL:WITH-ARRAY-PARSING (CHAR QURI.DECODE::P QURI.DECODE::DATA ; QURI.DECODE::START QURI.DECODE::END ; (AND (NOT (STRINGP QURI.DECODE::DATA)) ; #'CODE-CHAR)) ; (QURI.DECODE::PARSING ; (COND ((CHAR= CHAR #\%) (QURI.UTIL:GONEXT)) ; ((CHAR= CHAR #\+) (QURI.DECODE::WRITE-TO-BUFFER 32) ; (QURI.UTIL:REDO)) ; (T (QURI.DECODE::WRITE-TO-BUFFER #) (QURI.UTIL:REDO)))) ; (QURI.DECODE::PARSING-ENCODED-PART ; (SETQ QURI.DECODE::PARSING-ENCODED-PART CHAR) (QURI.UTIL:GONEXT)) ; (QURI.DECODE::PARSING-ENCODED-PART-SECOND ; (HANDLER-BIND ((QURI.ERROR:URL-DECODING-ERROR #)) ; (QURI.DECODE::WRITE-TO-BUFFER (+ # #))) ; (SETQ QURI.DECODE::PARSING-ENCODED-PART NIL) ; (QURI.UTIL:GOTO QURI.DECODE::PARSING)) ; (:EOF ; (WHEN QURI.DECODE::PARSING-ENCODED-PART ; (ERROR 'QURI.ERROR:URL-DECODING-ERROR)))) ; --> QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY WHEN IF = ; ==> ; 1 ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; (QURI.UTIL:REDO) ; --> LOCALLY INCF SETQ THE ; ==> ; (+ 1 QURI.DECODE::P) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; --> LOCALLY WHEN IF = ; ==> ; 1 ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; --> LOCALLY INCF SETQ THE ; ==> ; (+ 1 QURI.DECODE::P) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; --> LOCALLY WHEN IF = ; ==> ; 1 ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; (QURI.UTIL:GONEXT) ; --> LOCALLY INCF SETQ THE ; ==> ; (+ 1 QURI.DECODE::P) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; --> LOCALLY WHEN IF = ; ==> ; 1 ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; --> LOCALLY INCF SETQ THE ; ==> ; (+ 1 QURI.DECODE::P) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; --> LOCALLY WHEN IF = ; ==> ; 1 ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; (INCF QURI.DECODE::I) ; --> THE ; ==> ; (+ 1 QURI.DECODE::I) ; ; 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. ; (QURI.UTIL:GOTO QURI.DECODE::PARSING) ; --> INCF SETQ THE ; ==> ; (+ 1 QURI.DECODE::P) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; --> WHEN IF = ; ==> ; 1 ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; in: DEFUN URL-DECODE-PARAMS ; (QURI.UTIL:WITH-ARRAY-PARSING (CHAR QURI.DECODE::P QURI.DECODE::DATA ; QURI.DECODE::START QURI.DECODE::END ; (AND (NOT (STRINGP QURI.DECODE::DATA)) ; #'CODE-CHAR)) ; (QURI.DECODE::START (SETQ QURI.DECODE::START-MARK QURI.DECODE::P) ; (IF QURI.DECODE::LENIENT ; (COND (# # #) (# #)) ; (WHEN (OR # #) (ERROR 'QURI.ERROR:URI-MALFORMED-URLENCODED-STRING))) ; (QURI.UTIL:GONEXT)) ; (QURI.DECODE::PARSING-FIELD ; (COND ((CHAR= CHAR #\=) (SETQ #) (QURI.UTIL:GONEXT)) ; ((CHAR= CHAR QURI.DECODE::DELIMITER) ; (QURI.DECODE::COLLECT-FIELD QURI.DECODE::P) ; (QURI.UTIL:GOTO QURI.DECODE::START))) ; (QURI.UTIL:REDO)) ; (QURI.DECODE::PARSING-VALUE ; (COND ((CHAR= CHAR #\=) (UNLESS QURI.DECODE::LENIENT #)) ; ((CHAR= CHAR QURI.DECODE::DELIMITER) ; (QURI.DECODE::COLLECT-PAIR QURI.DECODE::P) ; (QURI.UTIL:GOTO QURI.DECODE::START))) ; (QURI.UTIL:REDO)) ; (:EOF ; (COND (QURI.DECODE::=-MARK (QURI.DECODE::COLLECT-PAIR QURI.DECODE::P)) ; (QURI.DECODE::START-MARK ; (QURI.DECODE::COLLECT-FIELD QURI.DECODE::P))))) ; --> QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY LOCALLY SETQ THE IF ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY LOCALLY SETQ THE IF ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:GOTO QURI.DECODE::PARSING-VALUE) ; --> SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:REDO) ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:GONEXT) ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:GOTO QURI.DECODE::START) ; --> SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:REDO) ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:GOTO QURI.DECODE::START) ; --> SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:REDO) ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:WITH-ARRAY-PARSING (CHAR QURI.DECODE::P QURI.DECODE::DATA ; QURI.DECODE::START QURI.DECODE::END ; (AND (NOT (STRINGP QURI.DECODE::DATA)) ; #'CODE-CHAR)) ; (QURI.DECODE::START (SETQ QURI.DECODE::START-MARK QURI.DECODE::P) ; (IF QURI.DECODE::LENIENT ; (COND (# # #) (# #)) ; (WHEN (OR # #) (ERROR 'QURI.ERROR:URI-MALFORMED-URLENCODED-STRING))) ; (QURI.UTIL:GONEXT)) ; (QURI.DECODE::PARSING-FIELD ; (COND ((CHAR= CHAR #\=) (SETQ #) (QURI.UTIL:GONEXT)) ; ((CHAR= CHAR QURI.DECODE::DELIMITER) ; (QURI.DECODE::COLLECT-FIELD QURI.DECODE::P) ; (QURI.UTIL:GOTO QURI.DECODE::START))) ; (QURI.UTIL:REDO)) ; (QURI.DECODE::PARSING-VALUE ; (COND ((CHAR= CHAR #\=) (UNLESS QURI.DECODE::LENIENT #)) ; ((CHAR= CHAR QURI.DECODE::DELIMITER) ; (QURI.DECODE::COLLECT-PAIR QURI.DECODE::P) ; (QURI.UTIL:GOTO QURI.DECODE::START))) ; (QURI.UTIL:REDO)) ; (:EOF ; (COND (QURI.DECODE::=-MARK (QURI.DECODE::COLLECT-PAIR QURI.DECODE::P)) ; (QURI.DECODE::START-MARK ; (QURI.DECODE::COLLECT-FIELD QURI.DECODE::P))))) ; --> QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY WHEN IF = ; ==> ; 1 ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/chunga-20231021-git/read.lisp ; in: DEFUN TRIM-WHITESPACE ; (CHAR STRING CHUNGA::I) ; ; 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. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-ppcre-20230618-git/util.lisp ; in: DEFUN STRING-LIST-TO-SIMPLE-STRING ; (REPLACE CL-PPCRE::RESULT-STRING STRING :START1 CL-PPCRE::CURR-POS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a STRING, not a SIMPLE-BASE-STRING. ; 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 ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-ppcre-20230618-git/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. ; in: DEFUN COMPUTE-INDEX ; (LENGTH VECTOR) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR))) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (1+ (MOD CL-PPCRE::HASH (1- (LENGTH VECTOR)))) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL (-17592186044414) ; (17592186044414))), not a RATIONAL. ; ; 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. ; in: DEFUN %ADD-TO-CHARSET/EXPAND ; (* 2 CL-PPCRE::NEW-SIZE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (>= 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. ; (* 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. ; 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. ; in: DEFUN CREATE-CHARSET-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LOOP-LIMIT-0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::WITH CL-PPCRE::CHARSET = (CL-PPCRE::MAKE-CHARSET) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LOOP-LIMIT-0) ; ; 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-ppcre-20230618-git/charmap.lisp ; in: DEFUN MAKE-CHARMAP ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; in: DEFUN CREATE-CHARMAP-FROM-TEST-FUNCTION ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LOOP-LIMIT-0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM (1- ; CL-PPCRE::END) CL-PPCRE::DOWNTO CL-PPCRE::START ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (< CL-PPCRE::CODE #:LOOP-LIMIT-16) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR CHAR = (CODE-CHAR CL-PPCRE::CODE) ; CL-PPCRE::UNTIL ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LOOP-LIMIT-0) ; ; 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. ; (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. ; (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 #:LOOP-LIMIT-16) ; ; 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-ppcre-20230618-git/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 #:LOOP-LIMIT-0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (LOOP CL-PPCRE::WITH HASH-TABLE = (MAKE-HASH-TABLE) ; CL-PPCRE::FOR CL-PPCRE::CODE CL-PPCRE::FROM CL-PPCRE::START CL-PPCRE::BELOW ; CL-PPCRE::END ; CL-PPCRE::FOR ...) ; --> LET LET LET TAGBODY WHEN IF ; ==> ; (>= CL-PPCRE::CODE #:LOOP-LIMIT-0) ; ; 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. ; in: DEFUN CREATE-OPTIMIZED-TEST-FUNCTION ; (CEILING (- CL-PPCRE::END CL-PPCRE::START) 2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do 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. ; ; 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: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-ppcre-20230618-git/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 ; 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 ; 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-ppcre-20230618-git/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 ; 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-ppcre-20230618-git/regex-class.lisp ; in: DEFMETHOD INITIALIZE-INSTANCE :AFTER (STR) ; (COERCE CL-PPCRE::STR-SLOT 'SIMPLE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; (LENGTH (CL-PPCRE::STR CL-PPCRE::STR)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-ppcre-20230618-git/regex-class-util.lisp ; in: DEFMETHOD CASE-MODE (STR T) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::STR)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD EVERYTHINGP (SEQ) ; (LENGTH CL-PPCRE::CLEANED-ELEMENTS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (SIMPLE-ARRAY * (*)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (ALTERNATION) ; (LENGTH CL-PPCRE::CHOICES) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD EVERYTHINGP (REPETITION) ; (= 1 CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX ; SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (REAL 1 1) (COMPLEX (INTEGER 1 1)) ; (COMPLEX (SINGLE-FLOAT 1.0 1.0)) ; (COMPLEX ; (DOUBLE-FLOAT 1.0d0 1.0d0))), not a (COMPLEX ; DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do 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. ; 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 ; ==> ; (+ #:LOOP-SUM-6 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. ; in: DEFMETHOD REGEX-LENGTH (ALTERNATION) ; (/= CL-PPCRE::LEN CL-PPCRE::OLD-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do 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. ; 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. ; 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. ; The second argument is a T, not a SINGLE-FLOAT. ; 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. ; 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 ; ==> ; (+ #:LOOP-SUM-6 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. ; 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 ; ==> ; (< #:LOOP-MAXMIN-TEMP-10 #:LOOP-MAXMIN-9) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: forced to do 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. ; in: DEFMETHOD REGEX-MIN-LENGTH (BRANCH) ; (MIN (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH)) ; (CL-PPCRE::REGEX-MIN-LENGTH (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: forced to do 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. ; 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. ; in: DEFMETHOD COMPUTE-OFFSETS (ALTERNATION T) ; (/= CL-PPCRE::CURR-OFFSET CL-PPCRE::OLD-OFFSET) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: forced to do 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. ; 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. ; 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. ; (+ 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. ; in: DEFMETHOD COMPUTE-OFFSETS (CHAR-CLASS T) ; (1+ CL-PPCRE::START-POS) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do 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-OFFSETS (EVERYTHING T) ; (1+ CL-PPCRE::START-POS) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do 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-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. ; 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-ppcre-20230618-git/convert.lisp ; in: DEFUN CONVERT-CHAR-CLASS-TO-TEST-FUNCTION ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-DOWNCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION (CHAR-UPCASE CHAR)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CHAR) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (CHAR-DOWNCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-UPCASE CHAR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-DOWN) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; (FUNCALL CL-PPCRE::TEST-FUNCTION CL-PPCRE::CHAR-UP) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST-FUNCTION is not known to be a function ; in: DEFUN MAYBE-SPLIT-REPETITION ; (- CL-PPCRE::MAXIMUM CL-PPCRE::MINIMUM) ; ; note: doing signed word to integer coercion (cost 20) ; in: DEFUN MAYBE-ACCUMULATE ; (SETF (SUBSEQ (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) ; (CL-PPCRE::LEN CL-PPCRE::STR))) ; (CL-PPCRE::STR CL-PPCRE::STR) ; (CL-PPCRE::SKIP CL-PPCRE::STR) T) ; --> SETF LET* ; ==> ; (REPLACE #:SEQUENCE #:NEW3 :START1 #:START :END1 NIL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY * (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). ; (+ (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (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. ; (- (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH) (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. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BRANCH) T) ; (LENGTH (CL-PPCRE::CHOICES CL-PPCRE::ALTERNATIONS)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :GREEDY-REPETITION) T) ; (ZEROP LENGTH) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :NAMED-REGISTER) T) ; (COPY-SEQ (SECOND CL-PPCRE::PARSE-TREE)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFMETHOD CONVERT-COMPOUND-PARSE-TREE ((EQL :BACK-REFERENCE) T) ; (STRING= CL-PPCRE::NAME CL-PPCRE::BACKREF-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; The second argument is a (OR STRING (AND SYMBOL (NOT NULL)) ; CHARACTER), not a (SIMPLE-ARRAY CHARACTER (*)). ; (COPY-SEQ CL-PPCRE::BACKREF-NAME) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (- CL-PPCRE::REG-NUM CL-PPCRE::REG-INDEX) ; ; note: forced to do 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. ; (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. ; in: DEFUN CONVERT ; (COERCE (SLOT-VALUE CL-PPCRE::STARTS-WITH 'CL-PPCRE::STR) 'SIMPLE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-ppcre-20230618-git/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 (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a VECTOR, not a SIMPLE-BASE-STRING. ; (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. ; in: DEFMETHOD START-ANCHORED-P (REPETITION) ; (PLUSP (CL-PPCRE::MINIMUM CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do 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. ; in: DEFMETHOD START-ANCHORED-P (REGEX) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::REGEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFMETHOD END-STRING-AUX (SEQ) ; (ZEROP (CL-PPCRE::LEN CL-PPCRE::ELEMENT-END)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (MAKE-ARRAY CL-PPCRE::CONCATENATED-LENGTH :INITIAL-CONTENTS ; (REVERSE (CL-PPCRE::STR CL-PPCRE::CONCATENATED-START)) ; :ELEMENT-TYPE 'CHARACTER :FILL-POINTER T :ADJUSTABLE T) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; (CHAR CL-PPCRE::STR CL-PPCRE::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; 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 ; ==> ; (< #:LOOP-MAXMIN-TEMP-11 #:LOOP-MAXMIN-10) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: forced to do 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. ; in: DEFMETHOD COMPUTE-MIN-REST (BRANCH T) ; (MIN ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::THEN-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST) ; (CL-PPCRE::COMPUTE-MIN-REST (CL-PPCRE::ELSE-REGEX CL-PPCRE::BRANCH) ; CL-PPCRE::CURRENT-MIN-REST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: forced to do 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. ; 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. ; 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. ; 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. ; (+ 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. ; 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. ; 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-ppcre-20230618-git/closures.lisp ; in: DEFUN *STRING*-EQUAL ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-MATCHER-AUX (LOOKBEHIND T) ; (- 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 ; in: DEFMETHOD CREATE-MATCHER-AUX (CHAR-CLASS T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::CHAR-CLASS ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::START-POS)) ; (LAMBDA (CL-PPCRE::START-POS) ; (DECLARE (FIXNUM CL-PPCRE::START-POS)) ; (AND (< CL-PPCRE::START-POS CL-PPCRE::*END-POS*) ; (CL-PPCRE::CHAR-CLASS-TEST) ; (FUNCALL CL-PPCRE::NEXT-FN (1+ CL-PPCRE::START-POS))))) ; --> LET LAMBDA FUNCTION AND IF IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFMETHOD CREATE-MATCHER-AUX (STR T) ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::START-POS ; CL-PPCRE::NEXT-POS 0 CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::START-POS) CL-PPCRE::CHR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (LENGTH CL-PPCRE::END-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::END-STRING CL-PPCRE::START-POS ; CL-PPCRE::TEST-END-POS 0 CL-PPCRE::END-STRING-LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (+ 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 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-MATCHER-AUX (BACK-REFERENCE T) ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::*STRING* CL-PPCRE::START-POS ; CL-PPCRE::NEXT-POS CL-PPCRE::REG-START CL-PPCRE::REG-END) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-MATCHER-AUX (FILTER T) ; (FUNCALL CL-PPCRE::FN CL-PPCRE::START-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FN is not known to be a function ; (FUNCALL CL-PPCRE::NEXT-FN CL-PPCRE::NEXT-POS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; NEXT-FN is not known to be a function ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-ppcre-20230618-git/repetition-closures.lisp ; in: DEFMETHOD CREATE-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET BLOCK ; --> TAGBODY WHEN IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-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). ; ; 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. ; (CL-PPCRE::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). ; ; 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. ; --> 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. ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: 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. ; --> 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. ; (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. ; (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). ; ; 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. ; --> 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::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). ; ; 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. ; --> 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). ; ; 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 ; (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. ; --> 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). ; ; 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. ; --> 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. ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; 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 ; ; 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. ; 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 ; ; 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. ; in: DEFMETHOD CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 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. ; (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). ; ; 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::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 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. ; --> 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::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 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. ; --> 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::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). ; ; 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. ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET 1+ ; ==> ; 1 ; ; note: forced to do -/SIGNED=>INTEGER (cost 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::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). ; ; 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. ; --> 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). ; ; 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::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. ; 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. ; --> 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::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). ; ; 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. ; --> 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::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). ; ; 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. ; --> 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. ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR/= #\Newline (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE T) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE (CL-PPCRE::CHAR-CLASS-TEST))) ; --> LET CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE IF LAMBDA FUNCTION LET ; --> MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*= CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS ; (+ CL-PPCRE::CURR-POS CL-PPCRE::LEN) 0 ; CL-PPCRE::LEN)) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR= CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; (CL-PPCRE::NON-GREEDY-CONSTANT-LENGTH-CLOSURE ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS))) ; --> LAMBDA FUNCTION LET MIN ; ==> ; 1 ; ; note: doing signed word to integer coercion (cost 20), for: ; the first result of inline (signed-byte 64) arithmetic ; in: DEFMETHOD CREATE-NON-GREEDY-NO-ZERO-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; 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 ; ; 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. ; 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. ; (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 ; ; 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. ; in: ; DEFMETHOD CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER (REPETITION T) ; (CL-PPCRE::INSERT-CHAR-CLASS-TESTER (CL-PPCRE::REGEX ; (SCHAR CL-PPCRE::*STRING* ; CL-PPCRE::CURR-POS)) ; (CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE ; (AND (CL-PPCRE::CHAR-CLASS-TEST) (1+ CL-PPCRE::CURR-POS)))) ; --> LET CL-PPCRE::CONSTANT-REPETITION-CONSTANT-LENGTH-CLOSURE LAMBDA FUNCTION ; --> LET AND IF IF LOOP BLOCK LET TAGBODY UNLESS IF AND IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CHAR-EQUAL CL-PPCRE::CHR (SCHAR CL-PPCRE::*STRING* CL-PPCRE::CURR-POS)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (CL-PPCRE::*STRING*-EQUAL CL-PPCRE::STR CL-PPCRE::CURR-POS CL-PPCRE::NEXT-POS ; 0 CL-PPCRE::LEN) ; --> BLOCK LOOP BLOCK LET LET TAGBODY UNLESS IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::STRING1-IDX) ; (SCHAR CL-PPCRE::STRING2 CL-PPCRE::STRING2-IDX)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFMETHOD CREATE-CONSTANT-REPETITION-MATCHER (REPETITION T) ; (SETF (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) 0) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; 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 ; ; 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. ; (ZEROP (CL-PPCRE::MIN-LEN CL-PPCRE::REPETITION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (AREF CL-PPCRE::*REPEAT-COUNTERS* CL-PPCRE::REP-NUM) ; ; note: unable to ; optimize ; 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 ; ; 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. ; in: DEFMETHOD CREATE-MATCHER-AUX (REPETITION T) ; (ZEROP CL-PPCRE::MAXIMUM) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (PLUSP CL-PPCRE::LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (PLUSP CL-PPCRE::MIN-LEN) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= CL-PPCRE::MINIMUM CL-PPCRE::MAXIMUM 1) ; ; note: forced to do 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. ; (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. ; ; 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. ; (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. ; (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. ; (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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-ppcre-20230618-git/scanner.lisp ; in: DEFUN CREATE-BMH-MATCHER ; (CL-PPCRE::BMH-MATCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION IF LOOP BLOCK LET TAGBODY LOOP BLOCK LET LET TAGBODY UNLESS IF ; --> AND IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::I) ; (SCHAR CL-PPCRE::PATTERN CL-PPCRE::J)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; (LENGTH CL-PPCRE::PATTERN) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CHAR-UPCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (CHAR-DOWNCASE (SCHAR CL-PPCRE::PATTERN CL-PPCRE::K)) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; (SEARCH CL-PPCRE::PATTERN CL-PPCRE::*STRING* :START2 CL-PPCRE::START-POS ; :END2 CL-PPCRE::*END-POS* :TEST CL-PPCRE::TEST) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN CREATE-CHAR-SEARCHER ; (CL-PPCRE::CHAR-SEARCHER-AUX :CASE-INSENSITIVE-P T) ; --> FUNCTION AND IF LOOP BLOCK LET LET TAGBODY WHEN IF SETQ THE AND IF ; ==> ; (CHAR-EQUAL (SCHAR CL-PPCRE::*STRING* CL-PPCRE::I) CL-PPCRE::CHR) ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; in: DEFUN CREATE-SCANNER-AUX ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET) ; (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF LOCALLY COND IF AND IF ; --> NOT ; ==> ; 1 ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; The second argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The first argument is a CHARACTER, not a BASE-CHAR. ; ; note: unable to ; open code ; due to type uncertainty: ; The second argument is a CHARACTER, not a BASE-CHAR. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF ; ==> ; (< (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; CL-PPCRE::*END-POS*) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF INCF SETQ THE ; ==> ; (+ 1 CL-PPCRE::*END-STRING-POS*) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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. ; --> 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. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::END-STRING-TEST)) ; (IF (<= (THE FIXNUM CL-PPCRE::POS) (THE FIXNUM CL-PPCRE::*END-STRING-POS*)) ; (RETURN-FROM CL-PPCRE::ADVANCE-FN CL-PPCRE::POS)) ; (UNLESS (SETQ CL-PPCRE::*END-STRING-POS* #) ; (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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. ; --> 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. ; (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. ; 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. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FUNCTION CL-PPCRE::START-STRING-TEST)) ; (UNLESS (SETQ CL-PPCRE::POS #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; CL-PPCRE::POS)) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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. ; --> 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. ; (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. ; 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. ; (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 ; &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. ; (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) ; 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. ; --> 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. ; (CL-PPCRE::INSERT-ADVANCE-FN ; (CL-PPCRE::ADVANCE-FN (CL-PPCRE::POS) ; (DECLARE (FIXNUM CL-PPCRE::END-STRING-OFFSET CL-PPCRE::STARTS-WITH-LEN) ; (FUNCTION CL-PPCRE::START-STRING-TEST CL-PPCRE::END-STRING-TEST)) ; (LOOP (UNLESS (SETQ #) (RETURN-FROM CL-PPCRE:SCAN NIL)) ; (LOCALLY ; (DECLARE #) ; (WHEN # #) ; (LET # ; #))))) ; --> FUNCTION BLOCK LET* LABELS COND IF PROGN WHEN IF BLOCK LOOP BLOCK TAGBODY ; --> PROGN LET COND IF IF AND IF < ; ==> ; (+ CL-PPCRE::*END-STRING-POS* CL-PPCRE::END-STRING-LEN) ; ; note: forced to do 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. ; --> 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. ; (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 ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-ppcre-20230618-git/api.lisp ; in: DEFMETHOD CREATE-SCANNER (STRING) ; (COPY-SEQ CL-PPCRE::QUOTED-REGEX-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFMETHOD CREATE-SCANNER (T) ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (= 1 (CL-PPCRE::LEN CL-PPCRE::STARTS-WITH)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP (CL-PPCRE::LEN CL-PPCRE::END-STRING)) ; ; note: forced to do 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. ; in: DEFMETHOD SCAN (STRING T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::REGEX-STRING) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; in: DEFMETHOD SCAN #'T ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; in: DEFMETHOD SCAN (T T) ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (FUNCALL (CL-PPCRE:CREATE-SCANNER CL-PPCRE::PARSE-TREE) ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; in: DEFUN SCAN-TO-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MAP 'VECTOR ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (IF CL-PPCRE::REG-START ; (FUNCALL CL-PPCRE::SUBSTR-FN CL-PPCRE::TARGET-STRING ; CL-PPCRE::REG-START CL-PPCRE::REG-END) ; NIL)) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFMACRO DO-SCANS ; (DEFMACRO CL-PPCRE:DO-SCANS ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY &ENVIRONMENT CL-PPCRE::ENV) ; #<(SIMPLE-ARRAY CHARACTER ; (495)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START, MATCH-END, REG-STARTS, and ; REG-ENDS bound to the four return values of each match in turn. ... {1007656BCF}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::%START CL-PPCRE::%END ; CL-PPCRE::%REGEX CL-PPCRE::SCANNER) ; (DECLARE (IGNORABLE CL-PPCRE::%REGEX CL-PPCRE::SCANNER)) ; `(BLOCK NIL ; (LET* # ; # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END ; REG-STARTS REG-ENDS REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) ; in: DEFMACRO DO-MATCHES ; (DEFMACRO CL-PPCRE:DO-MATCHES ; ( ; (CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (477)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-START and MATCH-END bound to the ; start/end positions of each match in turn. After the last match, ; ... {1002584C2F}> ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; `(CL-PPCRE:DO-SCANS (,CL-PPCRE::MATCH-START ,CL-PPCRE::MATCH-END ; ,CL-PPCRE::REG-STARTS ,CL-PPCRE::REG-ENDS ; ,CL-PPCRE::REGEX ,CL-PPCRE::TARGET-STRING ; ,CL-PPCRE::RESULT-FORM :START ,CL-PPCRE::START :END ; ,CL-PPCRE::END) ; ,@CL-PPCRE::BODY))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-START MATCH-END REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END) ; in: DEFMACRO DO-MATCHES-AS-STRINGS ; (DEFMACRO CL-PPCRE:DO-MATCHES-AS-STRINGS ; ( ; (CL-PPCRE::MATCH-VAR ; CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (569)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with MATCH-VAR bound to the substring of ; TARGET-STRING corresponding to each match in turn. After the last ; ma... {10026F933F}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::SUBSTR-FN) ; `(LET (#) ; (CL-PPCRE:DO-MATCHES # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (MATCH-VAR REGEX ; TARGET-STRING &OPTIONAL ; RESULT-FORM &KEY START END ; SHAREDP) ; in: DEFMACRO DO-REGISTER-GROUPS ; (DEFMACRO CL-PPCRE:DO-REGISTER-GROUPS ; (CL-PPCRE::VAR-LIST ; (CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; &OPTIONAL ; CL-PPCRE::RESULT-FORM ; &KEY ; CL-PPCRE::START ; CL-PPCRE::END ; CL-PPCRE::SHAREDP) ; &BODY CL-PPCRE::BODY) ; #<(SIMPLE-ARRAY CHARACTER ; (820)) Iterates over TARGET-STRING and tries to match REGEX as often as ; possible evaluating BODY with the variables in VAR-LIST bound to the ; corresponding register groups for each match in turn, i.e. each ; va... {10028D20CF}> ; (CL-PPCRE::WITH-REBINDING (CL-PPCRE::TARGET-STRING) ; (CL-PPCRE::WITH-UNIQUE-NAMES (CL-PPCRE::SUBSTR-FN CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END CL-PPCRE::REG-STARTS ; CL-PPCRE::REG-ENDS CL-PPCRE::START-INDEX) ; `(LET (#) ; (CL-PPCRE:DO-SCANS # ; #))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX TARGET-STRING ; &OPTIONAL RESULT-FORM ; &KEY START END SHAREDP) ; in: DEFUN COUNT-MATCHES ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::S CL-PPCRE::E CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING COUNT :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (INCF COUNT)) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::S CL-PPCRE::E) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF COUNT) ; --> THE ; ==> ; (+ 1 COUNT) ; ; note: forced to do 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. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::S CL-PPCRE::E CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING COUNT :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (INCF COUNT)) ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::S CL-PPCRE::E) ; ; note: forced to do 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 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. ; in: DEFUN ALL-MATCHES ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REGEX CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START CL-PPCRE::START ; :END CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::RESULT-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::RESULT-LIST)) ; --> LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND ; --> IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> LET BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do 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 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. ; in: DEFUN ALL-MATCHES-AS-STRINGS ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-MATCHES-AS-STRINGS (CL-PPCRE::MATCH CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING ; (NREVERSE CL-PPCRE::RESULT-LIST) :START ; CL-PPCRE::START :END CL-PPCRE::END :SHAREDP ; CL-PPCRE::SHAREDP) ; (PUSH CL-PPCRE::MATCH CL-PPCRE::RESULT-LIST)) ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING7) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* SETQ THE ; --> CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; --> LET CL-PPCRE:DO-MATCHES CL-PPCRE:DO-SCANS LET BLOCK LET* LOOP BLOCK ; --> TAGBODY PROGN MULTIPLE-VALUE-BIND MULTIPLE-VALUE-CALL FUNCTION SETQ THE ; --> IF ; ==> ; (= #:MATCH-START2 #:MATCH-END3) ; ; note: forced to do 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 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. ; in: DEFUN SPLIT ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (PLUSP CL-PPCRE::LIMIT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...) ; --> LET 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. ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (UNLESS ; (AND (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; (= CL-PPCRE::MATCH-START (CAR CL-PPCRE::POS-LIST))) ; (WHEN ; (AND CL-PPCRE::LIMIT (PLUSP CL-PPCRE::LIMIT) (>= # CL-PPCRE::LIMIT)) ; (RETURN)) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (WHEN CL-PPCRE::WITH-REGISTERS-P ; (LOOP CL-PPCRE::FOR CL-PPCRE::REG-START CL-PPCRE::ACROSS CL-PPCRE::REG-STARTS ; CL-PPCRE::FOR CL-PPCRE::REG-END CL-PPCRE::ACROSS CL-PPCRE::REG-ENDS ; IF CL-PPCRE::REG-START ; DO ...)) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST))) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (> CL-PPCRE::THIS-END CL-PPCRE::THIS-START) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do 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 (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. ; (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. ; (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. ; (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. ; --> 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. ; (> 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. ; 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. ; (CHAR CL-PPCRE::STR CL-PPCRE::FROM) ; ; 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. ; (CHAR CL-PPCRE::STR (1- CL-PPCRE::TO)) ; ; 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. ; in: DEFMETHOD BUILD-REPLACEMENT-TEMPLATE (STRING) ; (POSITION-IF #'CL-PPCRE::DIGIT-CHAR-P CL-PPCRE::REPLACEMENT-STRING :START ; CL-PPCRE::MATCH-START :END CL-PPCRE::MATCH-END) ; ; note: unable to ; expand inline ; because: ; upgraded array element type not known at compile time ; (CHAR CL-PPCRE::REPLACEMENT-STRING (1+ CL-PPCRE::MATCH-START)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (< 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. ; (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. ; (< 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. ; in: DEFUN BUILD-REPLACEMENT ; (ARRAY-DIMENSION CL-PPCRE::REG-STARTS 0) ; ; note: unable to ; optimize ; because: ; The array dimensions are unknown; must call ARRAY-DIMENSION at runtime. ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to open code because: can't determine sequence argument type ; (APPLY CL-PPCRE::TOKEN ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::MATCH-START ; CL-PPCRE::MATCH-END) ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING ; CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TOKEN is not known to be a function ; (MAP 'LIST ; (LAMBDA (CL-PPCRE::REG-START CL-PPCRE::REG-END) ; (AND CL-PPCRE::REG-START ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END))) ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to open code because: can't determine sequence argument type ; (FUNCALL CL-PPCRE::TOKEN CL-PPCRE::TARGET-STRING CL-PPCRE::START ; CL-PPCRE::END CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TOKEN is not known to be a function ; (CL-PPCRE::NSUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::REG-START ; CL-PPCRE::REG-END) ; --> MAKE-ARRAY ; ==> ; (- CL-PPCRE::END CL-PPCRE::START) ; ; note: forced to do 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. ; (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. ; (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. ; --> 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. ; in: DEFUN REGEX-REPLACE ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; in: DEFUN REGEX-REPLACE-ALL ; (LENGTH CL-PPCRE::TARGET-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* OR LET IF ; ==> ; (LENGTH #:TARGET-STRING1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> BLOCK LET* SETQ THE CL-PPCRE::MAYBE-COERCE-TO-SIMPLE-STRING LET COND IF ; --> THE COERCE ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST ; (AND (NOT SIMPLE-BASE-STRING) ; (NOT (SIMPLE-ARRAY CHARACTER (*))) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SUBSEQ CL-PPCRE::TARGET-STRING CL-PPCRE::START CL-PPCRE::END) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SB-KERNEL:EXTENDED-SEQUENCE. ; (CL-PPCRE:DO-SCANS (CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END ; CL-PPCRE::REG-STARTS CL-PPCRE::REG-ENDS CL-PPCRE::REGEX ; CL-PPCRE::TARGET-STRING NIL :START CL-PPCRE::START :END ; CL-PPCRE::END) ; (PUSH CL-PPCRE::MATCH-START CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::MATCH-END CL-PPCRE::POS-LIST) ; (PUSH CL-PPCRE::REG-STARTS CL-PPCRE::REG-LIST) ; (PUSH CL-PPCRE::REG-ENDS CL-PPCRE::REG-LIST)) ; --> BLOCK LET* LOOP BLOCK TAGBODY PROGN MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION SETQ THE IF ; ==> ; (= CL-PPCRE::MATCH-START CL-PPCRE::MATCH-END) ; ; note: forced to do 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. ; --> 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. ; 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... {1004C2F1DF}> ; (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... {1004C2F1DF}> ; (DECLARE (OPTIMIZE SPEED (SPACE 0) (DEBUG 1) (COMPILATION-SPEED 0))) ; (BLOCK CL-PPCRE:REGEX-APROPOS-LIST ; (LET ((CL-PPCRE::COLLECTOR 'NIL)) ; (CL-PPCRE::REGEX-APROPOS-AUX (CL-PPCRE::REGEX CL-PPCRE::PACKAGES ; CL-PPCRE::CASE-INSENSITIVE ; CL-PPCRE::COLLECTOR) ; (PUSH SYMBOL CL-PPCRE::COLLECTOR))))) ; ; caught STYLE-WARNING: ; &OPTIONAL and &KEY found in the same lambda list: (REGEX &OPTIONAL PACKAGES ; &KEY ; (CASE-INSENSITIVE T)) ; in: DEFUN REGEX-APROPOS ; (DEFUN CL-PPCRE:REGEX-APROPOS ; (CL-PPCRE::REGEX ; &OPTIONAL CL-PPCRE::PACKAGES ; &KEY (CL-PPCRE::CASE-INSENSITIVE T)) ; #<(SIMPLE-ARRAY CHARACTER ; (216)) Similar to the standard function APROPOS but returns a list of all ; symbols which match the regular expression REGEX. If CASE-INSENSITIVE ; is true and REGEX isn't already a scanner, a case-insensitive ... {100525F82F}> ; (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 ... {100525F82F}> ; (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)) WARNING: Lisp compilation had style-warnings while compiling # ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/local-time-20231021-git/src/local-time.lisp ; in: DEFUN TRANSITION-POSITION ; (< LOCAL-TIME::NEEDLE (ELT LOCAL-TIME::HAYSTACK LOCAL-TIME::MIDDLE)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; in: DEFUN %SPLIT-TIMESTRING ; (= (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS)) 4) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (+ (CAAR LOCAL-TIME::PARTS) 2) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (+ (CAAR LOCAL-TIME::PARTS) 4) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (= (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS)) 2) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (+ (CAAR LOCAL-TIME::PARTS) 2) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS)) ; ; 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. ; (+ (CAAR LOCAL-TIME::PARTS) 2) ; ; 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. ; ; 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. ; (+ (CAAR LOCAL-TIME::PARTS) 4) ; ; 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. ; (- (CDAR LOCAL-TIME::PARTS) (CAAR LOCAL-TIME::PARTS)) ; ; 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. ; (+ (CAAR LOCAL-TIME::PARTS) 2) ; ; 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: DEFUN %CONSTRUCT-TIMESTRING ; (AREF LOCAL-TIME:+MONTH-NAMES+ LOCAL-TIME::MONTH) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (AREF LOCAL-TIME:+SHORT-MONTH-NAMES+ LOCAL-TIME::MONTH) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (AREF LOCAL-TIME:+DAY-NAMES+ LOCAL-TIME::WEEKDAY) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (AREF LOCAL-TIME:+SHORT-DAY-NAMES+ LOCAL-TIME::WEEKDAY) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (AREF LOCAL-TIME::+MINIMAL-DAY-NAMES+ LOCAL-TIME::WEEKDAY) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (MINUSP LOCAL-TIME::VAL) ; ; 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. ; (ABS LOCAL-TIME::VAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (REAL * (0)), not a RATIONAL. ; (MINUSP LOCAL-TIME::VAL) ; ; 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. ; (ABS LOCAL-TIME::VAL) ; ; note: forced to do full call ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a (REAL * (0)), not a SINGLE-FLOAT. ; The result is a (VALUES (REAL (0)) &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; unable to do inline float arithmetic (cost 1) because: ; The first argument is a (REAL * (0)), not a DOUBLE-FLOAT. ; The result is a (VALUES (REAL (0)) &OPTIONAL), not a (VALUES DOUBLE-FLOAT ; &OPTIONAL). ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/chipz-20230618-git/inflate.lisp ; in: DEFUN %INFLATE-STATE-MACHINE ; (* (CHIPZ::CMF CHIPZ::HEADER) 256) ; ; 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. ; (MOD (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE) 31) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (ZEROP (MOD (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE) 31)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 (31))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 (31))), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (= CHIPZ::STORED (CHIPZ::PRODUCE-CRC32 CHIPZ::CRC32)) ; ; note: unable to open code because: The operands might not be the same type. ; (COERCE (FUNCALL CHIPZ::SLOT CHIPZ::HEADER) '(VECTOR (UNSIGNED-BYTE 8))) ; ; 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 (SIMPLE-ARRAY * (*)). ; (FUNCALL (CHIPZ::INFLATE-STATE-STATE CHIPZ::STATE) CHIPZ::STATE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (ZEROP (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (ZEROP CHIPZ::N-COPIED-BYTES) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * ; 4611686018427387903)), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * ; 4611686018427387903)), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (<= CHIPZ::DISTANCE (- CHIPZ::INDEX CHIPZ::START)) ; ; 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. ; (MINUSP CHIPZ::COPY-INDEX) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (RATIONAL * (9223372036854808573)) ; (SINGLE-FLOAT * 9.223372e18) ; (DOUBLE-FLOAT * ; 9.223372036854809d18)), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (RATIONAL * (9223372036854808573)) ; (SINGLE-FLOAT * 9.223372e18) ; (DOUBLE-FLOAT * ; 9.223372036854809d18)), not a DOUBLE-FLOAT. ; (MIN CHIPZ::N-BYTES-TO-COPY (- CHIPZ::WINDOW-INDEX CHIPZ::COPY-INDEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -9.223372036854809d18 32767.0d0) ; (SINGLE-FLOAT -9.223372e18 32767.0) ; (RATIONAL (-9223372036854808573) ; 32767)), not a SINGLE-FLOAT. ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * ; 4611686018427387903)), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (DOUBLE-FLOAT -9.223372036854809d18 32767.0d0) ; (SINGLE-FLOAT -9.223372e18 32767.0) ; (RATIONAL (-9223372036854808573) ; 32767)), not a DOUBLE-FLOAT. ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * ; 4611686018427387903)), not a RATIONAL. ; (+ CHIPZ::COPY-INDEX (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE))) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a (REAL * (0)), not a RATIONAL. ; (MIN CHIPZ::N-BYTES-TO-COPY ; (- (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE)) ; CHIPZ::COPY-INDEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (FLOAT 0.0) (RATIONAL (0))), not a SINGLE-FLOAT. ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * ; 4611686018427387903)), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (FLOAT 0.0) (RATIONAL (0))), not a DOUBLE-FLOAT. ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * ; 4611686018427387903)), not a RATIONAL. ; (ZEROP (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (ZEROP CHIPZ::BITS) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) ; (CHIPZ::INFLATE-STATE-N-CODES CHIPZ::STATE)) ; ; 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. ; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) ; CHIPZ::+MAX-N-CODE-LENGTHS+) ; ; 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. ; (= CHIPZ::STORED (CHIPZ::PRODUCE-ADLER32 CHIPZ::ADLER32)) ; ; note: unable to open code because: The operands might not be the same type. ; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::N-VALUES) ; ; 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. ; (INCF (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) 22)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (ZEROP (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (< CHIPZ::N-VALUES ; (+ (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::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 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. ; (ASSERT (= CHIPZ::N-VALUES (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE))) ; --> LET WHEN IF ; ==> ; (= #:TEMP22 #:TEMP23) ; ; 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 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. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (* (CHIPZ::CMF CHIPZ::HEADER) 256) ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; (+ (* (CHIPZ::CMF CHIPZ::HEADER) 256) CHIPZ::FLAGS-BYTE) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (MIN (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE) ; (- (CHIPZ::INFLATE-STATE-INPUT-END CHIPZ::STATE) ; (CHIPZ::INFLATE-STATE-INPUT-INDEX CHIPZ::STATE)) ; (- (CHIPZ::INFLATE-STATE-OUTPUT-END CHIPZ::STATE) ; (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE))) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a T, not a FIXNUM. ; (+ (CHIPZ::INFLATE-STATE-OUTPUT-INDEX CHIPZ::STATE) CHIPZ::N-COPIED-BYTES) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * 4611686018427387903)), not a FIXNUM. ; The result is a (VALUES ; (OR (FLOAT * 9.223372e18) ; (RATIONAL * 9223372036854775806)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * 4611686018427387903)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR (FLOAT * 9.223372e18) ; (RATIONAL * 9223372036854775806)) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ (CHIPZ::INFLATE-STATE-INPUT-INDEX CHIPZ::STATE) CHIPZ::N-COPIED-BYTES) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * 4611686018427387903)), not a FIXNUM. ; The result is a (VALUES ; (OR (FLOAT * 9.223372e18) ; (RATIONAL * 9223372036854775806)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * 4611686018427387903)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR (FLOAT * 9.223372e18) ; (RATIONAL * 9223372036854775806)) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (DECF (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE) CHIPZ::N-COPIED-BYTES) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; 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 (INTEGER -4611686018427387903 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) ; (CHIPZ::INFLATE-STATE-N-CODES CHIPZ::STATE)) ; ; 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. ; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) ; CHIPZ::+MAX-N-CODE-LENGTHS+) ; ; 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. ; (+ (CHIPZ::INFLATE-STATE-N-LENGTH-CODES CHIPZ::STATE) ; (CHIPZ::INFLATE-STATE-N-DISTANCE-CODES CHIPZ::STATE)) ; ; 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. ; (< (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::N-VALUES) ; ; 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 NUMBER, 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 NUMBER, not a DOUBLE-FLOAT. ; etc. ; (INCF (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) 22)) ; ; 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. ; (1- (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE)) ; ; 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. ; (+ (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::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 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (< CHIPZ::N-VALUES ; (+ (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::LEN)) ; ; 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 NUMBER, 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 NUMBER, not a DOUBLE-FLOAT. ; etc. ; (+ (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::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 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (INCF (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE) CHIPZ::LEN) ; ==> ; (+ CHIPZ::LEN (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:INFLATE-STATE #:OBJ) 22)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (ASSERT (= CHIPZ::N-VALUES (CHIPZ::INFLATE-STATE-N-VALUES-READ CHIPZ::STATE))) ; --> LET WHEN IF ; ==> ; (= #:TEMP22 #:TEMP23) ; ; 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 T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a T, not a (COMPLEX SINGLE-FLOAT). ; etc. ; (+ (CHIPZ::DISTANCE-BASE (CHIPZ::INFLATE-STATE-DISTANCE CHIPZ::STATE)) ; CHIPZ::DISTANCE-EXTRA) ; ; 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (MIN LENGTH (- CHIPZ::END CHIPZ::INDEX)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a T, not a FIXNUM. ; (- CHIPZ::INDEX CHIPZ::DISTANCE) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * 4611686018427387903)), not a FIXNUM. ; The result is a (VALUES ; (OR (FLOAT -4.611686e18) ; (RATIONAL -4611686018427387903)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * 4611686018427387903)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR (FLOAT -4.611686e18) ; (RATIONAL -4611686018427387903)) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- CHIPZ::WINDOW-INDEX CHIPZ::DISTANCE) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR (FLOAT (-4.611686e18)) ; (RATIONAL (-4611686018427387903))), not a FIXNUM. ; The result is a (VALUES ; (OR (DOUBLE-FLOAT * 4.611686018427421d18) ; (SINGLE-FLOAT * 4.611686e18) ; (RATIONAL * (4611686018427420670))) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (OR (FLOAT (-4.611686e18)) ; (RATIONAL (-4611686018427387903))), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR (DOUBLE-FLOAT * 4.611686018427421d18) ; (SINGLE-FLOAT * 4.611686e18) ; (RATIONAL * (4611686018427420670))) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ (- CHIPZ::WINDOW-INDEX CHIPZ::DISTANCE) (- CHIPZ::INDEX CHIPZ::START)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427421d18) ; (SINGLE-FLOAT * 4.611686e18) ; (RATIONAL * (4611686018427420670))), not a FIXNUM. ; The result is a (VALUES ; (OR (RATIONAL * (9223372036854808573)) ; (SINGLE-FLOAT * 9.223372e18) ; (DOUBLE-FLOAT * 9.223372036854809d18)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (DOUBLE-FLOAT * 4.611686018427421d18) ; (SINGLE-FLOAT * 4.611686e18) ; (RATIONAL * (4611686018427420670))), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER -4611686018427387903 ; 4611686018427387903), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (OR (RATIONAL * (9223372036854808573)) ; (SINGLE-FLOAT * 9.223372e18) ; (DOUBLE-FLOAT * 9.223372036854809d18)) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (MINUSP CHIPZ::COPY-INDEX) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (OR (RATIONAL * (9223372036854808573)) ; (SINGLE-FLOAT * 9.223372e18) ; (DOUBLE-FLOAT * 9.223372036854809d18)), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (OR (RATIONAL * (9223372036854808573)) ; (SINGLE-FLOAT * 9.223372e18) ; (DOUBLE-FLOAT * 9.223372036854809d18)), not a FIXNUM. ; etc. ; (- CHIPZ::WINDOW-INDEX CHIPZ::COPY-INDEX) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR (RATIONAL 0 (9223372036854808573)) ; (SINGLE-FLOAT 0.0 9.223372e18) ; (DOUBLE-FLOAT 0.0d0 9.223372036854809d18)), not a FIXNUM. ; The result is a (VALUES ; (OR (DOUBLE-FLOAT -9.223372036854809d18 32767.0d0) ; (SINGLE-FLOAT -9.223372e18 32767.0) ; (RATIONAL (-9223372036854808573) 32767)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (OR (RATIONAL 0 (9223372036854808573)) ; (SINGLE-FLOAT 0.0 9.223372e18) ; (DOUBLE-FLOAT 0.0d0 9.223372036854809d18)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR (DOUBLE-FLOAT -9.223372036854809d18 32767.0d0) ; (SINGLE-FLOAT -9.223372e18 32767.0) ; (RATIONAL (-9223372036854808573) 32767)) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (MIN CHIPZ::N-BYTES-TO-COPY (- CHIPZ::WINDOW-INDEX CHIPZ::COPY-INDEX)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR ; (DOUBLE-FLOAT -9.223372036854809d18 32767.0d0) ; (SINGLE-FLOAT -9.223372e18 32767.0) ; (RATIONAL (-9223372036854808573) 32767)), not a SINGLE-FLOAT. ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * 4611686018427387903)), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR ; (DOUBLE-FLOAT -9.223372036854809d18 32767.0d0) ; (SINGLE-FLOAT -9.223372e18 32767.0) ; (RATIONAL (-9223372036854808573) 32767)), not a DOUBLE-FLOAT. ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * 4611686018427387903)), not a DOUBLE-FLOAT. ; etc. ; (+ CHIPZ::COPY-INDEX (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (REAL * (0)), not a FIXNUM. ; The result is a (VALUES (OR (FLOAT * 32768.0) (RATIONAL * (32768))) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (REAL * (0)), not a FIXNUM. ; The result is a (VALUES (OR (FLOAT * 32768.0) (RATIONAL * (32768))) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE)) CHIPZ::COPY-INDEX) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR (FLOAT * 32768.0) (RATIONAL * (32768))), not a FIXNUM. ; The result is a (VALUES (OR (FLOAT 0.0) (RATIONAL (0))) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (OR (FLOAT * 32768.0) (RATIONAL * (32768))), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES (OR (FLOAT 0.0) (RATIONAL (0))) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (MIN CHIPZ::N-BYTES-TO-COPY ; (- (LENGTH (CHIPZ::INFLATE-STATE-WINDOW CHIPZ::STATE)) ; CHIPZ::COPY-INDEX)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (FLOAT 0.0) (RATIONAL (0))), not a SINGLE-FLOAT. ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * 4611686018427387903)), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR (FLOAT 0.0) (RATIONAL (0))), not a DOUBLE-FLOAT. ; The second argument is a (OR (FLOAT * 4.611686e18) ; (RATIONAL * 4611686018427387903)), not a DOUBLE-FLOAT. ; etc. ; (DECF (CHIPZ::INFLATE-STATE-LENGTH CHIPZ::STATE) CHIPZ::N-BYTES-TO-COPY) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; 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 (OR (FLOAT * 4.611686e18) ; (RATIONAL * (4611686018427387904))), 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 (OR (FLOAT * 4.611686e18) ; (RATIONAL * (4611686018427387904))), not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (+ CHIPZ::COPY-INDEX CHIPZ::N-BYTES-TO-COPY) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -4611686018427387903 ; 4611686018427387903), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/chipz-20230618-git/bzip2.lisp ; in: DEFUN %BZIP2-STATE-MACHINE ; (MINUSP (CHIPZ::BZIP2-STATE-ORIGINAL-POINTER CHIPZ::STATE)) ; ; 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. ; (>= (CHIPZ::BZIP2-STATE-ORIGINAL-POINTER CHIPZ::STATE) ; (CHIPZ::BZIP2-STATE-NBLOCK CHIPZ::STATE)) ; ; 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. ; (INCF (CHIPZ::BZIP2-STATE-N-BLOCKS-USED CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 26)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (= (CHIPZ::BZIP2-STATE-N-BLOCKS-USED CHIPZ::STATE) ; (1+ (CHIPZ::BZIP2-STATE-NBLOCK CHIPZ::STATE))) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 48)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (< (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-ALPHA-SIZE CHIPZ::STATE)) ; ; 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. ; (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 49)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (< (CHIPZ::BZIP2-STATE-J CHIPZ::STATE) ; (CHIPZ::BZIP2-STATE-N-GROUPS CHIPZ::STATE)) ; ; 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. ; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 48)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (< (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-N-SELECTORS CHIPZ::STATE)) ; ; 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. ; (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 49)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (>= (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-N-GROUPS CHIPZ::STATE)) ; ; 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. ; (< (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16) ; ; 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. ; (* (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16) ; ; 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. ; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 48)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (INCF (CHIPZ::BZIP2-STATE-CURRENT-BLOCK-NUMBER CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 21)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (MINUSP (CHIPZ::BZIP2-STATE-ORIGINAL-POINTER CHIPZ::STATE)) ; ; 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. ; (INCF (CHIPZ::BZIP2-STATE-N-BLOCKS-USED CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 26)) ; ; 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. ; (INCF (CHIPZ::BZIP2-STATE-CURRENT-BLOCK-NUMBER CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 21)) ; ; 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. ; (< (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16) ; ; 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. ; (LOGBITP (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) CHIPZ::IN-USE-16) ; --> LET PROGN UNLESS IF TYPEP ; ==> ; 1 ; ; 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. ; (* (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16) ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; (+ (* (CHIPZ::BZIP2-STATE-I CHIPZ::STATE) 16) CHIPZ::I) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 48)) ; ; 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. ; (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 49)) ; ; 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. ; (>= (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-N-GROUPS CHIPZ::STATE)) ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 48)) ; ; 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. ; (< (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-N-SELECTORS CHIPZ::STATE)) ; ; 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 DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; (< (CHIPZ::BZIP2-STATE-J CHIPZ::STATE) ; (CHIPZ::BZIP2-STATE-N-GROUPS CHIPZ::STATE)) ; ; 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. ; (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 48)) ; ; 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. ; (< (INCF (CHIPZ::BZIP2-STATE-I CHIPZ::STATE)) ; (CHIPZ::BZIP2-STATE-ALPHA-SIZE CHIPZ::STATE)) ; ; 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. ; (INCF (CHIPZ::BZIP2-STATE-J CHIPZ::STATE)) ; ==> ; (+ 1 (SB-KERNEL:%INSTANCE-REF (THE CHIPZ:BZIP2-STATE #:OBJ) 49)) ; ; 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. ; (MAX CHIPZ::MAXLEN CHIPZ::XY) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a (REAL 0), not a FIXNUM. ; (MIN CHIPZ::MINLEN CHIPZ::XY) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a (REAL * 255), not a FIXNUM. ; (ERROR 'CHIPZ:INVALID-BZIP2-DATA) ; ; note: deleting unreachable code ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/chipz-20230618-git/stream.lisp ; in: DEFINE-STREAM-READ-SEQUENCE DECOMPRESSING-STREAM ; (CALL-NEXT-METHOD) ; ; note: deleting unreachable code ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-base64-20201016-git/encode.lisp ; in: DEFUN ROUND-NEXT-MULTIPLE ; (MOD CL-BASE64::X CL-BASE64::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (+ CL-BASE64::X (THE FIXNUM (- CL-BASE64::N CL-BASE64::REMAINDER))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEF-*-TO-BASE64-* :STRING ; (CL-BASE64::DEF-*-TO-BASE64-* :STRING :STRING) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF ; --> CL-BASE64::OUTPUT-GROUP THE + THE ASH CHAR-CODE THE CHAR ; ==> ; 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. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF IF ; --> CL-BASE64::OUTPUT-GROUP THE ASH CHAR-CODE THE CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY TAGBODY CL-BASE64::OUTPUT-GROUP THE ; --> + ; ==> ; 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. ; (CL-BASE64::DEF-*-TO-BASE64-* :STRING :STREAM) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF ; --> CL-BASE64::OUTPUT-GROUP THE + THE ASH CHAR-CODE THE CHAR ; ==> ; 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. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF IF ; --> CL-BASE64::OUTPUT-GROUP THE ASH CHAR-CODE THE CHAR ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY TAGBODY CL-BASE64::OUTPUT-GROUP THE ; --> + ; ==> ; 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. ; in: DEF-*-TO-BASE64-* :USB8-ARRAY ; (CL-BASE64::DEF-*-TO-BASE64-* :USB8-ARRAY :STRING) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF ; --> CL-BASE64::OUTPUT-GROUP THE + THE ASH THE AREF ; ==> ; 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. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF IF ; --> CL-BASE64::OUTPUT-GROUP THE ASH THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY TAGBODY CL-BASE64::OUTPUT-GROUP THE ; --> + ; ==> ; 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. ; (CL-BASE64::DEF-*-TO-BASE64-* :USB8-ARRAY :STREAM) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF ; --> CL-BASE64::OUTPUT-GROUP THE + THE ASH THE AREF ; ==> ; 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. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY RETURN-FROM PROGN COND IF IF ; --> CL-BASE64::OUTPUT-GROUP THE ASH THE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> LET LET* LABELS DO BLOCK LET TAGBODY TAGBODY CL-BASE64::OUTPUT-GROUP THE ; --> + ; ==> ; 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. ; in: DEFUN INTEGER-TO-BASE64-STRING ; (MOD CL-BASE64::PADDED-BITS 24) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (ZEROP CL-BASE64::REMAINDER-PADDING) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 (24))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 (24))), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (/ CL-BASE64::PADDING-BITS 6) ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 24)), not a INTEGER. ; (/ (+ CL-BASE64::PADDED-BITS CL-BASE64::PADDING-BITS) 6) ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (/ CL-BASE64::PADDING-BITS 3) ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 24)), not a INTEGER. ; (INTEGER-LENGTH CL-BASE64::INPUT) ; ; note: forced to do full call ; unable to do inline positive fixnum integer-length (cost 24) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 62). ; unable to do inline fixnum integer-length (cost 25) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; (- 24 CL-BASE64::REMAINDER-PADDING) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR FLOAT (RATIONAL 0 (24))), not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (0) 24)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (OR FLOAT (RATIONAL 0 (24))), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (0) 24)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (+ CL-BASE64::PADDED-BITS CL-BASE64::PADDING-BITS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a (OR FLOAT (RATIONAL 0 24)), not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a (OR FLOAT (RATIONAL 0 24)), not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (* CL-BASE64::COLUMNS (TRUNCATE CL-BASE64::PADDED-LENGTH CL-BASE64::COLUMNS)) ; ; note: forced to do */SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653957237540927630737409) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653957237540927630737409) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; (- CL-BASE64::PADDED-LENGTH ; (* CL-BASE64::COLUMNS ; (TRUNCATE CL-BASE64::PADDED-LENGTH CL-BASE64::COLUMNS))) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653957237540927630737409), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125313 ; 21267647932558653966460912964485513215) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a (INTEGER -21267647932558653961849226946058125312 ; 21267647932558653957237540927630737409), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER -21267647932558653961849226946058125313 ; 21267647932558653966460912964485513215) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (ASH CL-BASE64::INPUT (/ CL-BASE64::PADDING-BITS 3)) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (OR FLOAT (RATIONAL 0 8)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (OR FLOAT (RATIONAL 0 8)), not a (UNSIGNED-BYTE ; 62). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (ASH CL-BASE64::INT -6) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN INTEGER-TO-BASE64-STREAM ; (MOD CL-BASE64::PADDED-BITS 24) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (ZEROP CL-BASE64::REMAINDER-PADDING) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 (24))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 (24))), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (/ CL-BASE64::PADDING-BITS 6) ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 24)), not a INTEGER. ; (/ (+ CL-BASE64::PADDED-BITS CL-BASE64::PADDING-BITS) 6) ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (/ CL-BASE64::PADDING-BITS 3) ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a (OR FLOAT (RATIONAL 0 24)), not a INTEGER. ; (INTEGER-LENGTH CL-BASE64::INPUT) ; ; note: forced to do full call ; unable to do inline positive fixnum integer-length (cost 24) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 62). ; unable to do inline fixnum integer-length (cost 25) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; (- 24 CL-BASE64::REMAINDER-PADDING) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR FLOAT (RATIONAL 0 (24))), not a FIXNUM. ; The result is a (VALUES (OR FLOAT (RATIONAL (0) 24)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (OR FLOAT (RATIONAL 0 (24))), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES (OR FLOAT (RATIONAL (0) 24)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (+ CL-BASE64::PADDED-BITS CL-BASE64::PADDING-BITS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a (OR FLOAT (RATIONAL 0 24)), not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a (OR FLOAT (RATIONAL 0 24)), not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (- CL-BASE64::STRLEN CL-BASE64::PADDING-CHARS) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR FLOAT (RATIONAL 0 4)), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT ; (RATIONAL -4611686018427387908 4611686018427387903)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The second argument is a (OR FLOAT (RATIONAL 0 4)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR FLOAT ; (RATIONAL -4611686018427387908 4611686018427387903)) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (1- CL-BASE64::NONPAD-CHARS) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR FLOAT ; (RATIONAL -4611686018427387908 ; 4611686018427387903)), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT ; (RATIONAL -4611686018427387909 4611686018427387902)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR FLOAT ; (RATIONAL -4611686018427387908 ; 4611686018427387903)), not a FIXNUM. ; The result is a (VALUES ; (OR FLOAT ; (RATIONAL -4611686018427387909 4611686018427387902)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (ASH CL-BASE64::INPUT (/ CL-BASE64::PADDING-BITS 3)) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (OR FLOAT (RATIONAL 0 8)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (OR FLOAT (RATIONAL 0 8)), not a (UNSIGNED-BYTE ; 62). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (ASH CL-BASE64::INT -6) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-base64-20201016-git/decode.lisp ; in: DEFINE-BASE64-DECODER :STRING ; (CL-BASE64::DEFINE-BASE64-DECODER :STRING :USB8-ARRAY) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> LET COND IF IF IF CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN IF ; --> SETQ THE CHAR-CODE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CL-BASE64::DEFINE-BASE64-DECODER :STRING :STRING) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> LET COND IF IF IF CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN IF ; --> SETQ THE CHAR-CODE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CL-BASE64::DEFINE-BASE64-DECODER :STRING :INTEGER) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> LET COND IF IF IF CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN IF ; --> SETQ THE CHAR-CODE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> LET COND IF IF IF CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN COND ; --> IF IF IF IF THE PROGN WHEN IF PROGN LET SETQ THE LOGIOR ; ==> ; (ASH CL-BASE64::RESULT 8) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> LET COND IF IF IF CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN COND ; --> IF IF IF IF THE PROGN WHEN IF PROGN LET SETQ THE ; ==> ; (LOGIOR (ASH CL-BASE64::RESULT 8) BYTE) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> LET COND IF IF CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN COND IF ; --> IF IF IF THE PROGN WHEN IF PROGN LET SETQ THE LOGIOR ; ==> ; (ASH CL-BASE64::RESULT 8) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> LET COND IF IF CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN COND IF ; --> IF IF IF THE PROGN WHEN IF PROGN LET SETQ THE ; ==> ; (LOGIOR (ASH CL-BASE64::RESULT 8) BYTE) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> LET COND IF CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN COND IF IF ; --> IF IF THE PROGN WHEN IF PROGN LET SETQ THE LOGIOR ; ==> ; (ASH CL-BASE64::RESULT 8) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> LET COND IF CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN COND IF IF ; --> IF IF THE PROGN WHEN IF PROGN LET SETQ THE ; ==> ; (LOGIOR (ASH CL-BASE64::RESULT 8) BYTE) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (CL-BASE64::DEFINE-BASE64-DECODER :STRING :STREAM) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET LET CL-BASE64::ETYPECASE/UNROLL ETYPECASE ; --> LET COND IF IF IF CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY PROGN IF ; --> SETQ THE CHAR-CODE AREF ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFINE-BASE64-DECODER :STREAM ; (CL-BASE64::DEFINE-BASE64-DECODER :STREAM :INTEGER) ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY ; --> PROGN COND IF IF IF IF THE PROGN WHEN IF PROGN LET SETQ THE LOGIOR ; ==> ; (ASH CL-BASE64::RESULT 8) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; --> PROGN SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK ; --> CL-BASE64::LET/TYPED LET FLET CL-BASE64::LET/TYPED LET LOOP BLOCK TAGBODY ; --> PROGN COND IF IF IF IF THE PROGN WHEN IF PROGN LET SETQ THE ; ==> ; (LOGIOR (ASH CL-BASE64::RESULT 8) BYTE) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/bordeaux-threads-v0.9.3/apiv2/atomics.lisp ; in: DEFUN ATOMIC-INTEGER-DECF ; (BORDEAUX-THREADS-2::ATOMIC-DECF ; (BORDEAUX-THREADS-2::ATOMIC-INTEGER-CELL BORDEAUX-THREADS-2::ATOMIC-INTEGER) ; BORDEAUX-THREADS-2::DELTA) ; ; note: forced to do -/UNSIGNED=>INTEGER (cost 8) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The second argument is a (UNSIGNED-BYTE 63), not a FIXNUM. ; The result is a (VALUES ; (INTEGER -9223372036854775807 18446744073709551615) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; in: DEFUN ATOMIC-INTEGER-INCF ; (BORDEAUX-THREADS-2::ATOMIC-INCF ; (BORDEAUX-THREADS-2::ATOMIC-INTEGER-CELL BORDEAUX-THREADS-2::ATOMIC-INTEGER) ; BORDEAUX-THREADS-2::DELTA) ; ; note: forced to do +/UNSIGNED=>INTEGER (cost 8) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The second argument is a (UNSIGNED-BYTE 63), not a FIXNUM. ; The result is a (VALUES (MOD 27670116110564327423) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; in: DEFUN ATOMIC-INTEGER-VALUE ; (DEFUN BORDEAUX-THREADS-2:ATOMIC-INTEGER-VALUE ; (BORDEAUX-THREADS-2::ATOMIC-INTEGER) ; "Returns the current value of `ATOMIC-INTEGER`." ; (DECLARE ; (TYPE BORDEAUX-THREADS-2::ATOMIC-INTEGER ; BORDEAUX-THREADS-2::ATOMIC-INTEGER) ; (OPTIMIZE (SAFETY 0) (SPEED 3))) ; (PROGN ; (BORDEAUX-THREADS-2::ATOMIC-INTEGER-CELL ; BORDEAUX-THREADS-2::ATOMIC-INTEGER))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA BORDEAUX-THREADS-2:ATOMIC-INTEGER-VALUE ; (BORDEAUX-THREADS-2::ATOMIC-INTEGER) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; "Returns the current value of `ATOMIC-INTEGER`." ; (DECLARE ; (TYPE BORDEAUX-THREADS-2::ATOMIC-INTEGER ; BORDEAUX-THREADS-2::ATOMIC-INTEGER) ; (OPTIMIZE (SAFETY 0) (SPEED 3))) ; (BLOCK BORDEAUX-THREADS-2:ATOMIC-INTEGER-VALUE ; (PROGN ; (BORDEAUX-THREADS-2::ATOMIC-INTEGER-CELL ; BORDEAUX-THREADS-2::ATOMIC-INTEGER)))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl+ssl-20231021-git/src/ffi.lisp ; in: DEFMACRO DEFCFUN-LATE-BOUND ; (LENGTH CL+SSL::NAME-AND-OPTIONS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLeay" CL+SSL::SSL-EAY) ; :LONG) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-EAY ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-EAY ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLeay" (:LONG) :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:SINCE "1.1.0") ; ("OpenSSL_version_num" CL+SSL::OPENSSL-VERSION-NUM) ; :LONG) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::OPENSSL-VERSION-NUM ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::OPENSSL-VERSION-NUM ; (CFFI-SYS:%FOREIGN-FUNCALL "OpenSSL_version_num" (:LONG) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBCRYPTO))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFUN ENCODE-OPENSSL-VERSION-IMPL ; (POSITION CL+SSL::PATCH CL+SSL::+OPENSSL-VERSION-PATCH-CHARACTERS+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (POSITION CL+SSL::STATUS CL+SSL::+OPENSSL-VERSION-STATUS-STRINGS+ :TEST ; #'STRING=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (LOGIOR (ASH CL+SSL::MAJOR 28) (ASH CL+SSL::MINOR 20) (ASH CL+SSL::FIX 12) ; (ASH CL+SSL::PATCH-INT 4) CL+SSL::STATUS-INT) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR NULL INTEGER), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The second argument is a (OR NULL INTEGER), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN ENCODE-OPENSSL-VERSION ; (>= CL+SSL::MAJOR 3) ; ; 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. ; in: DEFUN OPENSSL-IS-AT-LEAST ; (>= (CL+SSL::COMPAT-OPENSSL-VERSION) ; (CL+SSL::ENCODE-OPENSSL-VERSION CL+SSL::MAJOR CL+SSL::MINOR ; CL+SSL::PATCH-OR-FIX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; in: DEFUN OPENSSL-IS-NOT-EVEN ; (< (CL+SSL::COMPAT-OPENSSL-VERSION) ; (CL+SSL::ENCODE-OPENSSL-VERSION CL+SSL::MAJOR CL+SSL::MINOR ; CL+SSL::PATCH-OR-FIX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: forced to do 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 DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; in: DEFUN LIBRESSLP ; (= 536870912 (CL+SSL::COMPAT-OPENSSL-VERSION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFINE-SSL-FUNCTION ("SSL_get_version" SSL-GET-VERSION) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_get_version" CL+SSL::SSL-GET-VERSION) ; :STRING ; (CL+SSL::SSL CL+SSL::SSL-POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_version" (:POINTER #:G1 :POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLv23_client_method" CL+SSL::SSL-V23-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V23-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V23-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv23_client_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLv23_server_method" CL+SSL::SSL-V23-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V23-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V23-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv23_server_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLv23_method" CL+SSL::SSL-V23-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V23-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V23-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv23_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLv3_client_method" CL+SSL::SSL-V3-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V3-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V3-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv3_client_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLv3_server_method" CL+SSL::SSL-V3-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V3-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V3-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv3_server_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLv3_method" CL+SSL::SSL-V3-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V3-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V3-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv3_method" (:POINTER) :CONVENTION :CDECL ; :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION ("TLSv1_client_method" SSL-TLSV1-CLIENT-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("TLSv1_client_method" CL+SSL::SSL-TLSV1-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_client_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION ("TLSv1_server_method" SSL-TLSV1-SERVER-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("TLSv1_server_method" CL+SSL::SSL-TLSV1-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_server_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION ("TLSv1_method" SSL-TLSV1-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("TLSv1_method" CL+SSL::SSL-TLSV1-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_method" (:POINTER) :CONVENTION :CDECL ; :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.0.2") ; ("TLSv1_1_client_method" CL+SSL::SSL-TLSV1-1-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-1-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-1-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_1_client_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.0.2") ; ("TLSv1_1_server_method" CL+SSL::SSL-TLSV1-1-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-1-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-1-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_1_server_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.0.2") ; ("TLSv1_1_method" CL+SSL::SSL-TLSV1-1-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-1-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-1-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_1_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.0.2") ; ("TLSv1_2_client_method" CL+SSL::SSL-TLSV1-2-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-2-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-2-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_2_client_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.0.2") ; ("TLSv1_2_server_method" CL+SSL::SSL-TLSV1-2-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-2-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-2-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_2_server_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.0.2") ; ("TLSv1_2_method" CL+SSL::SSL-TLSV1-2-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-2-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-2-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_2_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.1.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.1.0") ; ("TLS_method" CL+SSL::TLS-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::TLS-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::TLS-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLS_method" (:POINTER) :CONVENTION :CDECL ; :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION ("SSL_CTX_new" SSL-CTX-NEW) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_CTX_new" CL+SSL::SSL-CTX-NEW) ; CL+SSL::SSL-CTX ; (METHOD CL+SSL::SSL-METHOD)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-NEW ; (METHOD) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-CTX-NEW ; (LET ((#:G1 METHOD)) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_new" (:POINTER #:G1 :POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION ("SSL_new" SSL-NEW) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_new" CL+SSL::SSL-NEW) ; CL+SSL::SSL-POINTER ; (CL+SSL::CTX CL+SSL::SSL-CTX)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-NEW ; (CL+SSL::CTX) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-NEW ; (LET ((#:G1 CL+SSL::CTX)) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_new" (:POINTER #:G1 :POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("BIO_ctrl" BIO-SET-FD) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("BIO_ctrl" CL+SSL::BIO-SET-FD) ; :LONG ; (CL+SSL::BIO :POINTER) ; (CL+SSL::CMD :INT) ; (CL+SSL::LARG :LONG) ; (CL+SSL::PARG :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-SET-FD ; (CL+SSL::BIO CL+SSL::CMD CL+SSL::LARG CL+SSL::PARG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::BIO-SET-FD ; (LET ((#:G1 CL+SSL::BIO)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("BIO_new_socket" BIO-NEW-SOCKET) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("BIO_new_socket" CL+SSL::BIO-NEW-SOCKET) ; :POINTER ; (CL+SSL::FD :INT) ; (CL+SSL::CLOSE-FLAG :INT)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-NEW-SOCKET ; (CL+SSL::FD CL+SSL::CLOSE-FLAG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::BIO-NEW-SOCKET ; (LET ((#:G1 CL+SSL::FD)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_new_socket" # :CONVENTION :CDECL ; :LIBRARY CL+SSL/CONFIG::LIBCRYPTO))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("BIO_new" BIO-NEW) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("BIO_new" CL+SSL::BIO-NEW) ; :POINTER ; (METHOD :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-NEW ; (METHOD) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::BIO-NEW ; (LET ((#:G1 METHOD)) ; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_new" (:POINTER #:G1 :POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("BIO_free" BIO-FREE) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("BIO_free" CL+SSL::BIO-FREE) ; :POINTER ; (METHOD :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-FREE ; (METHOD) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::BIO-FREE ; (LET ((#:G1 METHOD)) ; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_free" (:POINTER #:G1 :POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:SINCE "1.1.0") ; ("BIO_meth_new" CL+SSL::BIO-METH-NEW) ; :POINTER ; (TYPE :INT) ; (CL+SSL::NAME :STRING)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-METH-NEW ; (TYPE CL+SSL::NAME) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::BIO-METH-NEW ; (LET ((#:G0 TYPE)) ; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM2) ; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::NAME #) ; (UNWIND-PROTECT # #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("ERR_get_error" ERR-GET-ERROR) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("ERR_get_error" CL+SSL::ERR-GET-ERROR) ; :UNSIGNED-LONG) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::ERR-GET-ERROR ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::ERR-GET-ERROR ; (CFFI-SYS:%FOREIGN-FUNCALL "ERR_get_error" (:UNSIGNED-LONG) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBCRYPTO))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("ERR_error_string" ERR-ERROR-STRING) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("ERR_error_string" CL+SSL::ERR-ERROR-STRING) ; :STRING ; (CL+SSL::E :UNSIGNED-LONG) ; (CL+SSL::BUF :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET ; --> LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ; (CFFI-SYS:%FOREIGN-FUNCALL "ERR_error_string" ; (:UNSIGNED-LONG #:G1 :POINTER #:G2 :POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFINE-SSL-FUNCTION ("SSL_CTX_ctrl" SSL-CTX-CTRL) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_CTX_ctrl" CL+SSL::SSL-CTX-CTRL) ; :LONG ; (CL+SSL::CTX CL+SSL::SSL-CTX) ; (CL+SSL::CMD :INT) ; (CL+SSL::LARG :UNSIGNED-LONG) ; (CL+SSL::PARG :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-CTRL ; (CL+SSL::CTX CL+SSL::CMD CL+SSL::LARG CL+SSL::PARG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-CTX-CTRL ; (LET ((#:G1 CL+SSL::CTX)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION ("SSL_ctrl" SSL-CTRL) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_ctrl" CL+SSL::SSL-CTRL) ; :LONG ; (CL+SSL::SSL :POINTER) ; (CL+SSL::CMD :INT) ; (CL+SSL::LARG :LONG) ; (CL+SSL::PARG :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTRL ; (CL+SSL::SSL CL+SSL::CMD CL+SSL::LARG CL+SSL::PARG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-CTRL ; (LET ((#:G1 CL+SSL::SSL)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFUN SSL-CTX-SET-OPTIONS ; (CL+SSL::SSL-CTX-CTRL CL+SSL::CTX CL+SSL::+SSL-CTRL-OPTIONS+ CL+SSL::OPTIONS ; (CFFI-SYS:NULL-POINTER)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFUN SSL-CTX-SET-MIN-PROTO-VERSION ; (CL+SSL::SSL-CTX-CTRL CL+SSL::CTX CL+SSL::+SSL-CTRL-SET-MIN-PROTO-VERSION+ ; CL+SSL::VERSION (CFFI-SYS:NULL-POINTER)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFUN SSL-CTX-SET-MAX-PROTO-VERSION ; (CL+SSL::SSL-CTX-CTRL CL+SSL::CTX CL+SSL::+SSL-CTRL-SET-MAX-PROTO-VERSION+ ; CL+SSL::VERSION (CFFI-SYS:NULL-POINTER)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: ; DEFINE-SSL-FUNCTION ("SSL_load_client_CA_file" SSL-LOAD-CLIENT-CA-FILE) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_load_client_CA_file" CL+SSL::SSL-LOAD-CLIENT-CA-FILE) ; CL+SSL::SSL-POINTER ; (CL+SSL::FILE :STRING)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-LOAD-CLIENT-CA-FILE ; (CL+SSL::FILE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-LOAD-CLIENT-CA-FILE ; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM2) ; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::FILE ; #) ; (UNWIND-PROTECT (PROGN #) ; (CFFI:FREE-TRANSLATED-OBJECT #:G1 # #:PARAM2))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION ("SSL_get_verify_result" SSL-GET-VERIFY-RESULT) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_get_verify_result" CL+SSL::SSL-GET-VERIFY-RESULT) ; :LONG ; (CL+SSL::SSL CL+SSL::SSL-POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET-VERIFY-RESULT ; (CL+SSL::SSL) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-GET-VERIFY-RESULT ; (LET ((#:G1 CL+SSL::SSL)) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_verify_result" ; (:POINTER #:G1 :LONG) :CONVENTION :CDECL ; :LIBRARY CL+SSL/CONFIG::LIBSSL)))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "3.0.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "3.0.0") ; ("SSL_get_peer_certificate" CL+SSL::SSL-GET-PEER-CERTIFICATE) ; :POINTER ; (CL+SSL::SSL CL+SSL::SSL-POINTER)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET-PEER-CERTIFICATE ; (CL+SSL::SSL) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-GET-PEER-CERTIFICATE ; (LET ((#:G0 CL+SSL::SSL)) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_peer_certificate" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION-EX (:SINCE "3.0.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "3.0.0") ; ("SSL_get1_peer_certificate" CL+SSL::SSL-GET1-PEER-CERTIFICATE) ; :POINTER ; (CL+SSL::SSL CL+SSL::SSL-POINTER)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET1-PEER-CERTIFICATE ; (CL+SSL::SSL) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-GET1-PEER-CERTIFICATE ; (LET ((#:G0 CL+SSL::SSL)) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get1_peer_certificate" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFUN COMPAT-SSL-GET1-PEER-CERTIFICATE ; (FUNCALL ; (IF (CL+SSL::OPENSSL-IS-AT-LEAST 3 0 0) ; 'CL+SSL::SSL-GET1-PEER-CERTIFICATE ; 'CL+SSL::SSL-GET-PEER-CERTIFICATE) ; CL+SSL::HANDLE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFINE-CRYPTO-FUNCTION ("X509_NAME_oneline" X509-NAME-ONELINE) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("X509_NAME_oneline" CL+SSL::X509-NAME-ONELINE) ; :POINTER ; (CL+SSL::X509-NAME :POINTER) ; (CL+SSL::BUF :POINTER) ; (CL+SSL::SIZE :INT)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-ONELINE ; (CL+SSL::X509-NAME CL+SSL::BUF CL+SSL::SIZE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-NAME-ONELINE ; (LET ((#:G1 CL+SSL::X509-NAME)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("X509_NAME_get_entry" X509-NAME-GET-ENTRY) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("X509_NAME_get_entry" CL+SSL::X509-NAME-GET-ENTRY) ; :POINTER ; (CL+SSL::NAME :POINTER) ; (LOG :INT)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-GET-ENTRY ; (CL+SSL::NAME LOG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-NAME-GET-ENTRY ; (LET ((#:G1 CL+SSL::NAME)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_NAME_get_entry" # :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: ; DEFINE-CRYPTO-FUNCTION ("X509_NAME_ENTRY_get_data" X509-NAME-ENTRY-GET-DATA) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("X509_NAME_ENTRY_get_data" CL+SSL::X509-NAME-ENTRY-GET-DATA) ; :POINTER ; (CL+SSL::NAME-ENTRY :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-ENTRY-GET-DATA ; (CL+SSL::NAME-ENTRY) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-NAME-ENTRY-GET-DATA ; (LET ((#:G1 CL+SSL::NAME-ENTRY)) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_NAME_ENTRY_get_data" ; (:POINTER #:G1 :POINTER) :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: ; DEFINE-CRYPTO-FUNCTION ("X509_get_issuer_name" X509-GET-ISSUER-NAME) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("X509_get_issuer_name" CL+SSL::X509-GET-ISSUER-NAME) ; :POINTER ; (CL+SSL::X509 :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET-ISSUER-NAME ; (CL+SSL::X509) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-GET-ISSUER-NAME ; (LET ((#:G1 CL+SSL::X509)) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get_issuer_name" ; (:POINTER #:G1 :POINTER) :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: ; DEFINE-CRYPTO-FUNCTION ("X509_get_subject_name" X509-GET-SUBJECT-NAME) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("X509_get_subject_name" CL+SSL::X509-GET-SUBJECT-NAME) ; :POINTER ; (CL+SSL::X509 :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET-SUBJECT-NAME ; (CL+SSL::X509) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-GET-SUBJECT-NAME ; (LET ((#:G1 CL+SSL::X509)) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get_subject_name" ; (:POINTER #:G1 :POINTER) :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:SINCE "1.1.0") ; ("X509_get0_notBefore" CL+SSL::X509-GET0-NOT-BEFORE) ; :POINTER ; (CL+SSL::X509 :POINTER)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET0-NOT-BEFORE ; (CL+SSL::X509) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-GET0-NOT-BEFORE ; (LET ((#:G0 CL+SSL::X509)) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get0_notBefore" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:SINCE "1.1.0") ; ("X509_get0_notAfter" CL+SSL::X509-GET0-NOT-AFTER) ; :POINTER ; (CL+SSL::X509 :POINTER)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET0-NOT-AFTER ; (CL+SSL::X509) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-GET0-NOT-AFTER ; (LET ((#:G0 CL+SSL::X509)) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get0_notAfter" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("X509_get_ext_d2i" X509-GET-EXT-D2I) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("X509_get_ext_d2i" CL+SSL::X509-GET-EXT-D2I) ; :POINTER ; (CL+SSL::CERT :POINTER) ; (CL+SSL::NID :INT) ; (CL+SSL::CRIT :POINTER) ; (CL+SSL::IDX :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET-EXT-D2I ; (CL+SSL::CERT CL+SSL::NID CL+SSL::CRIT CL+SSL::IDX) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-GET-EXT-D2I ; (LET ((#:G1 CL+SSL::CERT)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("d2i_X509" D2I-X509) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("d2i_X509" CL+SSL::D2I-X509) ; :POINTER ; (CL+SSL::*PX :POINTER) ; (CL+SSL::IN :POINTER) ; (CL+SSL::LEN :INT)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::D2I-X509 ; (CL+SSL::*PX CL+SSL::IN CL+SSL::LEN) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::D2I-X509 ; (LET ((#:G1 CL+SSL::*PX)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("PEM_read_bio_X509" PEM-READ-X509) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("PEM_read_bio_X509" CL+SSL::PEM-READ-X509) ; :POINTER ; (CL+SSL::BIO :POINTER) ; (CL+SSL::X509 :INT) ; (CL+SSL::CALLBACK :INT) ; (CL+SSL::PASSPHRASE :INT)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::PEM-READ-X509 ; (CL+SSL::BIO CL+SSL::X509 CL+SSL::CALLBACK CL+SSL::PASSPHRASE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::PEM-READ-X509 ; (LET ((#:G1 CL+SSL::BIO)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: ; DEFINE-CRYPTO-FUNCTION ("EVP_get_digestbyname" EVP-GET-DIGEST-BY-NAME) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("EVP_get_digestbyname" CL+SSL::EVP-GET-DIGEST-BY-NAME) ; :POINTER ; (CL+SSL::NAME :STRING)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::EVP-GET-DIGEST-BY-NAME ; (CL+SSL::NAME) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::EVP-GET-DIGEST-BY-NAME ; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM2) ; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::NAME ; #) ; (UNWIND-PROTECT (PROGN #) ; (CFFI:FREE-TRANSLATED-OBJECT #:G1 # #:PARAM2))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("sk_value" CL+SSL::SK-VALUE) ; :POINTER ; (CL+SSL::STACK :POINTER) ; (CL+SSL::INDEX :INT)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SK-VALUE ; (CL+SSL::STACK CL+SSL::INDEX) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SK-VALUE ; (LET ((#:G0 CL+SSL::STACK)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "sk_value" # :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:SINCE "1.1.0") ; ("OPENSSL_sk_value" CL+SSL::OPENSSL-SK-VALUE) ; :POINTER ; (CL+SSL::STACK :POINTER) ; (CL+SSL::INDEX :INT)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::OPENSSL-SK-VALUE ; (CL+SSL::STACK CL+SSL::INDEX) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::OPENSSL-SK-VALUE ; (LET ((#:G0 CL+SSL::STACK)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "OPENSSL_sk_value" # :CONVENTION :CDECL ; :LIBRARY CL+SSL/CONFIG::LIBCRYPTO))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFUN SK-GENERAL-NAME-VALUE ; (DEFUN CL+SSL::SK-GENERAL-NAME-VALUE (CL+SSL::NAMES CL+SSL::INDEX) ; (IF (AND (NOT (CL+SSL::LIBRESSLP)) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1)) ; (CL+SSL::OPENSSL-SK-VALUE CL+SSL::NAMES CL+SSL::INDEX) ; (CL+SSL::SK-VALUE CL+SSL::NAMES CL+SSL::INDEX))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SK-GENERAL-NAME-VALUE ; (CL+SSL::NAMES CL+SSL::INDEX) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SK-GENERAL-NAME-VALUE ; (IF (AND (NOT #) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1)) ; (CL+SSL::OPENSSL-SK-VALUE CL+SSL::NAMES CL+SSL::INDEX) ; (CL+SSL::SK-VALUE CL+SSL::NAMES CL+SSL::INDEX)))) ; ; note: Type assertion too complex to check: ; (VALUES SB-SYS:SYSTEM-AREA-POINTER &REST T). ; It allows an unknown number of values, consider using ; (VALUES SB-SYS:SYSTEM-AREA-POINTER &OPTIONAL). ; in: DEFUN SK-GENERAL-NAME-NUM ; (DEFUN CL+SSL::SK-GENERAL-NAME-NUM (CL+SSL::NAMES) ; (IF (AND (NOT (CL+SSL::LIBRESSLP)) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1)) ; (CL+SSL::OPENSSL-SK-NUM CL+SSL::NAMES) ; (CL+SSL::SK-NUM CL+SSL::NAMES))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SK-GENERAL-NAME-NUM ; (CL+SSL::NAMES) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SK-GENERAL-NAME-NUM ; (IF (AND (NOT #) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1)) ; (CL+SSL::OPENSSL-SK-NUM CL+SSL::NAMES) ; (CL+SSL::SK-NUM CL+SSL::NAMES)))) ; ; note: Type assertion too complex to check: ; (VALUES FIXNUM &REST T). ; It allows an unknown number of values, consider using ; (VALUES FIXNUM &OPTIONAL). ; in: DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_data" ASN1-STRING-DATA) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("ASN1_STRING_data" CL+SSL::ASN1-STRING-DATA) ; :POINTER ; (CL+SSL::ASN1-STRING :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::ASN1-STRING-DATA ; (CL+SSL::ASN1-STRING) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::ASN1-STRING-DATA ; (LET ((#:G1 CL+SSL::ASN1-STRING)) ; (CFFI-SYS:%FOREIGN-FUNCALL "ASN1_STRING_data" ; (:POINTER #:G1 :POINTER) :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("RSA_generate_key" RSA-GENERATE-KEY) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("RSA_generate_key" CL+SSL::RSA-GENERATE-KEY) ; :POINTER ; (CL+SSL::NUM :INT) ; (CL+SSL::E :UNSIGNED-LONG) ; (CL+SSL::CALLBACK :POINTER) ; (CL+SSL::OPT :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::RSA-GENERATE-KEY ; (CL+SSL::NUM CL+SSL::E CL+SSL::CALLBACK CL+SSL::OPT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::RSA-GENERATE-KEY ; (LET ((#:G1 CL+SSL::NUM)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSL_CTX_set_tmp_rsa_callback" CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK) ; :POINTER ; (CL+SSL::CTX :POINTER) ; (CL+SSL::CALLBACK :POINTER)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK ; (CL+SSL::CTX CL+SSL::CALLBACK) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK ; (LET ((#:G0 CL+SSL::CTX)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_set_tmp_rsa_callback" # ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFUN SSL-CTX-SET-SESSION-CACHE-MODE ; (CL+SSL::SSL-CTX-CTRL CL+SSL::CTX CL+SSL::+SSL_CTRL_SET_SESS_CACHE_MODE+ ; CL+SSL::MODE (CFFI-SYS:NULL-POINTER)) ; ; note: doing SAP to pointer coercion (cost 20) ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl+ssl-20231021-git/src/conditions.lisp ; in: DEFUN FORMAT-SSL-ERROR-QUEUE ; 'CL+SSL::SSL-ERROR ; ; note: can't open-code test of unknown type SSL-ERROR ; (ETYPECASE CL+SSL::QUEUE-DESIGNATOR ; (CL+SSL::SSL-ERROR (CL+SSL::SSL-ERROR-QUEUE CL+SSL::QUEUE-DESIGNATOR)) ; (LIST CL+SSL::QUEUE-DESIGNATOR)) ; --> COND IF ; ==> ; (TYPEP #:QUEUE-DESIGNATOR 'CL+SSL::SSL-ERROR) ; ; note: can't open-code test of unknown type SSL-ERROR ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl+ssl-20231021-git/src/ssl-funcall.lisp ; in: DEFUN SECONDS-UNTIL-DEADLINE ; (/ (- CL+SSL::DEADLINE (GET-INTERNAL-REAL-TIME)) ; INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; (- CL+SSL::DEADLINE (GET-INTERNAL-REAL-TIME)) ; ; 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN ENSURE-SSL-FUNCALL ; (APPLY CL+SSL::FUNC CL+SSL::HANDLE CL+SSL::OTHER-ARGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FUNC is not known to be a function ; (FUNCALL CL+SSL::SUCCESS-TEST CL+SSL::RET) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; SUCCESS-TEST is not known to be a function ; in: DEFUN NONBLOCKING-SSL-FUNCALL ; (APPLY CL+SSL::FUNC CL+SSL::HANDLE CL+SSL::OTHER-ARGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FUNC is not known to be a function ; (FUNCALL CL+SSL::SUCCESS-TEST CL+SSL::RET) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; SUCCESS-TEST is not known to be a function ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl+ssl-20231021-git/src/init.lisp ; in: CFFI:DEFCALLBACK TMP-RSA-CALLBACK ; (= CL+SSL::KEY-LENGTH 512) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (= CL+SSL::KEY-LENGTH 1024) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (CL+SSL::RSA-GENERATE-KEY LENGTH CL+SSL::+RSA_F4+ (CFFI-SYS:NULL-POINTER) ; (CFFI-SYS:NULL-POINTER)) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; in: CFFI:DEFCALLBACK PEM-PASSWORD-CALLBACK ; (COERCE CL+SSL::*PEM-PASSWORD* 'BASE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (AND VECTOR (NOT BASE-STRING)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST (AND VECTOR (NOT BASE-STRING)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST (AND VECTOR (NOT BASE-STRING)) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; CHARACTER ; (*)). ; in: DEFUN INIT-PRNG ; (LENGTH CL+SSL::SEED-BYTE-SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (ELT CL+SSL::SEED-BYTE-SEQUENCE CL+SSL::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. ; (CL+SSL::RAND-SEED CL+SSL::PTR LENGTH) ; ; note: doing SAP to pointer coercion (cost 20) ; in: CFFI:DEFCALLBACK LOCKING-CALLBACK ; (ELT CL+SSL::*LOCKS* CL+SSL::N) ; ; 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. ; in: CFFI:DEFCALLBACK THREADID-CALLBACK ; (INCF CL+SSL::*THREAD-COUNTER*) ; --> THE ; ==> ; (+ 1 CL+SSL::*THREAD-COUNTER*) ; ; 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. ; in: DEFUN INITIALIZE ; (LOOP CL+SSL::REPEAT (CL+SSL::CRYPTO-NUM-LOCKS) ; CL+SSL::COLLECT (BORDEAUX-THREADS:MAKE-LOCK)) ; --> LET CEILING ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (FUNCALL (OR METHOD (CL+SSL::DEFAULT-SSL-METHOD))) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (LOOP CL+SSL::REPEAT (CL+SSL::CRYPTO-NUM-LOCKS) ; CL+SSL::COLLECT (BORDEAUX-THREADS:MAKE-LOCK)) ; --> LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY IF <= ; ==> ; 1 ; ; 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. ; --> LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY IF DECF SETQ THE ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl+ssl-20231021-git/src/streams.lisp ; in: DEFMETHOD PRINT-OBJECT (SSL-STREAM T) ; (FORMAT STREAM "for ~A" (CL+SSL::SSL-STREAM-SOCKET CL+SSL::OBJECT)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; in: DEFMETHOD CLOSE (SSL-STREAM) ; (COMPLEMENT #'MINUSP) ; ; 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. ; (FUNCALL (CL+SSL::SSL-CLOSE-CALLBACK STREAM)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (COMPLEMENT #'MINUSP) ; ; 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. ; in: DEFMETHOD STREAM-LISTEN (SSL-STREAM) ; (> CL+SSL::N 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL+SSL::BUFFER-ELT CL+SSL::BUF 0) ; --> BLOCK ELT ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CL+SSL::NONBLOCKING-SSL-FUNCALL STREAM #'PLUSP #'CL+SSL::SSL-READ ; CL+SSL::HANDLE CL+SSL::PTR 1) ; --> BLOCK LOOP BLOCK TAGBODY PROGN LET WHEN IF FUNCALL ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do 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. ; (> CL+SSL::N 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (CL+SSL::NONBLOCKING-SSL-FUNCALL STREAM #'PLUSP #'CL+SSL::SSL-READ ; CL+SSL::HANDLE CL+SSL::PTR 1) ; --> BLOCK LOOP BLOCK TAGBODY PROGN LET LET APPLY ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFMETHOD STREAM-READ-BYTE (SSL-STREAM) ; (CL+SSL::BUFFER-ELT CL+SSL::BUF 0) ; --> BLOCK ELT ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CL+SSL::ENSURE-SSL-FUNCALL STREAM #'PLUSP #'CL+SSL::SSL-READ CL+SSL::HANDLE ; CL+SSL::PTR 1) ; --> BLOCK LOOP BLOCK TAGBODY PROGN LET WHEN IF FUNCALL ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do 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. ; --> BLOCK LOOP BLOCK TAGBODY PROGN LET LET APPLY ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFMETHOD STREAM-READ-SEQUENCE (SSL-STREAM T T T) ; (PLUSP LENGTH) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (RATIONAL * 17592186044415) ; (SINGLE-FLOAT * 1.7592186e13) ; (DOUBLE-FLOAT * ; 1.7592186044415d13)), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (RATIONAL * 17592186044415) ; (SINGLE-FLOAT * 1.7592186e13) ; (DOUBLE-FLOAT * ; 1.7592186044415d13)), not a DOUBLE-FLOAT. ; (< CL+SSL::START CL+SSL::END) ; ; 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. ; (SETF (ELT CL+SSL::SEQ CL+SSL::START) (CL+SSL::SSL-STREAM-PEEKED-BYTE STREAM)) ; ; 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. ; (CL+SSL::ENSURE-SSL-FUNCALL STREAM #'PLUSP #'CL+SSL::SSL-READ CL+SSL::HANDLE ; CL+SSL::PTR LENGTH) ; --> BLOCK LOOP BLOCK TAGBODY PROGN LET WHEN IF FUNCALL ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL+SSL::S/B-REPLACE CL+SSL::SEQ CL+SSL::BUF :START1 CL+SSL::START :END1 ; (+ CL+SSL::START CL+SSL::READ-BYTES)) ; --> BLOCK ; ==> ; (REPLACE CL+SSL::SEQ CL+SSL::BUF :START1 CL+SSL::START1 :END1 CL+SSL::END1 ; :START2 CL+SSL::START2 :END2 CL+SSL::END2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY * (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The second argument is a (OR SIMPLE-BASE-STRING (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a (OR SIMPLE-BASE-STRING (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a SIMPLE-BASE-STRING. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). ; (< CL+SSL::START CL+SSL::END) ; ; 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. ; (- CL+SSL::END CL+SSL::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (MIN (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; (PLUSP LENGTH) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (OR (RATIONAL * 17592186044415) ; (SINGLE-FLOAT * 1.7592186e13) ; (DOUBLE-FLOAT * 1.7592186044415d13)), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (OR (RATIONAL * 17592186044415) ; (SINGLE-FLOAT * 1.7592186e13) ; (DOUBLE-FLOAT * 1.7592186044415d13)), not a FIXNUM. ; etc. ; (CL+SSL::ENSURE-SSL-FUNCALL STREAM #'PLUSP #'CL+SSL::SSL-READ CL+SSL::HANDLE ; CL+SSL::PTR LENGTH) ; --> BLOCK LOOP BLOCK TAGBODY PROGN LET WHEN IF FUNCALL ; ==> ; 1 ; ; 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. ; (+ CL+SSL::START CL+SSL::READ-BYTES) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a (REAL (0)), not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a (REAL (0)), not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (INCF CL+SSL::START CL+SSL::READ-BYTES) ; --> THE ; ==> ; (+ CL+SSL::READ-BYTES CL+SSL::START) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (RATIONAL (0)), not a FIXNUM. ; The result is a (VALUES (RATIONAL (0)) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (RATIONAL (0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (RATIONAL (0)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (CL+SSL::ENSURE-SSL-FUNCALL STREAM #'PLUSP #'CL+SSL::SSL-READ CL+SSL::HANDLE ; CL+SSL::PTR LENGTH) ; --> BLOCK LOOP BLOCK TAGBODY PROGN LET LET APPLY ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFMETHOD STREAM-WRITE-BYTE (SSL-STREAM T) ; (INCF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; ==> ; (+ 1 (CL+SSL::SSL-STREAM-OUTPUT-POINTER #:STREAM7)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SETF (CL+SSL::BUFFER-ELT CL+SSL::BUF ; (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; CL+SSL::B) ; --> BLOCK SETF ; ==> ; (SB-KERNEL:%SETELT CL+SSL::BUF CL+SSL::INDEX CL+SSL::VAL) ; ; 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. ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF) ; --> BLOCK ; ==> ; (LENGTH CL+SSL::BUF) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (INCF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; ==> ; (+ 1 (CL+SSL::SSL-STREAM-OUTPUT-POINTER #:STREAM7)) ; ; 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 STREAM-WRITE-SEQUENCE (SSL-STREAM T T T) ; (> ; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF) ; ==> ; (LENGTH CL+SSL::BUF) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (> (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF) ; ==> ; (LENGTH CL+SSL::BUF) ; ; 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. ; (CL+SSL::B/S-REPLACE CL+SSL::BUF CL+SSL::SEQ :START1 ; (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM) :START2 ; CL+SSL::START :END2 CL+SSL::END) ; ==> ; (REPLACE CL+SSL::BUF CL+SSL::SEQ :START1 CL+SSL::START1 :END1 CL+SSL::END1 ; :START2 CL+SSL::START2 :END2 CL+SSL::END2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY * (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). ; (CL+SSL::B/S-REPLACE CL+SSL::BUF CL+SSL::SEQ :START2 CL+SSL::START) ; --> BLOCK ; ==> ; (REPLACE CL+SSL::BUF CL+SSL::SEQ :START1 CL+SSL::START1 :END1 CL+SSL::END1 ; :START2 CL+SSL::START2 :END2 CL+SSL::END2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY * (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF) ; --> BLOCK ; ==> ; (LENGTH CL+SSL::BUF) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (- CL+SSL::END CL+SSL::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. ; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; ; 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. ; (> ; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; ; 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. ; (- CL+SSL::END CL+SSL::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES 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 NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (> (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; ; 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. ; (INCF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM) ; (- CL+SSL::END CL+SSL::START)) ; ==> ; (+ (- CL+SSL::END CL+SSL::START) ; (CL+SSL::SSL-STREAM-OUTPUT-POINTER #:STREAM31)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD STREAM-FORCE-OUTPUT (SSL-STREAM) ; (PLUSP CL+SSL::FILL-PTR) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL+SSL::ENSURE-SSL-FUNCALL STREAM #'PLUSP #'CL+SSL::SSL-WRITE CL+SSL::HANDLE ; CL+SSL::PTR CL+SSL::FILL-PTR) ; --> BLOCK LOOP BLOCK TAGBODY PROGN LET WHEN IF FUNCALL ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (PLUSP CL+SSL::FILL-PTR) ; ; 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. ; (CL+SSL::ENSURE-SSL-FUNCALL STREAM #'PLUSP #'CL+SSL::SSL-WRITE CL+SSL::HANDLE ; CL+SSL::PTR CL+SSL::FILL-PTR) ; --> BLOCK LOOP BLOCK TAGBODY PROGN LET WHEN IF FUNCALL ; ==> ; 1 ; ; 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. ; --> BLOCK LOOP BLOCK TAGBODY PROGN LET LET APPLY ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFUN X509-CERTIFICATE-NAMES ; (CFFI-SYS:WITH-FOREIGN-POINTER (CL+SSL::BUF 1024) ; (LET ((CL+SSL::ISSUER-NAME ; (CL+SSL::X509-GET-ISSUER-NAME CL+SSL::X509-CERTIFICATE)) ; (CL+SSL::SUBJECT-NAME ; (CL+SSL::X509-GET-SUBJECT-NAME CL+SSL::X509-CERTIFICATE))) ; (VALUES ; (UNLESS (CFFI-SYS:NULL-POINTER-P CL+SSL::ISSUER-NAME) ; (CL+SSL::X509-NAME-ONELINE CL+SSL::ISSUER-NAME CL+SSL::BUF 1024) ; (CFFI:FOREIGN-STRING-TO-LISP CL+SSL::BUF)) ; (UNLESS (CFFI-SYS:NULL-POINTER-P CL+SSL::SUBJECT-NAME) ; (CL+SSL::X509-NAME-ONELINE CL+SSL::SUBJECT-NAME CL+SSL::BUF 1024) ; (CFFI:FOREIGN-STRING-TO-LISP CL+SSL::BUF))))) ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET LET ; --> SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of ALLOC-ALIEN-STACK-SPACE ; in: DEFUN SSL-LOAD-GLOBAL-VERIFY-LOCATIONS ; (CL+SSL::SSL-CTX-LOAD-VERIFY-LOCATIONS CL+SSL::*SSL-GLOBAL-CONTEXT* ; CL+SSL::CAFILE (CFFI-SYS:NULL-POINTER)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFUN MAKE-SSL-CLIENT-STREAM ; (ZEROP (CL+SSL::SSL-SET-CIPHER-LIST CL+SSL::HANDLE CL+SSL::CIPHER-LIST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (1- CL+SSL::LEN) ; ; 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: DEFUN MAKE-SSL-SERVER-STREAM ; (ZEROP (CL+SSL::SSL-SET-CIPHER-LIST CL+SSL::HANDLE CL+SSL::CIPHER-LIST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFUN GET-SELECTED-ALPN-PROTOCOL ; (CL+SSL::SSL-GET0-ALPN-SELECTED ; (CL+SSL::SSL-STREAM-HANDLE CL+SSL::SSL-STREAM) CL+SSL::PTR CL+SSL::LEN) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; (CFFI:FOREIGN-STRING-TO-LISP (CFFI:MEM-REF CL+SSL::PTR :POINTER) :COUNT ; (CFFI:MEM-REF CL+SSL::LEN :INT)) ; ; note: doing SAP to pointer coercion (cost 20) ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/dexador-20231021-git/src/keep-alive-stream.lisp ; in: DEFMETHOD STREAM-READ-SEQUENCE (KEEP-ALIVE-STREAM T T T) ; (MIN (- DEXADOR.KEEP-ALIVE-STREAM::END DEXADOR.KEEP-ALIVE-STREAM::START) ; (DEXADOR.KEEP-ALIVE-STREAM::KEEP-ALIVE-STREAM-END STREAM)) ; ; 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. ; (<= (DEXADOR.KEEP-ALIVE-STREAM::KEEP-ALIVE-STREAM-END STREAM) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (- DEXADOR.KEEP-ALIVE-STREAM::END DEXADOR.KEEP-ALIVE-STREAM::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. ; (MIN (- DEXADOR.KEEP-ALIVE-STREAM::END DEXADOR.KEEP-ALIVE-STREAM::START) ; (DEXADOR.KEEP-ALIVE-STREAM::KEEP-ALIVE-STREAM-END STREAM)) ; ; 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 NUMBER, 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 NUMBER, not a DOUBLE-FLOAT. ; etc. ; (+ DEXADOR.KEEP-ALIVE-STREAM::START DEXADOR.KEEP-ALIVE-STREAM::TO-READ) ; ; 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 REAL, 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 REAL, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (DECF (DEXADOR.KEEP-ALIVE-STREAM::KEEP-ALIVE-STREAM-END STREAM) ; (- DEXADOR.KEEP-ALIVE-STREAM::N DEXADOR.KEEP-ALIVE-STREAM::START)) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/dexador-20231021-git/src/util.lisp ; in: DEFUN-SPEEDY %ASCII-STRING-TO-OCTETS ; (LENGTH STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (AREF STRING DEXADOR.UTIL::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFPARAMETER *DEFAULT-USER-AGENT* ; (OR (LISP-IMPLEMENTATION-TYPE) "Common Lisp") ; --> IF ; ==> ; "Common Lisp" ; ; note: deleting unreachable code ; (OR (LISP-IMPLEMENTATION-VERSION) "") ; --> IF ; ==> ; "" ; ; note: deleting unreachable code ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/dexador-20231021-git/src/body.lisp ; in: DEFUN MULTIPART-VALUE-CONTENT-TYPE ; (THE SIMPLE-STRING (TRIVIAL-MIMES:MIME DEXADOR.BODY::VALUE)) ; ; note: Type assertion too complex to check: ; SIMPLE-STRING. ; It allows an unknown number of values, consider using ; (VALUES SIMPLE-STRING &OPTIONAL). ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/dexador-20231021-git/src/backend/usocket.lisp ; in: DEFUN-SPEEDY MULTIPART-CONTENT-LENGTH ; (LENGTH DEXADOR.BACKEND.USOCKET::CONTENT-TYPE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (+ 2 DEXADOR.BACKEND.USOCKET::BOUNDARY-LENGTH 2 ; (LENGTH ; (THE SIMPLE-STRING ; (DEXADOR.BACKEND.USOCKET::CONTENT-DISPOSITION ; DEXADOR.BACKEND.USOCKET::KEY DEXADOR.BACKEND.USOCKET::VAL))) ; (LET ((DEXADOR.BACKEND.USOCKET::CONTENT-TYPE ; (DEXADOR.BODY:MULTIPART-VALUE-CONTENT-TYPE ; DEXADOR.BACKEND.USOCKET::VAL))) ; (IF DEXADOR.BACKEND.USOCKET::CONTENT-TYPE ; (+ 14 (LENGTH DEXADOR.BACKEND.USOCKET::CONTENT-TYPE) 2) ; 0)) ; 2 (DEXADOR.BACKEND.USOCKET::CONTENT-LENGTH DEXADOR.BACKEND.USOCKET::VAL) 2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 8) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 8) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (LOOP DEXADOR.BACKEND.USOCKET::FOR (DEXADOR.BACKEND.USOCKET::KEY ; . DEXADOR.BACKEND.USOCKET::VAL) DEXADOR.BACKEND.USOCKET::IN DEXADOR.BACKEND.USOCKET::CONTENT ; DEXADOR.BACKEND.USOCKET::SUM (+ 2 ; DEXADOR.BACKEND.USOCKET::BOUNDARY-LENGTH ; 2 ; (LENGTH ; (THE SIMPLE-STRING ; (DEXADOR.BACKEND.USOCKET::CONTENT-DISPOSITION ; DEXADOR.BACKEND.USOCKET::KEY ; DEXADOR.BACKEND.USOCKET::VAL))) ; (LET ((DEXADOR.BACKEND.USOCKET::CONTENT-TYPE ; #)) ; (IF DEXADOR.BACKEND.USOCKET::CONTENT-TYPE ; (+ 14 # 2) ; 0)) ; 2 ; (DEXADOR.BACKEND.USOCKET::CONTENT-LENGTH ; DEXADOR.BACKEND.USOCKET::VAL) ; 2)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 8) (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (INTEGER 8), not a FIXNUM. ; The result is a (VALUES (INTEGER 8) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER 8) (INTEGER 0 0)), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER 8), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 8) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ ; (LOOP DEXADOR.BACKEND.USOCKET::FOR (DEXADOR.BACKEND.USOCKET::KEY ; . DEXADOR.BACKEND.USOCKET::VAL) DEXADOR.BACKEND.USOCKET::IN DEXADOR.BACKEND.USOCKET::CONTENT ; DEXADOR.BACKEND.USOCKET::SUM (+ 2 ; DEXADOR.BACKEND.USOCKET::BOUNDARY-LENGTH ; 2 (LENGTH (THE SIMPLE-STRING #)) ; (LET (#) ; (IF DEXADOR.BACKEND.USOCKET::CONTENT-TYPE ; # ; 0)) ; 2 ; (DEXADOR.BACKEND.USOCKET::CONTENT-LENGTH ; DEXADOR.BACKEND.USOCKET::VAL) ; 2)) ; 2 DEXADOR.BACKEND.USOCKET::BOUNDARY-LENGTH 2 2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (INTEGER 8) (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 6 6) (INTEGER 14)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 8) (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 6 6) (INTEGER 14)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 6 6) (INTEGER 14)), not a FIXNUM. ; The result is a (VALUES (INTEGER 6) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER 6 6) (INTEGER 14)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES (INTEGER 6) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN-CAREFUL REQUEST ; (STRING= DEXADOR.BACKEND.USOCKET::SCHEME "socks5") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; (STRING= DEXADOR.BACKEND.USOCKET::SCHEME "http") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; (STRING= DEXADOR.BACKEND.USOCKET::SCHEME "https") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; (= (THE REAL DEXADOR.BACKEND.USOCKET::VERSION) 1.0) ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code RATIONAL to FLOAT comparison ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; (FIND :CONTENT-TYPE DEXADOR.BACKEND.USOCKET::HEADERS :KEY #'CAR :TEST ; #'STRING-EQUAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (LENGTH DEXADOR.BACKEND.USOCKET::CONTENT-TYPE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (STRING= DEXADOR.BACKEND.USOCKET::CONTENT-TYPE "multipart/" :END1 10) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; (STRING= DEXADOR.BACKEND.USOCKET::CONTENT-TYPE ; "application/x-www-form-urlencoded") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING NULL), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING NULL), not a (SIMPLE-ARRAY CHARACTER (*)). ; (= (THE REAL DEXADOR.BACKEND.USOCKET::VERSION) 1.0) ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code RATIONAL to FLOAT comparison ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; (= (THE REAL DEXADOR.BACKEND.USOCKET::VERSION) 1.1) ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code RATIONAL to FLOAT comparison ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; (STRING= DEXADOR.BACKEND.USOCKET::SCHEME "http") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (STRING= (QURI.URI:URI-SCHEME DEXADOR.BACKEND.USOCKET::LOCATION-URI) ; (QURI.URI:URI-SCHEME DEXADOR.BACKEND.USOCKET::URI)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; The second argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (STRING= (QURI.URI:URI-HOST DEXADOR.BACKEND.USOCKET::LOCATION-URI) ; (QURI.URI:URI-HOST DEXADOR.BACKEND.USOCKET::URI)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; The second argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (STRING= DEXADOR.BACKEND.USOCKET::SCHEME "https") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; (= (THE REAL DEXADOR.BACKEND.USOCKET::VERSION) 1.0) ; ; 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. ; ; 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 REAL DEXADOR.BACKEND.USOCKET::VERSION) 1.1) ; ; 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. ; (DOTIMES (DEXADOR.BACKEND.USOCKET::I DEXADOR.BACKEND.USOCKET::CONTENT-LENGTH) ; (LOOP DEXADOR.BACKEND.USOCKET::UNTIL (READ-BYTE ; DEXADOR.BACKEND.USOCKET::BODY NIL ; NIL))) ; --> BLOCK LET TAGBODY UNLESS IF >= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; --> BLOCK LET TAGBODY PSETQ PROGN 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. ; (EQL (QURI.URI:URI-PORT DEXADOR.BACKEND.USOCKET::LOCATION-URI) ; (QURI.URI:URI-PORT DEXADOR.BACKEND.USOCKET::URI)) ; ; 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 ; (DEXADOR.BACKEND.USOCKET::USOCKET-WRAPPED-STREAM-STREAM ; DEXADOR.BACKEND.USOCKET::ORIGINAL-USER-SUPPLIED-STREAM) ; STREAM) ; ; 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 DEXADOR.BACKEND.USOCKET::ORIGINAL-USER-SUPPLIED-STREAM STREAM) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (AND (NOT USOCKET-WRAPPED-STREAM) (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 (AND (NOT USOCKET-WRAPPED-STREAM) (NOT NULL)), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; (DEXADOR.BACKEND.USOCKET::MAKE-NEW-CONNECTION (DEXADOR.BACKEND.USOCKET::URI) ; (RESTART-CASE (LET* ((DEXADOR.BACKEND.USOCKET::CON-URI #) ; (DEXADOR.BACKEND.USOCKET::CONNECTION #) ; (STREAM #) ; (DEXADOR.BACKEND.USOCKET::SCHEME #)) ; (DECLARE (TYPE STRING DEXADOR.BACKEND.USOCKET::SCHEME)) ; (WHEN DEXADOR.BACKEND.USOCKET::READ-TIMEOUT (SETF #)) ; (WHEN ; (DEXADOR.BACKEND.USOCKET::SOCKS5-PROXY-P ; DEXADOR.BACKEND.USOCKET::PROXY-URI) ; (DEXADOR.BACKEND.USOCKET::ENSURE-SOCKS5-CONNECTED STREAM ; STREAM DEXADOR.BACKEND.USOCKET::URI METHOD)) ; (IF (STRING= DEXADOR.BACKEND.USOCKET::SCHEME "https") ; (DEXADOR.BACKEND.USOCKET::MAKE-SSL-STREAM # ; DEXADOR.BACKEND.USOCKET::CA-PATH ; DEXADOR.BACKEND.USOCKET::SSL-KEY-FILE ; DEXADOR.BACKEND.USOCKET::SSL-CERT-FILE ; DEXADOR.BACKEND.USOCKET::SSL-KEY-PASSWORD # ; DEXADOR.BACKEND.USOCKET::INSECURE) ; STREAM)) ; (DEXADOR.BACKEND.USOCKET:RETRY-REQUEST NIL :REPORT ; "Retry the same request." ; (RETURN-FROM DEXADOR.BACKEND.USOCKET:REQUEST ; (APPLY #'DEXADOR.BACKEND.USOCKET:REQUEST DEXADOR.BACKEND.USOCKET::URI ; :USE-CONNECTION-POOL NIL DEXADOR.BACKEND.USOCKET::ARGS))) ; (DEXADOR.BACKEND.USOCKET::RETRY-INSECURE NIL :REPORT ; "Retry the same request without checking for SSL certificate validity." ; (RETURN-FROM DEXADOR.BACKEND.USOCKET:REQUEST ; (APPLY #'DEXADOR.BACKEND.USOCKET:REQUEST DEXADOR.BACKEND.USOCKET::URI ; :USE-CONNECTION-POOL NIL :INSECURE T ; DEXADOR.BACKEND.USOCKET::ARGS))))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/yason-20230214-git/encode.lisp ; in: DEFUN ENCODE-KEY/VALUE ; 'YASON::JSON-OUTPUT-STREAM ; ; note: can't open-code test of unknown type JSON-OUTPUT-STREAM ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/lparallel-20160825-git/src/cons-queue.lisp ; in: DEFUN %TRY-POP-CONS-QUEUE/NO-LOCK/TIMEOUT ; (PLUSP LPARALLEL.THREAD-UTIL::TIME-REMAINING) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; in: DEFUN TRY-POP-CONS-QUEUE ; (PLUSP LPARALLEL.CONS-QUEUE::TIMEOUT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; in: DEFUN TRY-POP-CONS-QUEUE/NO-LOCK ; (PLUSP LPARALLEL.CONS-QUEUE::TIMEOUT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/lparallel-20160825-git/src/vector-queue.lisp ; in: DEFUN %TRY-POP-VECTOR-QUEUE/NO-LOCK/TIMEOUT ; (PLUSP LPARALLEL.THREAD-UTIL::TIME-REMAINING) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; in: DEFUN TRY-POP-VECTOR-QUEUE ; (PLUSP LPARALLEL.VECTOR-QUEUE::TIMEOUT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; in: DEFUN TRY-POP-VECTOR-QUEUE/NO-LOCK ; (PLUSP LPARALLEL.VECTOR-QUEUE::TIMEOUT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/lparallel-20160825-git/src/kernel/stealing-scheduler.lisp ; in: DEFUN/TYPE MAYBE-WAKE-A-WORKER ; (INCF LPARALLEL.KERNEL::NOTIFY-COUNT) ; ==> ; (+ 1 ; (SB-KERNEL:THE* ((INTEGER 0) :DERIVE-TYPE-ONLY T) ; (SB-KERNEL:%INSTANCE-REF ; (THE LPARALLEL.KERNEL::SCHEDULER #:OBJ) 4))) ; ; 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. ; in: DEFUN/TYPE NEXT-TASK ; (DECF LPARALLEL.KERNEL::NOTIFY-COUNT) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; 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 UNSIGNED-BYTE &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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/lparallel-20160825-git/src/kernel-util.lisp ; in: DEFUN RECEIVE-RESULTS ; (LPARALLEL.UTIL:REPEAT COUNT ; (LPARALLEL.KERNEL-UTIL::STEAL-UNTIL-RECEIVE-RESULT LPARALLEL.KERNEL:CHANNEL ; LPARALLEL.KERNEL-UTIL::WORKER LPARALLEL.KERNEL-UTIL::FN)) ; --> BLOCK LET CEILING ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (LPARALLEL.KERNEL:DO-FAST-RECEIVES (LPARALLEL.KERNEL-UTIL::RESULT ; LPARALLEL.KERNEL:CHANNEL COUNT) ; (LOCALLY ; (DECLARE (TYPE FUNCTION LPARALLEL.KERNEL-UTIL::FN)) ; (FUNCALL LPARALLEL.KERNEL-UTIL::FN LPARALLEL.KERNEL-UTIL::RESULT))) ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK LET CEILING ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (LPARALLEL.KERNEL:DO-FAST-RECEIVES (LPARALLEL.KERNEL-UTIL::RESULT ; LPARALLEL.KERNEL:CHANNEL COUNT) ; (DECLARE (IGNORE LPARALLEL.KERNEL-UTIL::RESULT))) ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK LET CEILING ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (LPARALLEL.KERNEL:DO-FAST-RECEIVES (LPARALLEL.KERNEL-UTIL::RESULT ; LPARALLEL.KERNEL:CHANNEL COUNT) ; (LOCALLY ; (DECLARE (TYPE FUNCTION LPARALLEL.KERNEL-UTIL::FN)) ; (FUNCALL LPARALLEL.KERNEL-UTIL::FN LPARALLEL.KERNEL-UTIL::RESULT))) ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK LET TAGBODY IF <= ; ==> ; 1 ; ; 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. ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK LET TAGBODY IF DECF SETQ THE ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (LPARALLEL.KERNEL:DO-FAST-RECEIVES (LPARALLEL.KERNEL-UTIL::RESULT ; LPARALLEL.KERNEL:CHANNEL COUNT) ; (DECLARE (IGNORE LPARALLEL.KERNEL-UTIL::RESULT))) ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK LET TAGBODY IF <= ; ==> ; 1 ; ; 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. ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK LET TAGBODY IF DECF SETQ THE ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (LPARALLEL.UTIL:REPEAT COUNT ; (LPARALLEL.KERNEL-UTIL::STEAL-UNTIL-RECEIVE-RESULT LPARALLEL.KERNEL:CHANNEL ; LPARALLEL.KERNEL-UTIL::WORKER LPARALLEL.KERNEL-UTIL::FN)) ; --> BLOCK LET TAGBODY IF <= ; ==> ; 1 ; ; 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. ; --> BLOCK LET TAGBODY IF DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/lparallel-20160825-git/src/ptree.lisp ; in: DEFUN/TYPE COMPUTE-PTREE ; (DECF LPARALLEL.PTREE::PENDING) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (INCF LPARALLEL.PTREE::PENDING) ; ==> ; (+ 1 ; (SB-KERNEL:THE* (INTEGER :DERIVE-TYPE-ONLY T) ; (SB-KERNEL:%INSTANCE-REF (THE LPARALLEL.PTREE:PTREE #:OBJ) ; 2))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/lparallel-20160825-git/src/cognate/util.lisp ; in: DEFUN ITEM-PREDICATE ; (EQL LPARALLEL.COGNATE::ITEM LPARALLEL.COGNATE::X) ; ; 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/lparallel-20160825-git/src/cognate/pmap.lisp ; in: DEFUN MAP-ITERATE ; (DEFUN LPARALLEL.COGNATE::MAP-ITERATE ; (MAP LPARALLEL.COGNATE::SIZE LPARALLEL.COGNATE::FN ; LPARALLEL.COGNATE::SEQS) ; "A variation of (map nil ...)/mapc/mapl with size constrained. ; Without a result to delineate sublist boundaries, we must enforce them ; manually." ; (CHECK-TYPE LPARALLEL.COGNATE::SIZE (INTEGER 0)) ; (LET ((LPARALLEL.COGNATE::FN ; (ALEXANDRIA:ENSURE-FUNCTION LPARALLEL.COGNATE::FN)) ; (LPARALLEL.UTIL:INDEX 0)) ; (APPLY MAP ; (LAMBDA (&REST LPARALLEL.COGNATE::ARGS) ; (DECLARE #) ; (DECLARE #) ; (WHEN # #) ; (APPLY LPARALLEL.COGNATE::FN LPARALLEL.COGNATE::ARGS) ; (INCF LPARALLEL.UTIL:INDEX)) ; LPARALLEL.COGNATE::SEQS))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; ==> ; (BLOCK LPARALLEL.COGNATE::MAP-ITERATE ; (CHECK-TYPE LPARALLEL.COGNATE::SIZE (INTEGER 0)) ; (LET ((LPARALLEL.COGNATE::FN ; (ALEXANDRIA:ENSURE-FUNCTION LPARALLEL.COGNATE::FN)) ; (LPARALLEL.UTIL:INDEX 0)) ; (APPLY MAP ; (LAMBDA (&REST LPARALLEL.COGNATE::ARGS) ; (DECLARE #) ; (DECLARE #) ; (WHEN # #) ; (APPLY LPARALLEL.COGNATE::FN LPARALLEL.COGNATE::ARGS) ; (INCF LPARALLEL.UTIL:INDEX)) ; LPARALLEL.COGNATE::SEQS))) ; ; note: Allocating a value-cell at runtime for checking possibly out of extent exit via ; (RETURN-FROM MAP-ITERATE NIL). Use GO/RETURN-FROM with SAFETY 0, or declare the ; exit function DYNAMIC-EXTENT to avoid. ; (EQL LPARALLEL.UTIL:INDEX LPARALLEL.COGNATE::SIZE) ; ; note: forced to do %EQL/INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; (INCF LPARALLEL.UTIL:INDEX) ; ; 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. WARNING: redefining IRONCLAD:BLOCK-LENGTH in DEFGENERIC ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/util.lisp ; in: DEFUN BYTE-ARRAY-TO-HEX-STRING ; (AREF VECTOR IRONCLAD::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN ASCII-STRING-TO-BYTE-ARRAY ; (CHAR STRING IRONCLAD::I) ; ; 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/ciphers/modes.lisp ; in: DEFINE-MODE-FUNCTION MODE-CRYPT ; (IRONCLAD::DEFINE-MODE-FUNCTION IRONCLAD::MODE-CRYPT IRONCLAD::MESSAGE-LENGTH) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND LET PROGN ; --> UNLESS IF TYPEP ; ==> ; 1 ; ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF SETQ THE ; ==> ; (+ IRONCLAD::Q IRONCLAD::KEYSTREAM-BLOCKS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET LOOP BLOCK TAGBODY PROGN WHEN ; --> IF PROGN INCF SETQ THE ; ==> ; (+ 1 IRONCLAD::KEYSTREAM-BLOCKS) ; ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND LET PROGN ; --> UNLESS IF TYPEP ; ==> ; 1 ; ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF SETQ THE ; ==> ; (+ IRONCLAD::Q IRONCLAD::KEYSTREAM-BLOCKS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET LOOP BLOCK TAGBODY PROGN WHEN ; --> IF PROGN INCF SETQ THE ; ==> ; (+ 1 IRONCLAD::KEYSTREAM-BLOCKS) ; ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND LET PROGN ; --> UNLESS IF TYPEP ; ==> ; 1 ; ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF SETQ THE ; ==> ; (+ IRONCLAD::Q IRONCLAD::KEYSTREAM-BLOCKS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET LOOP BLOCK TAGBODY PROGN WHEN ; --> IF PROGN INCF SETQ THE ; ==> ; (+ 1 IRONCLAD::KEYSTREAM-BLOCKS) ; ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND LET PROGN ; --> UNLESS IF TYPEP ; ==> ; 1 ; ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF SETQ THE ; ==> ; (+ IRONCLAD::Q IRONCLAD::KEYSTREAM-BLOCKS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET LOOP BLOCK TAGBODY PROGN WHEN ; --> IF PROGN INCF SETQ THE ; ==> ; (+ 1 IRONCLAD::KEYSTREAM-BLOCKS) ; ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND LET PROGN ; --> UNLESS IF TYPEP ; ==> ; 1 ; ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF SETQ THE ; ==> ; (+ IRONCLAD::Q IRONCLAD::KEYSTREAM-BLOCKS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET LOOP BLOCK TAGBODY PROGN WHEN ; --> IF PROGN INCF SETQ THE ; ==> ; (+ 1 IRONCLAD::KEYSTREAM-BLOCKS) ; ; 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/math.lisp ; in: DEFUN EGCD ; (= IRONCLAD::C 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (FLOOR IRONCLAD::D IRONCLAD::C) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (>= IRONCLAD::A 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. ; (>= IRONCLAD::B 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. ; (* IRONCLAD::Q IRONCLAD::C) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- IRONCLAD::D (* IRONCLAD::Q IRONCLAD::C)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (* IRONCLAD::Q IRONCLAD::U_C) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, 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 (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- IRONCLAD::U_D (* IRONCLAD::Q IRONCLAD::U_C)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES 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 NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (* IRONCLAD::Q IRONCLAD::V_C) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, 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 (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- IRONCLAD::V_D (* IRONCLAD::Q IRONCLAD::V_C)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES 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 NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFUN JACOBI ; (ASH IRONCLAD::B -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (MINUSP IRONCLAD::B) ; ; 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. ; (- IRONCLAD::B) ; ; note: forced to do GENERIC-NEGATE (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * -1), not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 2) because: ; The first argument is a (INTEGER * -1), not a (SIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (MINUSP IRONCLAD::A) ; ; 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. ; (ASH IRONCLAD::A -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (ABS IRONCLAD::A) ; ; 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. ; ; note: forced to do GENERIC-NEGATE (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * -1), not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 2) because: ; The first argument is a (INTEGER * -1), not a (SIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; ; note: forced to do GENERIC-NEGATE (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * -1), not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 2) because: ; The first argument is a (INTEGER * -1), not a (SIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN POWER-MOD-TAB ; (MOD (* IRONCLAD::B IRONCLAD::B) IRONCLAD::M) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (MOD (* IRONCLAD::BI IRONCLAD::BB) IRONCLAD::M) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (1- IRONCLAD::K) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (ASH 1 (1- IRONCLAD::K)) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::B IRONCLAD::B) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::BI IRONCLAD::BB) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN POWER-MOD ; (ZEROP IRONCLAD::E) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (MOD 1 IRONCLAD::M) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a REAL, not a INTEGER. ; (MOD (* IRONCLAD::RES IRONCLAD::B) IRONCLAD::M) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (MOD (* IRONCLAD::B IRONCLAD::B) IRONCLAD::M) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (LDB (BYTE IRONCLAD::TMP IRONCLAD::S) IRONCLAD::E) ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; (MOD (* IRONCLAD::RES (SVREF IRONCLAD::TAB (ASH IRONCLAD::U -1))) IRONCLAD::M) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (MOD (* IRONCLAD::RES IRONCLAD::RES) IRONCLAD::M) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second 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. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (INTEGER-LENGTH IRONCLAD::E) ; ; note: forced to do full call ; unable to do inline (unsigned-byte 64) integer-length (cost 26) because: ; The first argument is a BIGNUM, not a (UNSIGNED-BYTE 64). ; (* IRONCLAD::RES IRONCLAD::RES) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (DECF IRONCLAD::I) ; --> THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; 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. ; (- IRONCLAD::I IRONCLAD::K) ; ; note: forced to do GENERIC-- (cost 10) ; 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 -7) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (INTEGER -7) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (1+ (- IRONCLAD::I IRONCLAD::K)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -7), not a FIXNUM. ; The result is a (VALUES (INTEGER -6) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -7), not a FIXNUM. ; The result is a (VALUES (INTEGER -6) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (- IRONCLAD::I IRONCLAD::S) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (1+ (- IRONCLAD::I IRONCLAD::S)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (DOTIMES (IRONCLAD::H IRONCLAD::TMP) ; (SETQ IRONCLAD::RES (MOD (* IRONCLAD::RES IRONCLAD::RES) IRONCLAD::M))) ; --> BLOCK LET TAGBODY UNLESS IF >= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; (* IRONCLAD::RES IRONCLAD::RES) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (DOTIMES (IRONCLAD::H IRONCLAD::TMP) ; (SETQ IRONCLAD::RES (MOD (* IRONCLAD::RES IRONCLAD::RES) IRONCLAD::M))) ; --> BLOCK LET TAGBODY PSETQ PROGN 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. ; (ASH IRONCLAD::U -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 64). ; etc. ; (* IRONCLAD::RES (SVREF IRONCLAD::TAB (ASH IRONCLAD::U -1))) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (INCF IRONCLAD::S) ; --> THE ; ==> ; (+ 1 IRONCLAD::S) ; ; 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. ; (* IRONCLAD::RES IRONCLAD::B) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (ASH IRONCLAD::E -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::B IRONCLAD::B) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN MILLER-RABIN-DECOMPOSITION ; (ASH IRONCLAD::N -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (1+ IRONCLAD::K) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (ASH IRONCLAD::Q -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN MILLER-RABIN-KERNEL ; (+ (IRONCLAD:STRONG-RANDOM (- IRONCLAD::N 2)) 2) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (= IRONCLAD::Y 1) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (= IRONCLAD::Y IRONCLAD::MINUS1) ; ; 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 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. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (= IRONCLAD::J IRONCLAD::K) ; ; note: unable to open code because: The operands might not be the same type. ; (= IRONCLAD::Y IRONCLAD::MINUS1) ; ; 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 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. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (= IRONCLAD::Y 1) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (- IRONCLAD::N 2) ; ; 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. ; (+ (IRONCLAD:STRONG-RANDOM (- IRONCLAD::N 2)) 2) ; ; 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. ; (1- IRONCLAD::N) ; ; 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. ; (= IRONCLAD::Y IRONCLAD::MINUS1) ; ; 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 NUMBER, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a 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 REAL, 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 REAL, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; etc. ; (1+ IRONCLAD::J) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; in: DEFUN LUCAS-SEQUENCE ; (MOD (1- (* IRONCLAD::UH IRONCLAD::VL)) IRONCLAD::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (MOD (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) IRONCLAD::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (MOD (* IRONCLAD::UH IRONCLAD::VL) IRONCLAD::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (MOD (- (* IRONCLAD::VL IRONCLAD::VL) 2) IRONCLAD::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (MOD (* IRONCLAD::UH IRONCLAD::VH) IRONCLAD::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (MOD (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) IRONCLAD::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (MOD (- (* IRONCLAD::VH IRONCLAD::VH) 2) IRONCLAD::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (REAL -2), not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (REAL -2), not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (REAL -2), not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (MOD (1- (* IRONCLAD::UH IRONCLAD::VL)) IRONCLAD::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (MOD (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) IRONCLAD::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (MOD (- (* IRONCLAD::VL IRONCLAD::VL) 2) IRONCLAD::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (INTEGER-LENGTH IRONCLAD::K) ; ; note: forced to do full call ; unable to do inline positive fixnum integer-length (cost 24) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 62). ; unable to do inline fixnum integer-length (cost 25) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; (* IRONCLAD::UH IRONCLAD::VL) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (1- (* IRONCLAD::UH IRONCLAD::VL)) ; ; 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. ; (* IRONCLAD::VH IRONCLAD::VL) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a REAL, 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 NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &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 NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (* IRONCLAD::VL IRONCLAD::VL) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::VL IRONCLAD::VL) 2) ; ; 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. ; (* IRONCLAD::UH IRONCLAD::VH) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::VH IRONCLAD::VL) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (* IRONCLAD::VH IRONCLAD::VH) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::VH IRONCLAD::VH) 2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (REAL 0), not a FIXNUM. ; The result is a (VALUES (REAL -2) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (REAL 0), not a FIXNUM. ; The result is a (VALUES (REAL -2) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (* IRONCLAD::UH IRONCLAD::VL) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (1- (* IRONCLAD::UH IRONCLAD::VL)) ; ; 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. ; (* IRONCLAD::VH IRONCLAD::VL) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a REAL, 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 NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &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 NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (DOTIMES (IRONCLAD::J IRONCLAD::S) ; (SETQ IRONCLAD::UH (MOD (* IRONCLAD::UH IRONCLAD::VL) IRONCLAD::N)) ; (SETQ IRONCLAD::VL (MOD (- # 2) IRONCLAD::N))) ; --> BLOCK LET TAGBODY UNLESS IF >= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; (* IRONCLAD::UH IRONCLAD::VL) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::VL IRONCLAD::VL) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::VL IRONCLAD::VL) 2) ; ; 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. ; (DOTIMES (IRONCLAD::J IRONCLAD::S) ; (SETQ IRONCLAD::UH (MOD (* IRONCLAD::UH IRONCLAD::VL) IRONCLAD::N)) ; (SETQ IRONCLAD::VL (MOD (- # 2) IRONCLAD::N))) ; --> BLOCK LET TAGBODY PSETQ PROGN 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. ; (ASH IRONCLAD::K -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (1+ IRONCLAD::S) ; ; 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. ; in: DEFUN PRIMEP-LUCAS ; (ZEROP (IRONCLAD::LUCAS-SEQUENCE (1+ IRONCLAD::N) IRONCLAD::B IRONCLAD::N)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (* IRONCLAD::B IRONCLAD::B) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 3), not a FIXNUM. ; The second argument is a (INTEGER 3), not a FIXNUM. ; The result is a (VALUES (INTEGER 9) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER 3), not a (SIGNED-BYTE 64). ; The second argument is a (INTEGER 3), not a (SIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 9) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::B IRONCLAD::B) 4) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 9), not a FIXNUM. ; The result is a (VALUES (INTEGER 5) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 9), not a FIXNUM. ; The result is a (VALUES (INTEGER 5) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (INCF IRONCLAD::B) ; --> THE ; ==> ; (+ 1 IRONCLAD::B) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 3), not a FIXNUM. ; The result is a (VALUES (INTEGER 4) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 3), not a FIXNUM. ; The result is a (VALUES (INTEGER 4) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (1+ IRONCLAD::N) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; in: DEFUN MODULAR-INVERSE ; (* IRONCLAD::Q IRONCLAD::U2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (DECF IRONCLAD::U1 (* IRONCLAD::Q IRONCLAD::U2)) ; --> THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (MINUSP IRONCLAD::INVERSE) ; ; 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. ; (* IRONCLAD::N IRONCLAD::INVERSE) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER 1), not a (SIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN MODULAR-INVERSE-WITH-BLINDING ; (+ 1 (IRONCLAD:STRONG-RANDOM (- IRONCLAD::MODULUS 1))) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (GCD IRONCLAD::B IRONCLAD::MODULUS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a INTEGER, not a (OR (INTEGER -4611686018427387904 -1) ; (INTEGER 1 4611686018427387903)). ; The second argument is a (INTEGER 1), not a (OR ; (INTEGER -4611686018427387904 ; -1) ; (INTEGER 1 4611686018427387903)). ; (- IRONCLAD::MODULUS 1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (+ 1 (IRONCLAD:STRONG-RANDOM (- IRONCLAD::MODULUS 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. ; (* IRONCLAD::N IRONCLAD::B) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y IRONCLAD::B) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN EXPT-MOD ; (ASSERT (<= 0 IRONCLAD::EXPONENT IRONCLAD::MODULUS)) ; --> LET WHEN IF <= ; ==> ; 1 ; ; 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. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; (INTEGER-LENGTH IRONCLAD::MODULUS) ; ; note: forced to do full call ; unable to do inline positive fixnum integer-length (cost 24) because: ; The first argument is a (INTEGER 2), not a (UNSIGNED-BYTE 62). ; unable to do inline fixnum integer-length (cost 25) because: ; The first argument is a (INTEGER 2), not a FIXNUM. ; etc. ; (* IRONCLAD::R0 IRONCLAD::R1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::R1 IRONCLAD::R1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::R0 IRONCLAD::R1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::R0 IRONCLAD::R0) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN PRIME-P ; (LOOP IRONCLAD::REPEAT IRONCLAD:*NUMBER-OF-MILLER-RABIN-TESTS* ; IRONCLAD::ALWAYS (IRONCLAD::MILLER-RABIN-KERNEL IRONCLAD::N IRONCLAD::Q ; IRONCLAD::K)) ; --> LET CEILING ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (<= IRONCLAD::N IRONCLAD::+LAST-SMALL-PRIME+) ; ; 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. ; (LOOP IRONCLAD::REPEAT IRONCLAD:*NUMBER-OF-MILLER-RABIN-TESTS* ; IRONCLAD::ALWAYS (IRONCLAD::MILLER-RABIN-KERNEL IRONCLAD::N IRONCLAD::Q ; IRONCLAD::K)) ; --> LET TAGBODY IF <= ; ==> ; 1 ; ; 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. ; --> LET TAGBODY IF DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/public-key/public-key.lisp ; in: DEFUN OCTETS-TO-INTEGER ; (CEILING IRONCLAD::N-BITS 8) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (MIN (CEILING IRONCLAD::N-BITS 8) IRONCLAD::SIZE) ; ; 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. ; (* 8 IRONCLAD::SIZE) ; ; 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. ; (LOOP IRONCLAD::WITH ; IRONCLAD::SUM = 0 ; IRONCLAD::FOR IRONCLAD::I IRONCLAD::FROM (- IRONCLAD::END ; IRONCLAD::N-BYTES) IRONCLAD::BELOW ; IRONCLAD::END ; DO ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= IRONCLAD::I #:LOOP-LIMIT-0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (LOOP IRONCLAD::FOR IRONCLAD::I IRONCLAD::FROM IRONCLAD::START IRONCLAD::BELOW (+ ; IRONCLAD::START ; IRONCLAD::N-BYTES) ; IRONCLAD::FOR IRONCLAD::J IRONCLAD::FROM 0 IRONCLAD::BY ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY WHEN IF ; ==> ; (>= IRONCLAD::I #:LOOP-LIMIT-1) ; ; 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. ; (LDB (BYTE IRONCLAD::N-BITS 0) IRONCLAD::SUM) ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; (- IRONCLAD::END IRONCLAD::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), 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. ; (* 8 IRONCLAD::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. ; (MIN (CEILING IRONCLAD::N-BITS 8) IRONCLAD::SIZE) ; ; 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 second argument is a INTEGER, not a FIXNUM. ; (+ IRONCLAD::START IRONCLAD::N-BYTES) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES 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 NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (LOOP IRONCLAD::FOR IRONCLAD::I IRONCLAD::FROM IRONCLAD::START IRONCLAD::BELOW (+ ; IRONCLAD::START ; IRONCLAD::N-BYTES) ; IRONCLAD::FOR IRONCLAD::J IRONCLAD::FROM 0 IRONCLAD::BY ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY WHEN IF ; ==> ; (>= IRONCLAD::I #:LOOP-LIMIT-1) ; ; 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. ; (ASH (AREF IRONCLAD::OCTET-VEC IRONCLAD::I) IRONCLAD::J) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The second argument is a (OR (INTEGER 8 8) (INTEGER 40 40) ; (INTEGER 24 24) (INTEGER 56) (INTEGER 32 32) ; (INTEGER 48 48) (INTEGER 16 16) ; (INTEGER 0 0)), 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 (OR (INTEGER 8 8) (INTEGER 40 40) ; (INTEGER 24 24) (INTEGER 56) (INTEGER 32 32) ; (INTEGER 48 48) (INTEGER 16 16) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (LOOP IRONCLAD::FOR IRONCLAD::I IRONCLAD::FROM IRONCLAD::START IRONCLAD::BELOW (+ ; IRONCLAD::START ; IRONCLAD::N-BYTES) ; IRONCLAD::FOR IRONCLAD::J IRONCLAD::FROM 0 IRONCLAD::BY ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-2 (ASH (AREF IRONCLAD::OCTET-VEC IRONCLAD::I) IRONCLAD::J)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE ; ==> ; (+ IRONCLAD::J 8) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (INTEGER 8 8) (INTEGER 40 40) (INTEGER 24 24) ; (INTEGER 56) (INTEGER 32 32) (INTEGER 48 48) ; (INTEGER 16 16) (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (OR (INTEGER 8 8) (INTEGER 40 40) (INTEGER 24 24) ; (INTEGER 56) (INTEGER 32 32) (INTEGER 48 48) ; (INTEGER 16 16)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 8 8) (INTEGER 40 40) (INTEGER 24 24) ; (INTEGER 56) (INTEGER 32 32) (INTEGER 48 48) ; (INTEGER 16 16) (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (OR (INTEGER 8 8) (INTEGER 40 40) (INTEGER 24 24) ; (INTEGER 56) (INTEGER 32 32) (INTEGER 48 48) ; (INTEGER 16 16)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- IRONCLAD::END IRONCLAD::N-BYTES) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES 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 NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (LOOP IRONCLAD::WITH ; IRONCLAD::SUM = 0 ; IRONCLAD::FOR IRONCLAD::I IRONCLAD::FROM (- IRONCLAD::END ; IRONCLAD::N-BYTES) IRONCLAD::BELOW ; IRONCLAD::END ; DO ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= IRONCLAD::I #:LOOP-LIMIT-0) ; ; 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. ; (ASH IRONCLAD::SUM 8) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (+ (ASH IRONCLAD::SUM 8) (AREF IRONCLAD::OCTET-VEC IRONCLAD::I)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN INTEGER-TO-OCTETS ; (LDB (BYTE IRONCLAD::N-BITS 0) BIGNUM) ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; (LDB (BYTE 8 BYTE) BIGNUM) ; ; note: unable to convert to inline logical operations because: not a word-sized integer ; (LDB (BYTE 8 (* IRONCLAD::I 8)) BIGNUM) ; ; note: unable to convert to inline logical operations because: not a word-sized integer ; (INTEGER-LENGTH BIGNUM) ; ; note: forced to do full call ; unable to do inline positive fixnum integer-length (cost 24) because: ; The first argument is a T, not a (UNSIGNED-BYTE 62). ; unable to do inline fixnum integer-length (cost 25) because: ; The first argument is a T, not a FIXNUM. ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/ciphers/square.lisp ; in: DEFINE-BLOCK-ENCRYPTOR SQUARE ; (IRONCLAD::SQUARE-MUNGE-BLOCK IRONCLAD::ROUND-KEYS IRONCLAD::N-ROUNDS ; IRONCLAD::T-ENCRYPTION-TABLE IRONCLAD::S-ENCRYPTION-TABLE ; IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START IRONCLAD::CIPHERTEXT ; IRONCLAD::CIPHERTEXT-START) ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 0 (* IRONCLAD::N-ROUNDS 4)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; ; note: unable to ; fold zero arg ; due to type uncertainty: ; The first argument is a REAL, not a (OR RATIONAL (COMPLEX RATIONAL)). ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 1 (* IRONCLAD::N-ROUNDS 4)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 2 (* IRONCLAD::N-ROUNDS 4)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 3 (* IRONCLAD::N-ROUNDS 4)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET LET DO BLOCK LET TAGBODY UNLESS ; --> IF >= 1- ; ==> ; 1 ; ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 0 (* IRONCLAD::N-ROUNDS 4)) ; ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 1 (* IRONCLAD::N-ROUNDS 4)) ; ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 2 (* IRONCLAD::N-ROUNDS 4)) ; ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 3 (* IRONCLAD::N-ROUNDS 4)) ; ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET LET DO BLOCK LET TAGBODY PSETQ ; --> LET* 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. ; in: DEFINE-BLOCK-DECRYPTOR SQUARE ; (IRONCLAD::SQUARE-MUNGE-BLOCK IRONCLAD::ROUND-KEYS IRONCLAD::N-ROUNDS ; IRONCLAD::T-DECRYPTION-TABLE IRONCLAD::S-DECRYPTION-TABLE ; IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START IRONCLAD::PLAINTEXT ; IRONCLAD::PLAINTEXT-START) ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 0 (* IRONCLAD::N-ROUNDS 4)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; ; note: unable to ; fold zero arg ; due to type uncertainty: ; The first argument is a REAL, not a (OR RATIONAL (COMPLEX RATIONAL)). ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 1 (* IRONCLAD::N-ROUNDS 4)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 2 (* IRONCLAD::N-ROUNDS 4)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 3 (* IRONCLAD::N-ROUNDS 4)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET LET DO BLOCK LET TAGBODY UNLESS ; --> IF >= 1- ; ==> ; 1 ; ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 0 (* IRONCLAD::N-ROUNDS 4)) ; ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 1 (* IRONCLAD::N-ROUNDS 4)) ; ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 2 (* IRONCLAD::N-ROUNDS 4)) ; ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 3 (* IRONCLAD::N-ROUNDS 4)) ; ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET LET DO BLOCK LET TAGBODY PSETQ ; --> LET* 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/adler32.lisp ; in: DEFINE-DIGEST-FINALIZER (ADLER32 4) ; (ASH (IRONCLAD::ADLER32-S2 IRONCLAD::STATE) 16) ; ; note: forced to do */SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The result is a (VALUES ; (OR (INTEGER 65536 302231454903657293611008) ; (INTEGER -302231454903657293676544 -65536) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (OR (INTEGER 65536 302231454903657293611008) ; (INTEGER -302231454903657293676544 -65536) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (LOGIOR (ASH (IRONCLAD::ADLER32-S2 IRONCLAD::STATE) 16) ; (IRONCLAD::ADLER32-S1 IRONCLAD::STATE)) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 65536 302231454903657293611008) ; (INTEGER -302231454903657293676544 -65536) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES (SIGNED-BYTE 79) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a (OR (INTEGER 65536 302231454903657293611008) ; (INTEGER -302231454903657293676544 -65536) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (SIGNED-BYTE 79) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/blake2.lisp ; in: DEFUN BLAKE2-ROUNDS ; (LDB (BYTE 64 64) IRONCLAD::OFFSET) ; ; note: unable to convert to inline logical operations because: not a word-sized integer ; (LDB (BYTE 64 0) IRONCLAD::OFFSET) ; ; note: forced to do LOGAND-WORD-MASK (cost 10) ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 128), not a (UNSIGNED-BYTE 64). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 128), not a (SIGNED-BYTE 64). ; etc. ; in: DEFUN BLAKE2-UPDATE ; (INCF IRONCLAD::OFFSET IRONCLAD::N) ; --> THE ; ==> ; (+ IRONCLAD::N IRONCLAD::OFFSET) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (UNSIGNED-BYTE 128), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 128) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER -4611686018427387903 128), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (UNSIGNED-BYTE 128), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (UNSIGNED-BYTE 128) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (INCF IRONCLAD::OFFSET IRONCLAD::+BLAKE2-BLOCK-SIZE+) ; --> THE ; ==> ; (+ IRONCLAD::+BLAKE2-BLOCK-SIZE+ IRONCLAD::OFFSET) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (UNSIGNED-BYTE 128), not a FIXNUM. ; The result is a (VALUES ; (INTEGER 128 340282366920938463463374607431768211455) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 128), not a FIXNUM. ; The result is a (VALUES ; (INTEGER 128 340282366920938463463374607431768211455) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (INCF IRONCLAD::OFFSET LENGTH) ; --> THE ; ==> ; (+ LENGTH IRONCLAD::OFFSET) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (UNSIGNED-BYTE 128), not a FIXNUM. ; The result is a (VALUES ; (INTEGER 1 340282366920938463463374607431768211455) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (UNSIGNED-BYTE 128), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER 1 340282366920938463463374607431768211455) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/blake2s.lisp ; in: DEFUN BLAKE2S-UPDATE ; (IRONCLAD::BLAKE2S-ROUNDS IRONCLAD::BLAKE2S-STATE IRONCLAD::INPUT ; IRONCLAD::START IRONCLAD::OFFSET NIL) ; ; note: doing unsigned word to integer coercion (cost 20) from OFFSET ; (IRONCLAD::BLAKE2S-ROUNDS IRONCLAD::BLAKE2S-STATE IRONCLAD::BUFFER 0 ; IRONCLAD::OFFSET IRONCLAD::FINAL) ; ; note: doing unsigned word to integer coercion (cost 20) from OFFSET ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/groestl.lisp ; in: DEFUN GROESTL-UPDATE ; (INCF IRONCLAD::BLOCK-COUNTER) ; --> THE ; ==> ; (+ 1 IRONCLAD::BLOCK-COUNTER) ; ; note: forced to do +/UNSIGNED=>INTEGER (cost 8) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES (INTEGER 1 18446744073709551616) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES (INTEGER 1 18446744073709551616) &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 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. ; (LET* ((IRONCLAD::GROESTL-STATE (IRONCLAD::GROESTL-STATE IRONCLAD::STATE)) ; (IRONCLAD::BUFFER (IRONCLAD::GROESTL-BUFFER IRONCLAD::STATE)) ; (IRONCLAD::BUFFER-INDEX ; (IRONCLAD::GROESTL-BUFFER-INDEX IRONCLAD::STATE)) ; (IRONCLAD::BLOCK-COUNTER ; (IRONCLAD::GROESTL-BLOCK-COUNTER IRONCLAD::STATE)) ; (IRONCLAD::BLOCK-SIZE (LENGTH IRONCLAD::BUFFER)) ; (IRONCLAD::TRANSFORM ; (IF (= IRONCLAD::BLOCK-SIZE IRONCLAD::+GROESTL-SIZE-512+) ; #'IRONCLAD::GROESTL-F512 ; #'IRONCLAD::GROESTL-F1024)) ; (LENGTH (- IRONCLAD::END IRONCLAD::START)) ; (IRONCLAD::N 0)) ; (DECLARE ; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) IRONCLAD::GROESTL-STATE) ; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) IRONCLAD::BUFFER) ; (TYPE (INTEGER 0 128) IRONCLAD::BLOCK-SIZE IRONCLAD::BUFFER-INDEX ; IRONCLAD::N) ; (TYPE (UNSIGNED-BYTE 64) LENGTH)) ; (SETF IRONCLAD::N ; (MIN LENGTH (- IRONCLAD::BLOCK-SIZE IRONCLAD::BUFFER-INDEX))) ; (REPLACE IRONCLAD::BUFFER IRONCLAD::INPUT :START1 IRONCLAD::BUFFER-INDEX ; :START2 IRONCLAD::START :END2 (+ IRONCLAD::START IRONCLAD::N)) ; (INCF IRONCLAD::BUFFER-INDEX IRONCLAD::N) ; (INCF IRONCLAD::START IRONCLAD::N) ; (DECF LENGTH IRONCLAD::N) ; (WHEN (= IRONCLAD::BUFFER-INDEX IRONCLAD::BLOCK-SIZE) ; (FUNCALL IRONCLAD::TRANSFORM IRONCLAD::GROESTL-STATE IRONCLAD::BUFFER 0) ; (SETF IRONCLAD::BUFFER-INDEX 0) ; (INCF IRONCLAD::BLOCK-COUNTER)) ; (LOOP IRONCLAD::UNTIL (< LENGTH IRONCLAD::BLOCK-SIZE) ; DO (FUNCALL IRONCLAD::TRANSFORM IRONCLAD::GROESTL-STATE ; IRONCLAD::INPUT IRONCLAD::START) (INCF ; IRONCLAD::BLOCK-COUNTER) (INCF ; IRONCLAD::START ; IRONCLAD::BLOCK-SIZE) (DECF ; LENGTH ; IRONCLAD::BLOCK-SIZE)) ; (WHEN (PLUSP LENGTH) ; (REPLACE IRONCLAD::BUFFER IRONCLAD::INPUT :END1 LENGTH :START2 ; IRONCLAD::START) ; (SETF IRONCLAD::BUFFER-INDEX LENGTH)) ; (SETF (IRONCLAD::GROESTL-BLOCK-COUNTER IRONCLAD::STATE) ; IRONCLAD::BLOCK-COUNTER ; (IRONCLAD::GROESTL-BUFFER-INDEX IRONCLAD::STATE) ; IRONCLAD::BUFFER-INDEX) ; ...) ; ; note: doing unsigned word to integer coercion (cost 20) to BLOCK-COUNTER ; (FUNCALL IRONCLAD::TRANSFORM IRONCLAD::GROESTL-STATE IRONCLAD::INPUT ; IRONCLAD::START) ; ; note: doing unsigned word to integer coercion (cost 20) from START ; in: DEFUN GROESTL-FINALIZE ; (REPLACE IRONCLAD::DIGEST IRONCLAD::OUTPUT :START1 IRONCLAD::DIGEST-START ; :START2 (- IRONCLAD::BLOCK-SIZE IRONCLAD:DIGEST-LENGTH)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY * (*)) ; &REST T). ; (INCF IRONCLAD::BLOCK-COUNTER) ; --> THE ; ==> ; (+ 1 IRONCLAD::BLOCK-COUNTER) ; ; note: forced to do +/UNSIGNED=>INTEGER (cost 8) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES (INTEGER 1 18446744073709551616) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES (INTEGER 1 18446744073709551616) &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 (MOD 18446744073709551617), not a FIXNUM. ; The result is a (VALUES (INTEGER 1 18446744073709551617) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD 18446744073709551617), not a FIXNUM. ; The result is a (VALUES (INTEGER 1 18446744073709551617) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. ; (- IRONCLAD::BLOCK-SIZE IRONCLAD:DIGEST-LENGTH) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; etc. ; (LET* ((IRONCLAD:DIGEST-LENGTH (IRONCLAD:DIGEST-LENGTH IRONCLAD::STATE)) ; (IRONCLAD::GROESTL-STATE (IRONCLAD::GROESTL-STATE IRONCLAD::STATE)) ; (IRONCLAD::BUFFER (IRONCLAD::GROESTL-BUFFER IRONCLAD::STATE)) ; (IRONCLAD::BUFFER-INDEX ; (IRONCLAD::GROESTL-BUFFER-INDEX IRONCLAD::STATE)) ; (IRONCLAD::BLOCK-COUNTER ; (IRONCLAD::GROESTL-BLOCK-COUNTER IRONCLAD::STATE)) ; (IRONCLAD::BLOCK-SIZE (LENGTH IRONCLAD::BUFFER)) ; (IRONCLAD::TRANSFORM ; (IF (= IRONCLAD::BLOCK-SIZE IRONCLAD::+GROESTL-SIZE-512+) ; #'IRONCLAD::GROESTL-F512 ; #'IRONCLAD::GROESTL-F1024))) ; (DECLARE ; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) IRONCLAD::GROESTL-STATE) ; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) IRONCLAD::BUFFER) ; (TYPE (INTEGER 0 128) IRONCLAD::BLOCK-SIZE IRONCLAD::BUFFER-INDEX) ; (OPTIMIZE (SPEED 3) (SPACE 0) (SAFETY 0) (DEBUG 0))) ; (SETF (AREF IRONCLAD::BUFFER IRONCLAD::BUFFER-INDEX) 128) ; (INCF IRONCLAD::BUFFER-INDEX) ; (WHEN ; (> IRONCLAD::BUFFER-INDEX ; (- IRONCLAD::BLOCK-SIZE IRONCLAD::+GROESTL-LENGTH-FIELD-LENGTH+)) ; (FILL IRONCLAD::BUFFER 0 :START IRONCLAD::BUFFER-INDEX) ; (FUNCALL IRONCLAD::TRANSFORM IRONCLAD::GROESTL-STATE IRONCLAD::BUFFER 0) ; (INCF IRONCLAD::BLOCK-COUNTER) ; (SETF IRONCLAD::BUFFER-INDEX 0)) ; (FILL IRONCLAD::BUFFER 0 :START IRONCLAD::BUFFER-INDEX) ; (SETF IRONCLAD::BUFFER-INDEX ; (- IRONCLAD::BLOCK-SIZE IRONCLAD::+GROESTL-LENGTH-FIELD-LENGTH+)) ; (INCF IRONCLAD::BLOCK-COUNTER) ; (SETF (IRONCLAD:UB64REF/BE IRONCLAD::BUFFER IRONCLAD::BUFFER-INDEX) ; IRONCLAD::BLOCK-COUNTER) ; (FUNCALL IRONCLAD::TRANSFORM IRONCLAD::GROESTL-STATE IRONCLAD::BUFFER 0) ; (IF (= IRONCLAD::BLOCK-SIZE IRONCLAD::+GROESTL-SIZE-512+) ; (LET ((IRONCLAD::TEMP #) (IRONCLAD::Y #) (IRONCLAD::Z #)) ; (DECLARE (TYPE # IRONCLAD::TEMP IRONCLAD::Y IRONCLAD::Z) ; (DYNAMIC-EXTENT IRONCLAD::TEMP IRONCLAD::Y IRONCLAD::Z)) ; (IRONCLAD::GROESTL-RND512P IRONCLAD::TEMP IRONCLAD::Z 0) ; (LOOP IRONCLAD::FOR IRONCLAD::I IRONCLAD::FROM 1 IRONCLAD::BELOW (1- ; IRONCLAD::+GROESTL-ROUNDS-512+) IRONCLAD::BY 2 ; DO (IRONCLAD::GROESTL-RND512P IRONCLAD::Z IRONCLAD::Y ; #) (IRONCLAD::GROESTL-RND512P IRONCLAD::Y IRONCLAD::Z #)) ; (IRONCLAD::GROESTL-RND512P IRONCLAD::Z IRONCLAD::TEMP (ASH # 56)) ; (DOTIMES (IRONCLAD::I IRONCLAD::+GROESTL-COLS-512+) (SETF #))) ; (LET ((IRONCLAD::TEMP #) (IRONCLAD::Y #) (IRONCLAD::Z #)) ; (DECLARE (TYPE # IRONCLAD::TEMP IRONCLAD::Y IRONCLAD::Z) ; (DYNAMIC-EXTENT IRONCLAD::TEMP IRONCLAD::Y IRONCLAD::Z)) ; (IRONCLAD::GROESTL-RND1024P IRONCLAD::TEMP IRONCLAD::Y 0) ; (LOOP IRONCLAD::FOR IRONCLAD::I IRONCLAD::FROM 1 IRONCLAD::BELOW (1- ; IRONCLAD::+GROESTL-ROUNDS-1024+) IRONCLAD::BY 2 ; DO (IRONCLAD::GROESTL-RND1024P IRONCLAD::Y IRONCLAD::Z ; #) (IRONCLAD::GROESTL-RND1024P IRONCLAD::Z IRONCLAD::Y #)) ; (IRONCLAD::GROESTL-RND1024P IRONCLAD::Y IRONCLAD::TEMP (ASH # 56)) ; (DOTIMES (IRONCLAD::I IRONCLAD::+GROESTL-COLS-1024+) (SETF #)))) ; ...) ; ; note: doing unsigned word to integer coercion (cost 20) to BLOCK-COUNTER ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/kupyna.lisp ; in: DEFINE-DIGEST-FINALIZER ((KUPYNA 64) (KUPYNA/256 32)) ; (INCF IRONCLAD::TOTAL (* 8 IRONCLAD::BUFFER-INDEX)) ; --> THE ; ==> ; (+ (* 8 IRONCLAD::BUFFER-INDEX) IRONCLAD::TOTAL) ; ; note: forced to do +/UNSIGNED=>INTEGER (cost 8) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES (MOD 18446744073709552640) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; (> (+ IRONCLAD::BUFFER-INDEX 12) IRONCLAD:BLOCK-LENGTH) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a T, not a FIXNUM. ; (LET ((IRONCLAD:BLOCK-LENGTH (IRONCLAD:BLOCK-LENGTH IRONCLAD::STATE)) ; (IRONCLAD:DIGEST-LENGTH (IRONCLAD:DIGEST-LENGTH IRONCLAD::STATE)) ; (IRONCLAD::BUFFER (IRONCLAD::KUPYNA-BUFFER IRONCLAD::STATE)) ; (IRONCLAD::BUFFER-INDEX ; (IRONCLAD::KUPYNA-BUFFER-INDEX IRONCLAD::STATE)) ; (IRONCLAD::H (IRONCLAD::KUPYNA-H IRONCLAD::STATE)) ; (IRONCLAD::TOTAL (IRONCLAD::KUPYNA-TOTAL IRONCLAD::STATE))) ; (INCF IRONCLAD::TOTAL (* 8 IRONCLAD::BUFFER-INDEX)) ; (SETF (AREF IRONCLAD::BUFFER IRONCLAD::BUFFER-INDEX) 128) ; (INCF IRONCLAD::BUFFER-INDEX) ; (WHEN (> (+ IRONCLAD::BUFFER-INDEX 12) IRONCLAD:BLOCK-LENGTH) ; (FILL IRONCLAD::BUFFER 0 :START IRONCLAD::BUFFER-INDEX) ; (ECASE IRONCLAD:BLOCK-LENGTH ; (64 (IRONCLAD::KUPYNA-TRANSFORM256 IRONCLAD::H IRONCLAD::BUFFER 0)) ; (128 (IRONCLAD::KUPYNA-TRANSFORM512 IRONCLAD::H IRONCLAD::BUFFER 0))) ; (SETF IRONCLAD::BUFFER-INDEX 0)) ; (FILL IRONCLAD::BUFFER 0 :START IRONCLAD::BUFFER-INDEX) ; (SETF (IRONCLAD:UB64REF/LE IRONCLAD::BUFFER (- IRONCLAD:BLOCK-LENGTH 12)) ; IRONCLAD::TOTAL) ; (ECASE IRONCLAD:BLOCK-LENGTH ; (64 ; (IRONCLAD::KUPYNA-TRANSFORM256 IRONCLAD::H IRONCLAD::BUFFER 0) ; (IRONCLAD::KUPYNA-OUTPUT-TRANSFORM256 IRONCLAD::H)) ; (128 ; (IRONCLAD::KUPYNA-TRANSFORM512 IRONCLAD::H IRONCLAD::BUFFER 0) ; (IRONCLAD::KUPYNA-OUTPUT-TRANSFORM512 IRONCLAD::H))) ; (LET ((IRONCLAD::OUTPUT (MAKE-ARRAY 128 :ELEMENT-TYPE '#))) ; (DOTIMES (IRONCLAD::I 16) (SETF # #)) ; (REPLACE IRONCLAD::DIGEST IRONCLAD::OUTPUT :START1 IRONCLAD::DIGEST-START ; :START2 (- IRONCLAD:BLOCK-LENGTH IRONCLAD:DIGEST-LENGTH) :END2 ; IRONCLAD:BLOCK-LENGTH) ; IRONCLAD::DIGEST)) ; ; note: doing unsigned word to integer coercion (cost 20) to TOTAL ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/md2.lisp ; in: DEFUN UPDATE-MD2-REGS ; (+ IRONCLAD::I IRONCLAD::OFFSET) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; etc. ; in: DEFUN MD2-REGS-DIGEST ; (+ IRONCLAD::START IRONCLAD::I) ; ; 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. ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; etc. ; in: DEFINE-DIGEST-FINALIZER (MD2 16) ; (IRONCLAD::FINALIZE-REGISTERS IRONCLAD::STATE IRONCLAD::REGS) ; --> BLOCK FLET IRONCLAD::STUFF-REGISTERS BLOCK DOTIMES DO BLOCK LET TAGBODY ; --> TAGBODY SETF LET* ; ==> ; (+ IRONCLAD::START IRONCLAD::I) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/md4.lisp ; in: DEFINE-DIGEST-FINALIZER (MD4 16) ; (* 8 (IRONCLAD::MD4-AMOUNT IRONCLAD::STATE)) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; (IRONCLAD::STORE-DATA-LENGTH BLOCK IRONCLAD::TOTAL-LENGTH 14) ; --> BLOCK LET SETF PROGN SETF LET* LDB ; ==> ; 1 ; ; note: forced to do LOGAND-WORD-MASK (cost 10) ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/md5.lisp ; in: DEFINE-DIGEST-FINALIZER (MD5 16) ; (* 8 (IRONCLAD::MD5-AMOUNT IRONCLAD::STATE)) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; (IRONCLAD::STORE-DATA-LENGTH BLOCK IRONCLAD::TOTAL-LENGTH 14) ; --> BLOCK LET SETF PROGN SETF LET* LDB ; ==> ; 1 ; ; note: forced to do LOGAND-WORD-MASK (cost 10) ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/ripemd-128.lisp ; in: DEFINE-DIGEST-FINALIZER (RIPEMD-128 16) ; (* 8 (IRONCLAD::RIPEMD-128-AMOUNT IRONCLAD::STATE)) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; (IRONCLAD::STORE-DATA-LENGTH BLOCK IRONCLAD::TOTAL-LENGTH 14) ; --> BLOCK LET SETF PROGN SETF LET* LDB ; ==> ; 1 ; ; note: forced to do LOGAND-WORD-MASK (cost 10) ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/ripemd-160.lisp ; in: DEFINE-DIGEST-FINALIZER (RIPEMD-160 20) ; (* 8 (IRONCLAD::RIPEMD-160-AMOUNT IRONCLAD::STATE)) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; (IRONCLAD::STORE-DATA-LENGTH BLOCK IRONCLAD::TOTAL-LENGTH 14) ; --> BLOCK LET SETF PROGN SETF LET* LDB ; ==> ; 1 ; ; note: forced to do LOGAND-WORD-MASK (cost 10) ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/sha1.lisp ; in: DEFINE-DIGEST-FINALIZER (SHA1 20) ; (* 8 (IRONCLAD::SHA1-AMOUNT IRONCLAD::STATE)) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; (IRONCLAD::STORE-DATA-LENGTH BLOCK IRONCLAD::TOTAL-LENGTH 14 T) ; --> BLOCK LET SETF PROGN SETF LET* LDB ; ==> ; 1 ; ; note: forced to do LOGAND-WORD-MASK (cost 10) ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/sha256.lisp ; in: DEFINE-DIGEST-FINALIZER ((SHA256 32) (SHA224 28)) ; (* 8 (IRONCLAD::SHA256-AMOUNT IRONCLAD::STATE)) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; (IRONCLAD::STORE-DATA-LENGTH BLOCK IRONCLAD::TOTAL-LENGTH 14 T) ; --> BLOCK LET SETF PROGN SETF LET* LDB ; ==> ; 1 ; ; note: forced to do LOGAND-WORD-MASK (cost 10) ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/sha3.lisp ; in: DEFUN GET-KECCAK-ROUND-CONSTANT ; (DEFUN IRONCLAD::GET-KECCAK-ROUND-CONSTANT (IRONCLAD::I) ; (DECLARE (TYPE (INTEGER 0 23) IRONCLAD::I) ; (OPTIMIZE (SPEED 3) (SPACE 0) (SAFETY 0) (DEBUG 0))) ; (LET ((IRONCLAD::CONSTANTS ; (LOAD-TIME-VALUE IRONCLAD::+KECCAK-ROUND-CONSTANTS+ T))) ; (DECLARE ; (TYPE (SIMPLE-ARRAY IRONCLAD::KECCAK-LANE #) IRONCLAD::CONSTANTS)) ; (AREF IRONCLAD::CONSTANTS IRONCLAD::I))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IRONCLAD::GET-KECCAK-ROUND-CONSTANT ; (IRONCLAD::I) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (DECLARE (TYPE (INTEGER 0 23) IRONCLAD::I) ; (OPTIMIZE (SPEED 3) (SPACE 0) (SAFETY 0) (DEBUG 0))) ; (BLOCK IRONCLAD::GET-KECCAK-ROUND-CONSTANT ; (LET ((IRONCLAD::CONSTANTS #)) ; (DECLARE (TYPE # IRONCLAD::CONSTANTS)) ; (AREF IRONCLAD::CONSTANTS IRONCLAD::I)))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; in: DEFUN SHA3-FINALIZE ; (- IRONCLAD::OUTPUT-BYTE-LENGTH IRONCLAD::OUTPUT-SIZE) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::DIGEST-START IRONCLAD::OUTPUT-SIZE) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; etc. ; (INCF IRONCLAD::OUTPUT-SIZE IRONCLAD::N) ; --> THE ; ==> ; (+ IRONCLAD::N IRONCLAD::OUTPUT-SIZE) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/sha512.lisp ; in: DEFUN UPDATE-SHA512-BLOCK ; (IRONCLAD::MOD64+ (IRONCLAD::SHA512-REGS-H IRONCLAD::REGS) IRONCLAD::H) ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-DIGEST-FINALIZER ((SHA512 64) (SHA384 48)) ; (* 8 (IRONCLAD::SHA512-AMOUNT IRONCLAD::STATE)) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/skein.lisp ; in: DEFUN SKEIN-UBI ; (FUNCALL IRONCLAD::ENCRYPTION-FUNCTION IRONCLAD::CIPHER IRONCLAD::BUFFER 0 ; IRONCLAD::CIPHERTEXT 0) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; ENCRYPTION-FUNCTION is not known to be a function ; (FUNCALL IRONCLAD::ENCRYPTION-FUNCTION IRONCLAD::CIPHER IRONCLAD::MESSAGE ; IRONCLAD::MESSAGE-START IRONCLAD::CIPHERTEXT 0) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; ENCRYPTION-FUNCTION is not known to be a function ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/sm3.lisp ; in: DEFINE-DIGEST-UPDATER SM3 ; (INCF IRONCLAD::START 64) ; ; note: doing signed word to integer coercion (cost 20) to START ; in: DEFINE-DIGEST-FINALIZER (SM3 32) ; (* 8 (IRONCLAD::SM3-COUNT IRONCLAD::STATE)) ; ; note: forced to do */UNSIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES ; (OR (INTEGER 8 147573952589676412920) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES ; (OR (INTEGER 8 147573952589676412920) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/streebog.lisp ; in: DEFUN STREEBOG-AX ; (DEFUN IRONCLAD::STREEBOG-AX (IRONCLAD::I IRONCLAD::J) ; (DECLARE (TYPE (INTEGER 0 7) IRONCLAD::I) ; (TYPE (INTEGER 0 255) IRONCLAD::J) ; (OPTIMIZE (SPEED 3) (SPACE 0) (SAFETY 0) (DEBUG 0))) ; (LET ((IRONCLAD::CONSTANTS (LOAD-TIME-VALUE IRONCLAD::+STREEBOG-AX+ T))) ; (DECLARE (TYPE (SIMPLE-ARRAY # #) IRONCLAD::CONSTANTS)) ; (AREF IRONCLAD::CONSTANTS IRONCLAD::I IRONCLAD::J))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IRONCLAD::STREEBOG-AX ; (IRONCLAD::I IRONCLAD::J) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (DECLARE (TYPE (INTEGER 0 7) IRONCLAD::I) ; (TYPE (INTEGER 0 255) IRONCLAD::J) ; (OPTIMIZE (SPEED 3) (SPACE 0) (SAFETY 0) (DEBUG 0))) ; (BLOCK IRONCLAD::STREEBOG-AX ; (LET ((IRONCLAD::CONSTANTS #)) ; (DECLARE (TYPE # IRONCLAD::CONSTANTS)) ; (AREF IRONCLAD::CONSTANTS IRONCLAD::I IRONCLAD::J)))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; in: DEFUN STREEBOG-STAGE2 ; (+ IRONCLAD::START (* IRONCLAD::I 8)) ; ; 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. ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; etc. ; in: DEFINE-DIGEST-UPDATER STREEBOG ; (INCF IRONCLAD::START 64) ; --> THE ; ==> ; (+ 64 IRONCLAD::START) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/tiger.lisp ; in: DEFCONSTANT +TIGER-BLOCK-COPY-FN+ ; 'IRONCLAD::FILL-BLOCK-UB8-LE ; ; note: deleting unreachable code ; in: DEFUN MAKE-TIGER-SBOX ; (MAKE-ARRAY IRONCLAD::N-ELEMENTS :ELEMENT-TYPE '(UNSIGNED-BYTE 32) ; :INITIAL-CONTENTS IRONCLAD::ELEMENTS) ; ; note: deleting unreachable code ; in: DEFINE-DIGEST-FINALIZER (TIGER 24) ; (* 8 (IRONCLAD::TIGER-AMOUNT IRONCLAD::STATE)) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/whirlpool.lisp ; in: DEFINE-DIGEST-FINALIZER (WHIRLPOOL 64) ; (* 8 (IRONCLAD::WHIRLPOOL-AMOUNT IRONCLAD::STATE)) ; ; 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. ; (LDB (BYTE 32 (- 256 (* 32 (1+ IRONCLAD::I)))) IRONCLAD::TOTAL-LENGTH) ; ; note: unable to convert to inline logical operations because: not a word-sized integer ; (* 8 (IRONCLAD::WHIRLPOOL-AMOUNT IRONCLAD::STATE)) ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/macs/cmac.lisp ; in: DEFUN UPDATE-CMAC ; (MIN IRONCLAD::REMAINING (- IRONCLAD:BLOCK-LENGTH IRONCLAD::BUFFER-INDEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR ; (DOUBLE-FLOAT -1.7592186044414d13 ; 1.7592186044415d13) ; (SINGLE-FLOAT -1.7592186e13 1.7592186e13) ; (RATIONAL (-17592186044414) ; (17592186044415))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR ; (DOUBLE-FLOAT -1.7592186044414d13 ; 1.7592186044415d13) ; (SINGLE-FLOAT -1.7592186e13 1.7592186e13) ; (RATIONAL (-17592186044414) ; (17592186044415))), not a DOUBLE-FLOAT. ; (= IRONCLAD::BUFFER-INDEX IRONCLAD:BLOCK-LENGTH) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (FUNCALL IRONCLAD::ENCRYPTION-FUNCTION IRONCLAD::CIPHER IRONCLAD::BUFFER 0 ; IRONCLAD::BUFFER 0) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; ENCRYPTION-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; ENCRYPTION-FUNCTION is not known to be a function ; (- IRONCLAD:BLOCK-LENGTH IRONCLAD::BUFFER-INDEX) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR (RATIONAL (0) (17592186044415)) ; (SINGLE-FLOAT (0.0) (1.7592186e13)) ; (DOUBLE-FLOAT (0.0d0) (1.7592186044415d13))), not a FIXNUM. ; The result is a (VALUES ; (OR ; (DOUBLE-FLOAT -1.7592186044414d13 1.7592186044415d13) ; (SINGLE-FLOAT -1.7592186e13 1.7592186e13) ; (RATIONAL (-17592186044414) (17592186044415))) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (OR (RATIONAL (0) (17592186044415)) ; (SINGLE-FLOAT (0.0) (1.7592186e13)) ; (DOUBLE-FLOAT (0.0d0) (1.7592186044415d13))), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR ; (DOUBLE-FLOAT -1.7592186044414d13 1.7592186044415d13) ; (SINGLE-FLOAT -1.7592186e13 1.7592186e13) ; (RATIONAL (-17592186044414) (17592186044415))) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (MIN IRONCLAD::REMAINING (- IRONCLAD:BLOCK-LENGTH IRONCLAD::BUFFER-INDEX)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (OR ; (DOUBLE-FLOAT -1.7592186044414d13 ; 1.7592186044415d13) ; (SINGLE-FLOAT -1.7592186e13 1.7592186e13) ; (RATIONAL (-17592186044414) (17592186044415))), not a FIXNUM. ; (DECF IRONCLAD::REMAINING) ; --> THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * 17592186044415), not a FIXNUM. ; The result is a (VALUES (INTEGER * 17592186044414) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER * 17592186044415), not a FIXNUM. ; The result is a (VALUES (INTEGER * 17592186044414) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/macs/gmac.lisp ; in: DEFUN UPDATE-GMAC ; (SETF (IRONCLAD::GMAC-TOTAL-LENGTH IRONCLAD::MAC) IRONCLAD::TOTAL-LENGTH ; (IRONCLAD::GMAC-BUFFER-LENGTH IRONCLAD::MAC) IRONCLAD::BUFFER-LENGTH) ; --> SETF LET* ; ==> ; IRONCLAD::TOTAL-LENGTH ; ; note: doing unsigned word to integer coercion (cost 20) from TOTAL-LENGTH ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/public-key/curve25519.lisp ; in: DEFUN CURVE25519-DOUBLE-AND-ADD ; (+ IRONCLAD::X1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::T1 IRONCLAD::T1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::X1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::T3 IRONCLAD::T3) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::T2 IRONCLAD::T4) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::X2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- IRONCLAD::X2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::T1 IRONCLAD::T7) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T3 IRONCLAD::T6) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::T8 IRONCLAD::T9) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::T8 IRONCLAD::T9) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T2 IRONCLAD::T4) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T5 IRONCLAD::+CURVE25519-A24+) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 121666 ; 7043980164573656116202093731033511498437972977164912432212323207953379415383793368) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 121666 ; 7043980164573656116202093731033511498437972977164912432212323207953379415383793368) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (+ IRONCLAD::T4 IRONCLAD::T12) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T5 IRONCLAD::T13) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T10 IRONCLAD::T10) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T11 IRONCLAD::T11) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::X3 IRONCLAD::T14) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD EC-DECODE-SCALAR ((EQL :CURVE25519) T) ; (LDB (BYTE (1- IRONCLAD::+CURVE25519-BITS+) 0) ; (IRONCLAD:OCTETS-TO-INTEGER IRONCLAD::OCTETS :BIG-ENDIAN NIL)) ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; (SETF (LDB (BYTE 3 0) IRONCLAD::X) 0) ; --> SETQ THE DPB ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/public-key/curve448.lisp ; in: DEFUN CURVE448-DOUBLE-AND-ADD ; (+ IRONCLAD::X1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- IRONCLAD::X1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- IRONCLAD::X2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::T1 IRONCLAD::T3) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::X2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::T2 IRONCLAD::T5) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::T4 IRONCLAD::T6) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T7 IRONCLAD::T7) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::X3 IRONCLAD::T8) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::T4 IRONCLAD::T6) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T9 IRONCLAD::T9) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T1 IRONCLAD::T1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T2 IRONCLAD::T2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T10 IRONCLAD::T11) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::T10 IRONCLAD::T11) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T12 IRONCLAD::+CURVE448-A24+) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 39081 ; 28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739682478) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 39081 ; 28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739682478) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (+ IRONCLAD::T13 IRONCLAD::T10) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T14 IRONCLAD::T12) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD EC-DECODE-SCALAR ((EQL :CURVE448) T) ; (LDB (BYTE IRONCLAD::+CURVE448-BITS+ 0) ; (IRONCLAD:OCTETS-TO-INTEGER IRONCLAD::OCTETS :BIG-ENDIAN NIL)) ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; (SETF (LDB (BYTE 2 0) IRONCLAD::X) 0) ; --> SETQ THE DPB ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/public-key/ed25519.lisp ; in: DEFUN ED25519-RECOVER-X ; (MOD ; (* IRONCLAD::UV3 ; (IRONCLAD:EXPT-MOD IRONCLAD::UV7 (/ (- IRONCLAD::+ED25519-Q+ 5) 8) ; IRONCLAD::+ED25519-Q+)) ; IRONCLAD::+ED25519-Q+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (* IRONCLAD::Y IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (1- (* IRONCLAD::Y IRONCLAD::Y)) ; ; 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+ IRONCLAD::U) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER 1 ; 57896044618658097711785492504343953926634992332820282019728792003956564819949) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER 1 ; 57896044618658097711785492504343953926634992332820282019728792003956564819949) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::V IRONCLAD::V IRONCLAD::V) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 194064761537588616893622436057812819407110752139587076392381504753256369085595993672410662147087199368837878645229193663462561604848498377274709448929113913002071147247356829369437895575864476831150950995459034595069848999419699393) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 194064761537588616893622436057812819407110752139587076392381504753256369085595993672410662147087199368837878645229193663462561604848498377274709448929113913002071147247356829369437895575864476831150950995459034595069848999419699393) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::U IRONCLAD::V3) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::UV3 IRONCLAD::V3 IRONCLAD::V) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 194064761537588616893622436057812819407110752139587076392381504753256369085595993672410662147087199368837878645229193663462561604848498377274709448929113913002071147247356829369437895575864476831150950995459034595069848999419699393) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 194064761537588616893622436057812819407110752139587076392381504753256369085595993672410662147087199368837878645229193663462561604848498377274709448929113913002071147247356829369437895575864476831150950995459034595069848999419699393) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::UV3 ; (IRONCLAD:EXPT-MOD IRONCLAD::UV7 (/ (- IRONCLAD::+ED25519-Q+ 5) 8) ; IRONCLAD::+ED25519-Q+)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::V IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 194064761537588616893622436057812819407110752139587076392381504753256369085595993672410662147087199368837878645229193663462561604848498377274709448929113913002071147247356829369437895575864476831150950995459034595069848999419699393) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 194064761537588616893622436057812819407110752139587076392381504753256369085595993672410662147087199368837878645229193663462561604848498377274709448929113913002071147247356829369437895575864476831150950995459034595069848999419699393) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (= IRONCLAD::U ; (MOD (* IRONCLAD::V IRONCLAD::X IRONCLAD::X) IRONCLAD::+ED25519-Q+)) ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; in: DEFMETHOD EC-ADD (ED25519-POINT ED25519-POINT) ; (- IRONCLAD::Y1 IRONCLAD::X1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- IRONCLAD::Y2 IRONCLAD::X2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* (- IRONCLAD::Y1 IRONCLAD::X1) (- IRONCLAD::Y2 IRONCLAD::X2)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::Y1 IRONCLAD::X1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::Y2 IRONCLAD::X2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* (+ IRONCLAD::Y1 IRONCLAD::X1) (+ IRONCLAD::Y2 IRONCLAD::X2)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::W1 IRONCLAD::W2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* 2 IRONCLAD::Z1 IRONCLAD::Z2) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)), not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)), not a (SIGNED-BYTE ; 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- IRONCLAD::B IRONCLAD::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::D IRONCLAD::C) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::D IRONCLAD::C) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::B IRONCLAD::A) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::E IRONCLAD::F) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::G IRONCLAD::H) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::F IRONCLAD::G) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::E IRONCLAD::H) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD EC-DOUBLE (ED25519-POINT) ; (* IRONCLAD::X1 IRONCLAD::X1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* 2 IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)), not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)), not a (SIGNED-BYTE ; 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::X1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::D IRONCLAD::D) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::A IRONCLAD::B) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::H IRONCLAD::I) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::A IRONCLAD::B) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::C IRONCLAD::G) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::E IRONCLAD::F) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::G IRONCLAD::H) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::F IRONCLAD::G) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::E IRONCLAD::H) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD EC-POINT-ON-CURVE-P (ED25519-POINT) ; (* IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z IRONCLAD::Z) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::W IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- IRONCLAD::YY IRONCLAD::XX) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::ZZ (* IRONCLAD::+ED25519-D+ IRONCLAD::WW)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (OR ; (INTEGER ; 37095705934669439343138083508754565189542113879843219016388785533085940283555 ; 2147694645954241852484040567486267188178402270445892907140121793157764114386211238650957099786829249829777408518992270436843721382558176074814068640355140) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 2147694645954241852484040567486267188178402270445892907140121793157764114386269134695575757884541035322281752472918905429176541664577904866818025205175089) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER ; 37095705934669439343138083508754565189542113879843219016388785533085940283555 ; 2147694645954241852484040567486267188178402270445892907140121793157764114386211238650957099786829249829777408518992270436843721382558176074814068640355140) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (MOD ; 2147694645954241852484040567486267188178402270445892907140121793157764114386269134695575757884541035322281752472918905429176541664577904866818025205175089) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::A IRONCLAD::B) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD EC-POINT-EQUAL (ED25519-POINT ED25519-POINT) ; (* IRONCLAD::X1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::X1 IRONCLAD::Z2) (* IRONCLAD::X2 IRONCLAD::Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::Y1 IRONCLAD::Z2) (* IRONCLAD::Y2 IRONCLAD::Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN ED25519-PUBLIC-KEY ; (SUBSEQ IRONCLAD::H 0 (/ IRONCLAD::+ED25519-BITS+ 8)) ; ; 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. ; (SETF (LDB (BYTE 3 0) (ELT IRONCLAD::H 0)) 0) ; --> LET DPB ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; --> LET ; ==> ; (SB-KERNEL:%SETELT #:H1 0 #:NEW0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (SETF (LDB (BYTE 2 6) (ELT IRONCLAD::H (- # 1))) 1) ; --> LET DPB ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 64)) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 64)) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; --> LET ; ==> ; (SB-KERNEL:%SETELT #:H4 (- (/ IRONCLAD::+ED25519-BITS+ 8) 1) #:NEW3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (SETF (LDB (BYTE 3 0) (ELT IRONCLAD::H 0)) 0) ; --> LET DPB ; ==> ; 1 ; ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; in: DEFUN ED25519-SIGN ; (SETF (LDB (BYTE 3 0) (ELT IRONCLAD::H 0)) 0) ; --> LET DPB ; ==> ; 1 ; ; 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. ; --> LET ; ==> ; (SB-KERNEL:%SETELT #:H1 0 #:NEW0) ; ; 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. ; (SETF (LDB (BYTE 2 6) (ELT IRONCLAD::H (- # 1))) 1) ; --> LET DPB ; ==> ; 1 ; ; 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. ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 64)) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 64)) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; --> LET ; ==> ; (SB-KERNEL:%SETELT #:H4 (- (/ IRONCLAD::+ED25519-BITS+ 8) 1) #:NEW3) ; ; 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. ; (SUBSEQ IRONCLAD::H 0 (/ IRONCLAD::+ED25519-BITS+ 8)) ; ; 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. ; (SUBSEQ IRONCLAD::H (/ IRONCLAD::+ED25519-BITS+ 8) ; (/ IRONCLAD::+ED25519-BITS+ 4)) ; ; 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. ; (MOD (IRONCLAD:EC-DECODE-SCALAR :ED25519 IRONCLAD::RH) IRONCLAD::+ED25519-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (MOD ; (IRONCLAD:EC-DECODE-SCALAR :ED25519 ; (IRONCLAD::ED25519-HASH IRONCLAD::RP IRONCLAD::PK ; IRONCLAD::M)) ; IRONCLAD::+ED25519-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (SETF (LDB (BYTE 3 0) (ELT IRONCLAD::H 0)) 0) ; --> LET DPB ; ==> ; 1 ; ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (* IRONCLAD::K IRONCLAD::A) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 7237005577332262213973186563042994240857116359379907606001950938285454250989), not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 7237005577332262213973186563042994240857116359379907606001950938285454250989), not a (SIGNED-BYTE ; 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ (* IRONCLAD::K IRONCLAD::A) IRONCLAD::RI) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 7237005577332262213973186563042994240857116359379907606001950938285454250989), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (MOD ; 7237005577332262213973186563042994240857116359379907606001950938285454250989), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN ED25519-VERIFY ; (MOD ; (IRONCLAD:EC-DECODE-SCALAR :ED25519 ; (IRONCLAD::ED25519-HASH IRONCLAD::R IRONCLAD::PK ; IRONCLAD::M)) ; IRONCLAD::+ED25519-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/public-key/ed448.lisp ; in: DEFUN ED448-RECOVER-X ; (MOD ; (* IRONCLAD::U3V ; (IRONCLAD:EXPT-MOD IRONCLAD::U5V3 (/ (- IRONCLAD::+ED448-Q+ 3) 4) ; IRONCLAD::+ED448-Q+)) ; IRONCLAD::+ED448-Q+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (* IRONCLAD::Y IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (1- (* IRONCLAD::Y IRONCLAD::Y)) ; ; 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+ IRONCLAD::U) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER 1 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER 1 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::+ED448-D+ (1+ IRONCLAD::U)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739721559 ; -39081) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739721559 ; -39081) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (1- (* IRONCLAD::+ED448-D+ (1+ IRONCLAD::U))) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739721559 ; -39081), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739721560 ; -39082) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739721559 ; -39081), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739721560 ; -39082) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::U IRONCLAD::V) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::U IRONCLAD::U IRONCLAD::UV) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 383984923062992702193107238768305990575971314802788874095145673202033267015866160824156542228134514790183983507016891440783606607878560120446759002880024553793796781079076555940582389267580537359243311262284327013495014833399929662539661053437671746996921499531190282669815840119244221198707642915966992579932173647238953260602561484622551570055889936319200163724829307589544003296741511201335648379207673) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 383984923062992702193107238768305990575971314802788874095145673202033267015866160824156542228134514790183983507016891440783606607878560120446759002880024553793796781079076555940582389267580537359243311262284327013495014833399929662539661053437671746996921499531190282669815840119244221198707642915966992579932173647238953260602561484622551570055889936319200163724829307589544003296741511201335648379207673) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::U3V IRONCLAD::UV IRONCLAD::UV) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 383984923062992702193107238768305990575971314802788874095145673202033267015866160824156542228134514790183983507016891440783606607878560120446759002880024553793796781079076555940582389267580537359243311262284327013495014833399929662539661053437671746996921499531190282669815840119244221198707642915966992579932173647238953260602561484622551570055889936319200163724829307589544003296741511201335648379207673) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 383984923062992702193107238768305990575971314802788874095145673202033267015866160824156542228134514790183983507016891440783606607878560120446759002880024553793796781079076555940582389267580537359243311262284327013495014833399929662539661053437671746996921499531190282669815840119244221198707642915966992579932173647238953260602561484622551570055889936319200163724829307589544003296741511201335648379207673) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::U3V ; (IRONCLAD:EXPT-MOD IRONCLAD::U5V3 (/ (- IRONCLAD::+ED448-Q+ 3) 4) ; IRONCLAD::+ED448-Q+)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD EC-ADD (ED448-POINT ED448-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::A IRONCLAD::A) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::X1 IRONCLAD::X2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Y2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::C IRONCLAD::D) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::+ED448-D+ IRONCLAD::K) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739682478 ; -39081) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739682478 ; -39081) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- IRONCLAD::B IRONCLAD::E) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::B IRONCLAD::E) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::X1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::X2 IRONCLAD::Y2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* (+ IRONCLAD::X1 IRONCLAD::Y1) (+ IRONCLAD::X2 IRONCLAD::Y2)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::A IRONCLAD::F) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::A IRONCLAD::G) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::H IRONCLAD::C IRONCLAD::D) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::I (- IRONCLAD::H IRONCLAD::C IRONCLAD::D)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (INTEGER ; -1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -1056589062271330492704679569833033213037694652072243044255921418053269422980479201469843346168891949555676434277992307502384960470195505587607667379354705268932983924615864005053696928706219547972793749003012586215908533357561963574307900580771586667654529483074625863688 ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -1056589062271330492704679569833033213037694652072243044255921418053269422980479201469843346168891949555676434277992307502384960470195505587607667379354705268932983924615864005053696928706219547972793749003012586215908533357561963574307900580771586667654529483074625863688 ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::D IRONCLAD::C) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::J (- IRONCLAD::D IRONCLAD::C)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844 ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844 ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::F IRONCLAD::G) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD EC-DOUBLE (ED448-POINT) ; (+ IRONCLAD::X1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::A IRONCLAD::A) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::X1 IRONCLAD::X1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::C IRONCLAD::D) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* 2 IRONCLAD::F) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- IRONCLAD::E (* 2 IRONCLAD::F)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 2 ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 2 ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::B IRONCLAD::E) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* (- IRONCLAD::B IRONCLAD::E) IRONCLAD::G) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844 ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844 ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::C IRONCLAD::D) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* (- IRONCLAD::C IRONCLAD::D) IRONCLAD::E) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844 ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844 ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::E IRONCLAD::G) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD EC-POINT-ON-CURVE-P (ED448-POINT) ; (* IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z IRONCLAD::Z) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::ZZ IRONCLAD::ZZ) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::YY IRONCLAD::XX) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::ZZ (+ IRONCLAD::YY IRONCLAD::XX)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1056589062271330492704679569833033213037694652072243044255921418053269422980479201469843346168891949555676434277992307502384960470195505587607667379354705268932983924615864005053696928706219547972793749003012586215908533357561963574307900580771586667654529483074625863689) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1056589062271330492704679569833033213037694652072243044255921418053269422980479201469843346168891949555676434277992307502384960470195505587607667379354705268932983924615864005053696928706219547972793749003012586215908533357561963574307900580771586667654529483074625863689) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::+ED448-D+ IRONCLAD::XX IRONCLAD::YY) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739682478 ; -39081) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739682478 ; -39081) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739682478 ; -39081) ; (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -20646278571312933492695791134322385499363072348817665206282832469469911159750053836321473905813233140292695364009108684750353320067855276934647624426280618307584972378956290590751764835383883077162376252393367440951960696073439549223763531298567189279303333364019726689395364 ; 0) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739682478 ; -39081) ; (INTEGER 0 0)), not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -20646278571312933492695791134322385499363072348817665206282832469469911159750053836321473905813233140292695364009108684750353320067855276934647624426280618307584972378956290590751764835383883077162376252393367440951960696073439549223763531298567189279303333364019726689395364 ; 0) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::ZZZZ (* IRONCLAD::+ED448-D+ IRONCLAD::XX IRONCLAD::YY)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (INTEGER ; -20646278571312933492695791134322385499363072348817665206282832469469911159750053836321473905813233140292695364009108684750353320067855276934647624426280618307584972378956290590751764835383883077162376252393367440951960696073439549223763531298567189279303333364019726689395364 ; 0), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -20646278571312933492695791134322385499363072348817665206282832469469911159750053836321473905813233140292695364009108684750353320067855276934647624426280618307584972378956290590751764835383883077162376252393367440951960696073439549223763531298567189279303333364019726689395364 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -20646278571312933492695791134322385499363072348817665206282832469469911159750053836321473905813233140292695364009108684750353320067855276934647624426280618307584972378956290590751764835383883077162376252393367440951960696073439549223763531298567189279303333364019726689395364 ; 0), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -20646278571312933492695791134322385499363072348817665206282832469469911159750053836321473905813233140292695364009108684750353320067855276934647624426280618307584972378956290590751764835383883077162376252393367440951960696073439549223763531298567189279303333364019726689395364 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::A IRONCLAD::B) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD EC-POINT-EQUAL (ED448-POINT ED448-POINT) ; (* IRONCLAD::X1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::X1 IRONCLAD::Z2) (* IRONCLAD::X2 IRONCLAD::Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::Y1 IRONCLAD::Z2) (* IRONCLAD::Y2 IRONCLAD::Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN ED448-SIGN ; (SETF (LDB (BYTE 2 0) (ELT IRONCLAD::H 0)) 0) ; --> LET DPB ; ==> ; 1 ; ; 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. ; --> LET ; ==> ; (SB-KERNEL:%SETELT #:H1 0 #:NEW0) ; ; 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. ; (SETF (LDB (BYTE 1 7) (ELT IRONCLAD::H (- # 2))) 1) ; --> LET DPB ; ==> ; 1 ; ; 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. ; --> LET ; ==> ; (SB-KERNEL:%SETELT #:H4 (- (CEILING IRONCLAD::+ED448-BITS+ 8) 2) #:NEW3) ; ; 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. ; (SETF (ELT IRONCLAD::H (- (CEILING IRONCLAD::+ED448-BITS+ 8) 1)) 0) ; ; 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. ; (SUBSEQ IRONCLAD::H 0 (CEILING IRONCLAD::+ED448-BITS+ 8)) ; ; 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. ; (SUBSEQ IRONCLAD::H (CEILING IRONCLAD::+ED448-BITS+ 8) ; (CEILING IRONCLAD::+ED448-BITS+ 4)) ; ; 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. ; (MOD (IRONCLAD:EC-DECODE-SCALAR :ED448 IRONCLAD::RH) IRONCLAD::+ED448-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (MOD ; (IRONCLAD:EC-DECODE-SCALAR :ED448 ; (IRONCLAD::ED448-HASH IRONCLAD::+ED448-DOM+ ; IRONCLAD::RP IRONCLAD::PK IRONCLAD::M)) ; IRONCLAD::+ED448-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (MOD (+ (* IRONCLAD::K IRONCLAD::A) IRONCLAD::RI) IRONCLAD::+ED448-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (SETF (LDB (BYTE 2 0) (ELT IRONCLAD::H 0)) 0) ; --> LET DPB ; ==> ; 1 ; ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (SETF (LDB (BYTE 1 7) (ELT IRONCLAD::H (- # 2))) 1) ; --> LET DPB ; ==> ; 1 ; ; 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 128)) &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 128)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. ; (* IRONCLAD::K IRONCLAD::A) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), 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 (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), not a (SIGNED-BYTE ; 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ (* IRONCLAD::K IRONCLAD::A) IRONCLAD::RI) ; ; 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 (OR FLOAT ; (RATIONAL 0 ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), not a FIXNUM. ; The result is a (VALUES REAL &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 (OR FLOAT ; (RATIONAL 0 ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFUN ED448-VERIFY ; (MOD ; (IRONCLAD:EC-DECODE-SCALAR :ED448 ; (IRONCLAD::ED448-HASH IRONCLAD::+ED448-DOM+ ; IRONCLAD::R IRONCLAD::PK IRONCLAD::M)) ; IRONCLAD::+ED448-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/public-key/secp256k1.lisp ; in: DEFMETHOD EC-POINT-EQUAL (SECP256K1-POINT SECP256K1-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::X1 IRONCLAD::Z2Z2) (* IRONCLAD::X2 IRONCLAD::Z1Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD EC-DOUBLE (SECP256K1-POINT) ; (* IRONCLAD::X1 IRONCLAD::X1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::B IRONCLAD::B) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::X1 IRONCLAD::B) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X1+B IRONCLAD::X1+B) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::X1+B IRONCLAD::X1+B) IRONCLAD::A IRONCLAD::C) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 (- (* IRONCLAD::X1+B IRONCLAD::X1+B) IRONCLAD::A IRONCLAD::C)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684488) ; (INTEGER ; -463168356949264781694283940034751631413079938662562256157830336031635338686648 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684488) ; (INTEGER ; -463168356949264781694283940034751631413079938662562256157830336031635338686648 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* 3 IRONCLAD::A) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 3 ; 347376267711948586270712955026063723559809953996921692118372752023726504014986) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 3 ; 347376267711948586270712955026063723559809953996921692118372752023726504014986) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::E IRONCLAD::E) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::D) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- IRONCLAD::F (* 2 IRONCLAD::D)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::D IRONCLAD::X2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::E (- IRONCLAD::D IRONCLAD::X2)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 8 IRONCLAD::C) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 8 ; 926336713898529563388567880069503262826159877325124512315660672063270677373296) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 8 ; 926336713898529563388567880069503262826159877325124512315660672063270677373296) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- (* IRONCLAD::E (- IRONCLAD::D IRONCLAD::X2)) (* 8 IRONCLAD::C)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 8 ; 926336713898529563388567880069503262826159877325124512315660672063270677373296) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383375164413683271584985493507212906901386721425290205136109296895751746246023215540 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 8 ; 926336713898529563388567880069503262826159877325124512315660672063270677373296) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383375164413683271584985493507212906901386721425290205136109296895751746246023215540 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::Y1 IRONCLAD::Z1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)), not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)), not a (SIGNED-BYTE ; 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD EC-ADD (SECP256K1-POINT SECP256K1-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Z2 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (= IRONCLAD::U1 IRONCLAD::U2) ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; (- IRONCLAD::U2 IRONCLAD::U1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 4 IRONCLAD::H IRONCLAD::H) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 4 ; 463168356949264781694283940034751631413079938662562256157830336031635338686648) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 4 ; 463168356949264781694283940034751631413079938662562256157830336031635338686648) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR ; (INTEGER 4 ; 463168356949264781694283940034751631413079938662562256157830336031635338686648) ; (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 53631231719770388398296099992823384509917463282369573510894245774883077533496952307877492221688419757331349592495581061651520046387924940318731901383368977) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR ; (INTEGER 4 ; 463168356949264781694283940034751631413079938662562256157830336031635338686648) ; (INTEGER 0 0)), not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 53631231719770388398296099992823384509917463282369573510894245774883077533496952307877492221688419757331349592495581061651520046387924940318731901383368977) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::H IRONCLAD::I) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::S2 IRONCLAD::S1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 (- IRONCLAD::S2 IRONCLAD::S1)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::U1 IRONCLAD::I) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::R IRONCLAD::R) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::V) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -347376267711948586270712955026063723559809953996921692118372752023726504014986 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -347376267711948586270712955026063723559809953996921692118372752023726504014986 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::V IRONCLAD::X3) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::S1 IRONCLAD::J) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684489) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER 0 0)), not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684489) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; (* 2 IRONCLAD::S1 IRONCLAD::J)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; The second argument is a (MOD ; 26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684489), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -40223423789827791298722074994617538382438097461777180133170684331162308150122714230908119166266314817998512194371685796238640034790943705239048926037526732 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684489), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -40223423789827791298722074994617538382438097461777180133170684331162308150122714230908119166266314817998512194371685796238640034790943705239048926037526732 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::Z1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; IRONCLAD::H) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684488 ; 1552518092300708935148979488462502555256886017116696611139052038025878194357327919123326904259801146902371181789763820289842428859885596960430872532398902802048848099563624248617810692556287115773373882875915134104881484722589289528) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684488 ; 1552518092300708935148979488462502555256886017116696611139052038025878194357327919123326904259801146902371181789763820289842428859885596960430872532398902802048848099563624248617810692556287115773373882875915134104881484722589289528) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (= IRONCLAD::S1 IRONCLAD::S2) ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; in: DEFMETHOD EC-POINT-ON-CURVE-P (SECP256K1-POINT) ; (* IRONCLAD::Y IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z IRONCLAD::Z IRONCLAD::Z) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z3 IRONCLAD::Z3) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::+SECP256K1-B+ IRONCLAD::Z6) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 7 ; 810544624661213367964996895060815354972889892659483948276203088055361842701634) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 7 ; 810544624661213367964996895060815354972889892659483948276203088055361842701634) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (+ IRONCLAD::X3 (* IRONCLAD::+SECP256K1-B+ IRONCLAD::Z6)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 7 ; 810544624661213367964996895060815354972889892659483948276203088055361842701634) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 926336713898529563388567880069503262826159877325124512315660672063270677373297) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 7 ; 810544624661213367964996895060815354972889892659483948276203088055361842701634) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (MOD ; 926336713898529563388567880069503262826159877325124512315660672063270677373297) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::Y2 IRONCLAD::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD SIGN-MESSAGE (SECP256K1-PRIVATE-KEY T) ; (LENGTH IRONCLAD::MESSAGE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256K1-BITS+ 8)) ; ; 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. ; (SUBSEQ (IRONCLAD:EC-ENCODE-POINT IRONCLAD::R) 1 ; (1+ (/ IRONCLAD::+SECP256K1-BITS+ 8))) ; ; 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. ; (MOD IRONCLAD::R IRONCLAD::+SECP256K1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (SUBSEQ IRONCLAD::MESSAGE IRONCLAD::START IRONCLAD::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. ; (MOD (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; IRONCLAD::+SECP256K1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (ZEROP IRONCLAD::R) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (ZEROP IRONCLAD::S) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256K1-BITS+ 8)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (* IRONCLAD::SK IRONCLAD::R) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), 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 NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES 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 NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD VERIFY-SIGNATURE (SECP256K1-PUBLIC-KEY T T) ; (LENGTH IRONCLAD::SIGNATURE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH IRONCLAD::MESSAGE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256K1-BITS+ 8)) ; ; 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. ; (SUBSEQ IRONCLAD::MESSAGE IRONCLAD::START IRONCLAD::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. ; (MOD (* IRONCLAD::E IRONCLAD::W) IRONCLAD::+SECP256K1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (MOD (* IRONCLAD::R IRONCLAD::W) IRONCLAD::+SECP256K1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (SUBSEQ (IRONCLAD:EC-ENCODE-POINT IRONCLAD::RP) 1 ; (1+ (/ IRONCLAD::+SECP256K1-BITS+ 8))) ; ; 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. ; (MOD IRONCLAD::V IRONCLAD::+SECP256K1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (< IRONCLAD::R IRONCLAD::+SECP256K1-L+) ; ; 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. ; (< IRONCLAD::S IRONCLAD::+SECP256K1-L+) ; ; 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. ; (= IRONCLAD::V IRONCLAD::R) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a SINGLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (115792089237316195423570985008687907852837564279074904382605163141518161494337)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * ; (1.157920892373162d77))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a DOUBLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (115792089237316195423570985008687907852837564279074904382605163141518161494337)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * ; (1.157920892373162d77))), not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256K1-BITS+ 8)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (* IRONCLAD::E IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::R IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (= IRONCLAD::V IRONCLAD::R) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a SINGLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (115792089237316195423570985008687907852837564279074904382605163141518161494337)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * (1.157920892373162d77))), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a DOUBLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (115792089237316195423570985008687907852837564279074904382605163141518161494337)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * (1.157920892373162d77))), not a DOUBLE-FLOAT. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/public-key/secp256r1.lisp ; in: DEFMETHOD EC-POINT-EQUAL (SECP256R1-POINT SECP256R1-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::X1 IRONCLAD::Z2Z2) (* IRONCLAD::X2 IRONCLAD::Z1Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD EC-DOUBLE (SECP256R1-POINT) ; (* IRONCLAD::X1 IRONCLAD::X1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::YY IRONCLAD::YY) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::X1 IRONCLAD::YY) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::Y1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X1+YY IRONCLAD::X1+YY) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::X1+YY IRONCLAD::X1+YY) IRONCLAD::XX IRONCLAD::YYYY) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 (- (* IRONCLAD::X1+YY IRONCLAD::X1+YY) IRONCLAD::XX IRONCLAD::YYYY)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205000) ; (INTEGER ; -463168356841424995050789787797630294120344573661161256782134525235468391415800 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205000) ; (INTEGER ; -463168356841424995050789787797630294120344573661161256782134525235468391415800 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::ZZ IRONCLAD::ZZ) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::XX (* IRONCLAD::ZZ IRONCLAD::ZZ)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 3 (- IRONCLAD::XX (* IRONCLAD::ZZ IRONCLAD::ZZ))) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 3 ; 347376267631068746288092340848222720590258430245870942586600893926601293561850) ; (INTEGER ; -40223423771097300003367670123973035050679398068931717577633076269386332303793874726227466822817982466316604363741688119809643966887559564864574086591807500 ; -3) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 3 ; 347376267631068746288092340848222720590258430245870942586600893926601293561850) ; (INTEGER ; -40223423771097300003367670123973035050679398068931717577633076269386332303793874726227466822817982466316604363741688119809643966887559564864574086591807500 ; -3) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::M IRONCLAD::M) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::S) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- (* IRONCLAD::M IRONCLAD::M) (* 2 IRONCLAD::S)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::S IRONCLAD::U) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::M (- IRONCLAD::S IRONCLAD::U)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 8 IRONCLAD::YYYY) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 8 ; 926336713682849990101579575595260588240689147322322513564269050470936782831600) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 8 ; 926336713682849990101579575595260588240689147322322513564269050470936782831600) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- (* IRONCLAD::M (- IRONCLAD::S IRONCLAD::U)) (* 8 IRONCLAD::YYYY)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 8 ; 926336713682849990101579575595260588240689147322322513564269050470936782831600) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101265551245456171790929429068347796715168803395750536978142750790671995632313434100 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 8 ; 926336713682849990101579575595260588240689147322322513564269050470936782831600) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101265551245456171790929429068347796715168803395750536978142750790671995632313434100 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::Y1+Z1 IRONCLAD::Y1+Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::Y1+Z1 IRONCLAD::Y1+Z1) IRONCLAD::YY IRONCLAD::ZZ) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD EC-ADD (SECP256R1-POINT SECP256R1-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Z2 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (= IRONCLAD::U1 IRONCLAD::U2) ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; (- IRONCLAD::U2 IRONCLAD::U1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 4 IRONCLAD::H IRONCLAD::H) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 4 ; 463168356841424995050789787797630294120344573661161256782134525235468391415800) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 4 ; 463168356841424995050789787797630294120344573661161256782134525235468391415800) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR ; (INTEGER 4 ; 463168356841424995050789787797630294120344573661161256782134525235468391415800) ; (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 53631231694796400004490226831964046734239197425242290103510768359181776405058499634969955763757309955088805818322250826412858622516746086486098782122410001) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR ; (INTEGER 4 ; 463168356841424995050789787797630294120344573661161256782134525235468391415800) ; (INTEGER 0 0)), not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 53631231694796400004490226831964046734239197425242290103510768359181776405058499634969955763757309955088805818322250826412858622516746086486098782122410001) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::H IRONCLAD::I) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::S2 IRONCLAD::S1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 (- IRONCLAD::S2 IRONCLAD::S1)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::U1 IRONCLAD::I) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::R IRONCLAD::R) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::V) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -347376267631068746288092340848222720590258430245870942586600893926601293561850 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -347376267631068746288092340848222720590258430245870942586600893926601293561850 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::V IRONCLAD::X3) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::S1 IRONCLAD::J) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205001) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER 0 0)), not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205001) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; (* 2 IRONCLAD::S1 IRONCLAD::J)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The second argument is a (MOD ; 26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205001), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -40223423771097300003367670123973035050679398068931717577633076269386332303793874726227466822817982466316604363741688119809643966887559564864574086591807500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205001), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -40223423771097300003367670123973035050679398068931717577633076269386332303793874726227466822817982466316604363741688119809643966887559564864574086591807500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::Z1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; IRONCLAD::H) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205000 ; 1552518091216287575509997016045519883874413001817462420952243358319381311981552516218821248992487553429028716151972263135050472406590473520502256999630780789960399351157211211886562356228292661589244886765074003724582584300504875000) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205000 ; 1552518091216287575509997016045519883874413001817462420952243358319381311981552516218821248992487553429028716151972263135050472406590473520502256999630780789960399351157211211886562356228292661589244886765074003724582584300504875000) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (= IRONCLAD::S1 IRONCLAD::S2) ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; in: DEFMETHOD EC-POINT-ON-CURVE-P (SECP256R1-POINT) ; (* IRONCLAD::Y IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z IRONCLAD::Z) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::Z4 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* -3 IRONCLAD::X IRONCLAD::Z4) ; ; note: forced to do GENERIC-* (cost 30) ; 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 * -3) (INTEGER 3) (INTEGER 0 0)) ; &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 * -3) (INTEGER 3) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER * -3) (INTEGER 3) (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER * -3) (INTEGER 3) (INTEGER 0 0)), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::X3 (* -3 IRONCLAD::X IRONCLAD::Z4) ; (* IRONCLAD::+SECP256R1-B+ IRONCLAD::Z6)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (OR ; (INTEGER ; 41058363725152142129326129780047268409114441015993725554835256314039467401291 ; 4754233715294071753536997766098265397605321291568756963789803770565338829955226958282817707719945690448174040500929197932238602174421086657888409559449450) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (OR ; (INTEGER ; 41058363725152142129326129780047268409114441015993725554835256314039467401291 ; 4754233715294071753536997766098265397605321291568756963789803770565338829955226958282817707719945690448174040500929197932238602174421086657888409559449450) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- IRONCLAD::Y2 IRONCLAD::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD SIGN-MESSAGE (SECP256R1-PRIVATE-KEY T) ; (LENGTH IRONCLAD::MESSAGE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256R1-BITS+ 8)) ; ; 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. ; (SUBSEQ (IRONCLAD:EC-ENCODE-POINT IRONCLAD::R) 1 ; (1+ (/ IRONCLAD::+SECP256R1-BITS+ 8))) ; ; 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. ; (MOD IRONCLAD::R IRONCLAD::+SECP256R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (SUBSEQ IRONCLAD::MESSAGE IRONCLAD::START IRONCLAD::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. ; (MOD (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; IRONCLAD::+SECP256R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (ZEROP IRONCLAD::R) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (ZEROP IRONCLAD::S) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256R1-BITS+ 8)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (* IRONCLAD::SK IRONCLAD::R) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), 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 NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES 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 NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD VERIFY-SIGNATURE (SECP256R1-PUBLIC-KEY T T) ; (LENGTH IRONCLAD::SIGNATURE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH IRONCLAD::MESSAGE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256R1-BITS+ 8)) ; ; 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. ; (SUBSEQ IRONCLAD::MESSAGE IRONCLAD::START IRONCLAD::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. ; (MOD (* IRONCLAD::E IRONCLAD::W) IRONCLAD::+SECP256R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (MOD (* IRONCLAD::R IRONCLAD::W) IRONCLAD::+SECP256R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (SUBSEQ (IRONCLAD:EC-ENCODE-POINT IRONCLAD::RP) 1 ; (1+ (/ IRONCLAD::+SECP256R1-BITS+ 8))) ; ; 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. ; (MOD IRONCLAD::V IRONCLAD::+SECP256R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (< IRONCLAD::R IRONCLAD::+SECP256R1-L+) ; ; 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. ; (< IRONCLAD::S IRONCLAD::+SECP256R1-L+) ; ; 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. ; (= IRONCLAD::V IRONCLAD::R) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a SINGLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (115792089210356248762697446949407573529996955224135760342422259061068512044369)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * ; (1.1579208921035625d77))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a DOUBLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (115792089210356248762697446949407573529996955224135760342422259061068512044369)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * ; (1.1579208921035625d77))), not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256R1-BITS+ 8)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (* IRONCLAD::E IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::R IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (= IRONCLAD::V IRONCLAD::R) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a SINGLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (115792089210356248762697446949407573529996955224135760342422259061068512044369)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * (1.1579208921035625d77))), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a DOUBLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (115792089210356248762697446949407573529996955224135760342422259061068512044369)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * (1.1579208921035625d77))), not a DOUBLE-FLOAT. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/public-key/secp384r1.lisp ; in: DEFMETHOD EC-POINT-EQUAL (SECP384R1-POINT SECP384R1-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::X1 IRONCLAD::Z2Z2) (* IRONCLAD::X2 IRONCLAD::Z1Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD EC-DOUBLE (SECP384R1-POINT) ; (* IRONCLAD::X1 IRONCLAD::X1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::YY IRONCLAD::YY) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::X1 IRONCLAD::YY) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::Y1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X1+YY IRONCLAD::X1+YY) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::X1+YY IRONCLAD::X1+YY) IRONCLAD::XX IRONCLAD::YYYY) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 (- (* IRONCLAD::X1+YY IRONCLAD::X1+YY) IRONCLAD::XX IRONCLAD::YYYY)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666248) ; (INTEGER ; -157608024785577916849116160400574455220318957081861786671793173616982887085987481316189064353035752007446427892449272 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666248) ; (INTEGER ; -157608024785577916849116160400574455220318957081861786671793173616982887085987481316189064353035752007446427892449272 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::ZZ IRONCLAD::ZZ) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::XX (* IRONCLAD::ZZ IRONCLAD::ZZ)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 3 (- IRONCLAD::XX (* IRONCLAD::ZZ IRONCLAD::ZZ))) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 3 ; 118206018589183437636837120300430841415239217811396340003844880212737165314490610987141798264776814005584820919336954) ; (INTEGER ; -4657554276902126805446938465387507665770658051350089833417156114078152858059050212145036840412040093748086682813217173423530327591384702966601351005412722431777478597450618859688861730941493532175219467651189956725220018998329999372 ; -3) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 3 ; 118206018589183437636837120300430841415239217811396340003844880212737165314490610987141798264776814005584820919336954) ; (INTEGER ; -4657554276902126805446938465387507665770658051350089833417156114078152858059050212145036840412040093748086682813217173423530327591384702966601351005412722431777478597450618859688861730941493532175219467651189956725220018998329999372 ; -3) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::M IRONCLAD::M) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::S) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- (* IRONCLAD::M IRONCLAD::M) (* 2 IRONCLAD::S)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::S IRONCLAD::U) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::M (- IRONCLAD::S IRONCLAD::U)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 8 IRONCLAD::YYYY) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 8 ; 315216049571155833698232320801148910440637914163723573343586347233965774171974962632378128706071504014892855784898544) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 8 ; 315216049571155833698232320801148910440637914163723573343586347233965774171974962632378128706071504014892855784898544) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- (* IRONCLAD::M (- IRONCLAD::S IRONCLAD::U)) (* 8 IRONCLAD::YYYY)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 8 ; 315216049571155833698232320801148910440637914163723573343586347233965774171974962632378128706071504014892855784898544) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072706357226347019628599221187918150714681448506656589390216539576854542754669819021038867345769390412421565855228231668 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 8 ; 315216049571155833698232320801148910440637914163723573343586347233965774171974962632378128706071504014892855784898544) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072706357226347019628599221187918150714681448506656589390216539576854542754669819021038867345769390412421565855228231668 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::Y1+Z1 IRONCLAD::Y1+Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::Y1+Z1 IRONCLAD::Y1+Z1) IRONCLAD::YY IRONCLAD::ZZ) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD EC-ADD (SECP384R1-POINT SECP384R1-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Z2 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (= IRONCLAD::U1 IRONCLAD::U2) ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; (- IRONCLAD::U2 IRONCLAD::U1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 4 IRONCLAD::H IRONCLAD::H) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 4 ; 157608024785577916849116160400574455220318957081861786671793173616982887085987481316189064353035752007446427892449272) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 4 ; 157608024785577916849116160400574455220318957081861786671793173616982887085987481316189064353035752007446427892449272) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR ; (INTEGER 4 ; 157608024785577916849116160400574455220318957081861786671793173616982887085987481316189064353035752007446427892449272) ; (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 6210072369202835740595917953850010221027544068466786444556208152104203810745400282860049120549386791664115577084289564564707103455179603955468468007216963242369971463267491812918482307921991376233625956868253275633626691997773332497) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR ; (INTEGER 4 ; 157608024785577916849116160400574455220318957081861786671793173616982887085987481316189064353035752007446427892449272) ; (INTEGER 0 0)), not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 6210072369202835740595917953850010221027544068466786444556208152104203810745400282860049120549386791664115577084289564564707103455179603955468468007216963242369971463267491812918482307921991376233625956868253275633626691997773332497) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::H IRONCLAD::I) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::S2 IRONCLAD::S1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 (- IRONCLAD::S2 IRONCLAD::S1)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::U1 IRONCLAD::I) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::R IRONCLAD::R) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::V) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -118206018589183437636837120300430841415239217811396340003844880212737165314490610987141798264776814005584820919336954 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -118206018589183437636837120300430841415239217811396340003844880212737165314490610987141798264776814005584820919336954 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::V IRONCLAD::X3) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::S1 IRONCLAD::J) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666249) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER 0 0)), not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666249) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; (* 2 IRONCLAD::S1 IRONCLAD::J)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The second argument is a (MOD ; 3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666249), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -4657554276902126805446938465387507665770658051350089833417156114078152858059050212145036840412040093748086682813217173423530327591384702966601351005412722431777478597450618859688861730941493532175219467651189956725220018998329999372 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666249), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -4657554276902126805446938465387507665770658051350089833417156114078152858059050212145036840412040093748086682813217173423530327591384702966601351005412722431777478597450618859688861730941493532175219467651189956725220018998329999372 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::Z1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; IRONCLAD::H) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666248 ; 61172327492847069472032393719205726809135813743440799050195397570919697796090373438193087932951745364335411418754192158027371883482871393221879462331321106336775708560918647649541641604232637072055046695989901089216659016884039006326354228973932344229259162402188271721529352380657325954679977318277520211348882541876885333111266759951749941821432) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666248 ; 61172327492847069472032393719205726809135813743440799050195397570919697796090373438193087932951745364335411418754192158027371883482871393221879462331321106336775708560918647649541641604232637072055046695989901089216659016884039006326354228973932344229259162402188271721529352380657325954679977318277520211348882541876885333111266759951749941821432) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (= IRONCLAD::S1 IRONCLAD::S2) ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; in: DEFMETHOD EC-POINT-ON-CURVE-P (SECP384R1-POINT) ; (* IRONCLAD::Y IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z IRONCLAD::Z) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::Z4 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* -3 IRONCLAD::X IRONCLAD::Z4) ; ; note: forced to do GENERIC-* (cost 30) ; 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 * -3) (INTEGER 3) (INTEGER 0 0)) ; &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 * -3) (INTEGER 3) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER * -3) (INTEGER 3) (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER * -3) (INTEGER 3) (INTEGER 0 0)), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::X3 (* -3 IRONCLAD::X IRONCLAD::Z4) ; (* IRONCLAD::+SECP384R1-B+ IRONCLAD::Z6)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (OR ; (INTEGER ; 27580193559959705877849011840389048093056905856361568521428707301988689241309860865136260764883745107765439761230575 ; 1086714957547291441539380743186883691325052640168535502985634527585716824737423997330458424652672228621187160777634281319450819776407920055319325979067815022545612052681671576296126271714236782641033750695114220282292143901370722850) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (OR ; (INTEGER ; 27580193559959705877849011840389048093056905856361568521428707301988689241309860865136260764883745107765439761230575 ; 1086714957547291441539380743186883691325052640168535502985634527585716824737423997330458424652672228621187160777634281319450819776407920055319325979067815022545612052681671576296126271714236782641033750695114220282292143901370722850) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- IRONCLAD::Y2 IRONCLAD::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD SIGN-MESSAGE (SECP384R1-PRIVATE-KEY T) ; (LENGTH IRONCLAD::MESSAGE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP384R1-BITS+ 8)) ; ; 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. ; (SUBSEQ (IRONCLAD:EC-ENCODE-POINT IRONCLAD::R) 1 ; (1+ (/ IRONCLAD::+SECP384R1-BITS+ 8))) ; ; 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. ; (MOD IRONCLAD::R IRONCLAD::+SECP384R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (SUBSEQ IRONCLAD::MESSAGE IRONCLAD::START IRONCLAD::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. ; (MOD (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; IRONCLAD::+SECP384R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (ZEROP IRONCLAD::R) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (ZEROP IRONCLAD::S) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP384R1-BITS+ 8)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (* IRONCLAD::SK IRONCLAD::R) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), 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 NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES 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 NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD VERIFY-SIGNATURE (SECP384R1-PUBLIC-KEY T T) ; (LENGTH IRONCLAD::SIGNATURE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH IRONCLAD::MESSAGE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP384R1-BITS+ 8)) ; ; 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. ; (SUBSEQ IRONCLAD::MESSAGE IRONCLAD::START IRONCLAD::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. ; (MOD (* IRONCLAD::E IRONCLAD::W) IRONCLAD::+SECP384R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (MOD (* IRONCLAD::R IRONCLAD::W) IRONCLAD::+SECP384R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (SUBSEQ (IRONCLAD:EC-ENCODE-POINT IRONCLAD::RP) 1 ; (1+ (/ IRONCLAD::+SECP384R1-BITS+ 8))) ; ; 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. ; (MOD IRONCLAD::V IRONCLAD::+SECP384R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (< IRONCLAD::R IRONCLAD::+SECP384R1-L+) ; ; 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. ; (< IRONCLAD::S IRONCLAD::+SECP384R1-L+) ; ; 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. ; (= IRONCLAD::V IRONCLAD::R) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a SINGLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * ; (3.940200619639448d115))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a DOUBLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * ; (3.940200619639448d115))), not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP384R1-BITS+ 8)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (* IRONCLAD::E IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::R IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (= IRONCLAD::V IRONCLAD::R) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a SINGLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * (3.940200619639448d115))), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a DOUBLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * (3.940200619639448d115))), not a DOUBLE-FLOAT. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/public-key/secp521r1.lisp ; in: DEFMETHOD EC-POINT-EQUAL (SECP521R1-POINT SECP521R1-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::X1 IRONCLAD::Z2Z2) (* IRONCLAD::X2 IRONCLAD::Z1Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD EC-DOUBLE (SECP521R1-POINT) ; (* IRONCLAD::X1 IRONCLAD::X1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::YY IRONCLAD::YY) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::X1 IRONCLAD::YY) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::Y1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X1+YY IRONCLAD::X1+YY) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::X1+YY IRONCLAD::X1+YY) IRONCLAD::XX IRONCLAD::YYYY) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 (- (* IRONCLAD::X1+YY IRONCLAD::X1+YY) IRONCLAD::XX IRONCLAD::YYYY)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245000) ; (INTEGER ; -27459190640522438859927603196325572869077741200573221637577853836742172733590624208490238562645818219909185245565923432148487951998866575250296113164460228600 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245000) ; (INTEGER ; -27459190640522438859927603196325572869077741200573221637577853836742172733590624208490238562645818219909185245565923432148487951998866575250296113164460228600 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::ZZ IRONCLAD::ZZ) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::XX (* IRONCLAD::ZZ IRONCLAD::ZZ)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 3 (- IRONCLAD::XX (* IRONCLAD::ZZ IRONCLAD::ZZ))) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 3 ; 20594392980391829144945702397244179651808305900429916228183390377556629550192968156367678921984363664931888934174442574111365963999149931437722084873345171450) ; (INTEGER ; -141376340743604082394737293980259429930865287150355604260858165585038023699071733438382193237615603368161533398775019621050317355468259293260294990572662914500279188040336496737030097576470449683316503330454450344065363007189429568031419809878128157839393409091144834999667896072426624256444553198130698343298367500 ; -3) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 3 ; 20594392980391829144945702397244179651808305900429916228183390377556629550192968156367678921984363664931888934174442574111365963999149931437722084873345171450) ; (INTEGER ; -141376340743604082394737293980259429930865287150355604260858165585038023699071733438382193237615603368161533398775019621050317355468259293260294990572662914500279188040336496737030097576470449683316503330454450344065363007189429568031419809878128157839393409091144834999667896072426624256444553198130698343298367500 ; -3) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::M IRONCLAD::M) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::S) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- (* IRONCLAD::M IRONCLAD::M) (* 2 IRONCLAD::S)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::S IRONCLAD::U) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::M (- IRONCLAD::S IRONCLAD::U)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 8 IRONCLAD::YYYY) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 8 ; 54918381281044877719855206392651145738155482401146443275155707673484345467181248416980477125291636439818370491131846864296975903997733150500592226328920457200) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 8 ; 54918381281044877719855206392651145738155482401146443275155707673484345467181248416980477125291636439818370491131846864296975903997733150500592226328920457200) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- (* IRONCLAD::M (- IRONCLAD::S IRONCLAD::U)) (* 8 IRONCLAD::YYYY)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 8 ; 54918381281044877719855206392651145738155482401146443275155707673484345467181248416980477125291636439818370491131846864296975903997733150500592226328920457200) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304888344777294490376632198572251474628965927650177964593389844162009214155323191721686939853177904767576182085436131736162987784778749881334899969125776686579700 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 8 ; 54918381281044877719855206392651145738155482401146443275155707673484345467181248416980477125291636439818370491131846864296975903997733150500592226328920457200) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304888344777294490376632198572251474628965927650177964593389844162009214155323191721686939853177904767576182085436131736162987784778749881334899969125776686579700 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::Y1+Z1 IRONCLAD::Y1+Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::Y1+Z1 IRONCLAD::Y1+Z1) IRONCLAD::YY IRONCLAD::ZZ) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD EC-ADD (SECP521R1-POINT SECP521R1-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Z2 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (= IRONCLAD::U1 IRONCLAD::U2) ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; (- IRONCLAD::U2 IRONCLAD::U1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 4 IRONCLAD::H IRONCLAD::H) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 4 ; 27459190640522438859927603196325572869077741200573221637577853836742172733590624208490238562645818219909185245565923432148487951998866575250296113164460228600) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 4 ; 27459190640522438859927603196325572869077741200573221637577853836742172733590624208490238562645818219909185245565923432148487951998866575250296113164460228600) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR ; (INTEGER 4 ; 27459190640522438859927603196325572869077741200573221637577853836742172733590624208490238562645818219909185245565923432148487951998866575250296113164460228600) ; (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 188501787658138776526316391973679239907820382867140805681144220780050698265428977917842924316820804490882044531700026161400423140624345724347059987430217219333705584053781995649373463435293932911088671107272600458753817342919239424041893079837504210452524545454859779999557194763235499008592737597507597791064490001) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR ; (INTEGER 4 ; 27459190640522438859927603196325572869077741200573221637577853836742172733590624208490238562645818219909185245565923432148487951998866575250296113164460228600) ; (INTEGER 0 0)), not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 188501787658138776526316391973679239907820382867140805681144220780050698265428977917842924316820804490882044531700026161400423140624345724347059987430217219333705584053781995649373463435293932911088671107272600458753817342919239424041893079837504210452524545454859779999557194763235499008592737597507597791064490001) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::H IRONCLAD::I) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::S2 IRONCLAD::S1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 (- IRONCLAD::S2 IRONCLAD::S1)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::U1 IRONCLAD::I) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::R IRONCLAD::R) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::V) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -20594392980391829144945702397244179651808305900429916228183390377556629550192968156367678921984363664931888934174442574111365963999149931437722084873345171450 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -20594392980391829144945702397244179651808305900429916228183390377556629550192968156367678921984363664931888934174442574111365963999149931437722084873345171450 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::V IRONCLAD::X3) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::S1 IRONCLAD::J) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245001) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER 0 0)), not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245001) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; (* 2 IRONCLAD::S1 IRONCLAD::J)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The second argument is a (MOD ; 94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245001), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -141376340743604082394737293980259429930865287150355604260858165585038023699071733438382193237615603368161533398775019621050317355468259293260294990572662914500279188040336496737030097576470449683316503330454450344065363007189429568031419809878128157839393409091144834999667896072426624256444553198130698343298367500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245001), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -141376340743604082394737293980259429930865287150355604260858165585038023699071733438382193237615603368161533398775019621050317355468259293260294990572662914500279188040336496737030097576470449683316503330454450344065363007189429568031419809878128157839393409091144834999667896072426624256444553198130698343298367500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::Z1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; IRONCLAD::H) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245000 ; 323506657711507029453181996836191423905396619463411038446198094561650090834658129016932671774513214895603258054623797825080015583482483484232107124273991285595557946679886497826749103320711322052528368706114976541287213729802118735079263806492268073748703604020759669694249097481800780470115074570825703566287612472605957916899534347533818426664998835338294071500789521188679927290659570626952894517682587436359707625191202872228989641967995942405768892668191421400875000) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245000 ; 323506657711507029453181996836191423905396619463411038446198094561650090834658129016932671774513214895603258054623797825080015583482483484232107124273991285595557946679886497826749103320711322052528368706114976541287213729802118735079263806492268073748703604020759669694249097481800780470115074570825703566287612472605957916899534347533818426664998835338294071500789521188679927290659570626952894517682587436359707625191202872228989641967995942405768892668191421400875000) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (= IRONCLAD::S1 IRONCLAD::S2) ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; in: DEFMETHOD EC-POINT-ON-CURVE-P (SECP521R1-POINT) ; (* IRONCLAD::Y IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z IRONCLAD::Z) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::Z4 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* -3 IRONCLAD::X IRONCLAD::Z4) ; ; note: forced to do GENERIC-* (cost 30) ; 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 * -3) (INTEGER 3) (INTEGER 0 0)) ; &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 * -3) (INTEGER 3) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER * -3) (INTEGER 3) (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER * -3) (INTEGER 3) (INTEGER 0 0)), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::X3 (* -3 IRONCLAD::X IRONCLAD::Z4) ; (* IRONCLAD::+SECP521R1-B+ IRONCLAD::Z6)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (OR ; (INTEGER ; 1093849038073734274511112390766805569936207598951683748994586394495953116150735016013708737573759623248592132296706313309438452531591012912142327488478985984 ; 7509052317104689266221718773197879358824997841303921778022934628560891681178716185992316901383281939388722899667008339423247323322262598318844851232229404578616146770570011358819916291506176207588497241970009430275979183224789671278182396703835216413712162605475020184622768221244312921726542116999523306208985600) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (OR ; (INTEGER ; 1093849038073734274511112390766805569936207598951683748994586394495953116150735016013708737573759623248592132296706313309438452531591012912142327488478985984 ; 7509052317104689266221718773197879358824997841303921778022934628560891681178716185992316901383281939388722899667008339423247323322262598318844851232229404578616146770570011358819916291506176207588497241970009430275979183224789671278182396703835216413712162605475020184622768221244312921726542116999523306208985600) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- IRONCLAD::Y2 IRONCLAD::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD SIGN-MESSAGE (SECP521R1-PRIVATE-KEY T) ; (LENGTH IRONCLAD::MESSAGE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (CEILING IRONCLAD::+SECP521R1-BITS+ 8)) ; ; 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. ; (SUBSEQ (IRONCLAD:EC-ENCODE-POINT IRONCLAD::R) 1 ; (1+ (CEILING IRONCLAD::+SECP521R1-BITS+ 8))) ; ; 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. ; (MOD IRONCLAD::R IRONCLAD::+SECP521R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (SUBSEQ IRONCLAD::MESSAGE IRONCLAD::START IRONCLAD::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. ; (MOD (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; IRONCLAD::+SECP521R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (ZEROP IRONCLAD::R) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (ZEROP IRONCLAD::S) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (CEILING IRONCLAD::+SECP521R1-BITS+ 8)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (* IRONCLAD::SK IRONCLAD::R) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), 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 NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES 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 NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD VERIFY-SIGNATURE (SECP521R1-PUBLIC-KEY T T) ; (LENGTH IRONCLAD::SIGNATURE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH IRONCLAD::MESSAGE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (CEILING IRONCLAD::+SECP521R1-BITS+ 8)) ; ; 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. ; (SUBSEQ IRONCLAD::MESSAGE IRONCLAD::START IRONCLAD::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. ; (MOD (* IRONCLAD::E IRONCLAD::W) IRONCLAD::+SECP521R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (MOD (* IRONCLAD::R IRONCLAD::W) IRONCLAD::+SECP521R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (SUBSEQ (IRONCLAD:EC-ENCODE-POINT IRONCLAD::RP) 1 ; (1+ (CEILING IRONCLAD::+SECP521R1-BITS+ 8))) ; ; 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. ; (MOD IRONCLAD::V IRONCLAD::+SECP521R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (< IRONCLAD::R IRONCLAD::+SECP521R1-L+) ; ; 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. ; (< IRONCLAD::S IRONCLAD::+SECP521R1-L+) ; ; 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. ; (= IRONCLAD::V IRONCLAD::R) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a SINGLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * ; (6.86479766013061d156))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a DOUBLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * ; (6.86479766013061d156))), not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (CEILING IRONCLAD::+SECP521R1-BITS+ 8)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (* IRONCLAD::E IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::R IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (= IRONCLAD::V IRONCLAD::R) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a SINGLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * (6.86479766013061d156))), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a DOUBLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * (6.86479766013061d156))), not a DOUBLE-FLOAT. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-unicode-20210228-git/util.lisp ; in: DEFGENERIC CASE-FOLDING ; (CL-UNICODE::CASE-FOLDING CL-UNICODE::CODE-POINT) ; ; caught STYLE-WARNING: ; The function CASE-FOLDING is called with one argument, but wants exactly two. WARNING: Lisp compilation had style-warnings while compiling # ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-unicode-20210228-git/build/util.lisp ; in: DEFPARAMETER *THIS-FILE* ; (OR ; #P"/home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-unicode-20210228-git/build/util.lisp" ; *LOAD-PATHNAME*) ; --> IF ; ==> ; *LOAD-PATHNAME* ; ; note: deleting unreachable code ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-unicode-20210228-git/build/read.lisp ; in: DEFUN ADD-HANGUL-DECOMPOSITION ; (AREF CL-UNICODE::*CHAR-DATABASE* CL-UNICODE::CODE-POINT) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN BUILD-COMPOSITION-MAPPINGS ; (LOOP CL-UNICODE::FOR CL-UNICODE::CHAR-INFO CL-UNICODE::ACROSS CL-UNICODE::*CHAR-DATABASE* ; CL-UNICODE::FOR CL-UNICODE::MAPPING = (IF (NULL CL-UNICODE::CHAR-INFO) ; NIL ; (CL-UNICODE::DECOMPOSITION-MAPPING* ; CL-UNICODE::CHAR-INFO)) ; UNLESS (OR (NULL CL-UNICODE::MAPPING) ; (SYMBOLP (CAR CL-UNICODE::MAPPING)) ; (/= 2 (LENGTH CL-UNICODE::MAPPING)) ; (CL-UNICODE::NON-STARTER-P CL-UNICODE::CHAR-INFO) ; (GETHASH (CL-UNICODE::CODE-POINT CL-UNICODE::CHAR-INFO) ; CL-UNICODE::EXCLUSION-MAP)) ; DO ...) ; --> 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. ; (AREF CL-UNICODE::*CHAR-DATABASE* (CAR CL-UNICODE::MAPPING)) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (/= 0 (CL-UNICODE::COMBINING-CLASS* FIRST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (CL-UNICODE::WITH-CODE-POINT-RANGE (CL-UNICODE::CODE-POINT ; CL-UNICODE::CODE-POINT-RANGE) ; (SETF (GETHASH CL-UNICODE::CODE-POINT CL-UNICODE::EXCLUSION-MAP) T)) ; --> FLET COND IF THE LOOP BLOCK LET TAGBODY WHEN IF ; ==> ; (> CL-UNICODE::POINT #:LOOP-LIMIT-9) ; ; 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. ; --> FLET COND IF THE LOOP BLOCK LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE 1+ ; ==> ; 1 ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> FLET COND IF THE LOOP BLOCK LET TAGBODY WHEN IF ; ==> ; (> CL-UNICODE::POINT #:LOOP-LIMIT-9) ; ; 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. ; --> FLET COND IF THE LOOP BLOCK 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 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-unicode-20210228-git/api.lisp ; in: DEFUN LIST-ALL-CHARACTERS ; (IF CL-UNICODE::WANT-CODE-POINT-P ; CL-UNICODE:+CODE-POINT-LIMIT+ ; CHAR-CODE-LIMIT) ; ; note: deleting unreachable code ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/archive-20160318-git/compat.lisp ; in: DEFINE-FILE-TYPE-TEST (FUN UNIX-NAME MASK) ; (ARCHIVE::DEFINE-FILE-TYPE-TEST ; (ARCHIVE::FUN ARCHIVE::UNIX-NAME ARCHIVE::MASK) ; (DECLARE (IGNORABLE ARCHIVE::MASK)) ; `(DEFUN ,ARCHIVE::FUN (ARCHIVE::MODE) ; (FLET ((ARCHIVE::STAT-FILE-TYPE # ; #)) ; (= (ARCHIVE::STAT-FILE-TYPE ARCHIVE::MODE) ,ARCHIVE::MASK)))) ; --> SB-INT:BINDING* ; ==> ; (LET* ((#:G0 ; (SB-C::CHECK-DS-LIST (CDR #:EXPR) 3 3 ; '(# ARCHIVE::FUN ARCHIVE::UNIX-NAME ; ARCHIVE::MASK))) ; (ARCHIVE::FUN (POP #:G0)) ; (ARCHIVE::UNIX-NAME (POP #:G0)) ; (ARCHIVE::MASK (POP #:G0))) ; (DECLARE ; (SB-C::CONSTANT-VALUE ARCHIVE::FUN ARCHIVE::UNIX-NAME ARCHIVE::MASK) ; (IGNORABLE ARCHIVE::MASK)) ; (DECLARE ; (SB-C::SOURCE-FORM ; (ARCHIVE::DEFINE-FILE-TYPE-TEST ; (ARCHIVE::FUN ARCHIVE::UNIX-NAME ARCHIVE::MASK) (DECLARE #) ; `(DEFUN ,ARCHIVE::FUN # #)))) ; (BLOCK ARCHIVE::DEFINE-FILE-TYPE-TEST ; `(DEFUN ,ARCHIVE::FUN (ARCHIVE::MODE) ; (FLET (#) ; (= # ,ARCHIVE::MASK))))) ; ; caught STYLE-WARNING: ; The variable UNIX-NAME is defined but never used. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/yason-20230214-git/encode.lisp ; in: DEFMETHOD YASON:ENCODE (SYMBOL) ; (EQ YASON::OBJECT YASON:FALSE) ; ; caught WARNING: ; undefined variable: YASON:FALSE ; (EQ YASON::OBJECT YASON:TRUE) ; ; caught WARNING: ; undefined variable: YASON:TRUE ; ; compilation unit finished ; Undefined variables: ; YASON:FALSE YASON:TRUE ; caught 2 WARNING conditions ; caught 15 STYLE-WARNING conditions ; printed 3413 notes Installing sbcl-bin... No SBCL version specified. Downloading sbcl-bin_uri.tsv to see the available versions... [################## ] 25% [##################################### ] 50% [######################################################## ] 76% [##########################################################################]100% Installing sbcl-bin/2.4.3... Installing sbcl-bin/2.4.3... Installing sbcl-bin/2.4.3... Downloading https://github.com/roswell/sbcl_bin/releases/download/2.4.3/sbcl-2.4.3-x86-64-linux-musl-binary.tar.bz2 [ ] 0% [ ] 1% [# ] 1% [# ] 2% [## ] 2% [## ] 3% [### ] 4% [### ] 5% [#### ] 5% [#### ] 6% [##### ] 6% [##### ] 7% [##### ] 8% [###### ] 8% [###### ] 9% [####### ] 9% [####### ] 10% [######## ] 10% [######## ] 11% [######## ] 12% [######### ] 12% [######### ] 13% [########## ] 13% [########## ] 14% [########### ] 14% [########### ] 15% [########### ] 16% [############ ] 16% [############ ] 17% [############# ] 17% [############# ] 18% [############## ] 18% [############## ] 19% [############## ] 20% [############### ] 20% [############### ] 21% [################ ] 21% [################ ] 22% [################# ] 22% [################# ] 23% [################# ] 24% [################## ] 24% [################## ] 25% [################### ] 25% [################### ] 26% [#################### ] 27% [#################### ] 28% [##################### ] 28% [##################### ] 29% [###################### ] 29% [###################### ] 30% [###################### ] 31% [####################### ] 31% [####################### ] 32% [######################## ] 32% [######################## ] 33% [######################### ] 33% [######################### ] 34% [######################### ] 35% [########################## ] 35% [########################## ] 36% [########################### ] 36% [########################### ] 37% [############################ ] 37% [############################ ] 38% [############################ ] 39% [############################# ] 39% [############################# ] 40% [############################## ] 40% [############################## ] 41% [############################### ] 42% [############################### ] 43% [################################ ] 43% [################################ ] 44% [################################# ] 44% [################################# ] 45% [################################## ] 46% [################################## ] 47% [################################### ] 47% [################################### ] 48% [#################################### ] 48% [#################################### ] 49% [##################################### ] 50% [##################################### ] 51% [###################################### ] 51% [###################################### ] 52% [####################################### ] 52% [####################################### ] 53% [######################################## ] 54% [######################################## ] 55% [######################################### ] 55% [######################################### ] 56% [########################################## ] 56% [########################################## ] 57% [########################################## ] 58% [########################################### ] 58% [########################################### ] 59% [############################################ ] 59% [############################################ ] 60% [############################################# ] 60% [############################################# ] 61% [############################################# ] 62% [############################################## ] 62% [############################################## ] 63% [############################################### ] 63% [############################################### ] 64% [################################################ ] 64% [################################################ ] 65% [################################################ ] 66% [################################################# ] 66% [################################################# ] 67% [################################################## ] 67% [################################################## ] 68% [################################################### ] 68% [################################################### ] 69% [################################################### ] 70% [#################################################### ] 70% [#################################################### ] 71% [##################################################### ] 71% [##################################################### ] 72% [###################################################### ] 73% [###################################################### ] 74% [####################################################### ] 74% [####################################################### ] 75% [######################################################## ] 75% [######################################################## ] 76% [######################################################### ] 77% [######################################################### ] 78% [########################################################## ] 78% [########################################################## ] 79% [########################################################### ] 79% [########################################################### ] 80% [############################################################ ] 81% [############################################################ ] 82% [############################################################# ] 82% [############################################################# ] 83% [############################################################## ] 83% [############################################################## ] 84% [############################################################## ] 85% [############################################################### ] 85% [############################################################### ] 86% [################################################################ ] 86% [################################################################ ] 87% [################################################################# ] 87% [################################################################# ] 88% [################################################################# ] 89% [################################################################## ] 89% [################################################################## ] 90% [################################################################### ] 90% [################################################################### ] 91% [#################################################################### ] 92% [#################################################################### ] 93% [##################################################################### ] 93% [##################################################################### ] 94% [###################################################################### ] 94% [###################################################################### ] 95% [####################################################################### ] 96% [####################################################################### ] 97% [######################################################################## ] 97% [######################################################################## ] 98% [######################################################################### ] 98% [######################################################################### ] 99% [##########################################################################]100% Installing sbcl-bin/2.4.3... Downloading https://github.com/roswell/sbcl_bin/releases/download/2.4.3/sbcl-2.4.3-x86-64-linux-musl-binary.tar.bz2 Extracting sbcl-bin-2.4.3-x86-64-linux.tar.bz2 to /home/buildozer/.roswell/src/sbcl-2.4.3-x86-64-linux-musl/ Building sbcl-bin/2.4.3...Installing sbcl-bin/2.4.3... Downloading https://github.com/roswell/sbcl_bin/releases/download/2.4.3/sbcl-2.4.3-x86-64-linux-musl-binary.tar.bz2 Extracting sbcl-bin-2.4.3-x86-64-linux.tar.bz2 to /home/buildozer/.roswell/src/sbcl-2.4.3-x86-64-linux-musl/ Installing sbcl-bin/2.4.3... Downloading https://github.com/roswell/sbcl_bin/releases/download/2.4.3/sbcl-2.4.3-x86-64-linux-musl-binary.tar.bz2 Extracting sbcl-bin-2.4.3-x86-64-linux.tar.bz2 to /home/buildozer/.roswell/src/sbcl-2.4.3-x86-64-linux-musl/ Install Script for sbcl-bin... Installing Quicklisp... Done 12358 Making core for Roswell... ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-utilities-1.2.4/extremum.lisp ; in: DEFUN COMPARATOR ; (FUNCALL CL-UTILITIES::TEST (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::A) ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::B)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; TEST is not known to be a function ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::A) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; KEY is not known to be a function ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::B) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; KEY is not known to be a function ; in: DEFUN EXTREMUM ; (DEFUN CL-UTILITIES:EXTREMUM ; (SEQUENCE CL-UTILITIES::PREDICATE ; &KEY (CL-UTILITIES::KEY #'IDENTITY) (CL-UTILITIES::START 0) ; CL-UTILITIES::END) ; #<(SIMPLE-ARRAY CHARACTER ; (225)) Returns the element of SEQUENCE that would appear first if the ; sequence were ordered according to SORT using PREDICATE and KEY using ; an unstable sorting algorithm. See http://www.cliki.net/EXTREMUM fo... {10027D94CF}> ; (CL-UTILITIES::WITH-CHECK-LENGTH (SEQUENCE CL-UTILITIES::START ; CL-UTILITIES::END) ; (REDUCE ; (CL-UTILITIES::COMPARATOR CL-UTILITIES::PREDICATE CL-UTILITIES::KEY) ; SEQUENCE :START CL-UTILITIES::START :END CL-UTILITIES::END))) ; ==> ; (SB-IMPL::%DEFUN 'CL-UTILITIES:EXTREMUM ; (SB-INT:NAMED-LAMBDA CL-UTILITIES:EXTREMUM ; (SEQUENCE CL-UTILITIES::PREDICATE &KEY ; (CL-UTILITIES::KEY #'IDENTITY) (CL-UTILITIES::START 0) ; CL-UTILITIES::END) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; #<(SIMPLE-ARRAY CHARACTER ; (225)) Returns the element of SEQUENCE that would appear first if the ; sequence were ordered according to SORT using PREDICATE and KEY using ; an unstable sorting algorithm. See http://www.cliki.net/EXTREMUM fo... {10027D94CF}> ; (BLOCK CL-UTILITIES:EXTREMUM ; (CL-UTILITIES::WITH-CHECK-LENGTH (SEQUENCE ; CL-UTILITIES::START ; CL-UTILITIES::END) ; (REDUCE # SEQUENCE :START CL-UTILITIES::START :END ; CL-UTILITIES::END))))) ; ; caught STYLE-WARNING: ; Call to CL-UTILITIES::ZERO-LENGTH-P could not be inlined because its source ; code was not saved. A global INLINE or SB-EXT:MAYBE-INLINE proclamation must be ; in effect to save function definitions for inlining. ; in: DEFUN EXTREMUM-FASTKEY ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::X) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; KEY is not known to be a function ; (FUNCALL CL-UTILITIES::PREDICATE CL-UTILITIES::X-KEY ; CL-UTILITIES::SMALLEST-KEY) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; PREDICATE is not known to be a function ; (CL-UTILITIES::WITH-CHECK-LENGTH (SEQUENCE CL-UTILITIES::START ; CL-UTILITIES::END) ; (LET* ((CL-UTILITIES::SMALLEST (ELT SEQUENCE 0)) ; (CL-UTILITIES::SMALLEST-KEY ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::SMALLEST)) ; (CL-UTILITIES::CURRENT-INDEX 0) ; (CL-UTILITIES::REAL-END (OR CL-UTILITIES::END #))) ; (DECLARE ; (TYPE (INTEGER 0) CL-UTILITIES::CURRENT-INDEX CL-UTILITIES::REAL-END ; CL-UTILITIES::START) ; (FIXNUM CL-UTILITIES::CURRENT-INDEX CL-UTILITIES::REAL-END ; CL-UTILITIES::START)) ; (MAP NIL ; #'(LAMBDA (CL-UTILITIES::X) ; (WHEN # #) ; (INCF CL-UTILITIES::CURRENT-INDEX)) ; SEQUENCE) ; CL-UTILITIES::SMALLEST)) ; --> IF OR LET IF >= OR LET IF ; ==> ; (LENGTH #:SEQUENCE1) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; --> IF OR LET IF ; ==> ; (>= #:START2 (OR #:END3 (LENGTH #:SEQUENCE1))) ; ; 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. ; (ELT SEQUENCE 0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a LIST. ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::SMALLEST) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; KEY is not known to be a function ; (CL-UTILITIES::WITH-CHECK-LENGTH (SEQUENCE CL-UTILITIES::START ; CL-UTILITIES::END) ; (LET* ((CL-UTILITIES::SMALLEST (ELT SEQUENCE 0)) ; (CL-UTILITIES::SMALLEST-KEY ; (FUNCALL CL-UTILITIES::KEY CL-UTILITIES::SMALLEST)) ; (CL-UTILITIES::CURRENT-INDEX 0) ; (CL-UTILITIES::REAL-END (OR CL-UTILITIES::END #))) ; (DECLARE ; (TYPE (INTEGER 0) CL-UTILITIES::CURRENT-INDEX CL-UTILITIES::REAL-END ; CL-UTILITIES::START) ; (FIXNUM CL-UTILITIES::CURRENT-INDEX CL-UTILITIES::REAL-END ; CL-UTILITIES::START)) ; (MAP NIL ; #'(LAMBDA (CL-UTILITIES::X) ; (WHEN # #) ; (INCF CL-UTILITIES::CURRENT-INDEX)) ; SEQUENCE) ; CL-UTILITIES::SMALLEST)) ; --> IF OR LET IF ; ==> ; (>= #:START2 (OR #:END3 (LENGTH #:SEQUENCE1))) ; ; 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. WARNING: Lisp compilation had style-warnings while compiling # ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl-utilities-1.2.4/expt-mod.lisp ; in: DEFUN EXPT-MOD ; (EXPT CL-UTILITIES::N CL-UTILITIES::EXPONENT) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a DOUBLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a INTEGER. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; The second argument is a NUMBER, not a INTEGER. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES DOUBLE-FLOAT &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a NUMBER, not a (OR RATIONAL (COMPLEX RATIONAL)). ; The second argument is a NUMBER, not a INTEGER. ; (MOD (EXPT CL-UTILITIES::N CL-UTILITIES::EXPONENT) CL-UTILITIES::MODULUS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/fast-http-20231021-git/src/util.lisp ; in: DEFUN NUMBER-STRING-P ; (RETURN-FROM FAST-HTTP.UTIL:NUMBER-STRING-P NIL) ; ; note: deleting unreachable code ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/fast-http-20231021-git/src/parser.lisp ; in: DEFUN-SPEEDY PARSE-HEADER-VALUE ; (PROC-PARSE:WITH-OCTETS-PARSING (FAST-HTTP.PARSER::DATA :START ; FAST-HTTP.PARSER::START :END ; FAST-HTTP.PARSER::END) ; (PROC-PARSE:SKIP* (NOT #\Return)) ; (PROC-PARSE:ADVANCE) ; (PROC-PARSE:SKIP #\Newline) ; (WHEN FAST-HTTP.PARSER::FIELD-START ; (FAST-HTTP.PARSER::CALLBACK-DATA :HEADER-FIELD FAST-HTTP.HTTP:HTTP ; FAST-HTTP.PARSER:CALLBACKS ; FAST-HTTP.PARSER::DATA ; FAST-HTTP.PARSER::FIELD-START ; FAST-HTTP.PARSER::FIELD-END)) ; (FAST-HTTP.PARSER::CALLBACK-DATA :HEADER-VALUE FAST-HTTP.HTTP:HTTP ; FAST-HTTP.PARSER:CALLBACKS ; FAST-HTTP.PARSER::DATA ; FAST-HTTP.PARSER::START ; (- (PROC-PARSE:POS) 2)) ; (PROC-PARSE:POS)) ; --> LET OR LET IF ; ==> ; (LENGTH #:DATA5) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFUN-SPEEDY PARSE-HEADER-VALUE-CONTENT-LENGTH ; (* 10 FAST-HTTP.PARSER::CONTENT-LENGTH) ; ; note: forced to do GENERIC-* (cost 30) ; 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 10) (INTEGER * -10) (INTEGER 0 0)) ; &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 10) (INTEGER * -10) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (+ (* 10 FAST-HTTP.PARSER::CONTENT-LENGTH) ; (FAST-HTTP.BYTE-VECTOR:DIGIT-BYTE-CHAR-TO-INTEGER (PROC-PARSE:CURRENT))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 10) (INTEGER * -10) (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER 10) (INTEGER * -10) (INTEGER 0 0)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN-SPEEDY PARSE-HEADER-LINE ; (<= FAST-HTTP.PARSER::END FAST-HTTP.PARSER::START) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; in: DEFUN-SPEEDY READ-BODY-DATA ; (- FAST-HTTP.PARSER::END FAST-HTTP.PARSER::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (<= (FAST-HTTP.HTTP:HTTP-CONTENT-LENGTH FAST-HTTP.HTTP:HTTP) ; FAST-HTTP.PARSER::READABLE-COUNT) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; (+ FAST-HTTP.PARSER::START ; (FAST-HTTP.HTTP:HTTP-CONTENT-LENGTH FAST-HTTP.HTTP:HTTP)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (DECF (FAST-HTTP.HTTP:HTTP-CONTENT-LENGTH FAST-HTTP.HTTP:HTTP) ; FAST-HTTP.PARSER::READABLE-COUNT) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN-SPEEDY PARSE-CHUNKED-BODY ; (= FAST-HTTP.PARSER::START FAST-HTTP.PARSER::END) ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; (* 16 (FAST-HTTP.HTTP:HTTP-CONTENT-LENGTH FAST-HTTP.HTTP:HTTP)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 16) (INTEGER * -16) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 16) (INTEGER * -16) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (+ (* 16 (FAST-HTTP.HTTP:HTTP-CONTENT-LENGTH FAST-HTTP.HTTP:HTTP)) ; FAST-HTTP.PARSER::UNHEX-VAL) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 16) (INTEGER * -16) (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER 16) (INTEGER * -16) (INTEGER 0 0)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/fast-http-20231021-git/src/fast-http.lisp ; in: DEFUN-CAREFUL MAKE-PARSER ; (STRING= FAST-HTTP::PARSING-HEADER-FIELD "set-cookie") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR NULL (SIMPLE-ARRAY CHARACTER (*))), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR NULL ; (SIMPLE-ARRAY CHARACTER ; (*))), not a (SIMPLE-ARRAY CHARACTER (*)). ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/quri-20230618-git/src/encode.lisp ; in: DEFUN URL-ENCODE ; (SETF (AREF QURI.ENCODE::RES QURI.ENCODE::I) #\+) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (AREF QURI.ENCODE::RES QURI.ENCODE::I) (CODE-CHAR BYTE)) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (SETF (AREF QURI.ENCODE::RES QURI.ENCODE::I) #\%) ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/quri-20230618-git/src/decode.lisp ; in: DEFUN URL-DECODE ; (QURI.UTIL:GOTO QURI.DECODE::PARSING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:WITH-ARRAY-PARSING (CHAR QURI.DECODE::P QURI.DECODE::DATA ; QURI.DECODE::START QURI.DECODE::END ; (AND (NOT (STRINGP QURI.DECODE::DATA)) ; #'CODE-CHAR)) ; (QURI.DECODE::PARSING ; (COND ((CHAR= CHAR #\%) (QURI.UTIL:GONEXT)) ; ((CHAR= CHAR #\+) (QURI.DECODE::WRITE-TO-BUFFER 32) ; (QURI.UTIL:REDO)) ; (T (QURI.DECODE::WRITE-TO-BUFFER #) (QURI.UTIL:REDO)))) ; (QURI.DECODE::PARSING-ENCODED-PART ; (SETQ QURI.DECODE::PARSING-ENCODED-PART CHAR) (QURI.UTIL:GONEXT)) ; (QURI.DECODE::PARSING-ENCODED-PART-SECOND ; (HANDLER-BIND ((QURI.ERROR:URL-DECODING-ERROR #)) ; (QURI.DECODE::WRITE-TO-BUFFER (+ # #))) ; (SETQ QURI.DECODE::PARSING-ENCODED-PART NIL) ; (QURI.UTIL:GOTO QURI.DECODE::PARSING)) ; (:EOF ; (WHEN QURI.DECODE::PARSING-ENCODED-PART ; (ERROR 'QURI.ERROR:URL-DECODING-ERROR)))) ; --> QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY LOCALLY SETQ THE IF ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY LOCALLY SETQ THE IF ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:GONEXT) ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:GOTO QURI.DECODE::PARSING) ; --> SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:REDO) ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:GOTO QURI.DECODE::PARSING) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; (- QURI.DECODE::END QURI.DECODE::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (QURI.UTIL:WITH-ARRAY-PARSING (CHAR QURI.DECODE::P QURI.DECODE::DATA ; QURI.DECODE::START QURI.DECODE::END ; (AND (NOT (STRINGP QURI.DECODE::DATA)) ; #'CODE-CHAR)) ; (QURI.DECODE::PARSING ; (COND ((CHAR= CHAR #\%) (QURI.UTIL:GONEXT)) ; ((CHAR= CHAR #\+) (QURI.DECODE::WRITE-TO-BUFFER 32) ; (QURI.UTIL:REDO)) ; (T (QURI.DECODE::WRITE-TO-BUFFER #) (QURI.UTIL:REDO)))) ; (QURI.DECODE::PARSING-ENCODED-PART ; (SETQ QURI.DECODE::PARSING-ENCODED-PART CHAR) (QURI.UTIL:GONEXT)) ; (QURI.DECODE::PARSING-ENCODED-PART-SECOND ; (HANDLER-BIND ((QURI.ERROR:URL-DECODING-ERROR #)) ; (QURI.DECODE::WRITE-TO-BUFFER (+ # #))) ; (SETQ QURI.DECODE::PARSING-ENCODED-PART NIL) ; (QURI.UTIL:GOTO QURI.DECODE::PARSING)) ; (:EOF ; (WHEN QURI.DECODE::PARSING-ENCODED-PART ; (ERROR 'QURI.ERROR:URL-DECODING-ERROR)))) ; --> QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY WHEN IF = ; ==> ; 1 ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; (QURI.UTIL:REDO) ; --> LOCALLY INCF SETQ THE ; ==> ; (+ 1 QURI.DECODE::P) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; --> LOCALLY WHEN IF = ; ==> ; 1 ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; --> LOCALLY INCF SETQ THE ; ==> ; (+ 1 QURI.DECODE::P) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; --> LOCALLY WHEN IF = ; ==> ; 1 ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; (QURI.UTIL:GONEXT) ; --> LOCALLY INCF SETQ THE ; ==> ; (+ 1 QURI.DECODE::P) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; --> LOCALLY WHEN IF = ; ==> ; 1 ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; --> LOCALLY INCF SETQ THE ; ==> ; (+ 1 QURI.DECODE::P) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; --> LOCALLY WHEN IF = ; ==> ; 1 ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; (INCF QURI.DECODE::I) ; --> THE ; ==> ; (+ 1 QURI.DECODE::I) ; ; 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. ; (QURI.UTIL:GOTO QURI.DECODE::PARSING) ; --> INCF SETQ THE ; ==> ; (+ 1 QURI.DECODE::P) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; --> WHEN IF = ; ==> ; 1 ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; in: DEFUN URL-DECODE-PARAMS ; (QURI.UTIL:WITH-ARRAY-PARSING (CHAR QURI.DECODE::P QURI.DECODE::DATA ; QURI.DECODE::START QURI.DECODE::END ; (AND (NOT (STRINGP QURI.DECODE::DATA)) ; #'CODE-CHAR)) ; (QURI.DECODE::START (SETQ QURI.DECODE::START-MARK QURI.DECODE::P) ; (IF QURI.DECODE::LENIENT ; (COND (# # #) (# #)) ; (WHEN (OR # #) (ERROR 'QURI.ERROR:URI-MALFORMED-URLENCODED-STRING))) ; (QURI.UTIL:GONEXT)) ; (QURI.DECODE::PARSING-FIELD ; (COND ((CHAR= CHAR #\=) (SETQ #) (QURI.UTIL:GONEXT)) ; ((CHAR= CHAR QURI.DECODE::DELIMITER) ; (QURI.DECODE::COLLECT-FIELD QURI.DECODE::P) ; (QURI.UTIL:GOTO QURI.DECODE::START))) ; (QURI.UTIL:REDO)) ; (QURI.DECODE::PARSING-VALUE ; (COND ((CHAR= CHAR #\=) (UNLESS QURI.DECODE::LENIENT #)) ; ((CHAR= CHAR QURI.DECODE::DELIMITER) ; (QURI.DECODE::COLLECT-PAIR QURI.DECODE::P) ; (QURI.UTIL:GOTO QURI.DECODE::START))) ; (QURI.UTIL:REDO)) ; (:EOF ; (COND (QURI.DECODE::=-MARK (QURI.DECODE::COLLECT-PAIR QURI.DECODE::P)) ; (QURI.DECODE::START-MARK ; (QURI.DECODE::COLLECT-FIELD QURI.DECODE::P))))) ; --> QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY LOCALLY SETQ THE IF ; --> FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY LOCALLY SETQ THE IF ; --> AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:GOTO QURI.DECODE::PARSING-VALUE) ; --> SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:REDO) ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:GONEXT) ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:GOTO QURI.DECODE::START) ; --> SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:REDO) ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:GOTO QURI.DECODE::START) ; --> SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:REDO) ; --> LOCALLY SETQ THE IF FUNCALL ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; --> LOCALLY SETQ THE IF AREF ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a (OR STRING ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) ; (*))), not a SIMPLE-ARRAY. ; (QURI.UTIL:WITH-ARRAY-PARSING (CHAR QURI.DECODE::P QURI.DECODE::DATA ; QURI.DECODE::START QURI.DECODE::END ; (AND (NOT (STRINGP QURI.DECODE::DATA)) ; #'CODE-CHAR)) ; (QURI.DECODE::START (SETQ QURI.DECODE::START-MARK QURI.DECODE::P) ; (IF QURI.DECODE::LENIENT ; (COND (# # #) (# #)) ; (WHEN (OR # #) (ERROR 'QURI.ERROR:URI-MALFORMED-URLENCODED-STRING))) ; (QURI.UTIL:GONEXT)) ; (QURI.DECODE::PARSING-FIELD ; (COND ((CHAR= CHAR #\=) (SETQ #) (QURI.UTIL:GONEXT)) ; ((CHAR= CHAR QURI.DECODE::DELIMITER) ; (QURI.DECODE::COLLECT-FIELD QURI.DECODE::P) ; (QURI.UTIL:GOTO QURI.DECODE::START))) ; (QURI.UTIL:REDO)) ; (QURI.DECODE::PARSING-VALUE ; (COND ((CHAR= CHAR #\=) (UNLESS QURI.DECODE::LENIENT #)) ; ((CHAR= CHAR QURI.DECODE::DELIMITER) ; (QURI.DECODE::COLLECT-PAIR QURI.DECODE::P) ; (QURI.UTIL:GOTO QURI.DECODE::START))) ; (QURI.UTIL:REDO)) ; (:EOF ; (COND (QURI.DECODE::=-MARK (QURI.DECODE::COLLECT-PAIR QURI.DECODE::P)) ; (QURI.DECODE::START-MARK ; (QURI.DECODE::COLLECT-FIELD QURI.DECODE::P))))) ; --> QURI.UTIL::%WITH-ARRAY-PARSING LET MACROLET TAGBODY WHEN IF = ; ==> ; 1 ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl+ssl-20231021-git/src/ffi.lisp ; in: DEFMACRO DEFCFUN-LATE-BOUND ; (LENGTH CL+SSL::NAME-AND-OPTIONS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; in: DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLeay" CL+SSL::SSL-EAY) ; :LONG) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-EAY ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-EAY ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLeay" (:LONG) :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:SINCE "1.1.0") ; ("OpenSSL_version_num" CL+SSL::OPENSSL-VERSION-NUM) ; :LONG) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::OPENSSL-VERSION-NUM ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::OPENSSL-VERSION-NUM ; (CFFI-SYS:%FOREIGN-FUNCALL "OpenSSL_version_num" (:LONG) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBCRYPTO))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFUN ENCODE-OPENSSL-VERSION-IMPL ; (POSITION CL+SSL::PATCH CL+SSL::+OPENSSL-VERSION-PATCH-CHARACTERS+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (POSITION CL+SSL::STATUS CL+SSL::+OPENSSL-VERSION-STATUS-STRINGS+ :TEST ; #'STRING=) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (LOGIOR (ASH CL+SSL::MAJOR 28) (ASH CL+SSL::MINOR 20) (ASH CL+SSL::FIX 12) ; (ASH CL+SSL::PATCH-INT 4) CL+SSL::STATUS-INT) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR NULL INTEGER), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The second argument is a (OR NULL INTEGER), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN ENCODE-OPENSSL-VERSION ; (>= CL+SSL::MAJOR 3) ; ; 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. ; in: DEFUN OPENSSL-IS-AT-LEAST ; (>= (CL+SSL::COMPAT-OPENSSL-VERSION) ; (CL+SSL::ENCODE-OPENSSL-VERSION CL+SSL::MAJOR CL+SSL::MINOR ; CL+SSL::PATCH-OR-FIX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: forced to do full call ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (NOT NULL), not a DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; in: DEFUN OPENSSL-IS-NOT-EVEN ; (< (CL+SSL::COMPAT-OPENSSL-VERSION) ; (CL+SSL::ENCODE-OPENSSL-VERSION CL+SSL::MAJOR CL+SSL::MINOR ; CL+SSL::PATCH-OR-FIX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: forced to do 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 DOUBLE-FLOAT. ; The second argument is a T, not a DOUBLE-FLOAT. ; etc. ; in: DEFUN LIBRESSLP ; (= 536870912 (CL+SSL::COMPAT-OPENSSL-VERSION)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFINE-SSL-FUNCTION ("SSL_get_version" SSL-GET-VERSION) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_get_version" CL+SSL::SSL-GET-VERSION) ; :STRING ; (CL+SSL::SSL CL+SSL::SSL-POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_version" (:POINTER #:G1 :POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLv23_client_method" CL+SSL::SSL-V23-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V23-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V23-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv23_client_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLv23_server_method" CL+SSL::SSL-V23-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V23-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V23-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv23_server_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLv23_method" CL+SSL::SSL-V23-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V23-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V23-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv23_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLv3_client_method" CL+SSL::SSL-V3-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V3-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V3-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv3_client_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLv3_server_method" CL+SSL::SSL-V3-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V3-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V3-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv3_server_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSLv3_method" CL+SSL::SSL-V3-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-V3-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-V3-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "SSLv3_method" (:POINTER) :CONVENTION :CDECL ; :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION ("TLSv1_client_method" SSL-TLSV1-CLIENT-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("TLSv1_client_method" CL+SSL::SSL-TLSV1-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_client_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION ("TLSv1_server_method" SSL-TLSV1-SERVER-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("TLSv1_server_method" CL+SSL::SSL-TLSV1-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_server_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION ("TLSv1_method" SSL-TLSV1-METHOD) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("TLSv1_method" CL+SSL::SSL-TLSV1-METHOD) ; CL+SSL::SSL-METHOD) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_method" (:POINTER) :CONVENTION :CDECL ; :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.0.2") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.0.2") ; ("TLSv1_1_client_method" CL+SSL::SSL-TLSV1-1-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-1-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-1-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_1_client_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.0.2") ; ("TLSv1_1_server_method" CL+SSL::SSL-TLSV1-1-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-1-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-1-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_1_server_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.0.2") ; ("TLSv1_1_method" CL+SSL::SSL-TLSV1-1-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-1-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-1-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_1_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.0.2") ; ("TLSv1_2_client_method" CL+SSL::SSL-TLSV1-2-CLIENT-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-2-CLIENT-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-2-CLIENT-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_2_client_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.0.2") ; ("TLSv1_2_server_method" CL+SSL::SSL-TLSV1-2-SERVER-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-2-SERVER-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-2-SERVER-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_2_server_method" (:POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.0.2") ; ("TLSv1_2_method" CL+SSL::SSL-TLSV1-2-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-TLSV1-2-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-TLSV1-2-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLSv1_2_method" (:POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION-EX (:SINCE "1.1.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "1.1.0") ; ("TLS_method" CL+SSL::TLS-METHOD) ; CL+SSL::SSL-METHOD) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::TLS-METHOD ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::TLS-METHOD ; (CFFI-SYS:%FOREIGN-FUNCALL "TLS_method" (:POINTER) :CONVENTION :CDECL ; :LIBRARY CL+SSL/CONFIG::LIBSSL))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION ("SSL_CTX_new" SSL-CTX-NEW) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_CTX_new" CL+SSL::SSL-CTX-NEW) ; CL+SSL::SSL-CTX ; (METHOD CL+SSL::SSL-METHOD)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-NEW ; (METHOD) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-CTX-NEW ; (LET ((#:G1 METHOD)) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_new" (:POINTER #:G1 :POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION ("SSL_new" SSL-NEW) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_new" CL+SSL::SSL-NEW) ; CL+SSL::SSL-POINTER ; (CL+SSL::CTX CL+SSL::SSL-CTX)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-NEW ; (CL+SSL::CTX) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-NEW ; (LET ((#:G1 CL+SSL::CTX)) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_new" (:POINTER #:G1 :POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("BIO_ctrl" BIO-SET-FD) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("BIO_ctrl" CL+SSL::BIO-SET-FD) ; :LONG ; (CL+SSL::BIO :POINTER) ; (CL+SSL::CMD :INT) ; (CL+SSL::LARG :LONG) ; (CL+SSL::PARG :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-SET-FD ; (CL+SSL::BIO CL+SSL::CMD CL+SSL::LARG CL+SSL::PARG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::BIO-SET-FD ; (LET ((#:G1 CL+SSL::BIO)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("BIO_new_socket" BIO-NEW-SOCKET) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("BIO_new_socket" CL+SSL::BIO-NEW-SOCKET) ; :POINTER ; (CL+SSL::FD :INT) ; (CL+SSL::CLOSE-FLAG :INT)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-NEW-SOCKET ; (CL+SSL::FD CL+SSL::CLOSE-FLAG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::BIO-NEW-SOCKET ; (LET ((#:G1 CL+SSL::FD)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_new_socket" # :CONVENTION :CDECL ; :LIBRARY CL+SSL/CONFIG::LIBCRYPTO))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("BIO_new" BIO-NEW) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("BIO_new" CL+SSL::BIO-NEW) ; :POINTER ; (METHOD :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-NEW ; (METHOD) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::BIO-NEW ; (LET ((#:G1 METHOD)) ; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_new" (:POINTER #:G1 :POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("BIO_free" BIO-FREE) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("BIO_free" CL+SSL::BIO-FREE) ; :POINTER ; (METHOD :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-FREE ; (METHOD) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::BIO-FREE ; (LET ((#:G1 METHOD)) ; (CFFI-SYS:%FOREIGN-FUNCALL "BIO_free" (:POINTER #:G1 :POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:SINCE "1.1.0") ; ("BIO_meth_new" CL+SSL::BIO-METH-NEW) ; :POINTER ; (TYPE :INT) ; (CL+SSL::NAME :STRING)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::BIO-METH-NEW ; (TYPE CL+SSL::NAME) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::BIO-METH-NEW ; (LET ((#:G0 TYPE)) ; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM2) ; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::NAME #) ; (UNWIND-PROTECT # #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("ERR_get_error" ERR-GET-ERROR) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("ERR_get_error" CL+SSL::ERR-GET-ERROR) ; :UNSIGNED-LONG) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::ERR-GET-ERROR ; NIL ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::ERR-GET-ERROR ; (CFFI-SYS:%FOREIGN-FUNCALL "ERR_get_error" (:UNSIGNED-LONG) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBCRYPTO))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("ERR_error_string" ERR-ERROR-STRING) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("ERR_error_string" CL+SSL::ERR-ERROR-STRING) ; :STRING ; (CL+SSL::E :UNSIGNED-LONG) ; (CL+SSL::BUF :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION BLOCK LET ; --> LET ; ==> ; (CFFI:TRANSLATE-FROM-FOREIGN ; (CFFI-SYS:%FOREIGN-FUNCALL "ERR_error_string" ; (:UNSIGNED-LONG #:G1 :POINTER #:G2 :POINTER) ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO) ; #) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFINE-SSL-FUNCTION ("SSL_CTX_ctrl" SSL-CTX-CTRL) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_CTX_ctrl" CL+SSL::SSL-CTX-CTRL) ; :LONG ; (CL+SSL::CTX CL+SSL::SSL-CTX) ; (CL+SSL::CMD :INT) ; (CL+SSL::LARG :UNSIGNED-LONG) ; (CL+SSL::PARG :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-CTRL ; (CL+SSL::CTX CL+SSL::CMD CL+SSL::LARG CL+SSL::PARG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-CTX-CTRL ; (LET ((#:G1 CL+SSL::CTX)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION ("SSL_ctrl" SSL-CTRL) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_ctrl" CL+SSL::SSL-CTRL) ; :LONG ; (CL+SSL::SSL :POINTER) ; (CL+SSL::CMD :INT) ; (CL+SSL::LARG :LONG) ; (CL+SSL::PARG :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTRL ; (CL+SSL::SSL CL+SSL::CMD CL+SSL::LARG CL+SSL::PARG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-CTRL ; (LET ((#:G1 CL+SSL::SSL)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFUN SSL-CTX-SET-OPTIONS ; (CL+SSL::SSL-CTX-CTRL CL+SSL::CTX CL+SSL::+SSL-CTRL-OPTIONS+ CL+SSL::OPTIONS ; (CFFI-SYS:NULL-POINTER)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFUN SSL-CTX-SET-MIN-PROTO-VERSION ; (CL+SSL::SSL-CTX-CTRL CL+SSL::CTX CL+SSL::+SSL-CTRL-SET-MIN-PROTO-VERSION+ ; CL+SSL::VERSION (CFFI-SYS:NULL-POINTER)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFUN SSL-CTX-SET-MAX-PROTO-VERSION ; (CL+SSL::SSL-CTX-CTRL CL+SSL::CTX CL+SSL::+SSL-CTRL-SET-MAX-PROTO-VERSION+ ; CL+SSL::VERSION (CFFI-SYS:NULL-POINTER)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: ; DEFINE-SSL-FUNCTION ("SSL_load_client_CA_file" SSL-LOAD-CLIENT-CA-FILE) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_load_client_CA_file" CL+SSL::SSL-LOAD-CLIENT-CA-FILE) ; CL+SSL::SSL-POINTER ; (CL+SSL::FILE :STRING)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-LOAD-CLIENT-CA-FILE ; (CL+SSL::FILE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-LOAD-CLIENT-CA-FILE ; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM2) ; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::FILE ; #) ; (UNWIND-PROTECT (PROGN #) ; (CFFI:FREE-TRANSLATED-OBJECT #:G1 # #:PARAM2))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION ("SSL_get_verify_result" SSL-GET-VERIFY-RESULT) ; (CL+SSL::DEFINE-SSL-FUNCTION ; ("SSL_get_verify_result" CL+SSL::SSL-GET-VERIFY-RESULT) ; :LONG ; (CL+SSL::SSL CL+SSL::SSL-POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET-VERIFY-RESULT ; (CL+SSL::SSL) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-GET-VERIFY-RESULT ; (LET ((#:G1 CL+SSL::SSL)) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_verify_result" ; (:POINTER #:G1 :LONG) :CONVENTION :CDECL ; :LIBRARY CL+SSL/CONFIG::LIBSSL)))) ; ; note: doing signed word to integer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "3.0.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "3.0.0") ; ("SSL_get_peer_certificate" CL+SSL::SSL-GET-PEER-CERTIFICATE) ; :POINTER ; (CL+SSL::SSL CL+SSL::SSL-POINTER)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET-PEER-CERTIFICATE ; (CL+SSL::SSL) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-GET-PEER-CERTIFICATE ; (LET ((#:G0 CL+SSL::SSL)) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get_peer_certificate" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION-EX (:SINCE "3.0.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:SINCE "3.0.0") ; ("SSL_get1_peer_certificate" CL+SSL::SSL-GET1-PEER-CERTIFICATE) ; :POINTER ; (CL+SSL::SSL CL+SSL::SSL-POINTER)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-GET1-PEER-CERTIFICATE ; (CL+SSL::SSL) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-GET1-PEER-CERTIFICATE ; (LET ((#:G0 CL+SSL::SSL)) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_get1_peer_certificate" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY CL+SSL/CONFIG::LIBSSL)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFUN COMPAT-SSL-GET1-PEER-CERTIFICATE ; (FUNCALL ; (IF (CL+SSL::OPENSSL-IS-AT-LEAST 3 0 0) ; 'CL+SSL::SSL-GET1-PEER-CERTIFICATE ; 'CL+SSL::SSL-GET-PEER-CERTIFICATE) ; CL+SSL::HANDLE) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; in: DEFINE-CRYPTO-FUNCTION ("X509_NAME_oneline" X509-NAME-ONELINE) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("X509_NAME_oneline" CL+SSL::X509-NAME-ONELINE) ; :POINTER ; (CL+SSL::X509-NAME :POINTER) ; (CL+SSL::BUF :POINTER) ; (CL+SSL::SIZE :INT)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-ONELINE ; (CL+SSL::X509-NAME CL+SSL::BUF CL+SSL::SIZE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-NAME-ONELINE ; (LET ((#:G1 CL+SSL::X509-NAME)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("X509_NAME_get_entry" X509-NAME-GET-ENTRY) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("X509_NAME_get_entry" CL+SSL::X509-NAME-GET-ENTRY) ; :POINTER ; (CL+SSL::NAME :POINTER) ; (LOG :INT)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-GET-ENTRY ; (CL+SSL::NAME LOG) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-NAME-GET-ENTRY ; (LET ((#:G1 CL+SSL::NAME)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_NAME_get_entry" # :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: ; DEFINE-CRYPTO-FUNCTION ("X509_NAME_ENTRY_get_data" X509-NAME-ENTRY-GET-DATA) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("X509_NAME_ENTRY_get_data" CL+SSL::X509-NAME-ENTRY-GET-DATA) ; :POINTER ; (CL+SSL::NAME-ENTRY :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-NAME-ENTRY-GET-DATA ; (CL+SSL::NAME-ENTRY) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-NAME-ENTRY-GET-DATA ; (LET ((#:G1 CL+SSL::NAME-ENTRY)) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_NAME_ENTRY_get_data" ; (:POINTER #:G1 :POINTER) :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: ; DEFINE-CRYPTO-FUNCTION ("X509_get_issuer_name" X509-GET-ISSUER-NAME) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("X509_get_issuer_name" CL+SSL::X509-GET-ISSUER-NAME) ; :POINTER ; (CL+SSL::X509 :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET-ISSUER-NAME ; (CL+SSL::X509) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-GET-ISSUER-NAME ; (LET ((#:G1 CL+SSL::X509)) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get_issuer_name" ; (:POINTER #:G1 :POINTER) :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: ; DEFINE-CRYPTO-FUNCTION ("X509_get_subject_name" X509-GET-SUBJECT-NAME) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("X509_get_subject_name" CL+SSL::X509-GET-SUBJECT-NAME) ; :POINTER ; (CL+SSL::X509 :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET-SUBJECT-NAME ; (CL+SSL::X509) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-GET-SUBJECT-NAME ; (LET ((#:G1 CL+SSL::X509)) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get_subject_name" ; (:POINTER #:G1 :POINTER) :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:SINCE "1.1.0") ; ("X509_get0_notBefore" CL+SSL::X509-GET0-NOT-BEFORE) ; :POINTER ; (CL+SSL::X509 :POINTER)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET0-NOT-BEFORE ; (CL+SSL::X509) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-GET0-NOT-BEFORE ; (LET ((#:G0 CL+SSL::X509)) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get0_notBefore" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:SINCE "1.1.0") ; ("X509_get0_notAfter" CL+SSL::X509-GET0-NOT-AFTER) ; :POINTER ; (CL+SSL::X509 :POINTER)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET0-NOT-AFTER ; (CL+SSL::X509) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-GET0-NOT-AFTER ; (LET ((#:G0 CL+SSL::X509)) ; (CFFI-SYS:%FOREIGN-FUNCALL "X509_get0_notAfter" ; (:POINTER #:G0 :POINTER) :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("X509_get_ext_d2i" X509-GET-EXT-D2I) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("X509_get_ext_d2i" CL+SSL::X509-GET-EXT-D2I) ; :POINTER ; (CL+SSL::CERT :POINTER) ; (CL+SSL::NID :INT) ; (CL+SSL::CRIT :POINTER) ; (CL+SSL::IDX :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::X509-GET-EXT-D2I ; (CL+SSL::CERT CL+SSL::NID CL+SSL::CRIT CL+SSL::IDX) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::X509-GET-EXT-D2I ; (LET ((#:G1 CL+SSL::CERT)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("d2i_X509" D2I-X509) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("d2i_X509" CL+SSL::D2I-X509) ; :POINTER ; (CL+SSL::*PX :POINTER) ; (CL+SSL::IN :POINTER) ; (CL+SSL::LEN :INT)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::D2I-X509 ; (CL+SSL::*PX CL+SSL::IN CL+SSL::LEN) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::D2I-X509 ; (LET ((#:G1 CL+SSL::*PX)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("PEM_read_bio_X509" PEM-READ-X509) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("PEM_read_bio_X509" CL+SSL::PEM-READ-X509) ; :POINTER ; (CL+SSL::BIO :POINTER) ; (CL+SSL::X509 :INT) ; (CL+SSL::CALLBACK :INT) ; (CL+SSL::PASSPHRASE :INT)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::PEM-READ-X509 ; (CL+SSL::BIO CL+SSL::X509 CL+SSL::CALLBACK CL+SSL::PASSPHRASE) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::PEM-READ-X509 ; (LET ((#:G1 CL+SSL::BIO)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: ; DEFINE-CRYPTO-FUNCTION ("EVP_get_digestbyname" EVP-GET-DIGEST-BY-NAME) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("EVP_get_digestbyname" CL+SSL::EVP-GET-DIGEST-BY-NAME) ; :POINTER ; (CL+SSL::NAME :STRING)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::EVP-GET-DIGEST-BY-NAME ; (CL+SSL::NAME) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::EVP-GET-DIGEST-BY-NAME ; (MULTIPLE-VALUE-BIND (#:G1 #:PARAM2) ; (CFFI:TRANSLATE-TO-FOREIGN CL+SSL::NAME ; #) ; (UNWIND-PROTECT (PROGN #) ; (CFFI:FREE-TRANSLATED-OBJECT #:G1 # #:PARAM2))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION-EX (:VANISHED "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("sk_value" CL+SSL::SK-VALUE) ; :POINTER ; (CL+SSL::STACK :POINTER) ; (CL+SSL::INDEX :INT)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SK-VALUE ; (CL+SSL::STACK CL+SSL::INDEX) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SK-VALUE ; (LET ((#:G0 CL+SSL::STACK)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "sk_value" # :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION-EX (:SINCE "1.1.0") ; (CL+SSL::DEFINE-CRYPTO-FUNCTION-EX ; (:SINCE "1.1.0") ; ("OPENSSL_sk_value" CL+SSL::OPENSSL-SK-VALUE) ; :POINTER ; (CL+SSL::STACK :POINTER) ; (CL+SSL::INDEX :INT)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::OPENSSL-SK-VALUE ; (CL+SSL::STACK CL+SSL::INDEX) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::OPENSSL-SK-VALUE ; (LET ((#:G0 CL+SSL::STACK)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "OPENSSL_sk_value" # :CONVENTION :CDECL ; :LIBRARY CL+SSL/CONFIG::LIBCRYPTO))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFUN SK-GENERAL-NAME-VALUE ; (DEFUN CL+SSL::SK-GENERAL-NAME-VALUE (CL+SSL::NAMES CL+SSL::INDEX) ; (IF (AND (NOT (CL+SSL::LIBRESSLP)) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1)) ; (CL+SSL::OPENSSL-SK-VALUE CL+SSL::NAMES CL+SSL::INDEX) ; (CL+SSL::SK-VALUE CL+SSL::NAMES CL+SSL::INDEX))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SK-GENERAL-NAME-VALUE ; (CL+SSL::NAMES CL+SSL::INDEX) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SK-GENERAL-NAME-VALUE ; (IF (AND (NOT #) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1)) ; (CL+SSL::OPENSSL-SK-VALUE CL+SSL::NAMES CL+SSL::INDEX) ; (CL+SSL::SK-VALUE CL+SSL::NAMES CL+SSL::INDEX)))) ; ; note: Type assertion too complex to check: ; (VALUES SB-SYS:SYSTEM-AREA-POINTER &REST T). ; It allows an unknown number of values, consider using ; (VALUES SB-SYS:SYSTEM-AREA-POINTER &OPTIONAL). ; in: DEFUN SK-GENERAL-NAME-NUM ; (DEFUN CL+SSL::SK-GENERAL-NAME-NUM (CL+SSL::NAMES) ; (IF (AND (NOT (CL+SSL::LIBRESSLP)) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1)) ; (CL+SSL::OPENSSL-SK-NUM CL+SSL::NAMES) ; (CL+SSL::SK-NUM CL+SSL::NAMES))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SK-GENERAL-NAME-NUM ; (CL+SSL::NAMES) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SK-GENERAL-NAME-NUM ; (IF (AND (NOT #) (CL+SSL::OPENSSL-IS-AT-LEAST 1 1)) ; (CL+SSL::OPENSSL-SK-NUM CL+SSL::NAMES) ; (CL+SSL::SK-NUM CL+SSL::NAMES)))) ; ; note: Type assertion too complex to check: ; (VALUES FIXNUM &REST T). ; It allows an unknown number of values, consider using ; (VALUES FIXNUM &OPTIONAL). ; in: DEFINE-CRYPTO-FUNCTION ("ASN1_STRING_data" ASN1-STRING-DATA) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("ASN1_STRING_data" CL+SSL::ASN1-STRING-DATA) ; :POINTER ; (CL+SSL::ASN1-STRING :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::ASN1-STRING-DATA ; (CL+SSL::ASN1-STRING) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::ASN1-STRING-DATA ; (LET ((#:G1 CL+SSL::ASN1-STRING)) ; (CFFI-SYS:%FOREIGN-FUNCALL "ASN1_STRING_data" ; (:POINTER #:G1 :POINTER) :CONVENTION ; :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBCRYPTO)))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-CRYPTO-FUNCTION ("RSA_generate_key" RSA-GENERATE-KEY) ; (CL+SSL::DEFINE-CRYPTO-FUNCTION ; ("RSA_generate_key" CL+SSL::RSA-GENERATE-KEY) ; :POINTER ; (CL+SSL::NUM :INT) ; (CL+SSL::E :UNSIGNED-LONG) ; (CL+SSL::CALLBACK :POINTER) ; (CL+SSL::OPT :POINTER)) ; --> PROGN CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::RSA-GENERATE-KEY ; (CL+SSL::NUM CL+SSL::E CL+SSL::CALLBACK CL+SSL::OPT) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::RSA-GENERATE-KEY ; (LET ((#:G1 CL+SSL::NUM)) ; (LET (#) ; (LET # ; #))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFINE-SSL-FUNCTION-EX (:VANISHED "1.1.0") ; (CL+SSL::DEFINE-SSL-FUNCTION-EX ; (:VANISHED "1.1.0") ; ("SSL_CTX_set_tmp_rsa_callback" CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK) ; :POINTER ; (CL+SSL::CTX :POINTER) ; (CL+SSL::CALLBACK :POINTER)) ; --> CL+SSL::DEFCFUN-VERSIONED CFFI:DEFCFUN PROGN DEFUN PROGN SB-IMPL::%DEFUN ; --> SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK ; (CL+SSL::CTX CL+SSL::CALLBACK) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (BLOCK CL+SSL::SSL-CTX-SET-TMP-RSA-CALLBACK ; (LET ((#:G0 CL+SSL::CTX)) ; (LET (#) ; (CFFI-SYS:%FOREIGN-FUNCALL "SSL_CTX_set_tmp_rsa_callback" # ; :CONVENTION :CDECL :LIBRARY ; CL+SSL/CONFIG::LIBSSL))))) ; ; note: doing SAP to pointer coercion (cost 20) to "" ; in: DEFUN SSL-CTX-SET-SESSION-CACHE-MODE ; (CL+SSL::SSL-CTX-CTRL CL+SSL::CTX CL+SSL::+SSL_CTRL_SET_SESS_CACHE_MODE+ ; CL+SSL::MODE (CFFI-SYS:NULL-POINTER)) ; ; note: doing SAP to pointer coercion (cost 20) ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl+ssl-20231021-git/src/conditions.lisp ; in: DEFUN FORMAT-SSL-ERROR-QUEUE ; 'CL+SSL::SSL-ERROR ; ; note: can't open-code test of unknown type SSL-ERROR ; (ETYPECASE CL+SSL::QUEUE-DESIGNATOR ; (CL+SSL::SSL-ERROR (CL+SSL::SSL-ERROR-QUEUE CL+SSL::QUEUE-DESIGNATOR)) ; (LIST CL+SSL::QUEUE-DESIGNATOR)) ; --> COND IF ; ==> ; (TYPEP #:QUEUE-DESIGNATOR 'CL+SSL::SSL-ERROR) ; ; note: can't open-code test of unknown type SSL-ERROR ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl+ssl-20231021-git/src/ssl-funcall.lisp ; in: DEFUN SECONDS-UNTIL-DEADLINE ; (/ (- CL+SSL::DEADLINE (GET-INTERNAL-REAL-TIME)) ; INTERNAL-TIME-UNITS-PER-SECOND) ; ; note: unable to ; convert x/2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; (- CL+SSL::DEADLINE (GET-INTERNAL-REAL-TIME)) ; ; 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 result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN ENSURE-SSL-FUNCALL ; (APPLY CL+SSL::FUNC CL+SSL::HANDLE CL+SSL::OTHER-ARGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FUNC is not known to be a function ; (FUNCALL CL+SSL::SUCCESS-TEST CL+SSL::RET) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; SUCCESS-TEST is not known to be a function ; in: DEFUN NONBLOCKING-SSL-FUNCALL ; (APPLY CL+SSL::FUNC CL+SSL::HANDLE CL+SSL::OTHER-ARGS) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; FUNC is not known to be a function ; (FUNCALL CL+SSL::SUCCESS-TEST CL+SSL::RET) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; SUCCESS-TEST is not known to be a function ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl+ssl-20231021-git/src/init.lisp ; in: CFFI:DEFCALLBACK TMP-RSA-CALLBACK ; (= CL+SSL::KEY-LENGTH 512) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (= CL+SSL::KEY-LENGTH 1024) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (CL+SSL::RSA-GENERATE-KEY LENGTH CL+SSL::+RSA_F4+ (CFFI-SYS:NULL-POINTER) ; (CFFI-SYS:NULL-POINTER)) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; in: CFFI:DEFCALLBACK PEM-PASSWORD-CALLBACK ; (COERCE CL+SSL::*PEM-PASSWORD* 'BASE-STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR LIST (AND (NOT BASE-STRING) 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 BASE-STRING) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a (OR LIST (AND (NOT BASE-STRING) VECTOR) ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; CHARACTER ; (*)). ; in: DEFUN INIT-PRNG ; (LENGTH CL+SSL::SEED-BYTE-SEQUENCE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (ELT CL+SSL::SEED-BYTE-SEQUENCE CL+SSL::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. ; (CL+SSL::RAND-SEED CL+SSL::PTR LENGTH) ; ; note: doing SAP to pointer coercion (cost 20) ; in: CFFI:DEFCALLBACK LOCKING-CALLBACK ; (ELT CL+SSL::*LOCKS* CL+SSL::N) ; ; 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. ; in: CFFI:DEFCALLBACK THREADID-CALLBACK ; (INCF CL+SSL::*THREAD-COUNTER*) ; --> THE ; ==> ; (+ 1 CL+SSL::*THREAD-COUNTER*) ; ; 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. ; in: DEFUN INITIALIZE ; (LOOP CL+SSL::REPEAT (CL+SSL::CRYPTO-NUM-LOCKS) ; CL+SSL::COLLECT (BORDEAUX-THREADS:MAKE-LOCK)) ; --> LET CEILING ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (FUNCALL (OR METHOD (CL+SSL::DEFAULT-SSL-METHOD))) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (LOOP CL+SSL::REPEAT (CL+SSL::CRYPTO-NUM-LOCKS) ; CL+SSL::COLLECT (BORDEAUX-THREADS:MAKE-LOCK)) ; --> LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY IF <= ; ==> ; 1 ; ; 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. ; --> LET SB-LOOP::WITH-LOOP-LIST-COLLECTION-HEAD LET* TAGBODY IF DECF SETQ THE ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/cl+ssl-20231021-git/src/streams.lisp ; in: DEFMETHOD PRINT-OBJECT (SSL-STREAM T) ; (FORMAT STREAM "for ~A" (CL+SSL::SSL-STREAM-SOCKET CL+SSL::OBJECT)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a STREAM. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a (MEMBER T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING BOOLEAN STREAM), not a NULL. ; in: DEFMETHOD CLOSE (SSL-STREAM) ; (COMPLEMENT #'MINUSP) ; ; 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. ; (FUNCALL (CL+SSL::SSL-CLOSE-CALLBACK STREAM)) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; callable expression is not known to be a function ; (COMPLEMENT #'MINUSP) ; ; 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. ; in: DEFMETHOD STREAM-LISTEN (SSL-STREAM) ; (> CL+SSL::N 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL+SSL::BUFFER-ELT CL+SSL::BUF 0) ; --> BLOCK ELT ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CL+SSL::NONBLOCKING-SSL-FUNCALL STREAM #'PLUSP #'CL+SSL::SSL-READ ; CL+SSL::HANDLE CL+SSL::PTR 1) ; --> BLOCK LOOP BLOCK TAGBODY PROGN LET WHEN IF FUNCALL ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do 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. ; (> CL+SSL::N 0) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (CL+SSL::NONBLOCKING-SSL-FUNCALL STREAM #'PLUSP #'CL+SSL::SSL-READ ; CL+SSL::HANDLE CL+SSL::PTR 1) ; --> BLOCK LOOP BLOCK TAGBODY PROGN LET LET APPLY ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFMETHOD STREAM-READ-BYTE (SSL-STREAM) ; (CL+SSL::BUFFER-ELT CL+SSL::BUF 0) ; --> BLOCK ELT ; ==> ; 1 ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; (CL+SSL::ENSURE-SSL-FUNCALL STREAM #'PLUSP #'CL+SSL::SSL-READ CL+SSL::HANDLE ; CL+SSL::PTR 1) ; --> BLOCK LOOP BLOCK TAGBODY PROGN LET WHEN IF FUNCALL ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do 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. ; --> BLOCK LOOP BLOCK TAGBODY PROGN LET LET APPLY ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFMETHOD STREAM-READ-SEQUENCE (SSL-STREAM T T T) ; (PLUSP LENGTH) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (RATIONAL * 17592186044415) ; (SINGLE-FLOAT * 1.7592186e13) ; (DOUBLE-FLOAT * ; 1.7592186044415d13)), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR (RATIONAL * 17592186044415) ; (SINGLE-FLOAT * 1.7592186e13) ; (DOUBLE-FLOAT * ; 1.7592186044415d13)), not a DOUBLE-FLOAT. ; (< CL+SSL::START CL+SSL::END) ; ; 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. ; (SETF (ELT CL+SSL::SEQ CL+SSL::START) (CL+SSL::SSL-STREAM-PEEKED-BYTE STREAM)) ; ; 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. ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (CL+SSL::S/B-REPLACE CL+SSL::SEQ CL+SSL::BUF :START1 CL+SSL::START :END1 ; (+ CL+SSL::START CL+SSL::READ-BYTES)) ; --> BLOCK ; ==> ; (REPLACE CL+SSL::SEQ CL+SSL::BUF :START1 CL+SSL::START1 :END1 CL+SSL::END1 ; :START2 CL+SSL::START2 :END2 CL+SSL::END2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY * (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The second argument is a (OR SIMPLE-BASE-STRING (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a (OR SIMPLE-BASE-STRING (SIMPLE-ARRAY CHARACTER (*)) ; (SIMPLE-ARRAY SINGLE-FLOAT (*)) ; (SIMPLE-ARRAY DOUBLE-FLOAT (*)) ; SIMPLE-BIT-VECTOR ; (SIMPLE-ARRAY (UNSIGNED-BYTE 2) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 4) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 7) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 15) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 31) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 62) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 63) (*)) ; (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 8) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 16) (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 32) (*)) ; (SIMPLE-ARRAY FIXNUM (*)) ; (SIMPLE-ARRAY (SIGNED-BYTE 64) (*)) ; (SIMPLE-ARRAY (COMPLEX SINGLE-FLOAT) (*)) ; (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) ; (*))), not a SIMPLE-BASE-STRING. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). ; (CL+SSL::ENSURE-SSL-FUNCALL STREAM #'PLUSP #'CL+SSL::SSL-READ CL+SSL::HANDLE ; CL+SSL::PTR LENGTH) ; --> BLOCK LOOP BLOCK TAGBODY PROGN LET WHEN IF FUNCALL ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (< CL+SSL::START CL+SSL::END) ; ; 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. ; (- CL+SSL::END CL+SSL::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (MIN (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a REAL, not a FIXNUM. ; (PLUSP LENGTH) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a (OR (RATIONAL * 17592186044415) ; (SINGLE-FLOAT * 1.7592186e13) ; (DOUBLE-FLOAT * 1.7592186044415d13)), not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (OR (RATIONAL * 17592186044415) ; (SINGLE-FLOAT * 1.7592186e13) ; (DOUBLE-FLOAT * 1.7592186044415d13)), not a FIXNUM. ; etc. ; (CL+SSL::ENSURE-SSL-FUNCALL STREAM #'PLUSP #'CL+SSL::SSL-READ CL+SSL::HANDLE ; CL+SSL::PTR LENGTH) ; --> BLOCK LOOP BLOCK TAGBODY PROGN LET WHEN IF FUNCALL ; ==> ; 1 ; ; 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. ; (+ CL+SSL::START CL+SSL::READ-BYTES) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a (REAL (0)), not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a (REAL (0)), not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (INCF CL+SSL::START CL+SSL::READ-BYTES) ; --> THE ; ==> ; (+ CL+SSL::READ-BYTES CL+SSL::START) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (RATIONAL (0)), not a FIXNUM. ; The result is a (VALUES (RATIONAL (0)) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (RATIONAL (0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (RATIONAL (0)) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (CL+SSL::ENSURE-SSL-FUNCALL STREAM #'PLUSP #'CL+SSL::SSL-READ CL+SSL::HANDLE ; CL+SSL::PTR LENGTH) ; --> BLOCK LOOP BLOCK TAGBODY PROGN LET LET APPLY ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFMETHOD STREAM-WRITE-BYTE (SSL-STREAM T) ; (INCF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; ==> ; (+ 1 (CL+SSL::SSL-STREAM-OUTPUT-POINTER #:STREAM7)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (SETF (CL+SSL::BUFFER-ELT CL+SSL::BUF ; (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; CL+SSL::B) ; --> BLOCK SETF ; ==> ; (SB-KERNEL:%SETELT CL+SSL::BUF CL+SSL::INDEX CL+SSL::VAL) ; ; 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. ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF) ; --> BLOCK ; ==> ; (LENGTH CL+SSL::BUF) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (INCF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; ==> ; (+ 1 (CL+SSL::SSL-STREAM-OUTPUT-POINTER #:STREAM7)) ; ; 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 STREAM-WRITE-SEQUENCE (SSL-STREAM T T T) ; (> ; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF) ; ==> ; (LENGTH CL+SSL::BUF) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (> (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF) ; ==> ; (LENGTH CL+SSL::BUF) ; ; 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. ; (CL+SSL::B/S-REPLACE CL+SSL::BUF CL+SSL::SEQ :START1 ; (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM) :START2 ; CL+SSL::START :END2 CL+SSL::END) ; ==> ; (REPLACE CL+SSL::BUF CL+SSL::SEQ :START1 CL+SSL::START1 :END1 CL+SSL::END1 ; :START2 CL+SSL::START2 :END2 CL+SSL::END2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY * (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). ; (CL+SSL::B/S-REPLACE CL+SSL::BUF CL+SSL::SEQ :START2 CL+SSL::START) ; --> BLOCK ; ==> ; (REPLACE CL+SSL::BUF CL+SSL::SEQ :START1 CL+SSL::START1 :END1 CL+SSL::END1 ; :START2 CL+SSL::START2 :END2 CL+SSL::END2) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY * (*)) ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The second argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES SIMPLE-BASE-STRING ; &REST T). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY CHARACTER (*)). ; The second argument is a SEQUENCE, not a SIMPLE-BASE-STRING. ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY CHARACTER ; (*)) ; &REST T). ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF) ; --> BLOCK ; ==> ; (LENGTH CL+SSL::BUF) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (- CL+SSL::END CL+SSL::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. ; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; ; 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. ; (> ; (+ (- CL+SSL::END CL+SSL::START) (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM)) ; (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; ; 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. ; (- CL+SSL::END CL+SSL::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES 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 NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (> (- CL+SSL::END CL+SSL::START) (CL+SSL::BUFFER-LENGTH CL+SSL::BUF)) ; ; 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. ; (INCF (CL+SSL::SSL-STREAM-OUTPUT-POINTER STREAM) ; (- CL+SSL::END CL+SSL::START)) ; ==> ; (+ (- CL+SSL::END CL+SSL::START) ; (CL+SSL::SSL-STREAM-OUTPUT-POINTER #:STREAM31)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a T, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The second argument is a T, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD STREAM-FORCE-OUTPUT (SSL-STREAM) ; (PLUSP CL+SSL::FILL-PTR) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (CL+SSL::ENSURE-SSL-FUNCALL STREAM #'PLUSP #'CL+SSL::SSL-WRITE CL+SSL::HANDLE ; CL+SSL::PTR CL+SSL::FILL-PTR) ; --> BLOCK LOOP BLOCK TAGBODY PROGN LET WHEN IF FUNCALL ; ==> ; 1 ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (PLUSP CL+SSL::FILL-PTR) ; ; 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. ; (CL+SSL::ENSURE-SSL-FUNCALL STREAM #'PLUSP #'CL+SSL::SSL-WRITE CL+SSL::HANDLE ; CL+SSL::PTR CL+SSL::FILL-PTR) ; --> BLOCK LOOP BLOCK TAGBODY PROGN LET WHEN IF FUNCALL ; ==> ; 1 ; ; 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. ; --> BLOCK LOOP BLOCK TAGBODY PROGN LET LET APPLY ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFUN X509-CERTIFICATE-NAMES ; (CFFI-SYS:WITH-FOREIGN-POINTER (CL+SSL::BUF 1024) ; (LET ((CL+SSL::ISSUER-NAME ; (CL+SSL::X509-GET-ISSUER-NAME CL+SSL::X509-CERTIFICATE)) ; (CL+SSL::SUBJECT-NAME ; (CL+SSL::X509-GET-SUBJECT-NAME CL+SSL::X509-CERTIFICATE))) ; (VALUES ; (UNLESS (CFFI-SYS:NULL-POINTER-P CL+SSL::ISSUER-NAME) ; (CL+SSL::X509-NAME-ONELINE CL+SSL::ISSUER-NAME CL+SSL::BUF 1024) ; (CFFI:FOREIGN-STRING-TO-LISP CL+SSL::BUF)) ; (UNLESS (CFFI-SYS:NULL-POINTER-P CL+SSL::SUBJECT-NAME) ; (CL+SSL::X509-NAME-ONELINE CL+SSL::SUBJECT-NAME CL+SSL::BUF 1024) ; (CFFI:FOREIGN-STRING-TO-LISP CL+SSL::BUF))))) ; --> SYMBOL-MACROLET SYMBOL-MACROLET LET LET ; --> SB-ALIEN-INTERNALS:MAKE-LOCAL-ALIEN ; ==> ; 1 ; ; note: doing SAP to pointer coercion (cost 20), for: ; the first result of ALLOC-ALIEN-STACK-SPACE ; in: DEFUN SSL-LOAD-GLOBAL-VERIFY-LOCATIONS ; (CL+SSL::SSL-CTX-LOAD-VERIFY-LOCATIONS CL+SSL::*SSL-GLOBAL-CONTEXT* ; CL+SSL::CAFILE (CFFI-SYS:NULL-POINTER)) ; ; note: doing SAP to pointer coercion (cost 20) ; in: DEFUN MAKE-SSL-CLIENT-STREAM ; (ZEROP (CL+SSL::SSL-SET-CIPHER-LIST CL+SSL::HANDLE CL+SSL::CIPHER-LIST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (1- CL+SSL::LEN) ; ; 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: DEFUN MAKE-SSL-SERVER-STREAM ; (ZEROP (CL+SSL::SSL-SET-CIPHER-LIST CL+SSL::HANDLE CL+SSL::CIPHER-LIST)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; in: DEFUN GET-SELECTED-ALPN-PROTOCOL ; (CL+SSL::SSL-GET0-ALPN-SELECTED ; (CL+SSL::SSL-STREAM-HANDLE CL+SSL::SSL-STREAM) CL+SSL::PTR CL+SSL::LEN) ; ; note: doing SAP to pointer coercion (cost 20) ; ; note: doing SAP to pointer coercion (cost 20) ; (CFFI:FOREIGN-STRING-TO-LISP (CFFI:MEM-REF CL+SSL::PTR :POINTER) :COUNT ; (CFFI:MEM-REF CL+SSL::LEN :INT)) ; ; note: doing SAP to pointer coercion (cost 20) ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/dexador-20231021-git/src/keep-alive-stream.lisp ; in: DEFMETHOD STREAM-READ-SEQUENCE (KEEP-ALIVE-STREAM T T T) ; (MIN (- DEXADOR.KEEP-ALIVE-STREAM::END DEXADOR.KEEP-ALIVE-STREAM::START) ; (DEXADOR.KEEP-ALIVE-STREAM::KEEP-ALIVE-STREAM-END STREAM)) ; ; 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. ; (<= (DEXADOR.KEEP-ALIVE-STREAM::KEEP-ALIVE-STREAM-END STREAM) 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; (- DEXADOR.KEEP-ALIVE-STREAM::END DEXADOR.KEEP-ALIVE-STREAM::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. ; (MIN (- DEXADOR.KEEP-ALIVE-STREAM::END DEXADOR.KEEP-ALIVE-STREAM::START) ; (DEXADOR.KEEP-ALIVE-STREAM::KEEP-ALIVE-STREAM-END STREAM)) ; ; 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 NUMBER, 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 NUMBER, not a DOUBLE-FLOAT. ; etc. ; (+ DEXADOR.KEEP-ALIVE-STREAM::START DEXADOR.KEEP-ALIVE-STREAM::TO-READ) ; ; 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 REAL, 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 REAL, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (DECF (DEXADOR.KEEP-ALIVE-STREAM::KEEP-ALIVE-STREAM-END STREAM) ; (- DEXADOR.KEEP-ALIVE-STREAM::N DEXADOR.KEEP-ALIVE-STREAM::START)) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; 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 (INTEGER -17592186044415 17592186044415), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/dexador-20231021-git/src/util.lisp ; in: DEFUN-SPEEDY %ASCII-STRING-TO-OCTETS ; (LENGTH STRING) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (AREF STRING DEXADOR.UTIL::I) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-STRING. ; ; note: unable to ; avoid runtime dispatch on array element type ; due to type uncertainty: ; The first argument is a VECTOR, not a SIMPLE-ARRAY. ; in: DEFPARAMETER *DEFAULT-USER-AGENT* ; (OR (LISP-IMPLEMENTATION-TYPE) "Common Lisp") ; --> IF ; ==> ; "Common Lisp" ; ; note: deleting unreachable code ; (OR (LISP-IMPLEMENTATION-VERSION) "") ; --> IF ; ==> ; "" ; ; note: deleting unreachable code ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/dexador-20231021-git/src/body.lisp ; in: DEFUN MULTIPART-VALUE-CONTENT-TYPE ; (THE SIMPLE-STRING (TRIVIAL-MIMES:MIME DEXADOR.BODY::VALUE)) ; ; note: Type assertion too complex to check: ; SIMPLE-STRING. ; It allows an unknown number of values, consider using ; (VALUES SIMPLE-STRING &OPTIONAL). ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/dexador-20231021-git/src/backend/usocket.lisp ; in: DEFUN-SPEEDY MULTIPART-CONTENT-LENGTH ; (LENGTH DEXADOR.BACKEND.USOCKET::CONTENT-TYPE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (+ 2 DEXADOR.BACKEND.USOCKET::BOUNDARY-LENGTH 2 ; (LENGTH ; (THE SIMPLE-STRING ; (DEXADOR.BACKEND.USOCKET::CONTENT-DISPOSITION ; DEXADOR.BACKEND.USOCKET::KEY DEXADOR.BACKEND.USOCKET::VAL))) ; (LET ((DEXADOR.BACKEND.USOCKET::CONTENT-TYPE ; (DEXADOR.BODY:MULTIPART-VALUE-CONTENT-TYPE ; DEXADOR.BACKEND.USOCKET::VAL))) ; (IF DEXADOR.BACKEND.USOCKET::CONTENT-TYPE ; (+ 14 (LENGTH DEXADOR.BACKEND.USOCKET::CONTENT-TYPE) 2) ; 0)) ; 2 (DEXADOR.BACKEND.USOCKET::CONTENT-LENGTH DEXADOR.BACKEND.USOCKET::VAL) 2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES (INTEGER 8) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 8) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (LOOP DEXADOR.BACKEND.USOCKET::FOR (DEXADOR.BACKEND.USOCKET::KEY ; . DEXADOR.BACKEND.USOCKET::VAL) DEXADOR.BACKEND.USOCKET::IN DEXADOR.BACKEND.USOCKET::CONTENT ; DEXADOR.BACKEND.USOCKET::SUM (+ 2 ; DEXADOR.BACKEND.USOCKET::BOUNDARY-LENGTH ; 2 ; (LENGTH ; (THE SIMPLE-STRING ; (DEXADOR.BACKEND.USOCKET::CONTENT-DISPOSITION ; DEXADOR.BACKEND.USOCKET::KEY ; DEXADOR.BACKEND.USOCKET::VAL))) ; (LET ((DEXADOR.BACKEND.USOCKET::CONTENT-TYPE ; #)) ; (IF DEXADOR.BACKEND.USOCKET::CONTENT-TYPE ; (+ 14 # 2) ; 0)) ; 2 ; (DEXADOR.BACKEND.USOCKET::CONTENT-LENGTH ; DEXADOR.BACKEND.USOCKET::VAL) ; 2)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 0 0) (INTEGER 8)), not a FIXNUM. ; The second argument is a (INTEGER 8), not a FIXNUM. ; The result is a (VALUES (INTEGER 8) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER 0 0) (INTEGER 8)), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER 8), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 8) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ ; (LOOP DEXADOR.BACKEND.USOCKET::FOR (DEXADOR.BACKEND.USOCKET::KEY ; . DEXADOR.BACKEND.USOCKET::VAL) DEXADOR.BACKEND.USOCKET::IN DEXADOR.BACKEND.USOCKET::CONTENT ; DEXADOR.BACKEND.USOCKET::SUM (+ 2 ; DEXADOR.BACKEND.USOCKET::BOUNDARY-LENGTH ; 2 (LENGTH (THE SIMPLE-STRING #)) ; (LET (#) ; (IF DEXADOR.BACKEND.USOCKET::CONTENT-TYPE ; # ; 0)) ; 2 ; (DEXADOR.BACKEND.USOCKET::CONTENT-LENGTH ; DEXADOR.BACKEND.USOCKET::VAL) ; 2)) ; 2 DEXADOR.BACKEND.USOCKET::BOUNDARY-LENGTH 2 2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (INTEGER 0 0) (INTEGER 8)), not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 14) (INTEGER 6 6)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 0 0) (INTEGER 8)), not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 14) (INTEGER 6 6)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 14) (INTEGER 6 6)), not a FIXNUM. ; The result is a (VALUES (INTEGER 6) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER 14) (INTEGER 6 6)), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES (INTEGER 6) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN-CAREFUL REQUEST ; (STRING= DEXADOR.BACKEND.USOCKET::SCHEME "socks5") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; (STRING= DEXADOR.BACKEND.USOCKET::SCHEME "http") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; (STRING= DEXADOR.BACKEND.USOCKET::SCHEME "https") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; (= (THE REAL DEXADOR.BACKEND.USOCKET::VERSION) 1.0) ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code RATIONAL to FLOAT comparison ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; (FIND :CONTENT-TYPE DEXADOR.BACKEND.USOCKET::HEADERS :KEY #'CAR :TEST ; #'STRING-EQUAL) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a SEQUENCE, not a (OR LIST VECTOR). ; (LENGTH DEXADOR.BACKEND.USOCKET::CONTENT-TYPE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR CONS VECTOR ; SB-KERNEL:EXTENDED-SEQUENCE), not a VECTOR. ; (STRING= DEXADOR.BACKEND.USOCKET::CONTENT-TYPE "multipart/" :END1 10) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; (STRING= DEXADOR.BACKEND.USOCKET::CONTENT-TYPE ; "application/x-www-form-urlencoded") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING NULL), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING NULL), not a (SIMPLE-ARRAY CHARACTER (*)). ; (= (THE REAL DEXADOR.BACKEND.USOCKET::VERSION) 1.0) ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code RATIONAL to FLOAT comparison ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; (= (THE REAL DEXADOR.BACKEND.USOCKET::VERSION) 1.1) ; ; note: unable to open code because: The operands might not be the same type. ; ; note: unable to ; open-code RATIONAL to FLOAT comparison ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; (STRING= DEXADOR.BACKEND.USOCKET::SCHEME "http") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (STRING= (QURI.URI:URI-SCHEME DEXADOR.BACKEND.USOCKET::LOCATION-URI) ; (QURI.URI:URI-SCHEME DEXADOR.BACKEND.USOCKET::URI)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; The second argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (STRING= (QURI.URI:URI-HOST DEXADOR.BACKEND.USOCKET::LOCATION-URI) ; (QURI.URI:URI-HOST DEXADOR.BACKEND.USOCKET::URI)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; The second argument is a (OR STRING SYMBOL CHARACTER), not a STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; The second argument is a (OR STRING SYMBOL ; CHARACTER), not a SIMPLE-BASE-STRING. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; The second argument is a (OR STRING SYMBOL CHARACTER), not a (SIMPLE-ARRAY ; CHARACTER (*)). ; (STRING= DEXADOR.BACKEND.USOCKET::SCHEME "https") ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a STRING, not a (SIMPLE-ARRAY CHARACTER (*)). ; (= (THE REAL DEXADOR.BACKEND.USOCKET::VERSION) 1.0) ; ; 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. ; ; 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 REAL DEXADOR.BACKEND.USOCKET::VERSION) 1.1) ; ; 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. ; (DOTIMES (DEXADOR.BACKEND.USOCKET::I DEXADOR.BACKEND.USOCKET::CONTENT-LENGTH) ; (LOOP DEXADOR.BACKEND.USOCKET::UNTIL (READ-BYTE ; DEXADOR.BACKEND.USOCKET::BODY NIL ; NIL))) ; --> BLOCK LET TAGBODY UNLESS IF >= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; --> BLOCK LET TAGBODY PSETQ PROGN 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. ; (EQL (QURI.URI:URI-PORT DEXADOR.BACKEND.USOCKET::LOCATION-URI) ; (QURI.URI:URI-PORT DEXADOR.BACKEND.USOCKET::URI)) ; ; 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 ; (DEXADOR.BACKEND.USOCKET::USOCKET-WRAPPED-STREAM-STREAM ; DEXADOR.BACKEND.USOCKET::ORIGINAL-USER-SUPPLIED-STREAM) ; STREAM) ; ; 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 DEXADOR.BACKEND.USOCKET::ORIGINAL-USER-SUPPLIED-STREAM STREAM) ; ; note: forced to do IF-EQL (cost 15) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (AND (NOT USOCKET-WRAPPED-STREAM) (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 (AND (NOT USOCKET-WRAPPED-STREAM) (NOT NULL)), not a SINGLE-FLOAT. ; The second argument is a T, not a SINGLE-FLOAT. ; etc. ; (DEXADOR.BACKEND.USOCKET::MAKE-NEW-CONNECTION (DEXADOR.BACKEND.USOCKET::URI) ; (RESTART-CASE (LET* ((DEXADOR.BACKEND.USOCKET::CON-URI #) ; (DEXADOR.BACKEND.USOCKET::CONNECTION #) ; (STREAM #) ; (DEXADOR.BACKEND.USOCKET::SCHEME #)) ; (DECLARE (TYPE STRING DEXADOR.BACKEND.USOCKET::SCHEME)) ; (WHEN DEXADOR.BACKEND.USOCKET::READ-TIMEOUT (SETF #)) ; (WHEN ; (DEXADOR.BACKEND.USOCKET::SOCKS5-PROXY-P ; DEXADOR.BACKEND.USOCKET::PROXY-URI) ; (DEXADOR.BACKEND.USOCKET::ENSURE-SOCKS5-CONNECTED STREAM ; STREAM DEXADOR.BACKEND.USOCKET::URI METHOD)) ; (IF (STRING= DEXADOR.BACKEND.USOCKET::SCHEME "https") ; (DEXADOR.BACKEND.USOCKET::MAKE-SSL-STREAM # ; DEXADOR.BACKEND.USOCKET::CA-PATH ; DEXADOR.BACKEND.USOCKET::SSL-KEY-FILE ; DEXADOR.BACKEND.USOCKET::SSL-CERT-FILE ; DEXADOR.BACKEND.USOCKET::SSL-KEY-PASSWORD # ; DEXADOR.BACKEND.USOCKET::INSECURE) ; STREAM)) ; (DEXADOR.BACKEND.USOCKET:RETRY-REQUEST NIL :REPORT ; "Retry the same request." ; (RETURN-FROM DEXADOR.BACKEND.USOCKET:REQUEST ; (APPLY #'DEXADOR.BACKEND.USOCKET:REQUEST DEXADOR.BACKEND.USOCKET::URI ; :USE-CONNECTION-POOL NIL DEXADOR.BACKEND.USOCKET::ARGS))) ; (DEXADOR.BACKEND.USOCKET::RETRY-INSECURE NIL :REPORT ; "Retry the same request without checking for SSL certificate validity." ; (RETURN-FROM DEXADOR.BACKEND.USOCKET:REQUEST ; (APPLY #'DEXADOR.BACKEND.USOCKET:REQUEST DEXADOR.BACKEND.USOCKET::URI ; :USE-CONNECTION-POOL NIL :INSECURE T ; DEXADOR.BACKEND.USOCKET::ARGS))))) ; ; note: Return type not fixed values, so can't use known return convention: ; * ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/lparallel-20160825-git/src/cons-queue.lisp ; in: DEFUN %TRY-POP-CONS-QUEUE/NO-LOCK/TIMEOUT ; (PLUSP LPARALLEL.THREAD-UTIL::TIME-REMAINING) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; in: DEFUN TRY-POP-CONS-QUEUE ; (PLUSP LPARALLEL.CONS-QUEUE::TIMEOUT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; in: DEFUN TRY-POP-CONS-QUEUE/NO-LOCK ; (PLUSP LPARALLEL.CONS-QUEUE::TIMEOUT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/lparallel-20160825-git/src/vector-queue.lisp ; in: DEFUN %TRY-POP-VECTOR-QUEUE/NO-LOCK/TIMEOUT ; (PLUSP LPARALLEL.THREAD-UTIL::TIME-REMAINING) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; in: DEFUN TRY-POP-VECTOR-QUEUE ; (PLUSP LPARALLEL.VECTOR-QUEUE::TIMEOUT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; in: DEFUN TRY-POP-VECTOR-QUEUE/NO-LOCK ; (PLUSP LPARALLEL.VECTOR-QUEUE::TIMEOUT) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/lparallel-20160825-git/src/kernel/stealing-scheduler.lisp ; in: DEFUN/TYPE MAYBE-WAKE-A-WORKER ; (INCF LPARALLEL.KERNEL::NOTIFY-COUNT) ; ==> ; (+ 1 ; (SB-KERNEL:THE* ((INTEGER 0) :DERIVE-TYPE-ONLY T) ; (SB-KERNEL:%INSTANCE-REF ; (THE LPARALLEL.KERNEL::SCHEDULER #:OBJ) 4))) ; ; 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. ; in: DEFUN/TYPE NEXT-TASK ; (DECF LPARALLEL.KERNEL::NOTIFY-COUNT) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; 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 UNSIGNED-BYTE &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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/lparallel-20160825-git/src/kernel-util.lisp ; in: DEFUN RECEIVE-RESULTS ; (LPARALLEL.UTIL:REPEAT COUNT ; (LPARALLEL.KERNEL-UTIL::STEAL-UNTIL-RECEIVE-RESULT LPARALLEL.KERNEL:CHANNEL ; LPARALLEL.KERNEL-UTIL::WORKER LPARALLEL.KERNEL-UTIL::FN)) ; --> BLOCK LET CEILING ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (LPARALLEL.KERNEL:DO-FAST-RECEIVES (LPARALLEL.KERNEL-UTIL::RESULT ; LPARALLEL.KERNEL:CHANNEL COUNT) ; (LOCALLY ; (DECLARE (TYPE FUNCTION LPARALLEL.KERNEL-UTIL::FN)) ; (FUNCALL LPARALLEL.KERNEL-UTIL::FN LPARALLEL.KERNEL-UTIL::RESULT))) ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK LET CEILING ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (LPARALLEL.KERNEL:DO-FAST-RECEIVES (LPARALLEL.KERNEL-UTIL::RESULT ; LPARALLEL.KERNEL:CHANNEL COUNT) ; (DECLARE (IGNORE LPARALLEL.KERNEL-UTIL::RESULT))) ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK LET CEILING ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (LPARALLEL.KERNEL:DO-FAST-RECEIVES (LPARALLEL.KERNEL-UTIL::RESULT ; LPARALLEL.KERNEL:CHANNEL COUNT) ; (LOCALLY ; (DECLARE (TYPE FUNCTION LPARALLEL.KERNEL-UTIL::FN)) ; (FUNCALL LPARALLEL.KERNEL-UTIL::FN LPARALLEL.KERNEL-UTIL::RESULT))) ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK LET TAGBODY IF <= ; ==> ; 1 ; ; 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. ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK LET TAGBODY IF DECF SETQ THE ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (LPARALLEL.KERNEL:DO-FAST-RECEIVES (LPARALLEL.KERNEL-UTIL::RESULT ; LPARALLEL.KERNEL:CHANNEL COUNT) ; (DECLARE (IGNORE LPARALLEL.KERNEL-UTIL::RESULT))) ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK LET TAGBODY IF <= ; ==> ; 1 ; ; 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. ; --> LPARALLEL.UTIL:REPEAT LOOP BLOCK LET TAGBODY IF DECF SETQ THE ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (LPARALLEL.UTIL:REPEAT COUNT ; (LPARALLEL.KERNEL-UTIL::STEAL-UNTIL-RECEIVE-RESULT LPARALLEL.KERNEL:CHANNEL ; LPARALLEL.KERNEL-UTIL::WORKER LPARALLEL.KERNEL-UTIL::FN)) ; --> BLOCK LET TAGBODY IF <= ; ==> ; 1 ; ; 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. ; --> BLOCK LET TAGBODY IF DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/lparallel-20160825-git/src/ptree.lisp ; in: DEFUN/TYPE COMPUTE-PTREE ; (DECF LPARALLEL.PTREE::PENDING) ; --> SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (INCF LPARALLEL.PTREE::PENDING) ; ==> ; (+ 1 ; (SB-KERNEL:THE* (INTEGER :DERIVE-TYPE-ONLY T) ; (SB-KERNEL:%INSTANCE-REF (THE LPARALLEL.PTREE:PTREE #:OBJ) ; 2))) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/lparallel-20160825-git/src/cognate/util.lisp ; in: DEFUN ITEM-PREDICATE ; (EQL LPARALLEL.COGNATE::ITEM LPARALLEL.COGNATE::X) ; ; 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/lparallel-20160825-git/src/cognate/pmap.lisp ; in: DEFUN MAP-ITERATE ; (DEFUN LPARALLEL.COGNATE::MAP-ITERATE ; (MAP LPARALLEL.COGNATE::SIZE LPARALLEL.COGNATE::FN ; LPARALLEL.COGNATE::SEQS) ; "A variation of (map nil ...)/mapc/mapl with size constrained. ; Without a result to delineate sublist boundaries, we must enforce them ; manually." ; (CHECK-TYPE LPARALLEL.COGNATE::SIZE (INTEGER 0)) ; (LET ((LPARALLEL.COGNATE::FN ; (ALEXANDRIA:ENSURE-FUNCTION LPARALLEL.COGNATE::FN)) ; (LPARALLEL.UTIL:INDEX 0)) ; (APPLY MAP ; (LAMBDA (&REST LPARALLEL.COGNATE::ARGS) ; (DECLARE #) ; (DECLARE #) ; (WHEN # #) ; (APPLY LPARALLEL.COGNATE::FN LPARALLEL.COGNATE::ARGS) ; (INCF LPARALLEL.UTIL:INDEX)) ; LPARALLEL.COGNATE::SEQS))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA FUNCTION ; ==> ; (BLOCK LPARALLEL.COGNATE::MAP-ITERATE ; (CHECK-TYPE LPARALLEL.COGNATE::SIZE (INTEGER 0)) ; (LET ((LPARALLEL.COGNATE::FN ; (ALEXANDRIA:ENSURE-FUNCTION LPARALLEL.COGNATE::FN)) ; (LPARALLEL.UTIL:INDEX 0)) ; (APPLY MAP ; (LAMBDA (&REST LPARALLEL.COGNATE::ARGS) ; (DECLARE #) ; (DECLARE #) ; (WHEN # #) ; (APPLY LPARALLEL.COGNATE::FN LPARALLEL.COGNATE::ARGS) ; (INCF LPARALLEL.UTIL:INDEX)) ; LPARALLEL.COGNATE::SEQS))) ; ; note: Allocating a value-cell at runtime for checking possibly out of extent exit via ; (RETURN-FROM MAP-ITERATE NIL). Use GO/RETURN-FROM with SAFETY 0, or declare the ; exit function DYNAMIC-EXTENT to avoid. ; (EQL LPARALLEL.UTIL:INDEX LPARALLEL.COGNATE::SIZE) ; ; note: forced to do %EQL/INTEGER (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a T, not a FIXNUM. ; (INCF LPARALLEL.UTIL:INDEX) ; ; 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/util.lisp ; in: DEFUN BYTE-ARRAY-TO-HEX-STRING ; (AREF VECTOR IRONCLAD::I) ; ; note: unable to ; optimize ; because: ; Upgraded element type of array is not known at compile time. ; in: DEFUN ASCII-STRING-TO-BYTE-ARRAY ; (CHAR STRING IRONCLAD::I) ; ; 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/ciphers/modes.lisp ; in: DEFINE-MODE-FUNCTION MODE-CRYPT ; (IRONCLAD::DEFINE-MODE-FUNCTION IRONCLAD::MODE-CRYPT IRONCLAD::MESSAGE-LENGTH) ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND LET PROGN ; --> UNLESS IF TYPEP ; ==> ; 1 ; ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF SETQ THE ; ==> ; (+ IRONCLAD::Q IRONCLAD::KEYSTREAM-BLOCKS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET LOOP BLOCK TAGBODY PROGN WHEN ; --> IF PROGN INCF SETQ THE ; ==> ; (+ 1 IRONCLAD::KEYSTREAM-BLOCKS) ; ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND LET PROGN ; --> UNLESS IF TYPEP ; ==> ; 1 ; ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF SETQ THE ; ==> ; (+ IRONCLAD::Q IRONCLAD::KEYSTREAM-BLOCKS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET LOOP BLOCK TAGBODY PROGN WHEN ; --> IF PROGN INCF SETQ THE ; ==> ; (+ 1 IRONCLAD::KEYSTREAM-BLOCKS) ; ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND LET PROGN ; --> UNLESS IF TYPEP ; ==> ; 1 ; ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF SETQ THE ; ==> ; (+ IRONCLAD::Q IRONCLAD::KEYSTREAM-BLOCKS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET LOOP BLOCK TAGBODY PROGN WHEN ; --> IF PROGN INCF SETQ THE ; ==> ; (+ 1 IRONCLAD::KEYSTREAM-BLOCKS) ; ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND LET PROGN ; --> UNLESS IF TYPEP ; ==> ; 1 ; ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF SETQ THE ; ==> ; (+ IRONCLAD::Q IRONCLAD::KEYSTREAM-BLOCKS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET LOOP BLOCK TAGBODY PROGN WHEN ; --> IF PROGN INCF SETQ THE ; ==> ; (+ 1 IRONCLAD::KEYSTREAM-BLOCKS) ; ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND LET PROGN ; --> UNLESS IF TYPEP ; ==> ; 1 ; ; 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. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET MULTIPLE-VALUE-BIND ; --> MULTIPLE-VALUE-CALL FUNCTION INCF SETQ THE ; ==> ; (+ IRONCLAD::Q IRONCLAD::KEYSTREAM-BLOCKS) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; --> PROGN EVAL-WHEN SB-PCL::%DEFMETHOD-EXPANDER SB-PCL::LOAD-DEFMETHOD ; --> SB-PCL::LOAD-DEFMETHOD LIST* LET* SB-INT:NAMED-LAMBDA FUNCTION ; --> SYMBOL-MACROLET SB-PCL::FAST-LEXICAL-METHOD-FUNCTIONS ; --> SB-PCL::BIND-FAST-LEXICAL-METHOD-FUNCTIONS FLET SB-PCL::BIND-ARGS LET* ; --> LOCALLY SYMBOL-MACROLET BLOCK LET FLET IRONCLAD::CTR-CRYPT-FUNCTION BLOCK ; --> IRONCLAD::MODE-LAMBDA LAMBDA FUNCTION LET LOOP BLOCK TAGBODY PROGN WHEN ; --> IF PROGN INCF SETQ THE ; ==> ; (+ 1 IRONCLAD::KEYSTREAM-BLOCKS) ; ; 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/math.lisp ; in: DEFUN EGCD ; (= IRONCLAD::C 0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (FLOOR IRONCLAD::D IRONCLAD::C) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (>= IRONCLAD::A 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. ; (>= IRONCLAD::B 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. ; (* IRONCLAD::Q IRONCLAD::C) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- IRONCLAD::D (* IRONCLAD::Q IRONCLAD::C)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (* IRONCLAD::Q IRONCLAD::U_C) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, 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 (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- IRONCLAD::U_D (* IRONCLAD::Q IRONCLAD::U_C)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES 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 NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (* IRONCLAD::Q IRONCLAD::V_C) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, 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 (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- IRONCLAD::V_D (* IRONCLAD::Q IRONCLAD::V_C)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES 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 NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFUN JACOBI ; (ASH IRONCLAD::B -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (MINUSP IRONCLAD::B) ; ; 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. ; (- IRONCLAD::B) ; ; note: forced to do GENERIC-NEGATE (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * -1), not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 2) because: ; The first argument is a (INTEGER * -1), not a (SIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (MINUSP IRONCLAD::A) ; ; 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. ; (ASH IRONCLAD::A -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (ABS IRONCLAD::A) ; ; 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. ; ; note: forced to do GENERIC-NEGATE (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * -1), not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 2) because: ; The first argument is a (INTEGER * -1), not a (SIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; 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. ; ; note: forced to do GENERIC-NEGATE (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * -1), not a FIXNUM. ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 2) because: ; The first argument is a (INTEGER * -1), not a (SIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 1) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN POWER-MOD-TAB ; (MOD (* IRONCLAD::B IRONCLAD::B) IRONCLAD::M) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (MOD (* IRONCLAD::BI IRONCLAD::BB) IRONCLAD::M) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (1- IRONCLAD::K) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (ASH 1 (1- IRONCLAD::K)) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 4) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::B IRONCLAD::B) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::BI IRONCLAD::BB) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN POWER-MOD ; (ZEROP IRONCLAD::E) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a DOUBLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a NUMBER, not a (COMPLEX DOUBLE-FLOAT). ; ; note: unable to open code because: The operands might not be the same type. ; (MOD 1 IRONCLAD::M) ; ; note: unable to ; optimize ; due to type uncertainty: ; The second argument is a REAL, not a INTEGER. ; (MOD (* IRONCLAD::RES IRONCLAD::B) IRONCLAD::M) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (MOD (* IRONCLAD::B IRONCLAD::B) IRONCLAD::M) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (LDB (BYTE IRONCLAD::TMP IRONCLAD::S) IRONCLAD::E) ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; (MOD (* IRONCLAD::RES (SVREF IRONCLAD::TAB (ASH IRONCLAD::U -1))) IRONCLAD::M) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (MOD (* IRONCLAD::RES IRONCLAD::RES) IRONCLAD::M) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second 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. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (INTEGER-LENGTH IRONCLAD::E) ; ; note: forced to do full call ; unable to do inline (unsigned-byte 64) integer-length (cost 26) because: ; The first argument is a BIGNUM, not a (UNSIGNED-BYTE 64). ; (* IRONCLAD::RES IRONCLAD::RES) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (DECF IRONCLAD::I) ; --> THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; 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. ; (- IRONCLAD::I IRONCLAD::K) ; ; note: forced to do GENERIC-- (cost 10) ; 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 -7) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (INTEGER -7) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (1+ (- IRONCLAD::I IRONCLAD::K)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER -7), not a FIXNUM. ; The result is a (VALUES (INTEGER -6) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER -7), not a FIXNUM. ; The result is a (VALUES (INTEGER -6) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (- IRONCLAD::I IRONCLAD::S) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (1+ (- IRONCLAD::I IRONCLAD::S)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (DOTIMES (IRONCLAD::H IRONCLAD::TMP) ; (SETQ IRONCLAD::RES (MOD (* IRONCLAD::RES IRONCLAD::RES) IRONCLAD::M))) ; --> BLOCK LET TAGBODY UNLESS IF >= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; (* IRONCLAD::RES IRONCLAD::RES) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (DOTIMES (IRONCLAD::H IRONCLAD::TMP) ; (SETQ IRONCLAD::RES (MOD (* IRONCLAD::RES IRONCLAD::RES) IRONCLAD::M))) ; --> BLOCK LET TAGBODY PSETQ PROGN 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. ; (ASH IRONCLAD::U -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER 1), not a (UNSIGNED-BYTE 64). ; etc. ; (* IRONCLAD::RES (SVREF IRONCLAD::TAB (ASH IRONCLAD::U -1))) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (INCF IRONCLAD::S) ; --> THE ; ==> ; (+ 1 IRONCLAD::S) ; ; 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. ; (* IRONCLAD::RES IRONCLAD::B) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (ASH IRONCLAD::E -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::B IRONCLAD::B) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN MILLER-RABIN-DECOMPOSITION ; (ASH IRONCLAD::N -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (1+ IRONCLAD::K) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (ASH IRONCLAD::Q -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN MILLER-RABIN-KERNEL ; (+ (IRONCLAD:STRONG-RANDOM (- IRONCLAD::N 2)) 2) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (= IRONCLAD::Y 1) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (= IRONCLAD::Y IRONCLAD::MINUS1) ; ; 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 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. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (= IRONCLAD::J IRONCLAD::K) ; ; note: unable to open code because: The operands might not be the same type. ; (= IRONCLAD::Y IRONCLAD::MINUS1) ; ; 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 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. ; The second argument is a NUMBER, not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (= IRONCLAD::Y 1) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (- IRONCLAD::N 2) ; ; 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. ; (+ (IRONCLAD:STRONG-RANDOM (- IRONCLAD::N 2)) 2) ; ; 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. ; (1- IRONCLAD::N) ; ; 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. ; (= IRONCLAD::Y IRONCLAD::MINUS1) ; ; 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 NUMBER, not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a 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 REAL, 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 REAL, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a (COMPLEX SINGLE-FLOAT). ; etc. ; (1+ IRONCLAD::J) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES (INTEGER 2) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; in: DEFUN LUCAS-SEQUENCE ; (MOD (1- (* IRONCLAD::UH IRONCLAD::VL)) IRONCLAD::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (MOD (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) IRONCLAD::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (MOD (* IRONCLAD::UH IRONCLAD::VL) IRONCLAD::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (MOD (- (* IRONCLAD::VL IRONCLAD::VL) 2) IRONCLAD::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (MOD (* IRONCLAD::UH IRONCLAD::VH) IRONCLAD::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (MOD (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) IRONCLAD::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (MOD (- (* IRONCLAD::VH IRONCLAD::VH) 2) IRONCLAD::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (REAL -2), not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (REAL -2), not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (REAL -2), not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (MOD (1- (* IRONCLAD::UH IRONCLAD::VL)) IRONCLAD::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (MOD (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) IRONCLAD::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (MOD (- (* IRONCLAD::VL IRONCLAD::VL) 2) IRONCLAD::N) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a (OR SINGLE-FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a (OR FLOAT INTEGER). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; The second argument is a REAL, not a INTEGER. ; (INTEGER-LENGTH IRONCLAD::K) ; ; note: forced to do full call ; unable to do inline positive fixnum integer-length (cost 24) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 62). ; unable to do inline fixnum integer-length (cost 25) because: ; The first argument is a INTEGER, not a FIXNUM. ; etc. ; (* IRONCLAD::UH IRONCLAD::VL) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (1- (* IRONCLAD::UH IRONCLAD::VL)) ; ; 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. ; (* IRONCLAD::VH IRONCLAD::VL) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a REAL, 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 NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &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 NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (* IRONCLAD::VL IRONCLAD::VL) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::VL IRONCLAD::VL) 2) ; ; 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. ; (* IRONCLAD::UH IRONCLAD::VH) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::VH IRONCLAD::VL) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline float arithmetic (cost 2) because: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (* IRONCLAD::VH IRONCLAD::VH) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES (REAL 0) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::VH IRONCLAD::VH) 2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (REAL 0), not a FIXNUM. ; The result is a (VALUES (REAL -2) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (REAL 0), not a FIXNUM. ; The result is a (VALUES (REAL -2) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (* IRONCLAD::UH IRONCLAD::VL) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (1- (* IRONCLAD::UH IRONCLAD::VL)) ; ; 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. ; (* IRONCLAD::VH IRONCLAD::VL) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a REAL, 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 NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::VH IRONCLAD::VL) IRONCLAD::P) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &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 NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (DOTIMES (IRONCLAD::J IRONCLAD::S) ; (SETQ IRONCLAD::UH (MOD (* IRONCLAD::UH IRONCLAD::VL) IRONCLAD::N)) ; (SETQ IRONCLAD::VL (MOD (- # 2) IRONCLAD::N))) ; --> BLOCK LET TAGBODY UNLESS IF >= ; ==> ; 1 ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; (* IRONCLAD::UH IRONCLAD::VL) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::VL IRONCLAD::VL) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; The second argument is a REAL, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (SIGNED-BYTE 64). ; The second argument is a REAL, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::VL IRONCLAD::VL) 2) ; ; 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. ; (DOTIMES (IRONCLAD::J IRONCLAD::S) ; (SETQ IRONCLAD::UH (MOD (* IRONCLAD::UH IRONCLAD::VL) IRONCLAD::N)) ; (SETQ IRONCLAD::VL (MOD (- # 2) IRONCLAD::N))) ; --> BLOCK LET TAGBODY PSETQ PROGN 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. ; (ASH IRONCLAD::K -1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (1+ IRONCLAD::S) ; ; 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. ; in: DEFUN PRIMEP-LUCAS ; (ZEROP (IRONCLAD::LUCAS-SEQUENCE (1+ IRONCLAD::N) IRONCLAD::B IRONCLAD::N)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (* IRONCLAD::B IRONCLAD::B) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 3), not a FIXNUM. ; The second argument is a (INTEGER 3), not a FIXNUM. ; The result is a (VALUES (INTEGER 9) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER 3), not a (SIGNED-BYTE 64). ; The second argument is a (INTEGER 3), not a (SIGNED-BYTE 64). ; The result is a (VALUES (INTEGER 9) &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::B IRONCLAD::B) 4) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 9), not a FIXNUM. ; The result is a (VALUES (INTEGER 5) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 9), not a FIXNUM. ; The result is a (VALUES (INTEGER 5) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (INCF IRONCLAD::B) ; --> THE ; ==> ; (+ 1 IRONCLAD::B) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 3), not a FIXNUM. ; The result is a (VALUES (INTEGER 4) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 3), not a FIXNUM. ; The result is a (VALUES (INTEGER 4) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (1+ IRONCLAD::N) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; in: DEFUN MODULAR-INVERSE ; (* IRONCLAD::Q IRONCLAD::U2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (DECF IRONCLAD::U1 (* IRONCLAD::Q IRONCLAD::U2)) ; --> THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (MINUSP IRONCLAD::INVERSE) ; ; 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. ; (* IRONCLAD::N IRONCLAD::INVERSE) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER 1), not a (SIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN MODULAR-INVERSE-WITH-BLINDING ; (+ 1 (IRONCLAD:STRONG-RANDOM (- IRONCLAD::MODULUS 1))) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; (GCD IRONCLAD::B IRONCLAD::MODULUS) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a INTEGER, not a (OR (INTEGER -4611686018427387904 -1) ; (INTEGER 1 4611686018427387903)). ; The second argument is a (INTEGER 1), not a (OR ; (INTEGER -4611686018427387904 ; -1) ; (INTEGER 1 4611686018427387903)). ; (- IRONCLAD::MODULUS 1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (+ 1 (IRONCLAD:STRONG-RANDOM (- IRONCLAD::MODULUS 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. ; (* IRONCLAD::N IRONCLAD::B) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y IRONCLAD::B) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN EXPT-MOD ; (ASSERT (<= 0 IRONCLAD::EXPONENT IRONCLAD::MODULUS)) ; --> LET WHEN IF <= ; ==> ; 1 ; ; 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. ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; (INTEGER-LENGTH IRONCLAD::MODULUS) ; ; note: forced to do full call ; unable to do inline positive fixnum integer-length (cost 24) because: ; The first argument is a (INTEGER 2), not a (UNSIGNED-BYTE 62). ; unable to do inline fixnum integer-length (cost 25) because: ; The first argument is a (INTEGER 2), not a FIXNUM. ; etc. ; (* IRONCLAD::R0 IRONCLAD::R1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::R1 IRONCLAD::R1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::R0 IRONCLAD::R1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::R0 IRONCLAD::R0) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN PRIME-P ; (LOOP IRONCLAD::REPEAT IRONCLAD:*NUMBER-OF-MILLER-RABIN-TESTS* ; IRONCLAD::ALWAYS (IRONCLAD::MILLER-RABIN-KERNEL IRONCLAD::N IRONCLAD::Q ; IRONCLAD::K)) ; --> LET CEILING ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; fold division by 1 ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (<= IRONCLAD::N IRONCLAD::+LAST-SMALL-PRIME+) ; ; 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. ; (LOOP IRONCLAD::REPEAT IRONCLAD:*NUMBER-OF-MILLER-RABIN-TESTS* ; IRONCLAD::ALWAYS (IRONCLAD::MILLER-RABIN-KERNEL IRONCLAD::N IRONCLAD::Q ; IRONCLAD::K)) ; --> LET TAGBODY IF <= ; ==> ; 1 ; ; 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. ; --> LET TAGBODY IF DECF SETQ THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1), not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/public-key/public-key.lisp ; in: DEFUN OCTETS-TO-INTEGER ; (CEILING IRONCLAD::N-BITS 8) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (MIN (CEILING IRONCLAD::N-BITS 8) IRONCLAD::SIZE) ; ; 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. ; (* 8 IRONCLAD::SIZE) ; ; 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. ; (LOOP IRONCLAD::WITH ; IRONCLAD::SUM = 0 ; IRONCLAD::FOR IRONCLAD::I IRONCLAD::FROM (- IRONCLAD::END ; IRONCLAD::N-BYTES) IRONCLAD::BELOW ; IRONCLAD::END ; DO ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= IRONCLAD::I #:LOOP-LIMIT-0) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; The second argument is a REAL, not a RATIONAL. ; (LOOP IRONCLAD::FOR IRONCLAD::I IRONCLAD::FROM IRONCLAD::START IRONCLAD::BELOW (+ ; IRONCLAD::START ; IRONCLAD::N-BYTES) ; IRONCLAD::FOR IRONCLAD::J IRONCLAD::FROM 0 IRONCLAD::BY ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY WHEN IF ; ==> ; (>= IRONCLAD::I #:LOOP-LIMIT-1) ; ; 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. ; (LDB (BYTE IRONCLAD::N-BITS 0) IRONCLAD::SUM) ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; (- IRONCLAD::END IRONCLAD::START) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (NOT NULL), 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 (NOT NULL), 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. ; (* 8 IRONCLAD::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. ; (MIN (CEILING IRONCLAD::N-BITS 8) IRONCLAD::SIZE) ; ; 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 second argument is a INTEGER, not a FIXNUM. ; (+ IRONCLAD::START IRONCLAD::N-BYTES) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES 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 NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (LOOP IRONCLAD::FOR IRONCLAD::I IRONCLAD::FROM IRONCLAD::START IRONCLAD::BELOW (+ ; IRONCLAD::START ; IRONCLAD::N-BYTES) ; IRONCLAD::FOR IRONCLAD::J IRONCLAD::FROM 0 IRONCLAD::BY ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY WHEN IF ; ==> ; (>= IRONCLAD::I #:LOOP-LIMIT-1) ; ; 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. ; (ASH (AREF IRONCLAD::OCTET-VEC IRONCLAD::I) IRONCLAD::J) ; ; note: forced to do full call ; unable to do inline ASH (cost 3) because: ; The second argument is a (OR (INTEGER 8 8) (INTEGER 40 40) ; (INTEGER 24 24) (INTEGER 56) (INTEGER 32 32) ; (INTEGER 16 16) (INTEGER 48 48) ; (INTEGER 0 0)), 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 (OR (INTEGER 8 8) (INTEGER 40 40) ; (INTEGER 24 24) (INTEGER 56) (INTEGER 32 32) ; (INTEGER 16 16) (INTEGER 48 48) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 62). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (LOOP IRONCLAD::FOR IRONCLAD::I IRONCLAD::FROM IRONCLAD::START IRONCLAD::BELOW (+ ; IRONCLAD::START ; IRONCLAD::N-BYTES) ; IRONCLAD::FOR IRONCLAD::J IRONCLAD::FROM 0 IRONCLAD::BY ...) ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SETQ THE ; ==> ; (+ #:LOOP-SUM-2 (ASH (AREF IRONCLAD::OCTET-VEC IRONCLAD::I) IRONCLAD::J)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The second argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The second argument is a UNSIGNED-BYTE, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; --> LET LET SB-LOOP::WITH-SUM-COUNT LET TAGBODY SB-LOOP::LOOP-DESETQ SETQ THE ; ==> ; (+ IRONCLAD::J 8) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (OR (INTEGER 8 8) (INTEGER 40 40) (INTEGER 24 24) ; (INTEGER 56) (INTEGER 32 32) (INTEGER 16 16) ; (INTEGER 48 48) (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (OR (INTEGER 8 8) (INTEGER 40 40) (INTEGER 24 24) ; (INTEGER 56) (INTEGER 32 32) (INTEGER 16 16) ; (INTEGER 48 48)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 8 8) (INTEGER 40 40) (INTEGER 24 24) ; (INTEGER 56) (INTEGER 32 32) (INTEGER 16 16) ; (INTEGER 48 48) (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (OR (INTEGER 8 8) (INTEGER 40 40) (INTEGER 24 24) ; (INTEGER 56) (INTEGER 32 32) (INTEGER 16 16) ; (INTEGER 48 48)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- IRONCLAD::END IRONCLAD::N-BYTES) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES 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 NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (LOOP IRONCLAD::WITH ; IRONCLAD::SUM = 0 ; IRONCLAD::FOR IRONCLAD::I IRONCLAD::FROM (- IRONCLAD::END ; IRONCLAD::N-BYTES) IRONCLAD::BELOW ; IRONCLAD::END ; DO ...) ; --> LET LET TAGBODY WHEN IF ; ==> ; (>= IRONCLAD::I #:LOOP-LIMIT-0) ; ; 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. ; (ASH IRONCLAD::SUM 8) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (+ (ASH IRONCLAD::SUM 8) (AREF IRONCLAD::OCTET-VEC IRONCLAD::I)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN INTEGER-TO-OCTETS ; (LDB (BYTE IRONCLAD::N-BITS 0) BIGNUM) ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; (LDB (BYTE 8 BYTE) BIGNUM) ; ; note: unable to convert to inline logical operations because: not a word-sized integer ; (LDB (BYTE 8 (* IRONCLAD::I 8)) BIGNUM) ; ; note: unable to convert to inline logical operations because: not a word-sized integer ; (INTEGER-LENGTH BIGNUM) ; ; note: forced to do full call ; unable to do inline positive fixnum integer-length (cost 24) because: ; The first argument is a T, not a (UNSIGNED-BYTE 62). ; unable to do inline fixnum integer-length (cost 25) because: ; The first argument is a T, not a FIXNUM. ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/ciphers/square.lisp ; in: DEFINE-BLOCK-ENCRYPTOR SQUARE ; (IRONCLAD::SQUARE-MUNGE-BLOCK IRONCLAD::ROUND-KEYS IRONCLAD::N-ROUNDS ; IRONCLAD::T-ENCRYPTION-TABLE IRONCLAD::S-ENCRYPTION-TABLE ; IRONCLAD::PLAINTEXT IRONCLAD::PLAINTEXT-START IRONCLAD::CIPHERTEXT ; IRONCLAD::CIPHERTEXT-START) ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 0 (* IRONCLAD::N-ROUNDS 4)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; ; note: unable to ; fold zero arg ; due to type uncertainty: ; The first argument is a REAL, not a (OR RATIONAL (COMPLEX RATIONAL)). ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 1 (* IRONCLAD::N-ROUNDS 4)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 2 (* IRONCLAD::N-ROUNDS 4)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 3 (* IRONCLAD::N-ROUNDS 4)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET LET DO BLOCK LET TAGBODY UNLESS ; --> IF >= 1- ; ==> ; 1 ; ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 0 (* IRONCLAD::N-ROUNDS 4)) ; ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 1 (* IRONCLAD::N-ROUNDS 4)) ; ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 2 (* IRONCLAD::N-ROUNDS 4)) ; ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 3 (* IRONCLAD::N-ROUNDS 4)) ; ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET LET DO BLOCK LET TAGBODY PSETQ ; --> LET* 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. ; in: DEFINE-BLOCK-DECRYPTOR SQUARE ; (IRONCLAD::SQUARE-MUNGE-BLOCK IRONCLAD::ROUND-KEYS IRONCLAD::N-ROUNDS ; IRONCLAD::T-DECRYPTION-TABLE IRONCLAD::S-DECRYPTION-TABLE ; IRONCLAD::CIPHERTEXT IRONCLAD::CIPHERTEXT-START IRONCLAD::PLAINTEXT ; IRONCLAD::PLAINTEXT-START) ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 0 (* IRONCLAD::N-ROUNDS 4)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; ; note: unable to ; fold zero arg ; due to type uncertainty: ; The first argument is a REAL, not a (OR RATIONAL (COMPLEX RATIONAL)). ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 1 (* IRONCLAD::N-ROUNDS 4)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 2 (* IRONCLAD::N-ROUNDS 4)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 3 (* IRONCLAD::N-ROUNDS 4)) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a REAL, not a RATIONAL. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET LET DO BLOCK LET TAGBODY UNLESS ; --> IF >= 1- ; ==> ; 1 ; ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 0 (* IRONCLAD::N-ROUNDS 4)) ; ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 1 (* IRONCLAD::N-ROUNDS 4)) ; ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 2 (* IRONCLAD::N-ROUNDS 4)) ; ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF + ; ==> ; (* IRONCLAD::N-ROUNDS 4) ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET MACROLET LET FLET ; --> IRONCLAD::STORE-WORDS PROGN SETF LET* IRONCLAD::APPLY-RK IRONCLAD::RKREF ; --> AREF ; ==> ; (+ 3 (* IRONCLAD::N-ROUNDS 4)) ; ; 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. ; --> BLOCK IRONCLAD::WITH-WORDS MACROLET LET LET DO BLOCK LET TAGBODY PSETQ ; --> LET* 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/adler32.lisp ; in: DEFINE-DIGEST-FINALIZER (ADLER32 4) ; (ASH (IRONCLAD::ADLER32-S2 IRONCLAD::STATE) 16) ; ; note: forced to do */SIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The result is a (VALUES ; (OR (INTEGER 65536 302231454903657293611008) ; (INTEGER -302231454903657293676544 -65536) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The result is a (VALUES ; (OR (INTEGER 65536 302231454903657293611008) ; (INTEGER -302231454903657293676544 -65536) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (LOGIOR (ASH (IRONCLAD::ADLER32-S2 IRONCLAD::STATE) 16) ; (IRONCLAD::ADLER32-S1 IRONCLAD::STATE)) ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 65536 302231454903657293611008) ; (INTEGER -302231454903657293676544 -65536) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES (SIGNED-BYTE 79) &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 3) because: ; The first argument is a (OR (INTEGER 65536 302231454903657293611008) ; (INTEGER -302231454903657293676544 -65536) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The second argument is a FIXNUM, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (SIGNED-BYTE 79) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/blake2.lisp ; in: DEFUN BLAKE2-ROUNDS ; (LDB (BYTE 64 64) IRONCLAD::OFFSET) ; ; note: unable to convert to inline logical operations because: not a word-sized integer ; (LDB (BYTE 64 0) IRONCLAD::OFFSET) ; ; note: forced to do LOGAND-WORD-MASK (cost 10) ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 128), not a (UNSIGNED-BYTE 64). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 128), not a (SIGNED-BYTE 64). ; etc. ; in: DEFUN BLAKE2-UPDATE ; (INCF IRONCLAD::OFFSET IRONCLAD::N) ; --> THE ; ==> ; (+ IRONCLAD::N IRONCLAD::OFFSET) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (UNSIGNED-BYTE 128), not a FIXNUM. ; The result is a (VALUES (UNSIGNED-BYTE 128) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER -4611686018427387903 128), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (UNSIGNED-BYTE 128), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES (UNSIGNED-BYTE 128) &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE ; 64) ; &OPTIONAL). ; etc. ; (INCF IRONCLAD::OFFSET IRONCLAD::+BLAKE2-BLOCK-SIZE+) ; --> THE ; ==> ; (+ IRONCLAD::+BLAKE2-BLOCK-SIZE+ IRONCLAD::OFFSET) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (UNSIGNED-BYTE 128), not a FIXNUM. ; The result is a (VALUES ; (INTEGER 128 340282366920938463463374607431768211455) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 128), not a FIXNUM. ; The result is a (VALUES ; (INTEGER 128 340282366920938463463374607431768211455) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (INCF IRONCLAD::OFFSET LENGTH) ; --> THE ; ==> ; (+ LENGTH IRONCLAD::OFFSET) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (UNSIGNED-BYTE 128), not a FIXNUM. ; The result is a (VALUES ; (INTEGER 1 340282366920938463463374607431768211455) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (UNSIGNED-BYTE 128), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER 1 340282366920938463463374607431768211455) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/blake2s.lisp ; in: DEFUN BLAKE2S-UPDATE ; (IRONCLAD::BLAKE2S-ROUNDS IRONCLAD::BLAKE2S-STATE IRONCLAD::INPUT ; IRONCLAD::START IRONCLAD::OFFSET NIL) ; ; note: doing unsigned word to integer coercion (cost 20) from OFFSET ; (IRONCLAD::BLAKE2S-ROUNDS IRONCLAD::BLAKE2S-STATE IRONCLAD::BUFFER 0 ; IRONCLAD::OFFSET IRONCLAD::FINAL) ; ; note: doing unsigned word to integer coercion (cost 20) from OFFSET ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/groestl.lisp ; in: DEFUN GROESTL-UPDATE ; (INCF IRONCLAD::BLOCK-COUNTER) ; --> THE ; ==> ; (+ 1 IRONCLAD::BLOCK-COUNTER) ; ; note: forced to do +/UNSIGNED=>INTEGER (cost 8) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES (INTEGER 1 18446744073709551616) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES (INTEGER 1 18446744073709551616) &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 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. ; (LET* ((IRONCLAD::GROESTL-STATE (IRONCLAD::GROESTL-STATE IRONCLAD::STATE)) ; (IRONCLAD::BUFFER (IRONCLAD::GROESTL-BUFFER IRONCLAD::STATE)) ; (IRONCLAD::BUFFER-INDEX ; (IRONCLAD::GROESTL-BUFFER-INDEX IRONCLAD::STATE)) ; (IRONCLAD::BLOCK-COUNTER ; (IRONCLAD::GROESTL-BLOCK-COUNTER IRONCLAD::STATE)) ; (IRONCLAD::BLOCK-SIZE (LENGTH IRONCLAD::BUFFER)) ; (IRONCLAD::TRANSFORM ; (IF (= IRONCLAD::BLOCK-SIZE IRONCLAD::+GROESTL-SIZE-512+) ; #'IRONCLAD::GROESTL-F512 ; #'IRONCLAD::GROESTL-F1024)) ; (LENGTH (- IRONCLAD::END IRONCLAD::START)) ; (IRONCLAD::N 0)) ; (DECLARE ; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) IRONCLAD::GROESTL-STATE) ; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) IRONCLAD::BUFFER) ; (TYPE (INTEGER 0 128) IRONCLAD::BLOCK-SIZE IRONCLAD::BUFFER-INDEX ; IRONCLAD::N) ; (TYPE (UNSIGNED-BYTE 64) LENGTH)) ; (SETF IRONCLAD::N ; (MIN LENGTH (- IRONCLAD::BLOCK-SIZE IRONCLAD::BUFFER-INDEX))) ; (REPLACE IRONCLAD::BUFFER IRONCLAD::INPUT :START1 IRONCLAD::BUFFER-INDEX ; :START2 IRONCLAD::START :END2 (+ IRONCLAD::START IRONCLAD::N)) ; (INCF IRONCLAD::BUFFER-INDEX IRONCLAD::N) ; (INCF IRONCLAD::START IRONCLAD::N) ; (DECF LENGTH IRONCLAD::N) ; (WHEN (= IRONCLAD::BUFFER-INDEX IRONCLAD::BLOCK-SIZE) ; (FUNCALL IRONCLAD::TRANSFORM IRONCLAD::GROESTL-STATE IRONCLAD::BUFFER 0) ; (SETF IRONCLAD::BUFFER-INDEX 0) ; (INCF IRONCLAD::BLOCK-COUNTER)) ; (LOOP IRONCLAD::UNTIL (< LENGTH IRONCLAD::BLOCK-SIZE) ; DO (FUNCALL IRONCLAD::TRANSFORM IRONCLAD::GROESTL-STATE ; IRONCLAD::INPUT IRONCLAD::START) (INCF ; IRONCLAD::BLOCK-COUNTER) (INCF ; IRONCLAD::START ; IRONCLAD::BLOCK-SIZE) (DECF ; LENGTH ; IRONCLAD::BLOCK-SIZE)) ; (WHEN (PLUSP LENGTH) ; (REPLACE IRONCLAD::BUFFER IRONCLAD::INPUT :END1 LENGTH :START2 ; IRONCLAD::START) ; (SETF IRONCLAD::BUFFER-INDEX LENGTH)) ; (SETF (IRONCLAD::GROESTL-BLOCK-COUNTER IRONCLAD::STATE) ; IRONCLAD::BLOCK-COUNTER ; (IRONCLAD::GROESTL-BUFFER-INDEX IRONCLAD::STATE) ; IRONCLAD::BUFFER-INDEX) ; ...) ; ; note: doing unsigned word to integer coercion (cost 20) to BLOCK-COUNTER ; (FUNCALL IRONCLAD::TRANSFORM IRONCLAD::GROESTL-STATE IRONCLAD::INPUT ; IRONCLAD::START) ; ; note: doing unsigned word to integer coercion (cost 20) from START ; in: DEFUN GROESTL-FINALIZE ; (REPLACE IRONCLAD::DIGEST IRONCLAD::OUTPUT :START1 IRONCLAD::DIGEST-START ; :START2 (- IRONCLAD::BLOCK-SIZE IRONCLAD:DIGEST-LENGTH)) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a (SIMPLE-ARRAY * (*)). ; The result is a (VALUES SEQUENCE &OPTIONAL), not a (VALUES ; (SIMPLE-ARRAY * (*)) ; &REST T). ; (INCF IRONCLAD::BLOCK-COUNTER) ; --> THE ; ==> ; (+ 1 IRONCLAD::BLOCK-COUNTER) ; ; note: forced to do +/UNSIGNED=>INTEGER (cost 8) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES (INTEGER 1 18446744073709551616) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES (INTEGER 1 18446744073709551616) &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 (MOD 18446744073709551617), not a FIXNUM. ; The result is a (VALUES (INTEGER 1 18446744073709551617) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD 18446744073709551617), not a FIXNUM. ; The result is a (VALUES (INTEGER 1 18446744073709551617) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. ; (- IRONCLAD::BLOCK-SIZE IRONCLAD:DIGEST-LENGTH) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; etc. ; (LET* ((IRONCLAD:DIGEST-LENGTH (IRONCLAD:DIGEST-LENGTH IRONCLAD::STATE)) ; (IRONCLAD::GROESTL-STATE (IRONCLAD::GROESTL-STATE IRONCLAD::STATE)) ; (IRONCLAD::BUFFER (IRONCLAD::GROESTL-BUFFER IRONCLAD::STATE)) ; (IRONCLAD::BUFFER-INDEX ; (IRONCLAD::GROESTL-BUFFER-INDEX IRONCLAD::STATE)) ; (IRONCLAD::BLOCK-COUNTER ; (IRONCLAD::GROESTL-BLOCK-COUNTER IRONCLAD::STATE)) ; (IRONCLAD::BLOCK-SIZE (LENGTH IRONCLAD::BUFFER)) ; (IRONCLAD::TRANSFORM ; (IF (= IRONCLAD::BLOCK-SIZE IRONCLAD::+GROESTL-SIZE-512+) ; #'IRONCLAD::GROESTL-F512 ; #'IRONCLAD::GROESTL-F1024))) ; (DECLARE ; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 64) (*)) IRONCLAD::GROESTL-STATE) ; (TYPE (SIMPLE-ARRAY (UNSIGNED-BYTE 8) (*)) IRONCLAD::BUFFER) ; (TYPE (INTEGER 0 128) IRONCLAD::BLOCK-SIZE IRONCLAD::BUFFER-INDEX) ; (OPTIMIZE (SPEED 3) (SPACE 0) (SAFETY 0) (DEBUG 0))) ; (SETF (AREF IRONCLAD::BUFFER IRONCLAD::BUFFER-INDEX) 128) ; (INCF IRONCLAD::BUFFER-INDEX) ; (WHEN ; (> IRONCLAD::BUFFER-INDEX ; (- IRONCLAD::BLOCK-SIZE IRONCLAD::+GROESTL-LENGTH-FIELD-LENGTH+)) ; (FILL IRONCLAD::BUFFER 0 :START IRONCLAD::BUFFER-INDEX) ; (FUNCALL IRONCLAD::TRANSFORM IRONCLAD::GROESTL-STATE IRONCLAD::BUFFER 0) ; (INCF IRONCLAD::BLOCK-COUNTER) ; (SETF IRONCLAD::BUFFER-INDEX 0)) ; (FILL IRONCLAD::BUFFER 0 :START IRONCLAD::BUFFER-INDEX) ; (SETF IRONCLAD::BUFFER-INDEX ; (- IRONCLAD::BLOCK-SIZE IRONCLAD::+GROESTL-LENGTH-FIELD-LENGTH+)) ; (INCF IRONCLAD::BLOCK-COUNTER) ; (SETF (IRONCLAD:UB64REF/BE IRONCLAD::BUFFER IRONCLAD::BUFFER-INDEX) ; IRONCLAD::BLOCK-COUNTER) ; (FUNCALL IRONCLAD::TRANSFORM IRONCLAD::GROESTL-STATE IRONCLAD::BUFFER 0) ; (IF (= IRONCLAD::BLOCK-SIZE IRONCLAD::+GROESTL-SIZE-512+) ; (LET ((IRONCLAD::TEMP #) (IRONCLAD::Y #) (IRONCLAD::Z #)) ; (DECLARE (TYPE # IRONCLAD::TEMP IRONCLAD::Y IRONCLAD::Z) ; (DYNAMIC-EXTENT IRONCLAD::TEMP IRONCLAD::Y IRONCLAD::Z)) ; (IRONCLAD::GROESTL-RND512P IRONCLAD::TEMP IRONCLAD::Z 0) ; (LOOP IRONCLAD::FOR IRONCLAD::I IRONCLAD::FROM 1 IRONCLAD::BELOW (1- ; IRONCLAD::+GROESTL-ROUNDS-512+) IRONCLAD::BY 2 ; DO (IRONCLAD::GROESTL-RND512P IRONCLAD::Z IRONCLAD::Y ; #) (IRONCLAD::GROESTL-RND512P IRONCLAD::Y IRONCLAD::Z #)) ; (IRONCLAD::GROESTL-RND512P IRONCLAD::Z IRONCLAD::TEMP (ASH # 56)) ; (DOTIMES (IRONCLAD::I IRONCLAD::+GROESTL-COLS-512+) (SETF #))) ; (LET ((IRONCLAD::TEMP #) (IRONCLAD::Y #) (IRONCLAD::Z #)) ; (DECLARE (TYPE # IRONCLAD::TEMP IRONCLAD::Y IRONCLAD::Z) ; (DYNAMIC-EXTENT IRONCLAD::TEMP IRONCLAD::Y IRONCLAD::Z)) ; (IRONCLAD::GROESTL-RND1024P IRONCLAD::TEMP IRONCLAD::Y 0) ; (LOOP IRONCLAD::FOR IRONCLAD::I IRONCLAD::FROM 1 IRONCLAD::BELOW (1- ; IRONCLAD::+GROESTL-ROUNDS-1024+) IRONCLAD::BY 2 ; DO (IRONCLAD::GROESTL-RND1024P IRONCLAD::Y IRONCLAD::Z ; #) (IRONCLAD::GROESTL-RND1024P IRONCLAD::Z IRONCLAD::Y #)) ; (IRONCLAD::GROESTL-RND1024P IRONCLAD::Y IRONCLAD::TEMP (ASH # 56)) ; (DOTIMES (IRONCLAD::I IRONCLAD::+GROESTL-COLS-1024+) (SETF #)))) ; ...) ; ; note: doing unsigned word to integer coercion (cost 20) to BLOCK-COUNTER ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/kupyna.lisp ; in: DEFINE-DIGEST-FINALIZER ((KUPYNA 64) (KUPYNA/256 32)) ; (INCF IRONCLAD::TOTAL (* 8 IRONCLAD::BUFFER-INDEX)) ; --> THE ; ==> ; (+ (* 8 IRONCLAD::BUFFER-INDEX) IRONCLAD::TOTAL) ; ; note: forced to do +/UNSIGNED=>INTEGER (cost 8) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES (MOD 18446744073709552640) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; (> (+ IRONCLAD::BUFFER-INDEX 12) IRONCLAD:BLOCK-LENGTH) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The second argument is a T, not a FIXNUM. ; (LET ((IRONCLAD:BLOCK-LENGTH (IRONCLAD:BLOCK-LENGTH IRONCLAD::STATE)) ; (IRONCLAD:DIGEST-LENGTH (IRONCLAD:DIGEST-LENGTH IRONCLAD::STATE)) ; (IRONCLAD::BUFFER (IRONCLAD::KUPYNA-BUFFER IRONCLAD::STATE)) ; (IRONCLAD::BUFFER-INDEX ; (IRONCLAD::KUPYNA-BUFFER-INDEX IRONCLAD::STATE)) ; (IRONCLAD::H (IRONCLAD::KUPYNA-H IRONCLAD::STATE)) ; (IRONCLAD::TOTAL (IRONCLAD::KUPYNA-TOTAL IRONCLAD::STATE))) ; (INCF IRONCLAD::TOTAL (* 8 IRONCLAD::BUFFER-INDEX)) ; (SETF (AREF IRONCLAD::BUFFER IRONCLAD::BUFFER-INDEX) 128) ; (INCF IRONCLAD::BUFFER-INDEX) ; (WHEN (> (+ IRONCLAD::BUFFER-INDEX 12) IRONCLAD:BLOCK-LENGTH) ; (FILL IRONCLAD::BUFFER 0 :START IRONCLAD::BUFFER-INDEX) ; (ECASE IRONCLAD:BLOCK-LENGTH ; (64 (IRONCLAD::KUPYNA-TRANSFORM256 IRONCLAD::H IRONCLAD::BUFFER 0)) ; (128 (IRONCLAD::KUPYNA-TRANSFORM512 IRONCLAD::H IRONCLAD::BUFFER 0))) ; (SETF IRONCLAD::BUFFER-INDEX 0)) ; (FILL IRONCLAD::BUFFER 0 :START IRONCLAD::BUFFER-INDEX) ; (SETF (IRONCLAD:UB64REF/LE IRONCLAD::BUFFER (- IRONCLAD:BLOCK-LENGTH 12)) ; IRONCLAD::TOTAL) ; (ECASE IRONCLAD:BLOCK-LENGTH ; (64 ; (IRONCLAD::KUPYNA-TRANSFORM256 IRONCLAD::H IRONCLAD::BUFFER 0) ; (IRONCLAD::KUPYNA-OUTPUT-TRANSFORM256 IRONCLAD::H)) ; (128 ; (IRONCLAD::KUPYNA-TRANSFORM512 IRONCLAD::H IRONCLAD::BUFFER 0) ; (IRONCLAD::KUPYNA-OUTPUT-TRANSFORM512 IRONCLAD::H))) ; (LET ((IRONCLAD::OUTPUT (MAKE-ARRAY 128 :ELEMENT-TYPE '#))) ; (DOTIMES (IRONCLAD::I 16) (SETF # #)) ; (REPLACE IRONCLAD::DIGEST IRONCLAD::OUTPUT :START1 IRONCLAD::DIGEST-START ; :START2 (- IRONCLAD:BLOCK-LENGTH IRONCLAD:DIGEST-LENGTH) :END2 ; IRONCLAD:BLOCK-LENGTH) ; IRONCLAD::DIGEST)) ; ; note: doing unsigned word to integer coercion (cost 20) to TOTAL ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/md2.lisp ; in: DEFUN UPDATE-MD2-REGS ; (+ IRONCLAD::I IRONCLAD::OFFSET) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a NUMBER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; etc. ; in: DEFUN MD2-REGS-DIGEST ; (+ IRONCLAD::START IRONCLAD::I) ; ; 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. ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; etc. ; in: DEFINE-DIGEST-FINALIZER (MD2 16) ; (IRONCLAD::FINALIZE-REGISTERS IRONCLAD::STATE IRONCLAD::REGS) ; --> BLOCK FLET IRONCLAD::STUFF-REGISTERS BLOCK DOTIMES DO BLOCK LET TAGBODY ; --> TAGBODY SETF LET* ; ==> ; (+ IRONCLAD::START IRONCLAD::I) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a REAL, not a (UNSIGNED-BYTE 64). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/md4.lisp ; in: DEFINE-DIGEST-FINALIZER (MD4 16) ; (* 8 (IRONCLAD::MD4-AMOUNT IRONCLAD::STATE)) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; (IRONCLAD::STORE-DATA-LENGTH BLOCK IRONCLAD::TOTAL-LENGTH 14) ; --> BLOCK LET SETF PROGN SETF LET* LDB ; ==> ; 1 ; ; note: forced to do LOGAND-WORD-MASK (cost 10) ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/md5.lisp ; in: DEFINE-DIGEST-FINALIZER (MD5 16) ; (* 8 (IRONCLAD::MD5-AMOUNT IRONCLAD::STATE)) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; (IRONCLAD::STORE-DATA-LENGTH BLOCK IRONCLAD::TOTAL-LENGTH 14) ; --> BLOCK LET SETF PROGN SETF LET* LDB ; ==> ; 1 ; ; note: forced to do LOGAND-WORD-MASK (cost 10) ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/ripemd-128.lisp ; in: DEFINE-DIGEST-FINALIZER (RIPEMD-128 16) ; (* 8 (IRONCLAD::RIPEMD-128-AMOUNT IRONCLAD::STATE)) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; (IRONCLAD::STORE-DATA-LENGTH BLOCK IRONCLAD::TOTAL-LENGTH 14) ; --> BLOCK LET SETF PROGN SETF LET* LDB ; ==> ; 1 ; ; note: forced to do LOGAND-WORD-MASK (cost 10) ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/ripemd-160.lisp ; in: DEFINE-DIGEST-FINALIZER (RIPEMD-160 20) ; (* 8 (IRONCLAD::RIPEMD-160-AMOUNT IRONCLAD::STATE)) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; (IRONCLAD::STORE-DATA-LENGTH BLOCK IRONCLAD::TOTAL-LENGTH 14) ; --> BLOCK LET SETF PROGN SETF LET* LDB ; ==> ; 1 ; ; note: forced to do LOGAND-WORD-MASK (cost 10) ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/sha1.lisp ; in: DEFINE-DIGEST-FINALIZER (SHA1 20) ; (* 8 (IRONCLAD::SHA1-AMOUNT IRONCLAD::STATE)) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; (IRONCLAD::STORE-DATA-LENGTH BLOCK IRONCLAD::TOTAL-LENGTH 14 T) ; --> BLOCK LET SETF PROGN SETF LET* LDB ; ==> ; 1 ; ; note: forced to do LOGAND-WORD-MASK (cost 10) ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/sha256.lisp ; in: DEFINE-DIGEST-FINALIZER ((SHA256 32) (SHA224 28)) ; (* 8 (IRONCLAD::SHA256-AMOUNT IRONCLAD::STATE)) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; (IRONCLAD::STORE-DATA-LENGTH BLOCK IRONCLAD::TOTAL-LENGTH 14 T) ; --> BLOCK LET SETF PROGN SETF LET* LDB ; ==> ; 1 ; ; note: forced to do LOGAND-WORD-MASK (cost 10) ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; unable to do inline (unsigned-byte 64) arithmetic (cost 2) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/sha3.lisp ; in: DEFUN GET-KECCAK-ROUND-CONSTANT ; (DEFUN IRONCLAD::GET-KECCAK-ROUND-CONSTANT (IRONCLAD::I) ; (DECLARE (TYPE (INTEGER 0 23) IRONCLAD::I) ; (OPTIMIZE (SPEED 3) (SPACE 0) (SAFETY 0) (DEBUG 0))) ; (LET ((IRONCLAD::CONSTANTS ; (LOAD-TIME-VALUE IRONCLAD::+KECCAK-ROUND-CONSTANTS+ T))) ; (DECLARE ; (TYPE (SIMPLE-ARRAY IRONCLAD::KECCAK-LANE #) IRONCLAD::CONSTANTS)) ; (AREF IRONCLAD::CONSTANTS IRONCLAD::I))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IRONCLAD::GET-KECCAK-ROUND-CONSTANT ; (IRONCLAD::I) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (DECLARE (TYPE (INTEGER 0 23) IRONCLAD::I) ; (OPTIMIZE (SPEED 3) (SPACE 0) (SAFETY 0) (DEBUG 0))) ; (BLOCK IRONCLAD::GET-KECCAK-ROUND-CONSTANT ; (LET ((IRONCLAD::CONSTANTS #)) ; (DECLARE (TYPE # IRONCLAD::CONSTANTS)) ; (AREF IRONCLAD::CONSTANTS IRONCLAD::I)))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; in: DEFUN SHA3-FINALIZE ; (- IRONCLAD::OUTPUT-BYTE-LENGTH IRONCLAD::OUTPUT-SIZE) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::DIGEST-START IRONCLAD::OUTPUT-SIZE) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; etc. ; (INCF IRONCLAD::OUTPUT-SIZE IRONCLAD::N) ; --> THE ; ==> ; (+ IRONCLAD::N IRONCLAD::OUTPUT-SIZE) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/sha512.lisp ; in: DEFUN UPDATE-SHA512-BLOCK ; (IRONCLAD::MOD64+ (IRONCLAD::SHA512-REGS-H IRONCLAD::REGS) IRONCLAD::H) ; ==> ; 1 ; ; note: doing unsigned word to integer coercion (cost 20), for: ; the first result of inline (unsigned-byte 64) arithmetic ; in: DEFINE-DIGEST-FINALIZER ((SHA512 64) (SHA384 48)) ; (* 8 (IRONCLAD::SHA512-AMOUNT IRONCLAD::STATE)) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/skein.lisp ; in: DEFUN SKEIN-UBI ; (FUNCALL IRONCLAD::ENCRYPTION-FUNCTION IRONCLAD::CIPHER IRONCLAD::BUFFER 0 ; IRONCLAD::CIPHERTEXT 0) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; ENCRYPTION-FUNCTION is not known to be a function ; (FUNCALL IRONCLAD::ENCRYPTION-FUNCTION IRONCLAD::CIPHER IRONCLAD::MESSAGE ; IRONCLAD::MESSAGE-START IRONCLAD::CIPHERTEXT 0) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; ENCRYPTION-FUNCTION is not known to be a function ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/sm3.lisp ; in: DEFINE-DIGEST-UPDATER SM3 ; (INCF IRONCLAD::START 64) ; ; note: doing signed word to integer coercion (cost 20) to START ; in: DEFINE-DIGEST-FINALIZER (SM3 32) ; (* 8 (IRONCLAD::SM3-COUNT IRONCLAD::STATE)) ; ; note: forced to do */UNSIGNED=>INTEGER (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES ; (OR (INTEGER 8 147573952589676412920) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (UNSIGNED-BYTE 64), not a FIXNUM. ; The result is a (VALUES ; (OR (INTEGER 8 147573952589676412920) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/streebog.lisp ; in: DEFUN STREEBOG-AX ; (DEFUN IRONCLAD::STREEBOG-AX (IRONCLAD::I IRONCLAD::J) ; (DECLARE (TYPE (INTEGER 0 7) IRONCLAD::I) ; (TYPE (INTEGER 0 255) IRONCLAD::J) ; (OPTIMIZE (SPEED 3) (SPACE 0) (SAFETY 0) (DEBUG 0))) ; (LET ((IRONCLAD::CONSTANTS (LOAD-TIME-VALUE IRONCLAD::+STREEBOG-AX+ T))) ; (DECLARE (TYPE (SIMPLE-ARRAY # #) IRONCLAD::CONSTANTS)) ; (AREF IRONCLAD::CONSTANTS IRONCLAD::I IRONCLAD::J))) ; --> SB-IMPL::%DEFUN SB-IMPL::%DEFUN SB-INT:NAMED-LAMBDA ; ==> ; #'(SB-INT:NAMED-LAMBDA IRONCLAD::STREEBOG-AX ; (IRONCLAD::I IRONCLAD::J) ; (DECLARE (SB-C::TOP-LEVEL-FORM)) ; (DECLARE (TYPE (INTEGER 0 7) IRONCLAD::I) ; (TYPE (INTEGER 0 255) IRONCLAD::J) ; (OPTIMIZE (SPEED 3) (SPACE 0) (SAFETY 0) (DEBUG 0))) ; (BLOCK IRONCLAD::STREEBOG-AX ; (LET ((IRONCLAD::CONSTANTS #)) ; (DECLARE (TYPE # IRONCLAD::CONSTANTS)) ; (AREF IRONCLAD::CONSTANTS IRONCLAD::I IRONCLAD::J)))) ; ; note: doing unsigned word to integer coercion (cost 20) to "" ; in: DEFUN STREEBOG-STAGE2 ; (+ IRONCLAD::START (* IRONCLAD::I 8)) ; ; 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. ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (UNSIGNED-BYTE 64). ; etc. ; in: DEFINE-DIGEST-UPDATER STREEBOG ; (INCF IRONCLAD::START 64) ; --> THE ; ==> ; (+ 64 IRONCLAD::START) ; ; note: unable to ; associate +/(+ -) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES FIXNUM &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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/tiger.lisp ; in: DEFCONSTANT +TIGER-BLOCK-COPY-FN+ ; 'IRONCLAD::FILL-BLOCK-UB8-LE ; ; note: deleting unreachable code ; in: DEFUN MAKE-TIGER-SBOX ; (MAKE-ARRAY IRONCLAD::N-ELEMENTS :ELEMENT-TYPE '(UNSIGNED-BYTE 32) ; :INITIAL-CONTENTS IRONCLAD::ELEMENTS) ; ; note: deleting unreachable code ; in: DEFINE-DIGEST-FINALIZER (TIGER 24) ; (* 8 (IRONCLAD::TIGER-AMOUNT IRONCLAD::STATE)) ; ; note: unable to ; convert x*2^k to shift ; due to type uncertainty: ; The first argument is a NUMBER, not a INTEGER. ; ; note: unable to ; associate */(* /) of constants ; due to type uncertainty: ; The first argument is a NUMBER, not a RATIONAL. ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/digests/whirlpool.lisp ; in: DEFINE-DIGEST-FINALIZER (WHIRLPOOL 64) ; (* 8 (IRONCLAD::WHIRLPOOL-AMOUNT IRONCLAD::STATE)) ; ; 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. ; (LDB (BYTE 32 (- 256 (* 32 (1+ IRONCLAD::I)))) IRONCLAD::TOTAL-LENGTH) ; ; note: unable to convert to inline logical operations because: not a word-sized integer ; (* 8 (IRONCLAD::WHIRLPOOL-AMOUNT IRONCLAD::STATE)) ; ; note: forced to do GENERIC-* (cost 30) ; 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. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/macs/cmac.lisp ; in: DEFUN UPDATE-CMAC ; (MIN IRONCLAD::REMAINING (- IRONCLAD:BLOCK-LENGTH IRONCLAD::BUFFER-INDEX)) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR ; (DOUBLE-FLOAT -1.7592186044414d13 ; 1.7592186044415d13) ; (SINGLE-FLOAT -1.7592186e13 1.7592186e13) ; (RATIONAL (-17592186044414) ; (17592186044415))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR ; (DOUBLE-FLOAT -1.7592186044414d13 ; 1.7592186044415d13) ; (SINGLE-FLOAT -1.7592186e13 1.7592186e13) ; (RATIONAL (-17592186044414) ; (17592186044415))), not a DOUBLE-FLOAT. ; (= IRONCLAD::BUFFER-INDEX IRONCLAD:BLOCK-LENGTH) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (FUNCALL IRONCLAD::ENCRYPTION-FUNCTION IRONCLAD::CIPHER IRONCLAD::BUFFER 0 ; IRONCLAD::BUFFER 0) ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; ENCRYPTION-FUNCTION is not known to be a function ; ; note: unable to ; optimize away possible call to FDEFINITION at runtime ; because: ; ENCRYPTION-FUNCTION is not known to be a function ; (- IRONCLAD:BLOCK-LENGTH IRONCLAD::BUFFER-INDEX) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The second argument is a (OR (RATIONAL (0) (17592186044415)) ; (SINGLE-FLOAT (0.0) (1.7592186e13)) ; (DOUBLE-FLOAT (0.0d0) (1.7592186044415d13))), not a FIXNUM. ; The result is a (VALUES ; (OR ; (DOUBLE-FLOAT -1.7592186044414d13 1.7592186044415d13) ; (SINGLE-FLOAT -1.7592186e13 1.7592186e13) ; (RATIONAL (-17592186044414) (17592186044415))) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The second argument is a (OR (RATIONAL (0) (17592186044415)) ; (SINGLE-FLOAT (0.0) (1.7592186e13)) ; (DOUBLE-FLOAT (0.0d0) (1.7592186044415d13))), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (OR ; (DOUBLE-FLOAT -1.7592186044414d13 1.7592186044415d13) ; (SINGLE-FLOAT -1.7592186e13 1.7592186e13) ; (RATIONAL (-17592186044414) (17592186044415))) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (MIN IRONCLAD::REMAINING (- IRONCLAD:BLOCK-LENGTH IRONCLAD::BUFFER-INDEX)) ; ; note: forced to do GENERIC-< (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (OR ; (DOUBLE-FLOAT -1.7592186044414d13 ; 1.7592186044415d13) ; (SINGLE-FLOAT -1.7592186e13 1.7592186e13) ; (RATIONAL (-17592186044414) (17592186044415))), not a FIXNUM. ; (DECF IRONCLAD::REMAINING) ; --> THE SB-IMPL::XSUBTRACT BLOCK ; ==> ; (- SB-IMPL::B SB-IMPL::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER * 17592186044415), not a FIXNUM. ; The result is a (VALUES (INTEGER * 17592186044414) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER * 17592186044415), not a FIXNUM. ; The result is a (VALUES (INTEGER * 17592186044414) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/macs/gmac.lisp ; in: DEFUN UPDATE-GMAC ; (SETF (IRONCLAD::GMAC-TOTAL-LENGTH IRONCLAD::MAC) IRONCLAD::TOTAL-LENGTH ; (IRONCLAD::GMAC-BUFFER-LENGTH IRONCLAD::MAC) IRONCLAD::BUFFER-LENGTH) ; --> SETF LET* ; ==> ; IRONCLAD::TOTAL-LENGTH ; ; note: doing unsigned word to integer coercion (cost 20) from TOTAL-LENGTH ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/public-key/curve25519.lisp ; in: DEFUN CURVE25519-DOUBLE-AND-ADD ; (+ IRONCLAD::X1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::T1 IRONCLAD::T1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::X1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::T3 IRONCLAD::T3) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::T2 IRONCLAD::T4) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::X2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- IRONCLAD::X2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::T1 IRONCLAD::T7) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T3 IRONCLAD::T6) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::T8 IRONCLAD::T9) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::T8 IRONCLAD::T9) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T2 IRONCLAD::T4) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T5 IRONCLAD::+CURVE25519-A24+) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 121666 ; 7043980164573656116202093731033511498437972977164912432212323207953379415383793368) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 121666 ; 7043980164573656116202093731033511498437972977164912432212323207953379415383793368) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (+ IRONCLAD::T4 IRONCLAD::T12) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T5 IRONCLAD::T13) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T10 IRONCLAD::T10) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T11 IRONCLAD::T11) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::X3 IRONCLAD::T14) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD EC-DECODE-SCALAR ((EQL :CURVE25519) T) ; (LDB (BYTE (1- IRONCLAD::+CURVE25519-BITS+) 0) ; (IRONCLAD:OCTETS-TO-INTEGER IRONCLAD::OCTETS :BIG-ENDIAN NIL)) ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; (SETF (LDB (BYTE 3 0) IRONCLAD::X) 0) ; --> SETQ THE DPB ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/public-key/curve448.lisp ; in: DEFUN CURVE448-DOUBLE-AND-ADD ; (+ IRONCLAD::X1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- IRONCLAD::X1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- IRONCLAD::X2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::T1 IRONCLAD::T3) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::X2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::T2 IRONCLAD::T5) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::T4 IRONCLAD::T6) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T7 IRONCLAD::T7) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::X3 IRONCLAD::T8) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::T4 IRONCLAD::T6) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T9 IRONCLAD::T9) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T1 IRONCLAD::T1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T2 IRONCLAD::T2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T10 IRONCLAD::T11) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::T10 IRONCLAD::T11) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T12 IRONCLAD::+CURVE448-A24+) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 39081 ; 28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739682478) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 39081 ; 28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739682478) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (+ IRONCLAD::T13 IRONCLAD::T10) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::T14 IRONCLAD::T12) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD EC-DECODE-SCALAR ((EQL :CURVE448) T) ; (LDB (BYTE IRONCLAD::+CURVE448-BITS+ 0) ; (IRONCLAD:OCTETS-TO-INTEGER IRONCLAD::OCTETS :BIG-ENDIAN NIL)) ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &REST T). ; (SETF (LDB (BYTE 2 0) IRONCLAD::X) 0) ; --> SETQ THE DPB ; ==> ; 1 ; ; note: forced to do full call ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a UNSIGNED-BYTE, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &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 UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/public-key/ed25519.lisp ; in: DEFUN ED25519-RECOVER-X ; (MOD ; (* IRONCLAD::UV3 ; (IRONCLAD:EXPT-MOD IRONCLAD::UV7 (/ (- IRONCLAD::+ED25519-Q+ 5) 8) ; IRONCLAD::+ED25519-Q+)) ; IRONCLAD::+ED25519-Q+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (* IRONCLAD::Y IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (1- (* IRONCLAD::Y IRONCLAD::Y)) ; ; 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+ IRONCLAD::U) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER 1 ; 57896044618658097711785492504343953926634992332820282019728792003956564819949) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER 1 ; 57896044618658097711785492504343953926634992332820282019728792003956564819949) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::V IRONCLAD::V IRONCLAD::V) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 194064761537588616893622436057812819407110752139587076392381504753256369085595993672410662147087199368837878645229193663462561604848498377274709448929113913002071147247356829369437895575864476831150950995459034595069848999419699393) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 194064761537588616893622436057812819407110752139587076392381504753256369085595993672410662147087199368837878645229193663462561604848498377274709448929113913002071147247356829369437895575864476831150950995459034595069848999419699393) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::U IRONCLAD::V3) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::UV3 IRONCLAD::V3 IRONCLAD::V) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 194064761537588616893622436057812819407110752139587076392381504753256369085595993672410662147087199368837878645229193663462561604848498377274709448929113913002071147247356829369437895575864476831150950995459034595069848999419699393) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 194064761537588616893622436057812819407110752139587076392381504753256369085595993672410662147087199368837878645229193663462561604848498377274709448929113913002071147247356829369437895575864476831150950995459034595069848999419699393) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::UV3 ; (IRONCLAD:EXPT-MOD IRONCLAD::UV7 (/ (- IRONCLAD::+ED25519-Q+ 5) 8) ; IRONCLAD::+ED25519-Q+)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::V IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 194064761537588616893622436057812819407110752139587076392381504753256369085595993672410662147087199368837878645229193663462561604848498377274709448929113913002071147247356829369437895575864476831150950995459034595069848999419699393) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 194064761537588616893622436057812819407110752139587076392381504753256369085595993672410662147087199368837878645229193663462561604848498377274709448929113913002071147247356829369437895575864476831150950995459034595069848999419699393) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (= IRONCLAD::U ; (MOD (* IRONCLAD::V IRONCLAD::X IRONCLAD::X) IRONCLAD::+ED25519-Q+)) ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; in: DEFMETHOD EC-ADD (ED25519-POINT ED25519-POINT) ; (- IRONCLAD::Y1 IRONCLAD::X1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- IRONCLAD::Y2 IRONCLAD::X2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* (- IRONCLAD::Y1 IRONCLAD::X1) (- IRONCLAD::Y2 IRONCLAD::X2)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::Y1 IRONCLAD::X1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::Y2 IRONCLAD::X2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* (+ IRONCLAD::Y1 IRONCLAD::X1) (+ IRONCLAD::Y2 IRONCLAD::X2)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::W1 IRONCLAD::W2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* 2 IRONCLAD::Z1 IRONCLAD::Z2) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)), not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)), not a (SIGNED-BYTE ; 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- IRONCLAD::B IRONCLAD::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::D IRONCLAD::C) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::D IRONCLAD::C) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::B IRONCLAD::A) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::E IRONCLAD::F) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::G IRONCLAD::H) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::F IRONCLAD::G) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::E IRONCLAD::H) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD EC-DOUBLE (ED25519-POINT) ; (* IRONCLAD::X1 IRONCLAD::X1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* 2 IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)), not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)), not a (SIGNED-BYTE ; 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::X1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::D IRONCLAD::D) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::A IRONCLAD::B) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::H IRONCLAD::I) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::A IRONCLAD::B) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::C IRONCLAD::G) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 115792089237316195423570985008687907853269984665640564039457584007913129639897) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::E IRONCLAD::F) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::G IRONCLAD::H) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::F IRONCLAD::G) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::E IRONCLAD::H) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3351951982485649274893506249551461531869841455148098344430890360930441007516070902415722250633254437222334206389556113020125659422197490806450149658722705) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD EC-POINT-ON-CURVE-P (ED25519-POINT) ; (* IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z IRONCLAD::Z) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::W IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- IRONCLAD::YY IRONCLAD::XX) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::ZZ (* IRONCLAD::+ED25519-D+ IRONCLAD::WW)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (OR ; (INTEGER ; 37095705934669439343138083508754565189542113879843219016388785533085940283555 ; 2147694645954241852484040567486267188178402270445892907140121793157764114386211238650957099786829249829777408518992270436843721382558176074814068640355140) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 2147694645954241852484040567486267188178402270445892907140121793157764114386269134695575757884541035322281752472918905429176541664577904866818025205175089) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER ; 37095705934669439343138083508754565189542113879843219016388785533085940283555 ; 2147694645954241852484040567486267188178402270445892907140121793157764114386211238650957099786829249829777408518992270436843721382558176074814068640355140) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (MOD ; 2147694645954241852484040567486267188178402270445892907140121793157764114386269134695575757884541035322281752472918905429176541664577904866818025205175089) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::A IRONCLAD::B) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 57896044618658097711785492504343953926634992332820282019728792003956564819949), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -57896044618658097711785492504343953926634992332820282019728792003956564819948 ; 57896044618658097711785492504343953926634992332820282019728792003956564819948) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD EC-POINT-EQUAL (ED25519-POINT ED25519-POINT) ; (* IRONCLAD::X1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::X1 IRONCLAD::Z2) (* IRONCLAD::X2 IRONCLAD::Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::Y1 IRONCLAD::Z2) (* IRONCLAD::Y2 IRONCLAD::Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN ED25519-PUBLIC-KEY ; (SUBSEQ IRONCLAD::H 0 (/ IRONCLAD::+ED25519-BITS+ 8)) ; ; 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. ; (SETF (LDB (BYTE 3 0) (ELT IRONCLAD::H 0)) 0) ; --> LET DPB ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; --> LET ; ==> ; (SB-KERNEL:%SETELT #:H1 0 #:NEW0) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (SETF (LDB (BYTE 2 6) (ELT IRONCLAD::H (- # 1))) 1) ; --> LET DPB ; ==> ; 1 ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 64)) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 64)) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; --> LET ; ==> ; (SB-KERNEL:%SETELT #:H4 (- (/ IRONCLAD::+ED25519-BITS+ 8) 1) #:NEW3) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS ; SB-KERNEL:EXTENDED-SEQUENCE), not a (SIMPLE-ARRAY ; * (*)). ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a (OR (SIMPLE-ARRAY * (*)) CONS ; SB-KERNEL:EXTENDED-SEQUENCE), not a LIST. ; (SETF (LDB (BYTE 3 0) (ELT IRONCLAD::H 0)) 0) ; --> LET DPB ; ==> ; 1 ; ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; in: DEFUN ED25519-SIGN ; (SETF (LDB (BYTE 3 0) (ELT IRONCLAD::H 0)) 0) ; --> LET DPB ; ==> ; 1 ; ; 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. ; --> LET ; ==> ; (SB-KERNEL:%SETELT #:H1 0 #:NEW0) ; ; 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. ; (SETF (LDB (BYTE 2 6) (ELT IRONCLAD::H (- # 1))) 1) ; --> LET DPB ; ==> ; 1 ; ; 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. ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 64)) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &REST T). ; ; note: unable to ; convert to inline logical operations ; due to type uncertainty: ; The result is a (VALUES (OR (INTEGER * -1) (INTEGER 64)) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &REST T). ; --> LET ; ==> ; (SB-KERNEL:%SETELT #:H4 (- (/ IRONCLAD::+ED25519-BITS+ 8) 1) #:NEW3) ; ; 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. ; (SUBSEQ IRONCLAD::H 0 (/ IRONCLAD::+ED25519-BITS+ 8)) ; ; 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. ; (SUBSEQ IRONCLAD::H (/ IRONCLAD::+ED25519-BITS+ 8) ; (/ IRONCLAD::+ED25519-BITS+ 4)) ; ; 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. ; (MOD (IRONCLAD:EC-DECODE-SCALAR :ED25519 IRONCLAD::RH) IRONCLAD::+ED25519-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (MOD ; (IRONCLAD:EC-DECODE-SCALAR :ED25519 ; (IRONCLAD::ED25519-HASH IRONCLAD::RP IRONCLAD::PK ; IRONCLAD::M)) ; IRONCLAD::+ED25519-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (SETF (LDB (BYTE 3 0) (ELT IRONCLAD::H 0)) 0) ; --> LET DPB ; ==> ; 1 ; ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (* IRONCLAD::K IRONCLAD::A) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 7237005577332262213973186563042994240857116359379907606001950938285454250989), not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 7237005577332262213973186563042994240857116359379907606001950938285454250989), not a (SIGNED-BYTE ; 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ (* IRONCLAD::K IRONCLAD::A) IRONCLAD::RI) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 7237005577332262213973186563042994240857116359379907606001950938285454250989), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (MOD ; 7237005577332262213973186563042994240857116359379907606001950938285454250989), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN ED25519-VERIFY ; (MOD ; (IRONCLAD:EC-DECODE-SCALAR :ED25519 ; (IRONCLAD::ED25519-HASH IRONCLAD::R IRONCLAD::PK ; IRONCLAD::M)) ; IRONCLAD::+ED25519-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/public-key/ed448.lisp ; in: DEFUN ED448-RECOVER-X ; (MOD ; (* IRONCLAD::U3V ; (IRONCLAD:EXPT-MOD IRONCLAD::U5V3 (/ (- IRONCLAD::+ED448-Q+ 3) 4) ; IRONCLAD::+ED448-Q+)) ; IRONCLAD::+ED448-Q+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (* IRONCLAD::Y IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES UNSIGNED-BYTE &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (1- (* IRONCLAD::Y IRONCLAD::Y)) ; ; 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+ IRONCLAD::U) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER 1 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER 1 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::+ED448-D+ (1+ IRONCLAD::U)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER 1 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739721559 ; -39081) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER 1 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739721559 ; -39081) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (1- (* IRONCLAD::+ED448-D+ (1+ IRONCLAD::U))) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739721559 ; -39081), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739721560 ; -39082) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739721559 ; -39081), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739721560 ; -39082) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::U IRONCLAD::V) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::U IRONCLAD::U IRONCLAD::UV) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 383984923062992702193107238768305990575971314802788874095145673202033267015866160824156542228134514790183983507016891440783606607878560120446759002880024553793796781079076555940582389267580537359243311262284327013495014833399929662539661053437671746996921499531190282669815840119244221198707642915966992579932173647238953260602561484622551570055889936319200163724829307589544003296741511201335648379207673) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 383984923062992702193107238768305990575971314802788874095145673202033267015866160824156542228134514790183983507016891440783606607878560120446759002880024553793796781079076555940582389267580537359243311262284327013495014833399929662539661053437671746996921499531190282669815840119244221198707642915966992579932173647238953260602561484622551570055889936319200163724829307589544003296741511201335648379207673) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::U3V IRONCLAD::UV IRONCLAD::UV) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 383984923062992702193107238768305990575971314802788874095145673202033267015866160824156542228134514790183983507016891440783606607878560120446759002880024553793796781079076555940582389267580537359243311262284327013495014833399929662539661053437671746996921499531190282669815840119244221198707642915966992579932173647238953260602561484622551570055889936319200163724829307589544003296741511201335648379207673) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 383984923062992702193107238768305990575971314802788874095145673202033267015866160824156542228134514790183983507016891440783606607878560120446759002880024553793796781079076555940582389267580537359243311262284327013495014833399929662539661053437671746996921499531190282669815840119244221198707642915966992579932173647238953260602561484622551570055889936319200163724829307589544003296741511201335648379207673) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::U3V ; (IRONCLAD:EXPT-MOD IRONCLAD::U5V3 (/ (- IRONCLAD::+ED448-Q+ 3) 4) ; IRONCLAD::+ED448-Q+)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD EC-ADD (ED448-POINT ED448-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::A IRONCLAD::A) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::X1 IRONCLAD::X2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Y2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::C IRONCLAD::D) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::+ED448-D+ IRONCLAD::K) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739682478 ; -39081) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739682478 ; -39081) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- IRONCLAD::B IRONCLAD::E) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::B IRONCLAD::E) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::X1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::X2 IRONCLAD::Y2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* (+ IRONCLAD::X1 IRONCLAD::Y1) (+ IRONCLAD::X2 IRONCLAD::Y2)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::A IRONCLAD::F) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::A IRONCLAD::G) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::H IRONCLAD::C IRONCLAD::D) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::I (- IRONCLAD::H IRONCLAD::C IRONCLAD::D)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (INTEGER ; -1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -1056589062271330492704679569833033213037694652072243044255921418053269422980479201469843346168891949555676434277992307502384960470195505587607667379354705268932983924615864005053696928706219547972793749003012586215908533357561963574307900580771586667654529483074625863688 ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -1056589062271330492704679569833033213037694652072243044255921418053269422980479201469843346168891949555676434277992307502384960470195505587607667379354705268932983924615864005053696928706219547972793749003012586215908533357561963574307900580771586667654529483074625863688 ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::D IRONCLAD::C) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::J (- IRONCLAD::D IRONCLAD::C)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844 ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844 ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::F IRONCLAD::G) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD EC-DOUBLE (ED448-POINT) ; (+ IRONCLAD::X1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::A IRONCLAD::A) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::X1 IRONCLAD::X1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::C IRONCLAD::D) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* 2 IRONCLAD::F) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- IRONCLAD::E (* 2 IRONCLAD::F)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 2 ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 2 ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730876 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::B IRONCLAD::E) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* (- IRONCLAD::B IRONCLAD::E) IRONCLAD::G) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844 ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844 ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::C IRONCLAD::D) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* (- IRONCLAD::C IRONCLAD::D) IRONCLAD::E) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844 ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844 ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931844) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::E IRONCLAD::G) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD EC-POINT-ON-CURVE-P (ED448-POINT) ; (* IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z IRONCLAD::Z) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::ZZ IRONCLAD::ZZ) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 528294531135665246352339784916516606518847326036121522127960709026634711490239600734921673084445974777838217138996153751192480235097752793803833689677352634466491962307932002526848464353109773986396874501506293107954266678780981787153950290385793333827264741537312931845) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::YY IRONCLAD::XX) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::ZZ (+ IRONCLAD::YY IRONCLAD::XX)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1056589062271330492704679569833033213037694652072243044255921418053269422980479201469843346168891949555676434277992307502384960470195505587607667379354705268932983924615864005053696928706219547972793749003012586215908533357561963574307900580771586667654529483074625863689) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 1453677448591213781098647615776009068707282721374636120562980398361224656333461545372792767397353091860177768923687274722106996036730877), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1056589062271330492704679569833033213037694652072243044255921418053269422980479201469843346168891949555676434277992307502384960470195505587607667379354705268932983924615864005053696928706219547972793749003012586215908533357561963574307900580771586667654529483074625863689) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::+ED448-D+ IRONCLAD::XX IRONCLAD::YY) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739682478 ; -39081) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739682478 ; -39081) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739682478 ; -39081) ; (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -20646278571312933492695791134322385499363072348817665206282832469469911159750053836321473905813233140292695364009108684750353320067855276934647624426280618307584972378956290590751764835383883077162376252393367440951960696073439549223763531298567189279303333364019726689395364 ; 0) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR ; (INTEGER ; -28405584184196612889558123736071105207074658017021077113860918474177510397084005327357057071327978091493803693653311191707331756055739682478 ; -39081) ; (INTEGER 0 0)), not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -20646278571312933492695791134322385499363072348817665206282832469469911159750053836321473905813233140292695364009108684750353320067855276934647624426280618307584972378956290590751764835383883077162376252393367440951960696073439549223763531298567189279303333364019726689395364 ; 0) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::ZZZZ (* IRONCLAD::+ED448-D+ IRONCLAD::XX IRONCLAD::YY)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (INTEGER ; -20646278571312933492695791134322385499363072348817665206282832469469911159750053836321473905813233140292695364009108684750353320067855276934647624426280618307584972378956290590751764835383883077162376252393367440951960696073439549223763531298567189279303333364019726689395364 ; 0), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -20646278571312933492695791134322385499363072348817665206282832469469911159750053836321473905813233140292695364009108684750353320067855276934647624426280618307584972378956290590751764835383883077162376252393367440951960696073439549223763531298567189279303333364019726689395364 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -20646278571312933492695791134322385499363072348817665206282832469469911159750053836321473905813233140292695364009108684750353320067855276934647624426280618307584972378956290590751764835383883077162376252393367440951960696073439549223763531298567189279303333364019726689395364 ; 0), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -20646278571312933492695791134322385499363072348817665206282832469469911159750053836321473905813233140292695364009108684750353320067855276934647624426280618307584972378956290590751764835383883077162376252393367440951960696073439549223763531298567189279303333364019726689395364 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::A IRONCLAD::B) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365439), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438 ; 726838724295606890549323807888004534353641360687318060281490199180612328166730772686396383698676545930088884461843637361053498018365438) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD EC-POINT-EQUAL (ED448-POINT ED448-POINT) ; (* IRONCLAD::X1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::X1 IRONCLAD::Z2) (* IRONCLAD::X2 IRONCLAD::Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::Y1 IRONCLAD::Z2) (* IRONCLAD::Y2 IRONCLAD::Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFUN ED448-SIGN ; (SETF (LDB (BYTE 2 0) (ELT IRONCLAD::H 0)) 0) ; --> LET DPB ; ==> ; 1 ; ; 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. ; --> LET ; ==> ; (SB-KERNEL:%SETELT #:H1 0 #:NEW0) ; ; 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. ; (SETF (LDB (BYTE 1 7) (ELT IRONCLAD::H (- # 2))) 1) ; --> LET DPB ; ==> ; 1 ; ; 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. ; --> LET ; ==> ; (SB-KERNEL:%SETELT #:H4 (- (CEILING IRONCLAD::+ED448-BITS+ 8) 2) #:NEW3) ; ; 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. ; (SETF (ELT IRONCLAD::H (- (CEILING IRONCLAD::+ED448-BITS+ 8) 1)) 0) ; ; 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. ; (SUBSEQ IRONCLAD::H 0 (CEILING IRONCLAD::+ED448-BITS+ 8)) ; ; 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. ; (SUBSEQ IRONCLAD::H (CEILING IRONCLAD::+ED448-BITS+ 8) ; (CEILING IRONCLAD::+ED448-BITS+ 4)) ; ; 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. ; (MOD (IRONCLAD:EC-DECODE-SCALAR :ED448 IRONCLAD::RH) IRONCLAD::+ED448-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (MOD ; (IRONCLAD:EC-DECODE-SCALAR :ED448 ; (IRONCLAD::ED448-HASH IRONCLAD::+ED448-DOM+ ; IRONCLAD::RP IRONCLAD::PK IRONCLAD::M)) ; IRONCLAD::+ED448-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (MOD (+ (* IRONCLAD::K IRONCLAD::A) IRONCLAD::RI) IRONCLAD::+ED448-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (SETF (LDB (BYTE 2 0) (ELT IRONCLAD::H 0)) 0) ; --> LET DPB ; ==> ; 1 ; ; 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 INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; etc. ; (SETF (LDB (BYTE 1 7) (ELT IRONCLAD::H (- # 2))) 1) ; --> LET DPB ; ==> ; 1 ; ; 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 128)) &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 128)) &OPTIONAL), not a (VALUES ; FIXNUM ; &OPTIONAL). ; etc. ; (* IRONCLAD::K IRONCLAD::A) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), 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 (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), not a (SIGNED-BYTE ; 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ (* IRONCLAD::K IRONCLAD::A) IRONCLAD::RI) ; ; 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 (OR FLOAT ; (RATIONAL 0 ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), not a FIXNUM. ; The result is a (VALUES REAL &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 (OR FLOAT ; (RATIONAL 0 ; (181709681073901722637330951972001133588410340171829515070372549795146003961539585716195755291692375963310293709091662304773755859649779))), not a SINGLE-FLOAT. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; in: DEFUN ED448-VERIFY ; (MOD ; (IRONCLAD:EC-DECODE-SCALAR :ED448 ; (IRONCLAD::ED448-HASH IRONCLAD::+ED448-DOM+ ; IRONCLAD::R IRONCLAD::PK IRONCLAD::M)) ; IRONCLAD::+ED448-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/public-key/secp256k1.lisp ; in: DEFMETHOD EC-POINT-EQUAL (SECP256K1-POINT SECP256K1-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::X1 IRONCLAD::Z2Z2) (* IRONCLAD::X2 IRONCLAD::Z1Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD EC-DOUBLE (SECP256K1-POINT) ; (* IRONCLAD::X1 IRONCLAD::X1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::B IRONCLAD::B) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::X1 IRONCLAD::B) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X1+B IRONCLAD::X1+B) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::X1+B IRONCLAD::X1+B) IRONCLAD::A IRONCLAD::C) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 (- (* IRONCLAD::X1+B IRONCLAD::X1+B) IRONCLAD::A IRONCLAD::C)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684488) ; (INTEGER ; -463168356949264781694283940034751631413079938662562256157830336031635338686648 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684488) ; (INTEGER ; -463168356949264781694283940034751631413079938662562256157830336031635338686648 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* 3 IRONCLAD::A) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 3 ; 347376267711948586270712955026063723559809953996921692118372752023726504014986) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 3 ; 347376267711948586270712955026063723559809953996921692118372752023726504014986) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::E IRONCLAD::E) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::D) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- IRONCLAD::F (* 2 IRONCLAD::D)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::D IRONCLAD::X2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::E (- IRONCLAD::D IRONCLAD::X2)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 8 IRONCLAD::C) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 8 ; 926336713898529563388567880069503262826159877325124512315660672063270677373296) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 8 ; 926336713898529563388567880069503262826159877325124512315660672063270677373296) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- (* IRONCLAD::E (- IRONCLAD::D IRONCLAD::X2)) (* 8 IRONCLAD::C)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 8 ; 926336713898529563388567880069503262826159877325124512315660672063270677373296) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383375164413683271584985493507212906901386721425290205136109296895751746246023215540 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 8 ; 926336713898529563388567880069503262826159877325124512315660672063270677373296) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383375164413683271584985493507212906901386721425290205136109296895751746246023215540 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::Y1 IRONCLAD::Z1) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)), not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER 2) (INTEGER * -2) (INTEGER 0 0)), not a (SIGNED-BYTE ; 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD EC-ADD (SECP256K1-POINT SECP256K1-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Z2 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (= IRONCLAD::U1 IRONCLAD::U2) ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; (- IRONCLAD::U2 IRONCLAD::U1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 4 IRONCLAD::H IRONCLAD::H) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 4 ; 463168356949264781694283940034751631413079938662562256157830336031635338686648) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 4 ; 463168356949264781694283940034751631413079938662562256157830336031635338686648) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR ; (INTEGER 4 ; 463168356949264781694283940034751631413079938662562256157830336031635338686648) ; (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 53631231719770388398296099992823384509917463282369573510894245774883077533496952307877492221688419757331349592495581061651520046387924940318731901383368977) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR ; (INTEGER 4 ; 463168356949264781694283940034751631413079938662562256157830336031635338686648) ; (INTEGER 0 0)), not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 53631231719770388398296099992823384509917463282369573510894245774883077533496952307877492221688419757331349592495581061651520046387924940318731901383368977) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::H IRONCLAD::I) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::S2 IRONCLAD::S1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 (- IRONCLAD::S2 IRONCLAD::S1)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::U1 IRONCLAD::I) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::R IRONCLAD::R) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::V) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -347376267711948586270712955026063723559809953996921692118372752023726504014986 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -347376267711948586270712955026063723559809953996921692118372752023726504014986 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::V IRONCLAD::X3) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::S1 IRONCLAD::J) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684489) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR ; (INTEGER 2 ; 231584178474632390847141970017375815706539969331281128078915168015817669343324) ; (INTEGER 0 0)), not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684489) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; (* 2 IRONCLAD::S1 IRONCLAD::J)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; The second argument is a (MOD ; 26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684489), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -40223423789827791298722074994617538382438097461777180133170684331162308150122714230908119166266314817998512194371685796238640034790943705239048926037526732 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684489), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -40223423789827791298722074994617538382438097461777180133170684331162308150122714230908119166266314817998512194371685796238640034790943705239048926037526732 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::Z1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; IRONCLAD::H) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684488 ; 1552518092300708935148979488462502555256886017116696611139052038025878194357327919123326904259801146902371181789763820289842428859885596960430872532398902802048848099563624248617810692556287115773373882875915134104881484722589289528) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -231584178474632390847141970017375815706539969331281128078915168015817669343324 ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842244), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -26815615859885194199148049996411692254958731641184786755447122887441538766748476153938746110844209878665674796247790530825760023193962470159365950691684488 ; 1552518092300708935148979488462502555256886017116696611139052038025878194357327919123326904259801146902371181789763820289842428859885596960430872532398902802048848099563624248617810692556287115773373882875915134104881484722589289528) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (= IRONCLAD::S1 IRONCLAD::S2) ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; in: DEFMETHOD EC-POINT-ON-CURVE-P (SECP256K1-POINT) ; (* IRONCLAD::Y IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z IRONCLAD::Z IRONCLAD::Z) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z3 IRONCLAD::Z3) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807929942597099574024998205846127479365820592393377723561443720769383374238076969373055422104939332837398123895265412880011596981235079682975345842245) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::+SECP256K1-B+ IRONCLAD::Z6) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 7 ; 810544624661213367964996895060815354972889892659483948276203088055361842701634) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 7 ; 810544624661213367964996895060815354972889892659483948276203088055361842701634) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (+ IRONCLAD::X3 (* IRONCLAD::+SECP256K1-B+ IRONCLAD::Z6)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 7 ; 810544624661213367964996895060815354972889892659483948276203088055361842701634) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 926336713898529563388567880069503262826159877325124512315660672063270677373297) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 7 ; 810544624661213367964996895060815354972889892659483948276203088055361842701634) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (MOD ; 926336713898529563388567880069503262826159877325124512315660672063270677373297) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::Y2 IRONCLAD::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089237316195423570985008687907853269984665640564039457584007908834671663), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089237316195423570985008687907853269984665640564039457584007908834671662 ; 115792089237316195423570985008687907853269984665640564039457584007908834671662) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD SIGN-MESSAGE (SECP256K1-PRIVATE-KEY T) ; (LENGTH IRONCLAD::MESSAGE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256K1-BITS+ 8)) ; ; 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. ; (SUBSEQ (IRONCLAD:EC-ENCODE-POINT IRONCLAD::R) 1 ; (1+ (/ IRONCLAD::+SECP256K1-BITS+ 8))) ; ; 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. ; (MOD IRONCLAD::R IRONCLAD::+SECP256K1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (SUBSEQ IRONCLAD::MESSAGE IRONCLAD::START IRONCLAD::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. ; (MOD (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; IRONCLAD::+SECP256K1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (ZEROP IRONCLAD::R) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (ZEROP IRONCLAD::S) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256K1-BITS+ 8)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (* IRONCLAD::SK IRONCLAD::R) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), 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 NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES 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 NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD VERIFY-SIGNATURE (SECP256K1-PUBLIC-KEY T T) ; (LENGTH IRONCLAD::SIGNATURE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH IRONCLAD::MESSAGE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256K1-BITS+ 8)) ; ; 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. ; (SUBSEQ IRONCLAD::MESSAGE IRONCLAD::START IRONCLAD::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. ; (MOD (* IRONCLAD::E IRONCLAD::W) IRONCLAD::+SECP256K1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (MOD (* IRONCLAD::R IRONCLAD::W) IRONCLAD::+SECP256K1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (SUBSEQ (IRONCLAD:EC-ENCODE-POINT IRONCLAD::RP) 1 ; (1+ (/ IRONCLAD::+SECP256K1-BITS+ 8))) ; ; 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. ; (MOD IRONCLAD::V IRONCLAD::+SECP256K1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (< IRONCLAD::R IRONCLAD::+SECP256K1-L+) ; ; 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. ; (< IRONCLAD::S IRONCLAD::+SECP256K1-L+) ; ; 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. ; (= IRONCLAD::V IRONCLAD::R) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a SINGLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (115792089237316195423570985008687907852837564279074904382605163141518161494337)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * ; (1.157920892373162d77))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a DOUBLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (115792089237316195423570985008687907852837564279074904382605163141518161494337)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * ; (1.157920892373162d77))), not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256K1-BITS+ 8)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (* IRONCLAD::E IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::R IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (= IRONCLAD::V IRONCLAD::R) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a SINGLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (115792089237316195423570985008687907852837564279074904382605163141518161494337)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * (1.157920892373162d77))), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089237316195423570985008687907852837564279074904382605163141518161494337))), not a DOUBLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (115792089237316195423570985008687907852837564279074904382605163141518161494337)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * (1.157920892373162d77))), not a DOUBLE-FLOAT. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/public-key/secp256r1.lisp ; in: DEFMETHOD EC-POINT-EQUAL (SECP256R1-POINT SECP256R1-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::X1 IRONCLAD::Z2Z2) (* IRONCLAD::X2 IRONCLAD::Z1Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD EC-DOUBLE (SECP256R1-POINT) ; (* IRONCLAD::X1 IRONCLAD::X1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::YY IRONCLAD::YY) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::X1 IRONCLAD::YY) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::Y1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X1+YY IRONCLAD::X1+YY) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::X1+YY IRONCLAD::X1+YY) IRONCLAD::XX IRONCLAD::YYYY) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 (- (* IRONCLAD::X1+YY IRONCLAD::X1+YY) IRONCLAD::XX IRONCLAD::YYYY)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205000) ; (INTEGER ; -463168356841424995050789787797630294120344573661161256782134525235468391415800 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205000) ; (INTEGER ; -463168356841424995050789787797630294120344573661161256782134525235468391415800 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::ZZ IRONCLAD::ZZ) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::XX (* IRONCLAD::ZZ IRONCLAD::ZZ)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 3 (- IRONCLAD::XX (* IRONCLAD::ZZ IRONCLAD::ZZ))) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 3 ; 347376267631068746288092340848222720590258430245870942586600893926601293561850) ; (INTEGER ; -40223423771097300003367670123973035050679398068931717577633076269386332303793874726227466822817982466316604363741688119809643966887559564864574086591807500 ; -3) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 3 ; 347376267631068746288092340848222720590258430245870942586600893926601293561850) ; (INTEGER ; -40223423771097300003367670123973035050679398068931717577633076269386332303793874726227466822817982466316604363741688119809643966887559564864574086591807500 ; -3) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::M IRONCLAD::M) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::S) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- (* IRONCLAD::M IRONCLAD::M) (* 2 IRONCLAD::S)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::S IRONCLAD::U) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::M (- IRONCLAD::S IRONCLAD::U)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 8 IRONCLAD::YYYY) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 8 ; 926336713682849990101579575595260588240689147322322513564269050470936782831600) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 8 ; 926336713682849990101579575595260588240689147322322513564269050470936782831600) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- (* IRONCLAD::M (- IRONCLAD::S IRONCLAD::U)) (* 8 IRONCLAD::YYYY)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 8 ; 926336713682849990101579575595260588240689147322322513564269050470936782831600) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101265551245456171790929429068347796715168803395750536978142750790671995632313434100 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 8 ; 926336713682849990101579575595260588240689147322322513564269050470936782831600) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101265551245456171790929429068347796715168803395750536978142750790671995632313434100 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::Y1+Z1 IRONCLAD::Y1+Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::Y1+Z1 IRONCLAD::Y1+Z1) IRONCLAD::YY IRONCLAD::ZZ) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD EC-ADD (SECP256R1-POINT SECP256R1-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Z2 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (= IRONCLAD::U1 IRONCLAD::U2) ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; (- IRONCLAD::U2 IRONCLAD::U1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 4 IRONCLAD::H IRONCLAD::H) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 4 ; 463168356841424995050789787797630294120344573661161256782134525235468391415800) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 4 ; 463168356841424995050789787797630294120344573661161256782134525235468391415800) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR ; (INTEGER 4 ; 463168356841424995050789787797630294120344573661161256782134525235468391415800) ; (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 53631231694796400004490226831964046734239197425242290103510768359181776405058499634969955763757309955088805818322250826412858622516746086486098782122410001) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR ; (INTEGER 4 ; 463168356841424995050789787797630294120344573661161256782134525235468391415800) ; (INTEGER 0 0)), not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 53631231694796400004490226831964046734239197425242290103510768359181776405058499634969955763757309955088805818322250826412858622516746086486098782122410001) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::H IRONCLAD::I) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::S2 IRONCLAD::S1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 (- IRONCLAD::S2 IRONCLAD::S1)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::U1 IRONCLAD::I) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::R IRONCLAD::R) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::V) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -347376267631068746288092340848222720590258430245870942586600893926601293561850 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -347376267631068746288092340848222720590258430245870942586600893926601293561850 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::V IRONCLAD::X3) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::S1 IRONCLAD::J) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205001) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR ; (INTEGER 2 ; 231584178420712497525394893898815147060172286830580628391067262617734195707900) ; (INTEGER 0 0)), not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205001) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; (* 2 IRONCLAD::S1 IRONCLAD::J)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The second argument is a (MOD ; 26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205001), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -40223423771097300003367670123973035050679398068931717577633076269386332303793874726227466822817982466316604363741688119809643966887559564864574086591807500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205001), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -40223423771097300003367670123973035050679398068931717577633076269386332303793874726227466822817982466316604363741688119809643966887559564864574086591807500 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::Z1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; IRONCLAD::H) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205000 ; 1552518091216287575509997016045519883874413001817462420952243358319381311981552516218821248992487553429028716151972263135050472406590473520502256999630780789960399351157211211886562356228292661589244886765074003724582584300504875000) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -231584178420712497525394893898815147060172286830580628391067262617734195707900 ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602500), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -26815615847398200002245113415982023367119598712621145051755384179590888202529249817484977881878654977544402909161125413206429311258373043243049391061205000 ; 1552518091216287575509997016045519883874413001817462420952243358319381311981552516218821248992487553429028716151972263135050472406590473520502256999630780789960399351157211211886562356228292661589244886765074003724582584300504875000) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (= IRONCLAD::S1 IRONCLAD::S2) ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; in: DEFMETHOD EC-POINT-ON-CURVE-P (SECP256R1-POINT) ; (* IRONCLAD::Y IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z IRONCLAD::Z) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::Z4 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 13407807923699100001122556707991011683559799356310572525877692089795444101264624908742488940939327488772201454580562706603214655629186521621524695530602501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* -3 IRONCLAD::X IRONCLAD::Z4) ; ; note: forced to do GENERIC-* (cost 30) ; 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 * -3) (INTEGER 3) (INTEGER 0 0)) ; &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 * -3) (INTEGER 3) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER * -3) (INTEGER 3) (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER * -3) (INTEGER 3) (INTEGER 0 0)), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::X3 (* -3 IRONCLAD::X IRONCLAD::Z4) ; (* IRONCLAD::+SECP256R1-B+ IRONCLAD::Z6)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (OR ; (INTEGER ; 41058363725152142129326129780047268409114441015993725554835256314039467401291 ; 4754233715294071753536997766098265397605321291568756963789803770565338829955226958282817707719945690448174040500929197932238602174421086657888409559449450) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (OR ; (INTEGER ; 41058363725152142129326129780047268409114441015993725554835256314039467401291 ; 4754233715294071753536997766098265397605321291568756963789803770565338829955226958282817707719945690448174040500929197932238602174421086657888409559449450) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- IRONCLAD::Y2 IRONCLAD::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 115792089210356248762697446949407573530086143415290314195533631308867097853951), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -115792089210356248762697446949407573530086143415290314195533631308867097853950 ; 115792089210356248762697446949407573530086143415290314195533631308867097853950) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD SIGN-MESSAGE (SECP256R1-PRIVATE-KEY T) ; (LENGTH IRONCLAD::MESSAGE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256R1-BITS+ 8)) ; ; 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. ; (SUBSEQ (IRONCLAD:EC-ENCODE-POINT IRONCLAD::R) 1 ; (1+ (/ IRONCLAD::+SECP256R1-BITS+ 8))) ; ; 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. ; (MOD IRONCLAD::R IRONCLAD::+SECP256R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (SUBSEQ IRONCLAD::MESSAGE IRONCLAD::START IRONCLAD::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. ; (MOD (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; IRONCLAD::+SECP256R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (ZEROP IRONCLAD::R) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (ZEROP IRONCLAD::S) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256R1-BITS+ 8)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (* IRONCLAD::SK IRONCLAD::R) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), 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 NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES 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 NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD VERIFY-SIGNATURE (SECP256R1-PUBLIC-KEY T T) ; (LENGTH IRONCLAD::SIGNATURE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH IRONCLAD::MESSAGE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256R1-BITS+ 8)) ; ; 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. ; (SUBSEQ IRONCLAD::MESSAGE IRONCLAD::START IRONCLAD::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. ; (MOD (* IRONCLAD::E IRONCLAD::W) IRONCLAD::+SECP256R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (MOD (* IRONCLAD::R IRONCLAD::W) IRONCLAD::+SECP256R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (SUBSEQ (IRONCLAD:EC-ENCODE-POINT IRONCLAD::RP) 1 ; (1+ (/ IRONCLAD::+SECP256R1-BITS+ 8))) ; ; 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. ; (MOD IRONCLAD::V IRONCLAD::+SECP256R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (< IRONCLAD::R IRONCLAD::+SECP256R1-L+) ; ; 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. ; (< IRONCLAD::S IRONCLAD::+SECP256R1-L+) ; ; 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. ; (= IRONCLAD::V IRONCLAD::R) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a SINGLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (115792089210356248762697446949407573529996955224135760342422259061068512044369)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * ; (1.1579208921035625d77))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a DOUBLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (115792089210356248762697446949407573529996955224135760342422259061068512044369)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * ; (1.1579208921035625d77))), not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP256R1-BITS+ 8)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (* IRONCLAD::E IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::R IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (= IRONCLAD::V IRONCLAD::R) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a SINGLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (115792089210356248762697446949407573529996955224135760342422259061068512044369)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * (1.1579208921035625d77))), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (115792089210356248762697446949407573529996955224135760342422259061068512044369))), not a DOUBLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (115792089210356248762697446949407573529996955224135760342422259061068512044369)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * (1.1579208921035625d77))), not a DOUBLE-FLOAT. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/public-key/secp384r1.lisp ; in: DEFMETHOD EC-POINT-EQUAL (SECP384R1-POINT SECP384R1-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::X1 IRONCLAD::Z2Z2) (* IRONCLAD::X2 IRONCLAD::Z1Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD EC-DOUBLE (SECP384R1-POINT) ; (* IRONCLAD::X1 IRONCLAD::X1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::YY IRONCLAD::YY) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::X1 IRONCLAD::YY) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::Y1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X1+YY IRONCLAD::X1+YY) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::X1+YY IRONCLAD::X1+YY) IRONCLAD::XX IRONCLAD::YYYY) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 (- (* IRONCLAD::X1+YY IRONCLAD::X1+YY) IRONCLAD::XX IRONCLAD::YYYY)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666248) ; (INTEGER ; -157608024785577916849116160400574455220318957081861786671793173616982887085987481316189064353035752007446427892449272 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666248) ; (INTEGER ; -157608024785577916849116160400574455220318957081861786671793173616982887085987481316189064353035752007446427892449272 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::ZZ IRONCLAD::ZZ) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::XX (* IRONCLAD::ZZ IRONCLAD::ZZ)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 3 (- IRONCLAD::XX (* IRONCLAD::ZZ IRONCLAD::ZZ))) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 3 ; 118206018589183437636837120300430841415239217811396340003844880212737165314490610987141798264776814005584820919336954) ; (INTEGER ; -4657554276902126805446938465387507665770658051350089833417156114078152858059050212145036840412040093748086682813217173423530327591384702966601351005412722431777478597450618859688861730941493532175219467651189956725220018998329999372 ; -3) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 3 ; 118206018589183437636837120300430841415239217811396340003844880212737165314490610987141798264776814005584820919336954) ; (INTEGER ; -4657554276902126805446938465387507665770658051350089833417156114078152858059050212145036840412040093748086682813217173423530327591384702966601351005412722431777478597450618859688861730941493532175219467651189956725220018998329999372 ; -3) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::M IRONCLAD::M) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::S) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- (* IRONCLAD::M IRONCLAD::M) (* 2 IRONCLAD::S)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::S IRONCLAD::U) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::M (- IRONCLAD::S IRONCLAD::U)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 8 IRONCLAD::YYYY) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 8 ; 315216049571155833698232320801148910440637914163723573343586347233965774171974962632378128706071504014892855784898544) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 8 ; 315216049571155833698232320801148910440637914163723573343586347233965774171974962632378128706071504014892855784898544) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- (* IRONCLAD::M (- IRONCLAD::S IRONCLAD::U)) (* 8 IRONCLAD::YYYY)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 8 ; 315216049571155833698232320801148910440637914163723573343586347233965774171974962632378128706071504014892855784898544) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072706357226347019628599221187918150714681448506656589390216539576854542754669819021038867345769390412421565855228231668 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 8 ; 315216049571155833698232320801148910440637914163723573343586347233965774171974962632378128706071504014892855784898544) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072706357226347019628599221187918150714681448506656589390216539576854542754669819021038867345769390412421565855228231668 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::Y1+Z1 IRONCLAD::Y1+Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::Y1+Z1 IRONCLAD::Y1+Z1) IRONCLAD::YY IRONCLAD::ZZ) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD EC-ADD (SECP384R1-POINT SECP384R1-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Z2 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (= IRONCLAD::U1 IRONCLAD::U2) ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; (- IRONCLAD::U2 IRONCLAD::U1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 4 IRONCLAD::H IRONCLAD::H) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 4 ; 157608024785577916849116160400574455220318957081861786671793173616982887085987481316189064353035752007446427892449272) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 4 ; 157608024785577916849116160400574455220318957081861786671793173616982887085987481316189064353035752007446427892449272) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR ; (INTEGER 4 ; 157608024785577916849116160400574455220318957081861786671793173616982887085987481316189064353035752007446427892449272) ; (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 6210072369202835740595917953850010221027544068466786444556208152104203810745400282860049120549386791664115577084289564564707103455179603955468468007216963242369971463267491812918482307921991376233625956868253275633626691997773332497) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR ; (INTEGER 4 ; 157608024785577916849116160400574455220318957081861786671793173616982887085987481316189064353035752007446427892449272) ; (INTEGER 0 0)), not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 6210072369202835740595917953850010221027544068466786444556208152104203810745400282860049120549386791664115577084289564564707103455179603955468468007216963242369971463267491812918482307921991376233625956868253275633626691997773332497) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::H IRONCLAD::I) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::S2 IRONCLAD::S1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 (- IRONCLAD::S2 IRONCLAD::S1)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::U1 IRONCLAD::I) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::R IRONCLAD::R) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::V) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -118206018589183437636837120300430841415239217811396340003844880212737165314490610987141798264776814005584820919336954 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -118206018589183437636837120300430841415239217811396340003844880212737165314490610987141798264776814005584820919336954 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::V IRONCLAD::X3) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::S1 IRONCLAD::J) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666249) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR ; (INTEGER 2 ; 78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636) ; (INTEGER 0 0)), not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666249) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; (* 2 IRONCLAD::S1 IRONCLAD::J)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The second argument is a (MOD ; 3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666249), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -4657554276902126805446938465387507665770658051350089833417156114078152858059050212145036840412040093748086682813217173423530327591384702966601351005412722431777478597450618859688861730941493532175219467651189956725220018998329999372 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666249), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -4657554276902126805446938465387507665770658051350089833417156114078152858059050212145036840412040093748086682813217173423530327591384702966601351005412722431777478597450618859688861730941493532175219467651189956725220018998329999372 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::Z1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; IRONCLAD::H) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666248 ; 61172327492847069472032393719205726809135813743440799050195397570919697796090373438193087932951745364335411418754192158027371883482871393221879462331321106336775708560918647649541641604232637072055046695989901089216659016884039006326354228973932344229259162402188271721529352380657325954679977318277520211348882541876885333111266759951749941821432) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -78804012392788958424558080200287227610159478540930893335896586808491443542993740658094532176517876003723213946224636 ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333124), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -3105036184601417870297958976925005110513772034233393222278104076052101905372700141430024560274693395832057788542144782282353551727589801977734234003608481621184985731633745906459241153960995688116812978434126637816813345998886666248 ; 61172327492847069472032393719205726809135813743440799050195397570919697796090373438193087932951745364335411418754192158027371883482871393221879462331321106336775708560918647649541641604232637072055046695989901089216659016884039006326354228973932344229259162402188271721529352380657325954679977318277520211348882541876885333111266759951749941821432) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (= IRONCLAD::S1 IRONCLAD::S2) ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; in: DEFMETHOD EC-POINT-ON-CURVE-P (SECP384R1-POINT) ; (* IRONCLAD::Y IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z IRONCLAD::Z) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::Z4 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 1552518092300708935148979488462502555256886017116696611139052038026050952686350070715012280137346697916028894271072391141176775863794900988867117001804240810592492865816872953229620576980497844058406489217063318908406672999443333125) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* -3 IRONCLAD::X IRONCLAD::Z4) ; ; note: forced to do GENERIC-* (cost 30) ; 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 * -3) (INTEGER 3) (INTEGER 0 0)) ; &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 * -3) (INTEGER 3) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER * -3) (INTEGER 3) (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER * -3) (INTEGER 3) (INTEGER 0 0)), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::X3 (* -3 IRONCLAD::X IRONCLAD::Z4) ; (* IRONCLAD::+SECP384R1-B+ IRONCLAD::Z6)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (OR ; (INTEGER ; 27580193559959705877849011840389048093056905856361568521428707301988689241309860865136260764883745107765439761230575 ; 1086714957547291441539380743186883691325052640168535502985634527585716824737423997330458424652672228621187160777634281319450819776407920055319325979067815022545612052681671576296126271714236782641033750695114220282292143901370722850) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (OR ; (INTEGER ; 27580193559959705877849011840389048093056905856361568521428707301988689241309860865136260764883745107765439761230575 ; 1086714957547291441539380743186883691325052640168535502985634527585716824737423997330458424652672228621187160777634281319450819776407920055319325979067815022545612052681671576296126271714236782641033750695114220282292143901370722850) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- IRONCLAD::Y2 IRONCLAD::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112319), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318 ; 39402006196394479212279040100143613805079739270465446667948293404245721771496870329047266088258938001861606973112318) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD SIGN-MESSAGE (SECP384R1-PRIVATE-KEY T) ; (LENGTH IRONCLAD::MESSAGE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP384R1-BITS+ 8)) ; ; 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. ; (SUBSEQ (IRONCLAD:EC-ENCODE-POINT IRONCLAD::R) 1 ; (1+ (/ IRONCLAD::+SECP384R1-BITS+ 8))) ; ; 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. ; (MOD IRONCLAD::R IRONCLAD::+SECP384R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (SUBSEQ IRONCLAD::MESSAGE IRONCLAD::START IRONCLAD::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. ; (MOD (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; IRONCLAD::+SECP384R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (ZEROP IRONCLAD::R) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (ZEROP IRONCLAD::S) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP384R1-BITS+ 8)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (* IRONCLAD::SK IRONCLAD::R) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), 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 NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES 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 NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD VERIFY-SIGNATURE (SECP384R1-PUBLIC-KEY T T) ; (LENGTH IRONCLAD::SIGNATURE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH IRONCLAD::MESSAGE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP384R1-BITS+ 8)) ; ; 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. ; (SUBSEQ IRONCLAD::MESSAGE IRONCLAD::START IRONCLAD::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. ; (MOD (* IRONCLAD::E IRONCLAD::W) IRONCLAD::+SECP384R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (MOD (* IRONCLAD::R IRONCLAD::W) IRONCLAD::+SECP384R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (SUBSEQ (IRONCLAD:EC-ENCODE-POINT IRONCLAD::RP) 1 ; (1+ (/ IRONCLAD::+SECP384R1-BITS+ 8))) ; ; 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. ; (MOD IRONCLAD::V IRONCLAD::+SECP384R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (< IRONCLAD::R IRONCLAD::+SECP384R1-L+) ; ; 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. ; (< IRONCLAD::S IRONCLAD::+SECP384R1-L+) ; ; 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. ; (= IRONCLAD::V IRONCLAD::R) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a SINGLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * ; (3.940200619639448d115))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a DOUBLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * ; (3.940200619639448d115))), not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (/ IRONCLAD::+SECP384R1-BITS+ 8)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (* IRONCLAD::E IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::R IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (= IRONCLAD::V IRONCLAD::R) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a SINGLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * (3.940200619639448d115))), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643))), not a DOUBLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (39402006196394479212279040100143613805079739270465446667946905279627659399113263569398956308152294913554433653942643)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * (3.940200619639448d115))), not a DOUBLE-FLOAT. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/ironclad-v0.59/src/public-key/secp521r1.lisp ; in: DEFMETHOD EC-POINT-EQUAL (SECP521R1-POINT SECP521R1-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::X1 IRONCLAD::Z2Z2) (* IRONCLAD::X2 IRONCLAD::Z1Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- (* IRONCLAD::Y1 IRONCLAD::Z2Z2 IRONCLAD::Z2) ; (* IRONCLAD::Y2 IRONCLAD::Z1Z1 IRONCLAD::Z1)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD EC-DOUBLE (SECP521R1-POINT) ; (* IRONCLAD::X1 IRONCLAD::X1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Y1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::YY IRONCLAD::YY) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::X1 IRONCLAD::YY) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::Y1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X1+YY IRONCLAD::X1+YY) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::X1+YY IRONCLAD::X1+YY) IRONCLAD::XX IRONCLAD::YYYY) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 (- (* IRONCLAD::X1+YY IRONCLAD::X1+YY) IRONCLAD::XX IRONCLAD::YYYY)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245000) ; (INTEGER ; -27459190640522438859927603196325572869077741200573221637577853836742172733590624208490238562645818219909185245565923432148487951998866575250296113164460228600 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245000) ; (INTEGER ; -27459190640522438859927603196325572869077741200573221637577853836742172733590624208490238562645818219909185245565923432148487951998866575250296113164460228600 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::ZZ IRONCLAD::ZZ) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::XX (* IRONCLAD::ZZ IRONCLAD::ZZ)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 3 (- IRONCLAD::XX (* IRONCLAD::ZZ IRONCLAD::ZZ))) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 1) because: ; The first argument is a (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 3 ; 20594392980391829144945702397244179651808305900429916228183390377556629550192968156367678921984363664931888934174442574111365963999149931437722084873345171450) ; (INTEGER ; -141376340743604082394737293980259429930865287150355604260858165585038023699071733438382193237615603368161533398775019621050317355468259293260294990572662914500279188040336496737030097576470449683316503330454450344065363007189429568031419809878128157839393409091144834999667896072426624256444553198130698343298367500 ; -3) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 3 ; 20594392980391829144945702397244179651808305900429916228183390377556629550192968156367678921984363664931888934174442574111365963999149931437722084873345171450) ; (INTEGER ; -141376340743604082394737293980259429930865287150355604260858165585038023699071733438382193237615603368161533398775019621050317355468259293260294990572662914500279188040336496737030097576470449683316503330454450344065363007189429568031419809878128157839393409091144834999667896072426624256444553198130698343298367500 ; -3) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::M IRONCLAD::M) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::S) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- (* IRONCLAD::M IRONCLAD::M) (* 2 IRONCLAD::S)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::S IRONCLAD::U) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::M (- IRONCLAD::S IRONCLAD::U)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 8 IRONCLAD::YYYY) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 8 ; 54918381281044877719855206392651145738155482401146443275155707673484345467181248416980477125291636439818370491131846864296975903997733150500592226328920457200) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 8 ; 54918381281044877719855206392651145738155482401146443275155707673484345467181248416980477125291636439818370491131846864296975903997733150500592226328920457200) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- (* IRONCLAD::M (- IRONCLAD::S IRONCLAD::U)) (* 8 IRONCLAD::YYYY)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 8 ; 54918381281044877719855206392651145738155482401146443275155707673484345467181248416980477125291636439818370491131846864296975903997733150500592226328920457200) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304888344777294490376632198572251474628965927650177964593389844162009214155323191721686939853177904767576182085436131736162987784778749881334899969125776686579700 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 8 ; 54918381281044877719855206392651145738155482401146443275155707673484345467181248416980477125291636439818370491131846864296975903997733150500592226328920457200) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304888344777294490376632198572251474628965927650177964593389844162009214155323191721686939853177904767576182085436131736162987784778749881334899969125776686579700 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::Y1+Z1 IRONCLAD::Y1+Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::Y1+Z1 IRONCLAD::Y1+Z1) IRONCLAD::YY IRONCLAD::ZZ) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD EC-ADD (SECP521R1-POINT SECP521R1-POINT) ; (* IRONCLAD::Z1 IRONCLAD::Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X2 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y1 IRONCLAD::Z2 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Y2 IRONCLAD::Z1 IRONCLAD::Z1Z1) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (= IRONCLAD::U1 IRONCLAD::U2) ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; (- IRONCLAD::U2 IRONCLAD::U1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 4 IRONCLAD::H IRONCLAD::H) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 4 ; 27459190640522438859927603196325572869077741200573221637577853836742172733590624208490238562645818219909185245565923432148487951998866575250296113164460228600) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 4 ; 27459190640522438859927603196325572869077741200573221637577853836742172733590624208490238562645818219909185245565923432148487951998866575250296113164460228600) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR ; (INTEGER 4 ; 27459190640522438859927603196325572869077741200573221637577853836742172733590624208490238562645818219909185245565923432148487951998866575250296113164460228600) ; (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 188501787658138776526316391973679239907820382867140805681144220780050698265428977917842924316820804490882044531700026161400423140624345724347059987430217219333705584053781995649373463435293932911088671107272600458753817342919239424041893079837504210452524545454859779999557194763235499008592737597507597791064490001) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR ; (INTEGER 4 ; 27459190640522438859927603196325572869077741200573221637577853836742172733590624208490238562645818219909185245565923432148487951998866575250296113164460228600) ; (INTEGER 0 0)), not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 188501787658138776526316391973679239907820382867140805681144220780050698265428977917842924316820804490882044531700026161400423140624345724347059987430217219333705584053781995649373463435293932911088671107272600458753817342919239424041893079837504210452524545454859779999557194763235499008592737597507597791064490001) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::H IRONCLAD::I) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::S2 IRONCLAD::S1) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 (- IRONCLAD::S2 IRONCLAD::S1)) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; -2) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (* IRONCLAD::U1 IRONCLAD::I) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::R IRONCLAD::R) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::V) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; (- (* IRONCLAD::R IRONCLAD::R) IRONCLAD::J (* 2 IRONCLAD::V)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The second argument is a (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -20594392980391829144945702397244179651808305900429916228183390377556629550192968156367678921984363664931888934174442574111365963999149931437722084873345171450 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES ; (INTEGER ; -20594392980391829144945702397244179651808305900429916228183390377556629550192968156367678921984363664931888934174442574111365963999149931437722084873345171450 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- IRONCLAD::V IRONCLAD::X3) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* 2 IRONCLAD::S1 IRONCLAD::J) ; ; note: forced to do full call ; unable to do inline ASH (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline ASH (cost 3) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245001) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR ; (INTEGER 2 ; 13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300) ; (INTEGER 0 0)), not a (SIGNED-BYTE 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245001) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::R (- IRONCLAD::V IRONCLAD::X3)) ; (* 2 IRONCLAD::S1 IRONCLAD::J)) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The second argument is a (MOD ; 94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245001), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -141376340743604082394737293980259429930865287150355604260858165585038023699071733438382193237615603368161533398775019621050317355468259293260294990572662914500279188040336496737030097576470449683316503330454450344065363007189429568031419809878128157839393409091144834999667896072426624256444553198130698343298367500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245001), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -141376340743604082394737293980259429930865287150355604260858165585038023699071733438382193237615603368161533398775019621050317355468259293260294990572662914500279188040336496737030097576470449683316503330454450344065363007189429568031419809878128157839393409091144834999667896072426624256444553198130698343298367500 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (+ IRONCLAD::Z1 IRONCLAD::Z2) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* (- (* IRONCLAD::Z1+Z2 IRONCLAD::Z1+Z2) IRONCLAD::Z1Z1 IRONCLAD::Z2Z2) ; IRONCLAD::H) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245000 ; 323506657711507029453181996836191423905396619463411038446198094561650090834658129016932671774513214895603258054623797825080015583482483484232107124273991285595557946679886497826749103320711322052528368706114976541287213729802118735079263806492268073748703604020759669694249097481800780470115074570825703566287612472605957916899534347533818426664998835338294071500789521188679927290659570626952894517682587436359707625191202872228989641967995942405768892668191421400875000) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (INTEGER ; -13729595320261219429963801598162786434538870600286610818788926918371086366795312104245119281322909109954592622782961716074243975999433287625148056582230114300 ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122500), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -94250893829069388263158195986839619953910191433570402840572110390025349132714488958921462158410402245441022265850013080700211570312172862173529993715108609666852792026890997824686731717646966455544335553636300229376908671459619712020946539918752105226262272727429889999778597381617749504296368798753798895532245000 ; 323506657711507029453181996836191423905396619463411038446198094561650090834658129016932671774513214895603258054623797825080015583482483484232107124273991285595557946679886497826749103320711322052528368706114976541287213729802118735079263806492268073748703604020759669694249097481800780470115074570825703566287612472605957916899534347533818426664998835338294071500789521188679927290659570626952894517682587436359707625191202872228989641967995942405768892668191421400875000) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (= IRONCLAD::S1 IRONCLAD::S2) ; ; note: forced to do %EQL/INTEGER2 (cost 10) ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; in: DEFMETHOD EC-POINT-ON-CURVE-P (SECP521R1-POINT) ; (* IRONCLAD::Y IRONCLAD::Y) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::X IRONCLAD::X IRONCLAD::X) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z IRONCLAD::Z) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (SIGNED-BYTE 64). ; The second argument is a INTEGER, not a (SIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::Z2 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* IRONCLAD::Z4 IRONCLAD::Z2) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES ; (MOD ; 47125446914534694131579097993419809976955095716785201420286055195012674566357244479460731079205201122720511132925006540350105785156086431086764996857554304833426396013445498912343365858823483227772167776818150114688454335729809856010473269959376052613131136363714944999889298690808874752148184399376899447766122501) ; &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) &OPTIONAL). ; etc. ; (* -3 IRONCLAD::X IRONCLAD::Z4) ; ; note: forced to do GENERIC-* (cost 30) ; 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 * -3) (INTEGER 3) (INTEGER 0 0)) ; &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 * -3) (INTEGER 3) (INTEGER 0 0)) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (OR (INTEGER * -3) (INTEGER 3) (INTEGER 0 0)), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a (OR (INTEGER * -3) (INTEGER 3) (INTEGER 0 0)), not a (SIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::X3 (* -3 IRONCLAD::X IRONCLAD::Z4) ; (* IRONCLAD::+SECP521R1-B+ IRONCLAD::Z6)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a INTEGER, not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The second argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a INTEGER, not a FIXNUM. ; The second argument is a (OR ; (INTEGER ; 1093849038073734274511112390766805569936207598951683748994586394495953116150735016013708737573759623248592132296706313309438452531591012912142327488478985984 ; 7509052317104689266221718773197879358824997841303921778022934628560891681178716185992316901383281939388722899667008339423247323322262598318844851232229404578616146770570011358819916291506176207588497241970009430275979183224789671278182396703835216413712162605475020184622768221244312921726542116999523306208985600) ; (INTEGER 0 0)), not a FIXNUM. ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES FIXNUM ; &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a INTEGER, not a (UNSIGNED-BYTE 64). ; The second argument is a (OR ; (INTEGER ; 1093849038073734274511112390766805569936207598951683748994586394495953116150735016013708737573759623248592132296706313309438452531591012912142327488478985984 ; 7509052317104689266221718773197879358824997841303921778022934628560891681178716185992316901383281939388722899667008339423247323322262598318844851232229404578616146770570011358819916291506176207588497241970009430275979183224789671278182396703835216413712162605475020184622768221244312921726542116999523306208985600) ; (INTEGER 0 0)), not a (UNSIGNED-BYTE 64). ; The result is a (VALUES INTEGER &OPTIONAL), not a (VALUES ; (UNSIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (- IRONCLAD::Y2 IRONCLAD::A) ; ; note: forced to do GENERIC-- (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a FIXNUM. ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (unsigned-byte 64) arithmetic (cost 4) because: ; The first argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The second argument is a (MOD ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151), not a (UNSIGNED-BYTE ; 64). ; The result is a (VALUES ; (INTEGER ; -6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150 ; 6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057150) ; &OPTIONAL), not a (VALUES (UNSIGNED-BYTE 64) &OPTIONAL). ; etc. ; in: DEFMETHOD SIGN-MESSAGE (SECP521R1-PRIVATE-KEY T) ; (LENGTH IRONCLAD::MESSAGE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (CEILING IRONCLAD::+SECP521R1-BITS+ 8)) ; ; 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. ; (SUBSEQ (IRONCLAD:EC-ENCODE-POINT IRONCLAD::R) 1 ; (1+ (CEILING IRONCLAD::+SECP521R1-BITS+ 8))) ; ; 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. ; (MOD IRONCLAD::R IRONCLAD::+SECP521R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (SUBSEQ IRONCLAD::MESSAGE IRONCLAD::START IRONCLAD::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. ; (MOD (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; IRONCLAD::+SECP521R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (ZEROP IRONCLAD::R) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (ZEROP IRONCLAD::S) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a SINGLE-FLOAT. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a DOUBLE-FLOAT. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (CEILING IRONCLAD::+SECP521R1-BITS+ 8)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (* IRONCLAD::SK IRONCLAD::R) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), 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 NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a (SIGNED-BYTE ; 64). ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R)) ; ; note: forced to do GENERIC-+ (cost 10) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES 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 NUMBER, not a SINGLE-FLOAT. ; The result is a (VALUES NUMBER &OPTIONAL), not a (VALUES SINGLE-FLOAT ; &OPTIONAL). ; etc. ; (* IRONCLAD::INVK (+ IRONCLAD::E (* IRONCLAD::SK IRONCLAD::R))) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; in: DEFMETHOD VERIFY-SIGNATURE (SECP521R1-PUBLIC-KEY T T) ; (LENGTH IRONCLAD::SIGNATURE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (LENGTH IRONCLAD::MESSAGE) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a SEQUENCE, not a VECTOR. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (CEILING IRONCLAD::+SECP521R1-BITS+ 8)) ; ; 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. ; (SUBSEQ IRONCLAD::MESSAGE IRONCLAD::START IRONCLAD::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. ; (MOD (* IRONCLAD::E IRONCLAD::W) IRONCLAD::+SECP521R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (MOD (* IRONCLAD::R IRONCLAD::W) IRONCLAD::+SECP521R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (SUBSEQ (IRONCLAD:EC-ENCODE-POINT IRONCLAD::RP) 1 ; (1+ (CEILING IRONCLAD::+SECP521R1-BITS+ 8))) ; ; 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. ; (MOD IRONCLAD::V IRONCLAD::+SECP521R1-L+) ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a SINGLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a DOUBLE-FLOAT. ; ; note: unable to ; optimize ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; ; note: unable to ; convert division by 2^k to shift ; due to type uncertainty: ; The first argument is a REAL, not a INTEGER. ; (< IRONCLAD::R IRONCLAD::+SECP521R1-L+) ; ; 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. ; (< IRONCLAD::S IRONCLAD::+SECP521R1-L+) ; ; 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. ; (= IRONCLAD::V IRONCLAD::R) ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a SINGLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * ; (6.86479766013061d156))), not a RATIONAL. ; ; note: unable to ; open-code FLOAT to RATIONAL comparison ; due to type uncertainty: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a DOUBLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * ; (6.86479766013061d156))), not a RATIONAL. ; ; note: unable to open code because: The operands might not be the same type. ; (MIN (OR IRONCLAD::END (LENGTH IRONCLAD::MESSAGE)) ; (CEILING IRONCLAD::+SECP521R1-BITS+ 8)) ; ; note: forced to do GENERIC-> (cost 10) ; unable to do inline fixnum comparison (cost 3) because: ; The first argument is a REAL, not a FIXNUM. ; unable to do inline fixnum comparison (cost 4) because: ; The first argument is a REAL, not a FIXNUM. ; etc. ; (* IRONCLAD::E IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (* IRONCLAD::R IRONCLAD::W) ; ; note: forced to do GENERIC-* (cost 30) ; unable to do inline fixnum arithmetic (cost 2) because: ; The first argument is a NUMBER, not a FIXNUM. ; The second argument is a NUMBER, not a FIXNUM. ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES FIXNUM &OPTIONAL). ; unable to do inline (signed-byte 64) arithmetic (cost 4) because: ; The first argument is a NUMBER, not a (SIGNED-BYTE 64). ; The second argument is a NUMBER, not a (SIGNED-BYTE 64). ; The result is a (VALUES REAL &OPTIONAL), not a (VALUES (SIGNED-BYTE 64) ; &OPTIONAL). ; etc. ; (= IRONCLAD::V IRONCLAD::R) ; ; note: forced to do GENERIC-= (cost 10) ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a SINGLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * (6.86479766013061d156))), not a SINGLE-FLOAT. ; unable to do inline float comparison (cost 3) because: ; The first argument is a (OR FLOAT ; (RATIONAL 0 ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449))), not a DOUBLE-FLOAT. ; The second argument is a (OR ; (RATIONAL * ; (6864797660130609714981900799081393217269435300143305409394463459185543183397655394245057746333217197532963996371363321113864768612440380340372808892707005449)) ; SINGLE-FLOAT ; (DOUBLE-FLOAT * (6.86479766013061d156))), not a DOUBLE-FLOAT. ; file: /home/buildozer/aports/testing/lem/src/qlot/.bundle-libs/software/archive-20160318-git/compat.lisp ; in: DEFINE-FILE-TYPE-TEST (FUN UNIX-NAME MASK) ; (ARCHIVE::DEFINE-FILE-TYPE-TEST ; (ARCHIVE::FUN ARCHIVE::UNIX-NAME ARCHIVE::MASK) ; (DECLARE (IGNORABLE ARCHIVE::MASK)) ; `(DEFUN ,ARCHIVE::FUN (ARCHIVE::MODE) ; (FLET ((ARCHIVE::STAT-FILE-TYPE # ; #)) ; (= (ARCHIVE::STAT-FILE-TYPE ARCHIVE::MODE) ,ARCHIVE::MASK)))) ; --> SB-INT:BINDING* ; ==> ; (LET* ((#:G0 ; (SB-C::CHECK-DS-LIST (CDR #:EXPR) 3 3 ; '(# ARCHIVE::FUN ARCHIVE::UNIX-NAME ; ARCHIVE::MASK))) ; (ARCHIVE::FUN (POP #:G0)) ; (ARCHIVE::UNIX-NAME (POP #:G0)) ; (ARCHIVE::MASK (POP #:G0))) ; (DECLARE ; (SB-C::CONSTANT-VALUE ARCHIVE::FUN ARCHIVE::UNIX-NAME ARCHIVE::MASK) ; (IGNORABLE ARCHIVE::MASK)) ; (DECLARE ; (SB-C::SOURCE-FORM ; (ARCHIVE::DEFINE-FILE-TYPE-TEST ; (ARCHIVE::FUN ARCHIVE::UNIX-NAME ARCHIVE::MASK) (DECLARE #) ; `(DEFUN ,ARCHIVE::FUN # #)))) ; (BLOCK ARCHIVE::DEFINE-FILE-TYPE-TEST ; `(DEFUN ,ARCHIVE::FUN (ARCHIVE::MODE) ; (FLET (#) ; (= # ,ARCHIVE::MASK))))) ; ; caught STYLE-WARNING: ; The variable UNIX-NAME is defined but never used. ; ; compilation unit finished ; caught 2 STYLE-WARNING conditions ; printed 1551 notes Installing Quicklisp to /home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/... Reading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/qlfile'... ● [ 1/11] rove ● [ 2/11] cl-sdl2-image ● [ 3/11] quicklisp ● [ 4/11] lem-base16-themes ● [ 1/11] rove Installing "rove". ● [ 3/11] quicklisp Installing "quicklisp". ● [ 2/11] cl-sdl2-image Installing "cl-sdl2-image". ● [ 3/11] quicklisp Determining the distinfo URL. ● [ 4/11] lem-base16-themes Installing "lem-base16-themes". ● [ 1/11] rove Determining the project version. ● [ 1/11] rove Writing the distinfo. ● [ 4/11] lem-base16-themes Determining the project version. ● [ 4/11] lem-base16-themes Writing the distinfo. ● [ 2/11] cl-sdl2-image Determining the project version. ● [ 2/11] cl-sdl2-image Writing the distinfo. ● [ 1/11] rove Running git clone. ● [ 4/11] lem-base16-themes Running git clone. ● [ 2/11] cl-sdl2-image Running git clone. ● [ 3/11] quicklisp Fetching the distinfo. ● [ 3/11] quicklisp Generated dist files. ● [ 3/11] quicklisp Installing the new dist. βœ“ [ 3/11] quicklisp Newly installed "quicklisp" version "2023-06-18". ● [ 5/11] micros ● [ 5/11] micros Installing "micros". ● [ 5/11] micros Determining the project version. ● [ 5/11] micros Writing the distinfo. ● [ 5/11] micros Running git clone. ● [ 4/11] lem-base16-themes Creating a tarball. ● [ 4/11] lem-base16-themes Writing metadata files. ● [ 4/11] lem-base16-themes Generated dist files. ● [ 4/11] lem-base16-themes Installing the new dist. ● [ 4/11] lem-base16-themes Getting the list of releases. ● [ 4/11] lem-base16-themes Installing a new release "lem-base16-themes". βœ“ [ 4/11] lem-base16-themes Newly installed "lem-base16-themes" version "git-07dacae6c1807beaeffc730063b54487d5c82eb0". ● [ 6/11] async-process ● [ 6/11] async-process Installing "async-process". ● [ 6/11] async-process Determining the project version. ● [ 6/11] async-process Writing the distinfo. ● [ 6/11] async-process Running git clone. ● [ 1/11] rove Creating a tarball. ● [ 1/11] rove Writing metadata files. ● [ 1/11] rove Generated dist files. ● [ 1/11] rove Installing the new dist. ● [ 1/11] rove Getting the list of releases. ● [ 1/11] rove Installing a new release "rove". βœ“ [ 1/11] rove Newly installed "rove" version "git-f168cd177b5f83f171dd970dc1a9abb6eb43f044". ● [ 7/11] cl-sdl2 ● [ 7/11] cl-sdl2 Installing "cl-sdl2". ● [ 7/11] cl-sdl2 Determining the project version. ● [ 7/11] cl-sdl2 Writing the distinfo. ● [ 7/11] cl-sdl2 Running git clone. ● [ 2/11] cl-sdl2-image Creating a tarball. ● [ 5/11] micros Creating a tarball. ● [ 5/11] micros Writing metadata files. ● [ 5/11] micros Generated dist files. ● [ 5/11] micros Installing the new dist. ● [ 5/11] micros Getting the list of releases. ● [ 5/11] micros Installing a new release "micros". ● [ 6/11] async-process Creating a tarball. βœ“ [ 5/11] micros Newly installed "micros" version "git-994d4d67467ec1b6eddacad9dba385b42101679e". ● [ 8/11] lem-mailbox ● [ 8/11] lem-mailbox Installing "lem-mailbox". ● [ 8/11] lem-mailbox Determining the project version. ● [ 8/11] lem-mailbox Writing the distinfo. ● [ 8/11] lem-mailbox Running git clone. ● [ 6/11] async-process Writing metadata files. ● [ 6/11] async-process Generated dist files. ● [ 6/11] async-process Installing the new dist. ● [ 6/11] async-process Getting the list of releases. ● [ 6/11] async-process Installing a new release "async-process". βœ“ [ 6/11] async-process Newly installed "async-process" version "git-9690530fc92b59636d9f17d821afa7697e7c8ca4". ● [ 9/11] sblint ● [ 9/11] sblint Installing "sblint". ● [ 9/11] sblint Determining the project version. ● [ 9/11] sblint Writing the distinfo. ● [ 9/11] sblint Running git clone. ● [ 2/11] cl-sdl2-image Writing metadata files. ● [ 2/11] cl-sdl2-image Generated dist files. ● [ 2/11] cl-sdl2-image Installing the new dist. ● [ 2/11] cl-sdl2-image Getting the list of releases. ● [ 2/11] cl-sdl2-image Installing a new release "cl-sdl2-image". ● [10/11] jsonrpc βœ“ [ 2/11] cl-sdl2-image Newly installed "cl-sdl2-image" version "git-8734b0e24de9ca390c9f763d9d7cd501546d17d4". ● [10/11] jsonrpc Installing "jsonrpc". ● [10/11] jsonrpc Determining the project version. ● [10/11] jsonrpc Writing the distinfo. ● [10/11] jsonrpc Running git clone. ● [ 8/11] lem-mailbox Creating a tarball. ● [ 8/11] lem-mailbox Writing metadata files. ● [ 8/11] lem-mailbox Generated dist files. ● [ 8/11] lem-mailbox Installing the new dist. ● [ 8/11] lem-mailbox Getting the list of releases. ● [ 8/11] lem-mailbox Installing a new release "lem-mailbox". βœ“ [ 8/11] lem-mailbox Newly installed "lem-mailbox" version "git-12d629541da440fadf771b0225a051ae65fa342a". ● [ 9/11] sblint Creating a tarball. ● [ 9/11] sblint Writing metadata files. ● [ 9/11] sblint Generated dist files. ● [ 9/11] sblint Installing the new dist. ● [ 9/11] sblint Getting the list of releases. ● [ 9/11] sblint Installing a new release "sblint". βœ“ [ 9/11] sblint Newly installed "sblint" version "git-1037296f604c3210ce073a53539d4ae95b0c2f8c". ● [10/11] jsonrpc Creating a tarball. ● [10/11] jsonrpc Writing metadata files. ● [10/11] jsonrpc Generated dist files. ● [10/11] jsonrpc Installing the new dist. ● [10/11] jsonrpc Getting the list of releases. ● [10/11] jsonrpc Installing a new release "jsonrpc". βœ“ [10/11] jsonrpc Newly installed "jsonrpc" version "git-035ba8a8f2e9b9968786ee56b59c7f8afbea9ca2". ● [ 7/11] cl-sdl2 Creating a tarball. ● [ 7/11] cl-sdl2 Writing metadata files. ● [ 7/11] cl-sdl2 Generated dist files. ● [ 7/11] cl-sdl2 Installing the new dist. ● [ 7/11] cl-sdl2 Getting the list of releases. ● [ 7/11] cl-sdl2 Installing a new release "cl-sdl2". βœ“ [ 7/11] cl-sdl2 Newly installed "cl-sdl2" version "git-24dd7f238f99065b0ae35266b71cce7783e89fa7". ● [11/11] cl-sdl2-ttf ● [11/11] cl-sdl2-ttf Installing "cl-sdl2-ttf". ● [11/11] cl-sdl2-ttf Determining the project version. ● [11/11] cl-sdl2-ttf Writing the distinfo. ● [11/11] cl-sdl2-ttf Running git clone. ● [11/11] cl-sdl2-ttf Creating a tarball. ● [11/11] cl-sdl2-ttf Writing metadata files. ● [11/11] cl-sdl2-ttf Generated dist files. ● [11/11] cl-sdl2-ttf Installing the new dist. ● [11/11] cl-sdl2-ttf Getting the list of releases. ● [11/11] cl-sdl2-ttf Installing a new release "cl-sdl2-ttf". βœ“ [11/11] cl-sdl2-ttf Newly installed "cl-sdl2-ttf" version "git-e61bb2119003d8ae7792d38aa11f7728d3ee5a00". Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/contrib/bracket-paren-mode/lem-bracket-paren-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/contrib/calc-mode/lem-calc-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/contrib/fbar/lem-fbar.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/contrib/google-translate/lem-google-translate.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/contrib/lem-contrib.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/contrib/migemo/lem-migemo.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/contrib/modeline-battery/lem-modeline-battery.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/contrib/mouse-sgr1006/lem-mouse-sgr1006.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/contrib/ollama/lem-ollama.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/contrib/selection-mode/lem-selection-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/contrib/tetris/lem-tetris.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/contrib/trailing-spaces/lem-trailing-spaces.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/contrib/version-up/lem-version-up.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/asciidoc-mode/lem-asciidoc-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/asm-mode/lem-asm-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/c-mode/lem-c-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/color-preview/lem-color-preview.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/css-mode/lem-css-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/dart-mode/lem-dart-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/documentation-mode/lem-documentation-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/dot-mode/lem-dot-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/elisp-mode/lem-elisp-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/elixir-mode/lem-elixir-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/go-mode/lem-go-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/haskell-mode/lem-haskell-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/html-mode/lem-html-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/java-mode/lem-java-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/js-mode/lem-js-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/json-mode/lem-json-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/lisp-mode/lem-lisp-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/lsp-mode/lem-lsp-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/makefile-mode/lem-makefile-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/markdown-mode/lem-markdown-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/nim-mode/lem-nim-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/ocaml-mode/lem-ocaml-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/paredit-mode/lem-paredit-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/patch-mode/lem-patch-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/posix-shell-mode/lem-posix-shell-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/python-mode/lem-python-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/review-mode/lem-review-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/rust-mode/lem-rust-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/scala-mode/lem-scala-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/scheme-mode/lem-scheme-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/shell-mode/lem-shell-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/sql-mode/lem-sql-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/swift-mode/lem-swift-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/typescript-mode/lem-typescript-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/vi-mode/lem-vi-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/welcome/lem-welcome.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/xml-mode/lem-xml-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/extensions/yaml-mode/lem-yaml-mode.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/frontends/fake-interface/lem-fake-interface.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/frontends/jsonrpc/lem-jsonrpc.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/frontends/ncurses/lem-ncurses.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/frontends/pdcurses/lem-pdcurses.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/frontends/sdl2/lem-sdl2.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/lem-tests.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/lem.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/lib/encodings/encodings-table/lem-encodings-table.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/lib/encodings/lem-encodings.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/lib/language-client/lem-language-client.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/lib/language-server/lem-language-server.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/lib/lisp-syntax/lem-lisp-syntax.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/lib/lsp-base/lem-lsp-base.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/lib/process/lem-process.asd'... Loading '/home/buildozer/aports/testing/lem/src/lem-2.2.0/lib/socket-utils/lem-socket-utils.asd'... Loaded 66 system files. Ensuring 93 dependencies installed. Downloading "https://beta.quicklisp.org/archive/translate-client/2018-02-28/translate-client-20180228-git.tgz". Downloaded "https://beta.quicklisp.org/archive/translate-client/2018-02-28/translate-client-20180228-git.tgz". Downloading "https://beta.quicklisp.org/archive/alexandria/2023-06-18/alexandria-20230618-git.tgz". Downloaded "https://beta.quicklisp.org/archive/alexandria/2023-06-18/alexandria-20230618-git.tgz". Downloading "https://beta.quicklisp.org/archive/assoc-utils/2022-11-06/assoc-utils-20221106-git.tgz". Downloaded "https://beta.quicklisp.org/archive/assoc-utils/2022-11-06/assoc-utils-20221106-git.tgz". Downloading "https://beta.quicklisp.org/archive/dexador/2023-06-18/dexador-20230618-git.tgz". Downloaded "https://beta.quicklisp.org/archive/dexador/2023-06-18/dexador-20230618-git.tgz". Downloading "https://beta.quicklisp.org/archive/babel/2023-02-14/babel-20230214-git.tgz". Downloaded "https://beta.quicklisp.org/archive/babel/2023-02-14/babel-20230214-git.tgz". Downloading "https://beta.quicklisp.org/archive/trivial-features/2023-06-18/trivial-features-20230618-git.tgz". Downloaded "https://beta.quicklisp.org/archive/trivial-features/2023-06-18/trivial-features-20230618-git.tgz". Downloading "https://beta.quicklisp.org/archive/bordeaux-threads/2023-06-18/bordeaux-threads-v0.9.1.tgz". Downloaded "https://beta.quicklisp.org/archive/bordeaux-threads/2023-06-18/bordeaux-threads-v0.9.1.tgz". Downloading "https://beta.quicklisp.org/archive/global-vars/2014-11-06/global-vars-20141106-git.tgz". Downloaded "https://beta.quicklisp.org/archive/global-vars/2014-11-06/global-vars-20141106-git.tgz". Downloading "https://beta.quicklisp.org/archive/trivial-garbage/2021-12-30/trivial-garbage-20211230-git.tgz". Downloaded "https://beta.quicklisp.org/archive/trivial-garbage/2021-12-30/trivial-garbage-20211230-git.tgz". Downloading "https://beta.quicklisp.org/archive/chipz/2023-06-18/chipz-20230618-git.tgz". Downloaded "https://beta.quicklisp.org/archive/chipz/2023-06-18/chipz-20230618-git.tgz". Downloading "https://beta.quicklisp.org/archive/chunga/2022-11-06/chunga-20221106-git.tgz". Downloaded "https://beta.quicklisp.org/archive/chunga/2022-11-06/chunga-20221106-git.tgz". Downloading "https://beta.quicklisp.org/archive/trivial-gray-streams/2021-01-24/trivial-gray-streams-20210124-git.tgz". Downloaded "https://beta.quicklisp.org/archive/trivial-gray-streams/2021-01-24/trivial-gray-streams-20210124-git.tgz". Downloading "https://beta.quicklisp.org/archive/cl+ssl/2023-06-18/cl+ssl-20230618-git.tgz". Downloaded "https://beta.quicklisp.org/archive/cl+ssl/2023-06-18/cl+ssl-20230618-git.tgz". Downloading "https://beta.quicklisp.org/archive/uiop/2023-06-18/uiop-3.3.6.tgz". Downloaded "https://beta.quicklisp.org/archive/uiop/2023-06-18/uiop-3.3.6.tgz". Downloading "https://beta.quicklisp.org/archive/flexi-streams/2022-02-20/flexi-streams-20220220-git.tgz". Downloaded "https://beta.quicklisp.org/archive/flexi-streams/2022-02-20/flexi-streams-20220220-git.tgz". Downloading "https://beta.quicklisp.org/archive/usocket/2023-06-18/usocket-0.8.6.tgz". Downloaded "https://beta.quicklisp.org/archive/usocket/2023-06-18/usocket-0.8.6.tgz". Downloading "https://beta.quicklisp.org/archive/split-sequence/2021-05-31/split-sequence-v2.0.1.tgz". Downloaded "https://beta.quicklisp.org/archive/split-sequence/2021-05-31/split-sequence-v2.0.1.tgz". Downloading "https://beta.quicklisp.org/archive/cl-base64/2020-10-16/cl-base64-20201016-git.tgz". Downloaded "https://beta.quicklisp.org/archive/cl-base64/2020-10-16/cl-base64-20201016-git.tgz". Downloading "https://beta.quicklisp.org/archive/cl-cookie/2022-07-07/cl-cookie-20220707-git.tgz". Downloaded "https://beta.quicklisp.org/archive/cl-cookie/2022-07-07/cl-cookie-20220707-git.tgz". Downloading "https://beta.quicklisp.org/archive/local-time/2023-02-14/local-time-20230214-git.tgz". Downloaded "https://beta.quicklisp.org/archive/local-time/2023-02-14/local-time-20230214-git.tgz". Downloading "https://beta.quicklisp.org/archive/proc-parse/2019-08-13/proc-parse-20190813-git.tgz". Downloaded "https://beta.quicklisp.org/archive/proc-parse/2019-08-13/proc-parse-20190813-git.tgz". Downloading "https://beta.quicklisp.org/archive/quri/2023-06-18/quri-20230618-git.tgz". Downloaded "https://beta.quicklisp.org/archive/quri/2023-06-18/quri-20230618-git.tgz". Downloading "https://beta.quicklisp.org/archive/cl-utilities/2010-10-06/cl-utilities-1.2.4.tgz". Downloaded "https://beta.quicklisp.org/archive/cl-utilities/2010-10-06/cl-utilities-1.2.4.tgz". Downloading "https://beta.quicklisp.org/archive/fast-http/2019-10-07/fast-http-20191007-git.tgz". Downloaded "https://beta.quicklisp.org/archive/fast-http/2019-10-07/fast-http-20191007-git.tgz". Downloading "https://beta.quicklisp.org/archive/smart-buffer/2021-10-20/smart-buffer-20211020-git.tgz". Downloaded "https://beta.quicklisp.org/archive/smart-buffer/2021-10-20/smart-buffer-20211020-git.tgz". Downloading "https://beta.quicklisp.org/archive/xsubseq/2017-08-30/xsubseq-20170830-git.tgz". Downloaded "https://beta.quicklisp.org/archive/xsubseq/2017-08-30/xsubseq-20170830-git.tgz". Downloading "https://beta.quicklisp.org/archive/fast-io/2022-11-06/fast-io-20221106-git.tgz". Downloaded "https://beta.quicklisp.org/archive/fast-io/2022-11-06/fast-io-20221106-git.tgz". Downloading "https://beta.quicklisp.org/archive/static-vectors/2021-06-30/static-vectors-v1.8.9.tgz". Downloaded "https://beta.quicklisp.org/archive/static-vectors/2021-06-30/static-vectors-v1.8.9.tgz". Downloading "https://beta.quicklisp.org/archive/trivial-mimes/2023-02-14/trivial-mimes-20230214-git.tgz". Downloaded "https://beta.quicklisp.org/archive/trivial-mimes/2023-02-14/trivial-mimes-20230214-git.tgz". Downloading "https://beta.quicklisp.org/archive/yason/2023-02-14/yason-20230214-git.tgz". Downloaded "https://beta.quicklisp.org/archive/yason/2023-02-14/yason-20230214-git.tgz". Downloading "https://beta.quicklisp.org/archive/trivial-battery/2021-10-20/trivial-battery-20211020-git.tgz". Downloaded "https://beta.quicklisp.org/archive/trivial-battery/2021-10-20/trivial-battery-20211020-git.tgz". Downloading "https://beta.quicklisp.org/archive/cl-json/2022-07-07/cl-json-20220707-git.tgz". Downloaded "https://beta.quicklisp.org/archive/cl-json/2022-07-07/cl-json-20220707-git.tgz". Downloading "https://beta.quicklisp.org/archive/dissect/2022-11-06/dissect-20221106-git.tgz". Downloaded "https://beta.quicklisp.org/archive/dissect/2022-11-06/dissect-20221106-git.tgz". Downloading "https://beta.quicklisp.org/archive/event-emitter/2022-03-31/event-emitter-20220331-git.tgz". Downloaded "https://beta.quicklisp.org/archive/event-emitter/2022-03-31/event-emitter-20220331-git.tgz". Downloading "https://beta.quicklisp.org/archive/chanl/2023-06-18/chanl-20230618-git.tgz". Downloaded "https://beta.quicklisp.org/archive/chanl/2023-06-18/chanl-20230618-git.tgz". Downloading "https://beta.quicklisp.org/archive/vom/2016-08-25/vom-20160825-git.tgz". Downloaded "https://beta.quicklisp.org/archive/vom/2016-08-25/vom-20160825-git.tgz". Downloading "https://beta.quicklisp.org/archive/iterate/2021-05-31/iterate-release-b0f9a9c6-git.tgz". Downloaded "https://beta.quicklisp.org/archive/iterate/2021-05-31/iterate-release-b0f9a9c6-git.tgz". Downloading "https://beta.quicklisp.org/archive/closer-mop/2023-06-18/closer-mop-20230618-git.tgz". Downloaded "https://beta.quicklisp.org/archive/closer-mop/2023-06-18/closer-mop-20230618-git.tgz". Downloading "https://beta.quicklisp.org/archive/lisp-namespace/2022-11-06/lisp-namespace-20221106-git.tgz". Downloaded "https://beta.quicklisp.org/archive/lisp-namespace/2022-11-06/lisp-namespace-20221106-git.tgz". Downloading "https://beta.quicklisp.org/archive/trivia/2023-06-18/trivia-20230618-git.tgz". Downloaded "https://beta.quicklisp.org/archive/trivia/2023-06-18/trivia-20230618-git.tgz". Downloading "https://beta.quicklisp.org/archive/trivial-cltl2/2021-12-30/trivial-cltl2-20211230-git.tgz". Downloaded "https://beta.quicklisp.org/archive/trivial-cltl2/2021-12-30/trivial-cltl2-20211230-git.tgz". Downloading "https://beta.quicklisp.org/archive/type-i/2023-02-14/type-i-20230214-git.tgz". Downloaded "https://beta.quicklisp.org/archive/type-i/2023-02-14/type-i-20230214-git.tgz". Downloading "https://beta.quicklisp.org/archive/introspect-environment/2022-02-20/introspect-environment-20220220-git.tgz". Downloaded "https://beta.quicklisp.org/archive/introspect-environment/2022-02-20/introspect-environment-20220220-git.tgz". Downloading "https://beta.quicklisp.org/archive/trivial-types/2012-04-07/trivial-types-20120407-git.tgz". Downloaded "https://beta.quicklisp.org/archive/trivial-types/2012-04-07/trivial-types-20120407-git.tgz". Downloading "https://beta.quicklisp.org/archive/cl-package-locks/2011-12-03/cl-package-locks-20111203-git.tgz". Downloaded "https://beta.quicklisp.org/archive/cl-package-locks/2011-12-03/cl-package-locks-20111203-git.tgz". Downloading "https://beta.quicklisp.org/archive/trivial-utf-8/2022-02-20/trivial-utf-8-20220220-git.tgz". Downloaded "https://beta.quicklisp.org/archive/trivial-utf-8/2022-02-20/trivial-utf-8-20220220-git.tgz". Downloading "https://beta.quicklisp.org/archive/slime/2023-02-14/slime-v2.28.tgz". Downloaded "https://beta.quicklisp.org/archive/slime/2023-02-14/slime-v2.28.tgz". Downloading "https://beta.quicklisp.org/archive/cl-interpol/2022-11-06/cl-interpol-20221106-git.tgz". Downloaded "https://beta.quicklisp.org/archive/cl-interpol/2022-11-06/cl-interpol-20221106-git.tgz". Downloading "https://beta.quicklisp.org/archive/cl-unicode/2021-02-28/cl-unicode-20210228-git.tgz". Downloaded "https://beta.quicklisp.org/archive/cl-unicode/2021-02-28/cl-unicode-20210228-git.tgz". Downloading "https://beta.quicklisp.org/archive/named-readtables/2023-06-18/named-readtables-20230618-git.tgz". Downloaded "https://beta.quicklisp.org/archive/named-readtables/2023-06-18/named-readtables-20230618-git.tgz". Downloading "https://beta.quicklisp.org/archive/esrap/2023-06-18/esrap-20230618-git.tgz". Downloaded "https://beta.quicklisp.org/archive/esrap/2023-06-18/esrap-20230618-git.tgz". Downloading "https://beta.quicklisp.org/archive/trivial-with-current-source-form/2023-06-18/trivial-with-current-source-form-20230618-git.tgz". Downloaded "https://beta.quicklisp.org/archive/trivial-with-current-source-form/2023-06-18/trivial-with-current-source-form-20230618-git.tgz". Downloading "https://beta.quicklisp.org/archive/parse-number/2018-02-28/parse-number-v1.7.tgz". Downloaded "https://beta.quicklisp.org/archive/parse-number/2018-02-28/parse-number-v1.7.tgz". Downloading "https://beta.quicklisp.org/archive/command-line-arguments/2021-08-07/command-line-arguments-20210807-git.tgz". Downloaded "https://beta.quicklisp.org/archive/command-line-arguments/2021-08-07/command-line-arguments-20210807-git.tgz". Downloading "https://beta.quicklisp.org/archive/fast-websocket/2022-07-07/fast-websocket-20220707-git.tgz". Downloaded "https://beta.quicklisp.org/archive/fast-websocket/2022-07-07/fast-websocket-20220707-git.tgz". Downloading "https://beta.quicklisp.org/archive/sha1/2021-10-20/sha1-20211020-git.tgz". Downloaded "https://beta.quicklisp.org/archive/sha1/2021-10-20/sha1-20211020-git.tgz". Downloading "https://beta.quicklisp.org/archive/websocket-driver/2022-03-31/websocket-driver-20220331-git.tgz". Downloaded "https://beta.quicklisp.org/archive/websocket-driver/2022-03-31/websocket-driver-20220331-git.tgz". Downloading "https://beta.quicklisp.org/archive/ironclad/2022-11-06/ironclad-v0.58.tgz". Downloaded "https://beta.quicklisp.org/archive/ironclad/2022-11-06/ironclad-v0.58.tgz". Downloading "https://beta.quicklisp.org/archive/lack/2023-06-18/lack-20230618-git.tgz". Downloaded "https://beta.quicklisp.org/archive/lack/2023-06-18/lack-20230618-git.tgz". Downloading "https://beta.quicklisp.org/archive/clack/2023-06-18/clack-20230618-git.tgz". Downloaded "https://beta.quicklisp.org/archive/clack/2023-06-18/clack-20230618-git.tgz". Downloading "https://beta.quicklisp.org/archive/hunchentoot/2020-06-10/hunchentoot-v1.3.0.tgz". Downloaded "https://beta.quicklisp.org/archive/hunchentoot/2020-06-10/hunchentoot-v1.3.0.tgz". Downloading "https://beta.quicklisp.org/archive/cl-fad/2022-02-20/cl-fad-20220220-git.tgz". Downloaded "https://beta.quicklisp.org/archive/cl-fad/2022-02-20/cl-fad-20220220-git.tgz". Downloading "https://beta.quicklisp.org/archive/md5/2021-06-30/md5-20210630-git.tgz". Downloaded "https://beta.quicklisp.org/archive/md5/2021-06-30/md5-20210630-git.tgz". Downloading "https://beta.quicklisp.org/archive/rfc2388/2018-08-31/rfc2388-20180831-git.tgz". Downloaded "https://beta.quicklisp.org/archive/rfc2388/2018-08-31/rfc2388-20180831-git.tgz". Downloading "https://beta.quicklisp.org/archive/trivial-backtrace/2023-02-14/trivial-backtrace-20230214-git.tgz". Downloaded "https://beta.quicklisp.org/archive/trivial-backtrace/2023-02-14/trivial-backtrace-20230214-git.tgz". Downloading "https://beta.quicklisp.org/archive/cl-charms/2023-06-18/cl-charms-20230618-git.tgz". Downloaded "https://beta.quicklisp.org/archive/cl-charms/2023-06-18/cl-charms-20230618-git.tgz". Downloading "https://beta.quicklisp.org/archive/cl-setlocale/2020-12-20/cl-setlocale-20201220-git.tgz". Downloaded "https://beta.quicklisp.org/archive/cl-setlocale/2020-12-20/cl-setlocale-20201220-git.tgz". Downloading "https://beta.quicklisp.org/archive/defpackage-plus/2018-01-31/defpackage-plus-20180131-git.tgz". Downloaded "https://beta.quicklisp.org/archive/defpackage-plus/2018-01-31/defpackage-plus-20180131-git.tgz". Downloading "https://beta.quicklisp.org/archive/cl-autowrap/2022-11-06/cl-autowrap-20221106-git.tgz". Downloaded "https://beta.quicklisp.org/archive/cl-autowrap/2022-11-06/cl-autowrap-20221106-git.tgz". Downloading "https://beta.quicklisp.org/archive/trivial-channels/2016-04-21/trivial-channels-20160421-git.tgz". Downloaded "https://beta.quicklisp.org/archive/trivial-channels/2016-04-21/trivial-channels-20160421-git.tgz". Downloading "https://beta.quicklisp.org/archive/trivial-timeout/2023-06-18/trivial-timeout-20230618-git.tgz". Downloaded "https://beta.quicklisp.org/archive/trivial-timeout/2023-06-18/trivial-timeout-20230618-git.tgz". Downloading "https://beta.quicklisp.org/archive/cffi/2023-06-18/cffi-20230618-git.tgz". Downloaded "https://beta.quicklisp.org/archive/cffi/2023-06-18/cffi-20230618-git.tgz". Downloading "https://beta.quicklisp.org/archive/cl-ansi-text/2021-10-20/cl-ansi-text-20211020-git.tgz". Downloaded "https://beta.quicklisp.org/archive/cl-ansi-text/2021-10-20/cl-ansi-text-20211020-git.tgz". Downloading "https://beta.quicklisp.org/archive/cl-colors2/2023-06-18/cl-colors2-20230618-git.tgz". Downloaded "https://beta.quicklisp.org/archive/cl-colors2/2023-06-18/cl-colors2-20230618-git.tgz". Downloading "https://beta.quicklisp.org/archive/trivial-package-local-nicknames/2022-02-20/trivial-package-local-nicknames-20220220-git.tgz". Downloaded "https://beta.quicklisp.org/archive/trivial-package-local-nicknames/2022-02-20/trivial-package-local-nicknames-20220220-git.tgz". Downloading "https://beta.quicklisp.org/archive/inquisitor/2019-05-21/inquisitor-20190521-git.tgz". Downloaded "https://beta.quicklisp.org/archive/inquisitor/2019-05-21/inquisitor-20190521-git.tgz". Downloading "https://beta.quicklisp.org/archive/anaphora/2022-02-20/anaphora-20220220-git.tgz". Downloaded "https://beta.quicklisp.org/archive/anaphora/2022-02-20/anaphora-20220220-git.tgz". Downloading "https://beta.quicklisp.org/archive/bt-semaphore/2018-07-11/bt-semaphore-20180711-git.tgz". Downloaded "https://beta.quicklisp.org/archive/bt-semaphore/2018-07-11/bt-semaphore-20180711-git.tgz". Downloading "https://beta.quicklisp.org/archive/queues/2017-01-24/queues-20170124-git.tgz". Downloaded "https://beta.quicklisp.org/archive/queues/2017-01-24/queues-20170124-git.tgz". Downloading "https://beta.quicklisp.org/archive/log4cl/2023-06-18/log4cl-20230618-git.tgz". Downloaded "https://beta.quicklisp.org/archive/log4cl/2023-06-18/log4cl-20230618-git.tgz". Downloading "https://beta.quicklisp.org/archive/cl-str/2023-06-18/cl-str-20230618-git.tgz". Downloaded "https://beta.quicklisp.org/archive/cl-str/2023-06-18/cl-str-20230618-git.tgz". Downloading "https://beta.quicklisp.org/archive/cl-change-case/2021-04-11/cl-change-case-20210411-git.tgz". Downloaded "https://beta.quicklisp.org/archive/cl-change-case/2021-04-11/cl-change-case-20210411-git.tgz". Downloading "https://beta.quicklisp.org/archive/cl-ppcre/2023-06-18/cl-ppcre-20230618-git.tgz". Downloaded "https://beta.quicklisp.org/archive/cl-ppcre/2023-06-18/cl-ppcre-20230618-git.tgz". Downloading "https://beta.quicklisp.org/archive/cl-iconv/2017-12-27/cl-iconv-20171227-git.tgz". Downloaded "https://beta.quicklisp.org/archive/cl-iconv/2017-12-27/cl-iconv-20171227-git.tgz". Successfully installed. >>> lem: Building lem To load "lem-ncurses": Load 1 ASDF system: lem-ncurses ; Loading "lem-ncurses" [package uiop/package]............................ [package uiop/package-local-nicknames]............ .................................................. [package alexandria].............................. [package alexandria-2]............................ [package babel-encodings]......................... [package babel]................................... .................................................. [package cffi-sys]................................ [package cffi-features]........................... [package cffi].................................... .................................................. [package cl-charms/low-level]; gcc -o /home/buildozer/.cache/common-lisp/sbcl-2.4.3-linux-x64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cl-charms-20230618-git/src/low-level/curses-grovel__grovel-tmpJ6ELVFLF.o -c -Os -fstack-clash-protection -Wformat -Werror=format-security -fno-plt -g -Wall -Wundef -Wsign-compare -Wpointer-arith -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -Wunused-parameter -fno-omit-frame-pointer -momit-leaf-frame-pointer -fPIC -I/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cffi-20230618-git/ /home/buildozer/.cache/common-lisp/sbcl-2.4.3-linux-x64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cl-charms-20230618-git/src/low-level/curses-grovel__grovel.c /home/buildozer/.cache/common-lisp/sbcl-2.4.3-linux-x64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cl-charms-20230618-git/src/low-level/curses-grovel__grovel.c: In function 'main': /home/buildozer/.cache/common-lisp/sbcl-2.4.3-linux-x64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cl-charms-20230618-git/src/low-level/curses-grovel__grovel.c:11:7: warning: unused variable 'autotype_tmp' [-Wunused-variable] 11 | int autotype_tmp; | ^~~~~~~~~~~~ ; gcc -o /home/buildozer/.cache/common-lisp/sbcl-2.4.3-linux-x64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cl-charms-20230618-git/src/low-level/curses-grovel__grovel-tmpULDB0RG -g -Wl,--export-dynamic /home/buildozer/.cache/common-lisp/sbcl-2.4.3-linux-x64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cl-charms-20230618-git/src/low-level/curses-grovel__grovel.o ; /home/buildozer/.cache/common-lisp/sbcl-2.4.3-linux-x64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cl-charms-20230618-git/src/low-level/curses-grovel__grovel /home/buildozer/.cache/common-lisp/sbcl-2.4.3-linux-x64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cl-charms-20230618-git/src/low-level/curses-grovel__grovel.grovel-tmp.lisp ..................... .................................................. [package cl-charms]............................... [package cl-setlocale]; gcc -o /home/buildozer/.cache/common-lisp/sbcl-2.4.3-linux-x64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cl-setlocale-20201220-git/src/constants__grovel-tmpRJTU435C.o -c -Os -fstack-clash-protection -Wformat -Werror=format-security -fno-plt -g -Wall -Wundef -Wsign-compare -Wpointer-arith -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -Wunused-parameter -fno-omit-frame-pointer -momit-leaf-frame-pointer -fPIC -I/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cffi-20230618-git/ /home/buildozer/.cache/common-lisp/sbcl-2.4.3-linux-x64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cl-setlocale-20201220-git/src/constants__grovel.c /home/buildozer/.cache/common-lisp/sbcl-2.4.3-linux-x64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cl-setlocale-20201220-git/src/constants__grovel.c: In function 'main': /home/buildozer/.cache/common-lisp/sbcl-2.4.3-linux-x64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cl-setlocale-20201220-git/src/constants__grovel.c:11:7: warning: unused variable 'autotype_tmp' [-Wunused-variable] 11 | int autotype_tmp; | ^~~~~~~~~~~~ ; gcc -o /home/buildozer/.cache/common-lisp/sbcl-2.4.3-linux-x64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cl-setlocale-20201220-git/src/constants__grovel-tmpI9WG87JK -g -Wl,--export-dynamic /home/buildozer/.cache/common-lisp/sbcl-2.4.3-linux-x64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cl-setlocale-20201220-git/src/constants__grovel.o ; /home/buildozer/.cache/common-lisp/sbcl-2.4.3-linux-x64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cl-setlocale-20201220-git/src/constants__grovel /home/buildozer/.cache/common-lisp/sbcl-2.4.3-linux-x64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cl-setlocale-20201220-git/src/constants__grovel.grovel-tmp.lisp ............................ [package iterate]................................. [package closer-mop].............................. [package closer-common-lisp]...................... [package closer-common-lisp-user]................. [package trivia.level0]........................... [package trivia.level1]........................... [package trivia.fail]............................. [package trivia.skip]............................. [package trivia.next]............................. [package trivia.level1.impl]...................... [package lisp-namespace].......................... [package trivial-cltl2]........................... [package trivia.level2]........................... [package trivia.level2.impl]...................... .................................................. [package introspect-environment].................. [package type-i].................................. [package trivia.balland2006]...................... [package impl-specific-gray]...................... [package trivial-gray-streams].................... [package trivial-types]........................... [package cl-ppcre]................................ .................................................. [package micros/backend].......................... [package micros/rpc].............................. [package micros/match]............................ [package micros/mop].............................. [package micros].................................. [package micros/source-path-parser]............... [package micros/source-file-cache]................ [package micros/sbcl]............................. [package micros/gray]............................. .................................................. [package micros/repl]............................. [package micros/swank-api]........................ [package micros/mrepl]............................ [package micros/trace-dialog]..................... [package micros/macrostep]........................ [package micros/pretty-eval]...................... [package micros/trace]............................ [package micros/test-runner]...................... [package micros/walker]........................... [package micros/lsp-api].......................... [package anaphora]................................ [package anaphora-basic].......................... [package anaphora-symbol]......................... [package inquisitor.encoding.dfa]................. [package inquisitor.encoding.table]............... [package inquisitor.encoding.guess]............... [package inquisitor.eol].......................... [package inquisitor.names]........................ [package inquisitor.external-format].............. [package inquisitor.util]......................... [package inquisitor].............................. [package global-vars]............................. [package trivial-garbage]......................... [package bordeaux-threads]........................ [package bordeaux-threads-2]...................... [package yason]................................... [package log4cl.package-setup].................... [package log4cl-impl]............................. .................................................. [package log]..................................... [package split-sequence].......................... [package cl-unicode].............................. [package cl-unicode-names]........................ [package flexi-streams]........................... .................................................. .................................................. .................................................. [package cl-ppcre-unicode]........................ [package cl-change-case].......................... [package str]..................................... [package cl-utilities]............................ [package proc-parse].............................. [package xsubseq]................................. [package smart-buffer]............................ [package fast-http.http].......................... [package fast-http.error]......................... [package fast-http.byte-vector]................... [package fast-http.util].......................... [package fast-http.parser]........................ .................................................. [package fast-http.multipart-parser].............. [package fast-http]............................... [package quri.port]............................... [package quri.uri]................................ [package quri.error].............................. [package quri.util]............................... [package quri.encode]............................. [package quri.decode]............................. [package quri.uri.ftp]............................ [package quri.uri.http]........................... [package quri.uri.ldap]........................... [package quri.uri.file]........................... [package quri.etld]............................... [package quri.domain]............................. [package quri.parser]............................. [package quri].................................... [package static-vectors].......................... [package fast-io]................................. [package chunga].................................. [package local-time].............................. [package cl-cookie]............................... [package trivial-mimes]........................... [package chipz]................................... [package cl-base64]............................... [package usocket]................................. [package cl+ssl/config]........................... [package cl+ssl].................................. [package dexador.encoding]........................ [package dexador.connection-cache]................ [package dexador.decoding-stream]................. [package dexador.keep-alive-stream]............... [package dexador.util]............................ [package dexador.body]............................ [package dexador.error]........................... [package dexador.backend.usocket]................. [package bt-semaphore]............................ [package queues].................................. [package lem-mailbox]............................. [package lem/common/ring]......................... [package lem/common/killring]..................... [package lem/common/history]...................... [package lem/common/timer]........................ [package lem/common/command]...................... [package lem/common/color]........................ [package lem/common/queue]........................ [package lem/common/hooks]........................ [package lem/common/var].......................... [package lem/common/utils]........................ [package lem/common/character/icon]............... [package lem/common/character/eastasian].......... [package lem/common/character/string-width-utils]. [package lem/buffer/errors]....................... [package lem/buffer/file-utils]................... [package lem/buffer/line]......................... [package lem/buffer/buffer-list-manager].......... [package lem/buffer/syntax-table]................. [package lem/buffer/interrupt].................... [package lem/buffer/fundamental-mode]............. [package lem/buffer/indent]....................... [package lem/buffer/encodings].................... [package lem/buffer/file]......................... [package lem-core/display]........................ [package lem-core/popup-message-interface]........ [package lem-restart]............................. [package lem-interface]........................... .................................................. [package lem-core/commands/move].................. [package lem-core/commands/edit].................. [package lem-core/commands/mark].................. [package lem-core/commands/word].................. [package lem-core/commands/s-expression].......... [package lem-core/commands/file].................. [package lem-core/commands/project]............... [package lem-core/commands/buffer]................ [package lem-core/commands/window]................ [package lem-core/commands/multiple-cursors]...... [package lem-core/commands/process]............... [package lem-core/commands/help].................. [package lem-core/commands/font].................. [package lem-core/commands/other]................. [package lem-core/commands/frame]................. [package lem-user]................................ [package lem/popup-window]........................ [package lem/popup-message]....................... [package lem/popup-menu].......................... [package lem/markdown-buffer]..................... [package lem/multi-column-list]................... [package lem/context-menu]........................ [package lem/list-buffers]........................ [package lem/completion-mode]..................... [package lem/prompt-window]....................... [package lem/tmlanguage].......................... [package lem/button].............................. [package lem/loading-spinner]..................... [package lem/listener-mode]....................... [package lem/universal-argument].................. [package lem/kbdmacro]............................ [package lem/isearch]............................. [package lem/show-paren].......................... [package lem/line-numbers]........................ [package lem/peek-source]......................... [package lem/grep]................................ [package lem/go-back]............................. [package lem/hover]............................... [package lem/language-mode]....................... [package lem/language-mode-tools]................. [package lem/link]................................ [package lem/thingatp]............................ [package lem/gtags]............................... [package lem/directory-mode]...................... [package lem/abbrev].............................. [package lem/rectangle]........................... [package lem/auto-save]........................... [package lem/tabbar].............................. [package lem/frame-multiplexer]................... [package lem/filer]............................... [package lem/deepl]............................... [package lem/themes].............................. [package lem/detective]........................... [package trivial-with-current-source-form]........ [package esrap]................................... [package org.mapcar.parse-number]................. [package cl-package-locks]........................ [package lem-lisp-syntax.indent].................. [package lem-lisp-syntax.syntax-table]............ [package lem-lisp-syntax.misc].................... [package lem-lisp-syntax.enclosing]............... [package lem-lisp-syntax.parse-for-autodoc]....... [package lem-lisp-syntax.defstruct-to-defclass]... .................................................. [package async-process]........................... [package lem-process]............................. [package lem-socket-utils]........................ [package lem-lisp-mode/test-api].................. [package lem-lisp-mode/exporter].................. [package lem-lisp-mode/errors].................... [package lem-lisp-mode/swank-protocol]............ [package lem-lisp-mode/connections]............... [package lem-lisp-mode/message-dispatcher]........ [package lem-lisp-mode/ui-mode]................... [package lem-lisp-mode/grammar]................... [package lem-lisp-mode/implementation]............ [package lem-lisp-mode/internal].................. [package lem-lisp-mode/completion]................ [package lem-lisp-mode/detective]................. [package lem-lisp-mode/inspector]................. [package lem-lisp-mode/eval]...................... [package lem-lisp-mode/sldb]...................... [package lem-lisp-mode/hyperspec]................. [package lem-lisp-mode/autodoc]................... [package lem-lisp-mode/paren-coloring]............ [package lem-lisp-mode/defstruct-to-defclass]..... [package lem-lisp-mode/quickdocs]................. [package lem-lisp-mode/package-inferred-system]... [package lem-lisp-mode/organize-imports].......... [package lem-lisp-mode/connection-list]........... [package lem-lisp-mode/self-insert-hook].......... [package lem-lisp-mode/trace]..................... [package lem-lisp-mode/class-browser]............. [package lem-lisp-mode/macroexpand]............... [package lem-lisp-mode/test-runner]............... [package lem-lisp-mode/utopian]................... [package lem-lisp-mode/highlight]................. [package lem-vi-mode/core]........................ [package lem-vi-mode/leader]...................... [package lem-vi-mode/utils]....................... [package lem-vi-mode/options]..................... [package lem-vi-mode/word]........................ [package lem-vi-mode/modeline].................... [package lem-vi-mode/states]...................... [package lem-vi-mode/visual]...................... [package lem-vi-mode/text-objects]................ [package lem-vi-mode/registers]................... [package lem-vi-mode/jumplist].................... [package lem-vi-mode/commands/utils].............. [package lem-vi-mode/window]...................... [package lem-vi-mode/commands].................... [package lem-vi-mode/ex-core]..................... [package lem-vi-mode/ex-parser]................... [package lem-vi-mode/ex-command].................. [package lem-vi-mode/ex].......................... [package lem-vi-mode/binds]....................... [package lem-vi-mode/special-binds]............... [package lem-vi-mode]............................. [package lem-welcome]............................. [package jsonrpc/errors].......................... [package jsonrpc/yason]........................... [package jsonrpc/request-response]................ [package dissect]................................. [package event-emitter]........................... [package trivial-compare-and-swap]................ [package chanl]................................... [package vom]..................................... [package jsonrpc/connection]...................... [package jsonrpc/transport/interface]............. [package jsonrpc/mapper].......................... [package jsonrpc/utils]........................... [package jsonrpc/class]........................... [package jsonrpc]................................. [package jsonrpc/transport/stdio]................. [package trivial-utf-8]........................... [package trivial-utf-8]........................... [package jsonrpc/transport/tcp]................... [package lem-lsp-base/yason-utils]................ [package lem-lsp-base/type]....................... [package lem-lsp-base/protocol-generator]......... [package lem-lsp-base/protocol-3-17].............. [package lem-lsp-base/converter].................. [package lem-lsp-base/utils]...................... [package lem-language-client/client].............. [package lem-language-client/request]............. [package lem-language-server/micros-client]....... [package lem-language-server]..................... [package lem-lsp-mode/async-process-stream]....... [package lem-lsp-mode/lem-stdio-transport]........ [package lem-lsp-mode/client]..................... [package lem-lsp-mode/spec]....................... [package lem-lsp-mode/lsp-mode]................... [package lem-go-mode]............................. [package lem-go-mode/lsp-config].................. [package lem-swift-mode].......................... [package lem-swift-mode/lsp-config]............... [package lem-c-mode.grammar]...................... [package lem-c-mode/format]....................... [package lem-c-mode].............................. [package lem-xml-mode]............................ [package lem-html-mode]........................... [package lem-python-mode]......................... [package lem-python-mode.run-python].............. [package lem-posix-shell-mode].................... [package lem-markdown-mode]....................... [package lem-js-mode]............................. [package lem-js-mode.eslint]...................... [package lem-typescript-mode]..................... [package lem-typescript-mode/lsp-config].......... [package lem-json-mode]........................... [package lem-css-mode]............................ [package lem-rust-mode]........................... [package lem-paredit-mode]........................ [package lem-nim-mode]............................ [package swank-loader]............................ [package swank/backend]........................... [package swank/rpc]............................... [package swank/match]............................. [package swank-mop]............................... [package swank]................................... [package swank/source-path-parser]................ [package swank/source-file-cache]................. [package swank/sbcl].............................. [package swank/gray].............................. ... ; compiling file "/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-util.lisp" (written 29 APR 2024 03:02:30 PM): ; wrote /home/buildozer/.slime/fasl/2.28/sbcl-2.4.3-linux-x86-64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-util.fasl ; compilation finished in 0:00:00.030 ; compiling file "/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-repl.lisp" (written 29 APR 2024 03:02:30 PM): ............................................... [package swank-repl].. ; wrote /home/buildozer/.slime/fasl/2.28/sbcl-2.4.3-linux-x86-64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-repl.fasl ; compilation finished in 0:00:00.243 ; compiling file "/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-c-p-c.lisp" (written 29 APR 2024 03:02:30 PM): . ; wrote /home/buildozer/.slime/fasl/2.28/sbcl-2.4.3-linux-x86-64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-c-p-c.fasl ; compilation finished in 0:00:00.086 ; compiling file "/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-arglists.lisp" (written 29 APR 2024 03:02:30 PM): ............... ; wrote /home/buildozer/.slime/fasl/2.28/sbcl-2.4.3-linux-x86-64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-arglists.fasl ; compilation finished in 0:00:01.023 ; compiling file "/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-fuzzy.lisp" (written 29 APR 2024 03:02:30 PM): .. ; wrote /home/buildozer/.slime/fasl/2.28/sbcl-2.4.3-linux-x86-64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-fuzzy.fasl ; compilation finished in 0:00:00.193 ; compiling file "/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-fancy-inspector.lisp" (written 29 APR 2024 03:02:30 PM): ....... ; wrote /home/buildozer/.slime/fasl/2.28/sbcl-2.4.3-linux-x86-64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-fancy-inspector.fasl ; compilation finished in 0:00:00.456 ; compiling file "/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-presentations.lisp" (written 29 APR 2024 03:02:30 PM): . ; wrote /home/buildozer/.slime/fasl/2.28/sbcl-2.4.3-linux-x86-64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-presentations.fasl ; compilation finished in 0:00:00.060 ; compiling file "/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-presentation-streams.lisp" (written 29 APR 2024 03:02:30 PM): . ; wrote /home/buildozer/.slime/fasl/2.28/sbcl-2.4.3-linux-x86-64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-presentation-streams.fasl ; compilation finished in 0:00:00.070 ; compiling file "/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-asdf.lisp" (written 29 APR 2024 03:02:30 PM): . ... ; wrote /home/buildozer/.slime/fasl/2.28/sbcl-2.4.3-linux-x86-64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-asdf.fasl ; compilation finished in 0:00:00.223 ; compiling file "/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-package-fu.lisp" (written 29 APR 2024 03:02:30 PM): ; wrote /home/buildozer/.slime/fasl/2.28/sbcl-2.4.3-linux-x86-64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-package-fu.fasl ; compilation finished in 0:00:00.013 ; compiling file "/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-hyperdoc.lisp" (written 29 APR 2024 03:02:30 PM): ; wrote /home/buildozer/.slime/fasl/2.28/sbcl-2.4.3-linux-x86-64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-hyperdoc.fasl ; compilation finished in 0:00:00.003 ; compiling file "/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-sbcl-exts.lisp" (written 29 APR 2024 03:02:30 PM): ; wrote /home/buildozer/.slime/fasl/2.28/sbcl-2.4.3-linux-x86-64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-sbcl-exts.fasl ; compilation finished in 0:00:00.050 ; compiling file "/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-mrepl.lisp" (written 29 APR 2024 03:02:30 PM): ............................................... [package swank-api]............................... [package swank-mrepl]. ; wrote /home/buildozer/.slime/fasl/2.28/sbcl-2.4.3-linux-x86-64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-mrepl.fasl ; compilation finished in 0:00:00.053 ; compiling file "/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-trace-dialog.lisp" (written 29 APR 2024 03:02:30 PM): ............................ [package swank-trace-dialog].. ; wrote /home/buildozer/.slime/fasl/2.28/sbcl-2.4.3-linux-x86-64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-trace-dialog.fasl ; compilation finished in 0:00:00.060 ; compiling file "/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-macrostep.lisp" (written 29 APR 2024 03:02:30 PM): .................... [package swank-macrostep]. ; wrote /home/buildozer/.slime/fasl/2.28/sbcl-2.4.3-linux-x86-64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-macrostep.fasl ; compilation finished in 0:00:00.113 ; compiling file "/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-quicklisp.lisp" (written 29 APR 2024 03:02:30 PM): ; wrote /home/buildozer/.slime/fasl/2.28/sbcl-2.4.3-linux-x86-64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/slime-v2.28/contrib/swank-quicklisp.fasl ; compilation finished in 0:00:00.006 ........................ [package lem-scheme-syntax.data].................. [package lem-scheme-syntax.indent]................ [package lem-scheme-syntax.syntax-table].......... [package lem-scheme-syntax.misc].................. [package lem-scheme-syntax.parse]................. [package lem-scheme-mode.errors].................. [package lem-scheme-mode.swank-protocol].......... [package lem-scheme-mode]......................... [package lem-patch-mode].......................... [package lem-yaml-mode]........................... [package lem-review-mode]......................... [package lem-asciidoc-mode]....................... [package lem-dart-mode]........................... [package lem-scala-mode].......................... [package lem-dot-mode]............................ [package lem-java-mode]........................... [package lem-haskell-mode]........................ [package lem-ocaml-mode].......................... [package lem-asm-mode]............................ [package lem-makefile-mode]....................... [package lem-shell-mode].......................... [package lem-sql-mode]............................ [package lem-base16-themes]....................... [package lem-elixir-mode]......................... [package lem-elixir-mode/lsp-config].............. [package lem-elixir-mode.run-elixir].............. [package lem-documentation-mode/utils]............ [package lem-documentation-mode/internal]......... [package lem-documentation-mode].................. [package lem-elisp-mode/rpc]...................... [package lem-elisp-mode].......................... [package lem-elisp-mode.run-elisp]................ [package lem-color-preview]....................... [package lem-ncurses/config]...................... [package lem-ncurses/term]........................ [package lem-ncurses/clipboard]................... [package lem-ncurses/style]....................... [package lem-ncurses/key]......................... [package lem-ncurses/attribute]................... [package lem-ncurses/drawing-object].............. [package lem-ncurses/view]........................ [package lem-ncurses/render]...................... [package lem-ncurses/input]....................... [package lem-ncurses/mainloop].. WARNING: redefining ASDF/ACTION:PERFORM (# #) in DEFMETHOD WARNING: redefining ASDF/ACTION:OUTPUT-FILES :AROUND (# #) in DEFMETHOD compressed 32768 bytes into 851 at level -1 compressed 62259200 bytes into 11917642 at level -1 compressed 24772608 bytes into 7102456 at level -1 compressed 3276800 bytes into 807892 at level -1 compressed 23658496 bytes into 8123616 at level -1 >>> lem: Building lem-gui To load "lem-sdl2": Load 1 ASDF system: lem-sdl2 ; Loading "lem-sdl2" .................................................. [package json].................................... [package json-rpc]................................ [package defpackage-plus-1]....................... [package defpackage+-user-1]...................... [package autowrap.minimal]........................ .................................................. [package plus-c].................................. [package com.metabang.trivial-timeout]............ [package trivial-channels.queue].................. [package trivial-channels]........................ [package sdl2].................................... [package sdl2-examples]........................... .................................................. .................................................. ............................... ; pkg-config libffi --cflags ; gcc -o /home/buildozer/.cache/common-lisp/sbcl-2.4.3-linux-x64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cffi-20230618-git/libffi/libffi-types__grovel-tmpLM57P5P.o -c -Os -fstack-clash-protection -Wformat -Werror=format-security -fno-plt -g -Wall -Wundef -Wsign-compare -Wpointer-arith -O3 -D_LARGEFILE_SOURCE -D_LARGEFILE64_SOURCE -D_FILE_OFFSET_BITS=64 -Wunused-parameter -fno-omit-frame-pointer -momit-leaf-frame-pointer -fPIC -I/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cffi-20230618-git/ /home/buildozer/.cache/common-lisp/sbcl-2.4.3-linux-x64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cffi-20230618-git/libffi/libffi-types__grovel.c /home/buildozer/.cache/common-lisp/sbcl-2.4.3-linux-x64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cffi-20230618-git/libffi/libffi-types__grovel.c: In function 'main': /home/buildozer/.cache/common-lisp/sbcl-2.4.3-linux-x64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cffi-20230618-git/libffi/libffi-types__grovel.c:12:7: warning: unused variable 'autotype_tmp' [-Wunused-variable] 12 | int autotype_tmp; | ^~~~~~~~~~~~ ; gcc -o /home/buildozer/.cache/common-lisp/sbcl-2.4.3-linux-x64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cffi-20230618-git/libffi/libffi-types__grovel-tmpZE69DN33 -g -Wl,--export-dynamic /home/buildozer/.cache/common-lisp/sbcl-2.4.3-linux-x64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cffi-20230618-git/libffi/libffi-types__grovel.o ; /home/buildozer/.cache/common-lisp/sbcl-2.4.3-linux-x64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cffi-20230618-git/libffi/libffi-types__grovel /home/buildozer/.cache/common-lisp/sbcl-2.4.3-linux-x64/home/buildozer/aports/testing/lem/src/lem-2.2.0/.qlot/dists/quicklisp/software/cffi-20230618-git/libffi/libffi-types__grovel.grovel-tmp.lisp ................... .................................................. .................................................. .................................................. .................................................. [package lem-sdl2/wm]............................. [package lem-sdl2/resource]....................... [package lem-sdl2/platform]....................... [package lem-sdl2/keyboard]....................... [package lem-sdl2/font]........................... [package lem-sdl2/icon]........................... [package lem-sdl2/text-surface-cache]............. [package lem-sdl2/log]............................ [package lem-sdl2/sdl2]........................... [package lem-sdl2/icon-font]...................... [package lem-sdl2/mouse].......................... [package lem-sdl2/utils].......................... [package lem-sdl2/display]........................ [package lem-sdl2/view]........................... [package lem-sdl2]................................ [package lem-sdl2/drawing]........................ [package lem-sdl2/graphics]....................... [package lem-sdl2/image-buffer]................... [package lem-sdl2/tree]........................... [package lem-sdl2/color-picker]... WARNING: redefining ASDF/ACTION:PERFORM (# #) in DEFMETHOD WARNING: redefining ASDF/ACTION:OUTPUT-FILES :AROUND (# #) in DEFMETHOD compressed 32768 bytes into 849 at level -1 compressed 64225280 bytes into 12204476 at level -1 compressed 26050560 bytes into 7371892 at level -1 compressed 3342336 bytes into 825979 at level -1 compressed 24772608 bytes into 8370809 at level -1 Testing System lem-tests ;; testing 'lem-tests/common/ring' copy-ring βœ“ Expect (EQ RING RING2) to be false. βœ“ Expect (EQUAL (RING-REF RING 0) (RING-REF RING2 0)) to be true. βœ“ Expect (EQUAL (RING-REF RING 1) (RING-REF RING2 1)) to be true. ring-push βœ“ Expect (STRING= (WITH-OUTPUT-TO-STRING (OUT) (LOOP :FOR V :ACROSS "abcdefghijklmnopqrstuvwxyz" :DO (RING-PUSH RING V) (FORMAT OUT "~A~%" RING))) "# # # # # # # # # # # # # # # # # # # # # # # # # # ") to be true. ring-empty-p βœ“ Expect (RING-EMPTY-P RING) to be true. βœ“ Expect (RING-EMPTY-P RING) to be false. βœ“ Expect (RING-EMPTY-P RING) to be false. βœ“ Expect (RING-EMPTY-P RING) to be false. βœ“ Expect (RING-EMPTY-P RING) to be false. βœ“ Expect (RING-EMPTY-P RING) to be false. βœ“ Expect (RING-EMPTY-P RING) to be false. βœ“ Expect (RING-EMPTY-P RING) to be false. βœ“ Expect (RING-EMPTY-P RING) to be false. βœ“ Expect (RING-EMPTY-P RING) to be false. βœ“ Expect (RING-EMPTY-P RING) to be false. ring-length βœ“ Expect (= 0 (RING-LENGTH RING)) to be true. βœ“ Expect (= (MIN 3 I) (RING-LENGTH RING)) to be true. βœ“ Expect (= (MIN 3 I) (RING-LENGTH RING)) to be true. βœ“ Expect (= (MIN 3 I) (RING-LENGTH RING)) to be true. βœ“ Expect (= (MIN 3 I) (RING-LENGTH RING)) to be true. βœ“ Expect (= (MIN 3 I) (RING-LENGTH RING)) to be true. βœ“ Expect (= (MIN 3 I) (RING-LENGTH RING)) to be true. βœ“ Expect (= (MIN 3 I) (RING-LENGTH RING)) to be true. βœ“ Expect (= (MIN 3 I) (RING-LENGTH RING)) to be true. βœ“ Expect (= (MIN 3 I) (RING-LENGTH RING)) to be true. βœ“ Expect (= (MIN 3 I) (RING-LENGTH RING)) to be true. ring-ref βœ“ Expect (EQL 5 (RING-REF RING 0)) to be true. βœ“ Expect (EQL 4 (RING-REF RING 1)) to be true. βœ“ Expect (EQL 3 (RING-REF RING 2)) to be true. βœ“ Expect (EQL 2 (RING-REF RING 3)) to be true. βœ“ Expect (EQL 1 (RING-REF RING 4)) to be true. βœ“ Expect (RING-REF RING -1) to signal INVALID-INDEX-ERROR. βœ“ Expect (RING-REF RING I) to signal INVALID-INDEX-ERROR. βœ“ Expect (RING-REF RING I) to signal INVALID-INDEX-ERROR. βœ“ Expect (RING-REF RING I) to signal INVALID-INDEX-ERROR. βœ“ Expect (RING-REF RING I) to signal INVALID-INDEX-ERROR. βœ“ Expect (RING-REF RING I) to signal INVALID-INDEX-ERROR. βœ“ Expect (RING-REF RING I) to signal INVALID-INDEX-ERROR. βœ“ Expect (RING-REF RING I) to signal INVALID-INDEX-ERROR. βœ“ Expect (RING-REF RING I) to signal INVALID-INDEX-ERROR. βœ“ Expect (RING-REF RING I) to signal INVALID-INDEX-ERROR. βœ“ Expect (RING-REF RING I) to signal INVALID-INDEX-ERROR. βœ“ Expect (RING-REF RING I) to signal INVALID-INDEX-ERROR. βœ“ Expect (RING-REF RING I) to signal INVALID-INDEX-ERROR. βœ“ Expect (RING-REF RING I) to signal INVALID-INDEX-ERROR. βœ“ Expect (RING-REF RING I) to signal INVALID-INDEX-ERROR. βœ“ Expect (RING-REF RING I) to signal INVALID-INDEX-ERROR. βœ“ Expect (RING-REF RING I) to signal INVALID-INDEX-ERROR. βœ“ Expect (EQUAL 100 (SETF (RING-REF RING 0) 100)) to be true. βœ“ Expect (EQUAL 100 (RING-REF RING 0)) to be true. βœ“ Expect (EQUAL "xx" (SETF (RING-REF RING 3) "xx")) to be true. βœ“ Expect (EQUAL "xx" (RING-REF RING 3)) to be true. βœ“ Expect (SETF (RING-REF RING 5) 'FOO) to signal INVALID-INDEX-ERROR. ;; testing 'lem-tests/common/killring' simple-test βœ“ Expect (PUSH-KILLRING-ITEM KILLRING "abc") to be true. βœ“ Expect (EQUAL "abc" (PEEK-KILLRING-ITEM KILLRING 0)) to be true. βœ“ Expect (EQUAL "abc" (PEEK-KILLRING-ITEM KILLRING 1)) to be true. βœ“ Expect (PUSH-KILLRING-ITEM KILLRING "def") to be true. βœ“ Expect (EQUAL "def" (PEEK-KILLRING-ITEM KILLRING 0)) to be true. βœ“ Expect (EQUAL "abc" (PEEK-KILLRING-ITEM KILLRING 1)) to be true. βœ“ Expect (EQUAL "def" (PEEK-KILLRING-ITEM KILLRING 2)) to be true. appending βœ“ Expect (EQUAL "def!!" (PEEK-KILLRING-ITEM KILLRING 0)) to be true. before-inserting βœ“ Expect (EQUAL "??def!!" (PEEK-KILLRING-ITEM KILLRING 0)) to be true. appending-if-empty βœ“ Expect (EQUAL "abc" (PEEK-KILLRING-ITEM KILLRING 0)) to be true. before-inserting βœ“ Expect (EQUAL "ba" (PEEK-KILLRING-ITEM KILLRING 0)) to be true. βœ“ Expect (EQUAL "cba" (PEEK-KILLRING-ITEM KILLRING 0)) to be true. rotate-to-empty-killring βœ“ no error rotate βœ“ Expect (EQUAL "a" (PEEK-KILLRING-ITEM KILLRING 0)) to be true. βœ“ Expect (EQUAL "b" (PEEK-KILLRING-ITEM KILLRING 1)) to be true. βœ“ Expect (EQUAL "b" (PEEK-KILLRING-ITEM KILLRING 0)) to be true. βœ“ Expect (EQUAL "a" (PEEK-KILLRING-ITEM KILLRING 1)) to be true. internal-option βœ“ Expect (EQUAL '("foo" (:TEST)) (MULTIPLE-VALUE-LIST (PEEK-KILLRING-ITEM KILLRING 0))) to be true. βœ“ Expect (EQUAL '("foobar" (:TEST :TEST2)) (MULTIPLE-VALUE-LIST (PEEK-KILLRING-ITEM KILLRING 0))) to be true. βœ“ Expect (EQUAL '("bazfoobar" (:TEST3 :TEST :TEST2)) (MULTIPLE-VALUE-LIST (PEEK-KILLRING-ITEM KILLRING 0))) to be true. peek-killring-item-when-empty βœ“ Expect (NULL (PEEK-KILLRING-ITEM KILLRING 0)) to be true. ;; testing 'lem-tests/history' simple-test βœ“ Expect (NULL (LAST-HISTORY HISTORY)) to be true. βœ“ Expect (EQUAL "foo" (LAST-HISTORY HISTORY)) to be true. βœ“ Expect (EQUAL "bar" (LAST-HISTORY HISTORY)) to be true. previous-history βœ“ Expect (EQUAL '("bar" T) (MULTIPLE-VALUE-LIST (PREVIOUS-HISTORY HISTORY))) to be true. βœ“ Expect (EQUAL '("foo" T) (MULTIPLE-VALUE-LIST (PREVIOUS-HISTORY HISTORY))) to be true. βœ“ Expect (NULL (PREVIOUS-HISTORY HISTORY)) to be true. next-history βœ“ Expect (EQUAL '("bar" T) (MULTIPLE-VALUE-LIST (NEXT-HISTORY HISTORY))) to be true. βœ“ Expect (NULL (NEXT-HISTORY HISTORY)) to be true. ;; testing 'lem-tests/timer' timer-name-tests βœ“ Expect (STRING= "TESTING-TIMER" VALUE) to be true. βœ“ Expect (STRING= "TESTING-TIMER" VALUE) to be true. βœ“ Expect (STRING= "HELLO" VALUE) to be true. βœ“ Expect (STRING= "foo" VALUE) to be true. simple-timer-test βœ“ Expect (LEM-MAILBOX:RECEIVE-MESSAGE MAILBOX :TIMEOUT 0.01) to be true. βœ“ Expect TIMEOUT to be true. T T βœ“ Expect (LEM-MAILBOX:RECEIVE-MESSAGE MAILBOX :TIMEOUT 0.01) to be false. βœ“ Expect (TIMER-EXPIRED-P TIMER) to be true. compute-the-time-for-the-next-idle-timer-to-be-called βœ“ Expect (NULL (GET-NEXT-TIMER-TIMING-MS)) to be true. βœ“ Expect (= 10 (GET-NEXT-TIMER-TIMING-MS)) to be true. βœ“ Expect (= 8 (GET-NEXT-TIMER-TIMING-MS)) to be true. βœ“ Expect (= 0 (GET-NEXT-TIMER-TIMING-MS)) to be true. βœ“ Expect (= -8 (GET-NEXT-TIMER-TIMING-MS)) to be true. ;; testing 'lem-language-server/micros-tests' eval-tests return evaluated value βœ“ Expect (EQUAL "(1 . 2)" (EVAL-RESULT-VALUE RESULT)) to be true. βœ“ Expect (NULL (EVAL-RESULT-ERROR RESULT)) to be true. reader error βœ“ Expect (NULL (EVAL-RESULT-VALUE RESULT)) to be true. βœ“ Expect (STRINGP (EVAL-RESULT-ERROR RESULT)) to be true. simple-eval-test βœ“ Expect (EQUAL "=> (1 . 2)" RESULT) to be true. ;; testing 'lem-tests/language-server/tests' initialize βœ“ Expect (CONVERT-FROM-JSON RESPONSE 'LEM-LSP-BASE/PROTOCOL-3-17:INITIALIZE-RESULT) to be true. shutdown βœ“ shutdown without initialize-request results in uninitialized-error βœ“ Expect (SERVER-SHUTDOWN-REQUEST-RECEIVED-P (CURRENT-SERVER)) to be true. exit βœ“ Expect (EQL 0 (MOCK-SERVER-EXIT-STATUS (CURRENT-SERVER))) to be true. βœ“ Expect (EQL 1 (MOCK-SERVER-EXIT-STATUS (CURRENT-SERVER))) to be true. textdocument/didopen βœ“ Expect (EQUAL "file:///hoge/piyo/foo.lisp" (TEXT-DOCUMENT-URI TEXT-DOCUMENT)) to be true. βœ“ Expect (EQUAL "lisp" (TEXT-DOCUMENT-LANGUAGE-ID TEXT-DOCUMENT)) to be true. βœ“ Expect (EQUAL 1 (TEXT-DOCUMENT-VERSION TEXT-DOCUMENT)) to be true. βœ“ Expect (LEM/BUFFER/INTERNAL:BUFFER-TEMPORARY-P BUFFER) to be true. βœ“ Expect (EQ LEM-LISP-SYNTAX.SYNTAX-TABLE:*SYNTAX-TABLE* (LEM/BUFFER/INTERNAL:BUFFER-SYNTAX-TABLE BUFFER)) to be true. βœ“ Expect (EQUAL "(cons 1 2)" (LEM/BUFFER/INTERNAL:BUFFER-TEXT BUFFER)) to be true. textdocument/didchange Change the whole document βœ“ Expect (EQUAL "x" (GET-TEXT)) to be true. insert βœ“ Expect (EQUAL (LINES "abchoge" "xyzpiyo" "fuga") (GET-TEXT)) to be true. delete βœ“ Expect (EQUAL (LINES "hoge" "yo" "fuga") (GET-TEXT)) to be true. βœ“ Expect (EQUAL (LINES "hoge" "fuga") (GET-TEXT)) to be true. textdocument/didclose βœ“ Expect (NULL (FIND-TEXT-DOCUMENT (MAKE-INSTANCE 'LEM-LSP-BASE/PROTOCOL-3-17:TEXT-DOCUMENT-IDENTIFIER :URI "file:///hoge/piyo/foo.lisp"))) to be true. ;; testing 'lem-tests/lisp-syntax/indent-test' cond-1 βœ“ COND-1 defclass-1 βœ“ DEFCLASS-1 indent-test-for-sample-case βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:1: βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:2:#| βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:3:aaaaaa βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:4:bbbbbb βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:5:cccccc βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:6:|# βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:6:|# βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:8:#|********() βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:8:#|********() βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:8:#|********() βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:8:#|********() βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:8:#|********() βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:8:#|********() βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:8:#|********() βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:8:#|********() βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:8:#|********() βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:8:#|********() βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:8:#|********() βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:9:|# βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:9:|# βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:12:(aaaaaaa( βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:18:(defun foo (foo &optional opt1 βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:24:(defmacro foo ((foo &optional opt1 βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:30:(#+sbcl foo βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:33:(let ((x y) βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:43:(list ;comment βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:47:(defun foo (x) βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:75:(defmacro foo (body) βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:82:(defun foo () βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:87:(defmacro foofoo (body) βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:95:(loop for i from 0 below 2 βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:122:(loop for x in foo1 βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:126:(loop for x in foo βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:136:(loop for f in files βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:142:(loop (foo) βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:147:(loop ;; comment βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:151:(loop βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:156:(loop βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:161:(loop ;; comment at toplevel of the loop βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:166:(loop βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:171:(loop βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:177:(loop with foo = t βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:182:(progn βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:192:(loop βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:200:(defmethod foo βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:205:(defmethod foo :after βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:210:(defgeneric foo () βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:216:(defgeneric foo () βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:222:(defun foo (a βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:226:(defun foo (a βœ“ /home/buildozer/aports/testing/lem/src/lem-2.2.0/tests/sample-code/indent-sample.lisp:231:(defun foo (a &optional ;; testing 'lem-tests/lisp-syntax/defstruct-to-defclass' parse-name-and-options (name) βœ“ Expect (= 2 (LENGTH VALUES)) to be true. βœ“ Expect (EQ 'FOO NAME) to be true. βœ“ Expect (OPTIONS-INFO-P OPTIONS-INFO) to be true. βœ“ Expect (NULL (OPTIONS-CONC-NAME OPTIONS-INFO)) to be true. :conc-name βœ“ Expect (= 2 (LENGTH VALUES)) to be true. βœ“ Expect (EQ 'FOO NAME) to be true. βœ“ Expect (OPTIONS-INFO-P OPTIONS-INFO) to be true. βœ“ Expect (STRING= "" (OPTIONS-CONC-NAME OPTIONS-INFO)) to be true. (:conc-name) βœ“ Expect (= 2 (LENGTH VALUES)) to be true. βœ“ Expect (EQ 'FOO NAME) to be true. βœ“ Expect (OPTIONS-INFO-P OPTIONS-INFO) to be true. βœ“ Expect (STRING= "" (OPTIONS-CONC-NAME OPTIONS-INFO)) to be true. (:conc-name conc-name) βœ“ Expect (= 2 (LENGTH VALUES)) to be true. βœ“ Expect (EQ 'FOO NAME) to be true. βœ“ Expect (OPTIONS-INFO-P OPTIONS-INFO) to be true. βœ“ Expect (STRING= "PREFIX-" (OPTIONS-CONC-NAME OPTIONS-INFO)) to be true. invalid βœ“ (1) βœ“ (1 CONC-NAME) βœ“ (NIL) βœ“ (FOO (CONC-NAME 1)) βœ“ (FOO (CONC-NAME #())) analyze-defstruct simple βœ“ Expect (STRUCT-INFO-P INFO) to be true. βœ“ Expect (EQUAL "foo" (STRUCT-NAME INFO)) to be true. βœ“ Expect (EXPECTED-POINT-POSITION-P (STRUCT-START-POINT INFO) 3 1) to be true. βœ“ Expect (EXPECTED-POINT-POSITION-P (STRUCT-END-POINT INFO) 6 8) to be true. βœ“ Expect (EXPECTED-POINT-POSITION-P (STRUCT-NAME-AND-OPTIONS-START-POINT INFO) 3 11) to be true. βœ“ Expect (= (LENGTH SLOTS) 3) to be true. βœ“ Expect (SLOT-DESCRIPTION-INFO-P SLOT) to be true. βœ“ Expect (SLOT-DESCRIPTION-COMPLEX-P SLOT) to be false. βœ“ Expect (EQUAL (SLOT-DESCRIPTION-NAME SLOT) "slot-a") to be true. βœ“ Expect (EXPECTED-POINT-POSITION-P (SLOT-DESCRIPTION-POINT SLOT) 4 2) to be true. βœ“ Expect (SLOT-DESCRIPTION-INFO-P SLOT) to be true. βœ“ Expect (SLOT-DESCRIPTION-COMPLEX-P SLOT) to be false. βœ“ Expect (EQUAL (SLOT-DESCRIPTION-NAME SLOT) "slot-b") to be true. βœ“ Expect (EXPECTED-POINT-POSITION-P (SLOT-DESCRIPTION-POINT SLOT) 5 2) to be true. βœ“ Expect (SLOT-DESCRIPTION-INFO-P SLOT) to be true. βœ“ Expect (SLOT-DESCRIPTION-COMPLEX-P SLOT) to be false. βœ“ Expect (EQUAL (SLOT-DESCRIPTION-NAME SLOT) "slot-c") to be true. βœ“ Expect (EXPECTED-POINT-POSITION-P (SLOT-DESCRIPTION-POINT SLOT) 6 2) to be true. complex slot-description βœ“ Expect (STRUCT-INFO-P INFO) to be true. βœ“ Expect (EQUAL "foo" (STRUCT-NAME INFO)) to be true. βœ“ Expect (= (LENGTH SLOTS) 11) to be true. a βœ“ Expect (SLOT-DESCRIPTION-INFO-P SLOT) to be true. βœ“ Expect (SLOT-DESCRIPTION-COMPLEX-P SLOT) to be true. βœ“ Expect (EQUAL (SLOT-DESCRIPTION-NAME SLOT) EXPECTED-SLOT-NAME) to be true. βœ“ Expect (EXPECTED-POINT-POSITION-P (SLOT-DESCRIPTION-POINT SLOT) EXPECTED-POINT-LINE-NUMBER EXPECTED-POINT-CHARPOS) to be true. βœ“ Expect (EQUAL EXPECTED-INITFORM (READ-FROM-STRING-WITH-PACKAGE (LEM/BUFFER/INTERNAL:POINTS-TO-STRING (SLOT-DESCRIPTION-INITIAL-VALUE-START-POINT SLOT) (SLOT-DESCRIPTION-INITIAL-VALUE-END-POINT SLOT)))) to be true. βœ“ Expect (AND (NULL (SLOT-DESCRIPTION-TYPE-START-POINT SLOT)) (NULL (SLOT-DESCRIPTION-TYPE-END-POINT SLOT))) to be true. βœ“ Expect (SLOT-DESCRIPTION-READ-ONLY-P SLOT) to be false. b βœ“ Expect (SLOT-DESCRIPTION-INFO-P SLOT) to be true. βœ“ Expect (SLOT-DESCRIPTION-COMPLEX-P SLOT) to be true. βœ“ Expect (EQUAL (SLOT-DESCRIPTION-NAME SLOT) EXPECTED-SLOT-NAME) to be true. βœ“ Expect (EXPECTED-POINT-POSITION-P (SLOT-DESCRIPTION-POINT SLOT) EXPECTED-POINT-LINE-NUMBER EXPECTED-POINT-CHARPOS) to be true. βœ“ Expect (AND (NULL (SLOT-DESCRIPTION-INITIAL-VALUE-START-POINT SLOT)) (NULL (SLOT-DESCRIPTION-INITIAL-VALUE-END-POINT SLOT))) to be true. βœ“ Expect (AND (NULL (SLOT-DESCRIPTION-TYPE-START-POINT SLOT)) (NULL (SLOT-DESCRIPTION-TYPE-END-POINT SLOT))) to be true. βœ“ Expect (SLOT-DESCRIPTION-READ-ONLY-P SLOT) to be false. c βœ“ Expect (SLOT-DESCRIPTION-INFO-P SLOT) to be true. βœ“ Expect (SLOT-DESCRIPTION-COMPLEX-P SLOT) to be true. βœ“ Expect (EQUAL (SLOT-DESCRIPTION-NAME SLOT) EXPECTED-SLOT-NAME) to be true. βœ“ Expect (EXPECTED-POINT-POSITION-P (SLOT-DESCRIPTION-POINT SLOT) EXPECTED-POINT-LINE-NUMBER EXPECTED-POINT-CHARPOS) to be true. βœ“ Expect (EQUAL EXPECTED-INITFORM (READ-FROM-STRING-WITH-PACKAGE (LEM/BUFFER/INTERNAL:POINTS-TO-STRING (SLOT-DESCRIPTION-INITIAL-VALUE-START-POINT SLOT) (SLOT-DESCRIPTION-INITIAL-VALUE-END-POINT SLOT)))) to be true. βœ“ Expect (AND (NULL (SLOT-DESCRIPTION-TYPE-START-POINT SLOT)) (NULL (SLOT-DESCRIPTION-TYPE-END-POINT SLOT))) to be true. βœ“ Expect (SLOT-DESCRIPTION-READ-ONLY-P SLOT) to be false. d βœ“ Expect (SLOT-DESCRIPTION-INFO-P SLOT) to be true. βœ“ Expect (SLOT-DESCRIPTION-COMPLEX-P SLOT) to be true. βœ“ Expect (EQUAL (SLOT-DESCRIPTION-NAME SLOT) EXPECTED-SLOT-NAME) to be true. βœ“ Expect (EXPECTED-POINT-POSITION-P (SLOT-DESCRIPTION-POINT SLOT) EXPECTED-POINT-LINE-NUMBER EXPECTED-POINT-CHARPOS) to be true. βœ“ Expect (EQUAL EXPECTED-INITFORM (READ-FROM-STRING-WITH-PACKAGE (LEM/BUFFER/INTERNAL:POINTS-TO-STRING (SLOT-DESCRIPTION-INITIAL-VALUE-START-POINT SLOT) (SLOT-DESCRIPTION-INITIAL-VALUE-END-POINT SLOT)))) to be true. βœ“ Expect (EQUAL EXPECTED-TYPE (READ-FROM-STRING-WITH-PACKAGE (LEM/BUFFER/INTERNAL:POINTS-TO-STRING (SLOT-DESCRIPTION-TYPE-START-POINT SLOT) (SLOT-DESCRIPTION-TYPE-END-POINT SLOT)))) to be true. βœ“ Expect (SLOT-DESCRIPTION-READ-ONLY-P SLOT) to be false. e βœ“ Expect (SLOT-DESCRIPTION-INFO-P SLOT) to be true. βœ“ Expect (SLOT-DESCRIPTION-COMPLEX-P SLOT) to be true. βœ“ Expect (EQUAL (SLOT-DESCRIPTION-NAME SLOT) EXPECTED-SLOT-NAME) to be true. βœ“ Expect (EXPECTED-POINT-POSITION-P (SLOT-DESCRIPTION-POINT SLOT) EXPECTED-POINT-LINE-NUMBER EXPECTED-POINT-CHARPOS) to be true. βœ“ Expect (EQUAL EXPECTED-INITFORM (READ-FROM-STRING-WITH-PACKAGE (LEM/BUFFER/INTERNAL:POINTS-TO-STRING (SLOT-DESCRIPTION-INITIAL-VALUE-START-POINT SLOT) (SLOT-DESCRIPTION-INITIAL-VALUE-END-POINT SLOT)))) to be true. βœ“ Expect (EQUAL EXPECTED-TYPE (READ-FROM-STRING-WITH-PACKAGE (LEM/BUFFER/INTERNAL:POINTS-TO-STRING (SLOT-DESCRIPTION-TYPE-START-POINT SLOT) (SLOT-DESCRIPTION-TYPE-END-POINT SLOT)))) to be true. βœ“ Expect (SLOT-DESCRIPTION-READ-ONLY-P SLOT) to be false. f βœ“ Expect (SLOT-DESCRIPTION-INFO-P SLOT) to be true. βœ“ Expect (SLOT-DESCRIPTION-COMPLEX-P SLOT) to be true. βœ“ Expect (EQUAL (SLOT-DESCRIPTION-NAME SLOT) EXPECTED-SLOT-NAME) to be true. βœ“ Expect (EXPECTED-POINT-POSITION-P (SLOT-DESCRIPTION-POINT SLOT) EXPECTED-POINT-LINE-NUMBER EXPECTED-POINT-CHARPOS) to be true. βœ“ Expect (EQUAL EXPECTED-INITFORM (READ-FROM-STRING-WITH-PACKAGE (LEM/BUFFER/INTERNAL:POINTS-TO-STRING (SLOT-DESCRIPTION-INITIAL-VALUE-START-POINT SLOT) (SLOT-DESCRIPTION-INITIAL-VALUE-END-POINT SLOT)))) to be true. βœ“ Expect (EQUAL EXPECTED-TYPE (READ-FROM-STRING-WITH-PACKAGE (LEM/BUFFER/INTERNAL:POINTS-TO-STRING (SLOT-DESCRIPTION-TYPE-START-POINT SLOT) (SLOT-DESCRIPTION-TYPE-END-POINT SLOT)))) to be true. βœ“ Expect (SLOT-DESCRIPTION-READ-ONLY-P SLOT) to be false. g βœ“ Expect (SLOT-DESCRIPTION-INFO-P SLOT) to be true. βœ“ Expect (SLOT-DESCRIPTION-COMPLEX-P SLOT) to be true. βœ“ Expect (EQUAL (SLOT-DESCRIPTION-NAME SLOT) EXPECTED-SLOT-NAME) to be true. βœ“ Expect (EXPECTED-POINT-POSITION-P (SLOT-DESCRIPTION-POINT SLOT) EXPECTED-POINT-LINE-NUMBER EXPECTED-POINT-CHARPOS) to be true. βœ“ Expect (EQUAL EXPECTED-INITFORM (READ-FROM-STRING-WITH-PACKAGE (LEM/BUFFER/INTERNAL:POINTS-TO-STRING (SLOT-DESCRIPTION-INITIAL-VALUE-START-POINT SLOT) (SLOT-DESCRIPTION-INITIAL-VALUE-END-POINT SLOT)))) to be true. βœ“ Expect (AND (NULL (SLOT-DESCRIPTION-TYPE-START-POINT SLOT)) (NULL (SLOT-DESCRIPTION-TYPE-END-POINT SLOT))) to be true. βœ“ Expect (EQ T (SLOT-DESCRIPTION-READ-ONLY-P SLOT)) to be true. h βœ“ Expect (SLOT-DESCRIPTION-INFO-P SLOT) to be true. βœ“ Expect (SLOT-DESCRIPTION-COMPLEX-P SLOT) to be true. βœ“ Expect (EQUAL (SLOT-DESCRIPTION-NAME SLOT) EXPECTED-SLOT-NAME) to be true. βœ“ Expect (EXPECTED-POINT-POSITION-P (SLOT-DESCRIPTION-POINT SLOT) EXPECTED-POINT-LINE-NUMBER EXPECTED-POINT-CHARPOS) to be true. βœ“ Expect (EQUAL EXPECTED-INITFORM (READ-FROM-STRING-WITH-PACKAGE (LEM/BUFFER/INTERNAL:POINTS-TO-STRING (SLOT-DESCRIPTION-INITIAL-VALUE-START-POINT SLOT) (SLOT-DESCRIPTION-INITIAL-VALUE-END-POINT SLOT)))) to be true. βœ“ Expect (AND (NULL (SLOT-DESCRIPTION-TYPE-START-POINT SLOT)) (NULL (SLOT-DESCRIPTION-TYPE-END-POINT SLOT))) to be true. βœ“ Expect (SLOT-DESCRIPTION-READ-ONLY-P SLOT) to be false. i βœ“ Expect (SLOT-DESCRIPTION-INFO-P SLOT) to be true. βœ“ Expect (SLOT-DESCRIPTION-COMPLEX-P SLOT) to be true. βœ“ Expect (EQUAL (SLOT-DESCRIPTION-NAME SLOT) EXPECTED-SLOT-NAME) to be true. βœ“ Expect (EXPECTED-POINT-POSITION-P (SLOT-DESCRIPTION-POINT SLOT) EXPECTED-POINT-LINE-NUMBER EXPECTED-POINT-CHARPOS) to be true. βœ“ Expect (EQUAL EXPECTED-INITFORM (READ-FROM-STRING-WITH-PACKAGE (LEM/BUFFER/INTERNAL:POINTS-TO-STRING (SLOT-DESCRIPTION-INITIAL-VALUE-START-POINT SLOT) (SLOT-DESCRIPTION-INITIAL-VALUE-END-POINT SLOT)))) to be true. βœ“ Expect (AND (NULL (SLOT-DESCRIPTION-TYPE-START-POINT SLOT)) (NULL (SLOT-DESCRIPTION-TYPE-END-POINT SLOT))) to be true. βœ“ Expect (EQ T (SLOT-DESCRIPTION-READ-ONLY-P SLOT)) to be true. j βœ“ Expect (SLOT-DESCRIPTION-INFO-P SLOT) to be true. βœ“ Expect (SLOT-DESCRIPTION-COMPLEX-P SLOT) to be true. βœ“ Expect (EQUAL (SLOT-DESCRIPTION-NAME SLOT) EXPECTED-SLOT-NAME) to be true. βœ“ Expect (EXPECTED-POINT-POSITION-P (SLOT-DESCRIPTION-POINT SLOT) EXPECTED-POINT-LINE-NUMBER EXPECTED-POINT-CHARPOS) to be true. βœ“ Expect (EQUAL EXPECTED-INITFORM (READ-FROM-STRING-WITH-PACKAGE (LEM/BUFFER/INTERNAL:POINTS-TO-STRING (SLOT-DESCRIPTION-INITIAL-VALUE-START-POINT SLOT) (SLOT-DESCRIPTION-INITIAL-VALUE-END-POINT SLOT)))) to be true. βœ“ Expect (EQUAL EXPECTED-TYPE (READ-FROM-STRING-WITH-PACKAGE (LEM/BUFFER/INTERNAL:POINTS-TO-STRING (SLOT-DESCRIPTION-TYPE-START-POINT SLOT) (SLOT-DESCRIPTION-TYPE-END-POINT SLOT)))) to be true. βœ“ Expect (EQ T (SLOT-DESCRIPTION-READ-ONLY-P SLOT)) to be true. k βœ“ Expect (SLOT-DESCRIPTION-INFO-P SLOT) to be true. βœ“ Expect (SLOT-DESCRIPTION-COMPLEX-P SLOT) to be true. βœ“ Expect (EQUAL (SLOT-DESCRIPTION-NAME SLOT) EXPECTED-SLOT-NAME) to be true. βœ“ Expect (EXPECTED-POINT-POSITION-P (SLOT-DESCRIPTION-POINT SLOT) EXPECTED-POINT-LINE-NUMBER EXPECTED-POINT-CHARPOS) to be true. βœ“ Expect (EQUAL EXPECTED-INITFORM (READ-FROM-STRING-WITH-PACKAGE (LEM/BUFFER/INTERNAL:POINTS-TO-STRING (SLOT-DESCRIPTION-INITIAL-VALUE-START-POINT SLOT) (SLOT-DESCRIPTION-INITIAL-VALUE-END-POINT SLOT)))) to be true. βœ“ Expect (EQUAL EXPECTED-TYPE (READ-FROM-STRING-WITH-PACKAGE (LEM/BUFFER/INTERNAL:POINTS-TO-STRING (SLOT-DESCRIPTION-TYPE-START-POINT SLOT) (SLOT-DESCRIPTION-TYPE-END-POINT SLOT)))) to be true. βœ“ Expect (EQ T (SLOT-DESCRIPTION-READ-ONLY-P SLOT)) to be true. name-and-options βœ“ Expect (STRUCT-INFO-P INFO) to be true. βœ“ Expect (EQUAL "foo" (STRUCT-NAME INFO)) to be true. βœ“ Expect (OPTIONS-INFO-P (STRUCT-OPTIONS INFO)) to be true. defstruct-to-defclass case-1 βœ“ (EQUAL ACTUAL EXPECTED) case-2 βœ“ (EQUAL ACTUAL EXPECTED) case-3 βœ“ (EQUAL ACTUAL EXPECTED) case-4 βœ“ (EQUAL ACTUAL EXPECTED) ;; testing 'lem-tests/lisp-mode/package-inferred-system' infer-package-name-1 βœ“ Expect (EQUAL "project-root/foo/bar" (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-PACKAGE-NAME-1 (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::MAKE-PROJECT-ROOT :NAME "project-root" :ASD-FILE #P"/common-lisp/project-root/project-root.asd") #P"/common-lisp/project-root/foo/bar.lisp")) to be true. βœ“ Expect (EQUAL "project-root-tests/a" (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-PACKAGE-NAME-1 (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::MAKE-PROJECT-ROOT :NAME "project-root-tests" :ASD-FILE #P"/common-lisp/project-root/project-root-tests.asd" :PATHNAME "tests") #P"/common-lisp/project-root/tests/a.lisp")) to be true. βœ“ Expect (EQUAL "project-root/test/a/b" (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-PACKAGE-NAME-1 (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::MAKE-PROJECT-ROOT :NAME "project-root/test" :ASD-FILE #P"/common-lisp/project-root/project-root.asd" :PATHNAME "test") #P"/common-lisp/project-root/test/a/b.lisp")) to be true. βœ“ Expect (EQUAL "project-root/test/a/b" (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-PACKAGE-NAME-1 (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::MAKE-PROJECT-ROOT :NAME "project-root" :ASD-FILE #P"/common-lisp/project-root/project-root.asd") #P"/common-lisp/project-root/test/a/b.lisp")) to be true. βœ“ Expect (EQUAL "project-root/main" (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-PACKAGE-NAME-1 (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::MAKE-PROJECT-ROOT :NAME "project-root" :ASD-FILE #P"/common-lisp/project-root/project-root.asd") #P"/common-lisp/project-root/main.lisp")) to be true. βœ“ Expect (EQUAL "lem-project-root/foo/bar" (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::INFER-PACKAGE-NAME-1 (LEM-LISP-MODE/PACKAGE-INFERRED-SYSTEM::MAKE-PROJECT-ROOT :NAME "lem-project-root" :ASD-FILE #P"/common-lisp/project-root/project-root.asd") #P"/common-lisp/project-root/foo/bar.lisp")) to be true. ;; testing 'lem-tests/killring' external-option βœ“ Expect (EQUAL '("baz" (:TEST)) (MULTIPLE-VALUE-LIST (YANK-FROM-CLIPBOARD-OR-KILLRING))) to be true. βœ“ Expect (EQUAL EXPECTED-RESULT (YANK-FROM-CLIPBOARD-OR-KILLRING)) to be true. ;; testing 'lem-tests/string-width-utils' control-char βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (CONTROL-CHAR CHAR) to be false. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. βœ“ Expect (EQUAL (CONTROL-CHAR CHAR) CONTROL-CHAR) to be true. wide-char-p βœ“ Expect (LOOP :FOR CHAR :IN ALPHABET-OR-NUMBERS :ALWAYS (NOT (WIDE-CHAR-P CHAR))) to be true. βœ“ Expect (LOOP :FOR CHAR :IN CONTROL-CHARS :ALWAYS (WIDE-CHAR-P CHAR)) to be true. βœ“ Expect (LOOP :FOR (START END) :IN +EASTASIAN-FULL-PAIRS+ :ALWAYS (LOOP :FOR CODE :FROM START :TO END :ALWAYS (WIDE-CHAR-P (CODE-CHAR CODE)))) to be true. βœ“ Expect (WIDE-CHAR-P (CODE-CHAR 127798)) to be false. βœ“ Expect (WIDE-CHAR-P (CODE-CHAR 128253)) to be false. char-width alphabet βœ“ Expect (EQL 1 (CHAR-WIDTH #\a 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH #\a 1)) to be true. tab βœ“ Expect (LOOP :FOR I :FROM 0 :BELOW 8 :ALWAYS (EQL 8 (CHAR-WIDTH #\Tab I))) to be true. βœ“ Expect (LOOP :FOR I :FROM 8 :BELOW 16 :ALWAYS (EQL 16 (CHAR-WIDTH #\Tab I))) to be true. βœ“ Expect (EQL 10 (CHAR-WIDTH #\Tab 9 :TAB-SIZE 10)) to be true. control βœ“ Expect (EQL 2 (CHAR-WIDTH #\Nul 0)) to be true. βœ“ Expect (EQL 3 (CHAR-WIDTH #\Nul 1)) to be true. βœ“ Expect (EQL 4 (CHAR-WIDTH #\UE0FF 0)) to be true. βœ“ Expect (EQL 5 (CHAR-WIDTH #\UE0FF 1)) to be true. βœ“ Expect (EQL 6 (CHAR-WIDTH #\UE0FF 2)) to be true. wide βœ“ Expect (EQL 2 (CHAR-WIDTH #\HIRAGANA_LETTER_A 0)) to be true. βœ“ Expect (EQL 3 (CHAR-WIDTH #\HIRAGANA_LETTER_A 1)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. βœ“ Expect (EQL 2 (CHAR-WIDTH (CODE-CHAR CODE) 0)) to be true. newline βœ“ Expect (EQL 0 (CHAR-WIDTH #\Newline 0)) to be true. string-width βœ“ Expect (EQL 1 (STRING-WIDTH "a")) to be true. βœ“ Expect (EQL 2 (STRING-WIDTH "ab")) to be true. βœ“ Expect (EQL 3 (STRING-WIDTH "abc")) to be true. βœ“ Expect (EQL 2 (STRING-WIDTH "abc" :START 1)) to be true. βœ“ Expect (EQL 2 (STRING-WIDTH "abc" :END 2)) to be true. βœ“ Expect (EQL 2 (STRING-WIDTH "abcdef" :START 1 :END 3)) to be true. βœ“ Expect (EQL 2 (STRING-WIDTH "あ")) to be true. βœ“ Expect (EQL 3 (STRING-WIDTH "aあ")) to be true. βœ“ Expect (EQL 0 (STRING-WIDTH "abcdeγ‚γ„γ†γˆγŠ" :END 0)) to be true. βœ“ Expect (EQL 3 (STRING-WIDTH "abcdeγ‚γ„γ†γˆγŠ" :END 3)) to be true. βœ“ Expect (EQL 1 (STRING-WIDTH "abcdeγ‚γ„γ†γˆγŠ" :START 4 :END 5)) to be true. βœ“ Expect (EQL 3 (STRING-WIDTH "abcdeγ‚γ„γ†γˆγŠ" :START 4 :END 6)) to be true. βœ“ Expect (EQL 5 (STRING-WIDTH "abcdeγ‚γ„γ†γˆγŠ" :START 4 :END 7)) to be true. βœ“ Expect (EQL 10 (STRING-WIDTH (FORMAT NIL "~Aab" #\Tab))) to be true. βœ“ Expect (EQL 10 (STRING-WIDTH (FORMAT NIL "ab~Aab" #\Tab))) to be true. βœ“ Expect (EQL 5 (STRING-WIDTH (FORMAT NIL "~Aab" #\Tab) :TAB-SIZE 3)) to be true. βœ“ Expect (EQL 2 (STRING-WIDTH (FORMAT NIL "~Aab" #\Tab) :START 1)) to be true. βœ“ Expect (EQL 5 (STRING-WIDTH (FORMAT NIL "ab~Aab" #\Tab) :TAB-SIZE 3)) to be true. βœ“ Expect (EQL 5 (STRING-WIDTH (FORMAT NIL "ab~Aab" #\Tab) :TAB-SIZE 1)) to be true. βœ“ Expect (EQL 3 (STRING-WIDTH (FORMAT NIL "あ~A" #\Tab) :TAB-SIZE 1)) to be true. βœ“ Expect (EQL 3 (STRING-WIDTH (FORMAT NIL "~Aaあ" #\Tab) :START 1)) to be true. βœ“ Expect (EQL 6 (STRING-WIDTH (FORMAT NIL "~Aaあ" #\Tab) :TAB-SIZE 5 :START 0 :END 2)) to be true. wide-index βœ“ Expect (EQL 1 (WIDE-INDEX "abc" 1)) to be true. βœ“ Expect (EQL 2 (WIDE-INDEX "abc" 2)) to be true. βœ“ Expect (EQL NIL (WIDE-INDEX "abc" 3)) to be true. βœ“ Expect (EQL NIL (WIDE-INDEX "abc" 10)) to be true. βœ“ Expect (EQL 0 (WIDE-INDEX "γ‚γ„γˆγ†γŠ" 0)) to be true. βœ“ Expect (EQL 0 (WIDE-INDEX "γ‚γ„γˆγ†γŠ" 1)) to be true. βœ“ Expect (EQL 1 (WIDE-INDEX "γ‚γ„γˆγ†γŠ" 2)) to be true. βœ“ Expect (EQL 1 (WIDE-INDEX "γ‚γ„γˆγ†γŠ" 3)) to be true. βœ“ Expect (EQL 2 (WIDE-INDEX "γ‚γ„γˆγ†γŠ" 4)) to be true. βœ“ Expect (EQL 2 (WIDE-INDEX "γ‚γ„γˆ" 5)) to be true. βœ“ Expect (EQL NIL (WIDE-INDEX "γ‚γ„γˆ" 6)) to be true. βœ“ Expect (EQL 0 (WIDE-INDEX (FORMAT NIL "~Aabcdefghijk" #\Tab) 5)) to be true. βœ“ Expect (EQL 2 (WIDE-INDEX (FORMAT NIL "~Aabcdefghijk" #\Tab) 5 :TAB-SIZE 4)) to be true. βœ“ Expect (EQL 6 (WIDE-INDEX (FORMAT NIL "~Aabcdefghijk" #\Tab) 5 :START 1)) to be true. βœ“ Expect (EQL 5 (WIDE-INDEX (FORMAT NIL "~Aa~Abcdefghijk" #\Tab #\Tab) 5 :START 1 :TAB-SIZE 3)) to be true. ;; testing 'lem-tests/syntax-test' form-offset skip comment βœ“ Expect (LEM/BUFFER/INTERNAL:START-BUFFER-P POINT) to be true. βœ“ Expect (EQUAL (LEM/BUFFER/INTERNAL:SYMBOL-STRING-AT-POINT POINT) "bar") to be true. scan-lists limit-point forward βœ“ Expect (AND (NULL (LEM/BUFFER/INTERNAL:SCAN-LISTS POINT 1 0 T LIMIT-POINT)) (LEM/BUFFER/INTERNAL:START-BUFFER-P POINT)) to be true. βœ“ Expect (AND (EQ POINT (LEM/BUFFER/INTERNAL:SCAN-LISTS POINT 1 0 T)) (= 4 (LEM/BUFFER/INTERNAL:LINE-NUMBER-AT-POINT POINT)) (= 3 (LEM/BUFFER/INTERNAL:POINT-CHARPOS POINT))) to be true. backward βœ“ Expect (AND (NULL (LEM/BUFFER/INTERNAL:SCAN-LISTS POINT -1 0 T LIMIT-POINT)) (LEM/BUFFER/INTERNAL:END-BUFFER-P POINT)) to be true. βœ“ Expect (AND (EQ POINT (LEM/BUFFER/INTERNAL:SCAN-LISTS POINT -1 0 T)) (LEM/BUFFER/INTERNAL:START-BUFFER-P POINT)) to be true. contains-line-comment-character-in-block-comment-or-string βœ“ Expect (EQ POINT GOT) to be true. βœ“ Expect (LEM/BUFFER/INTERNAL:POINT= (LEM/BUFFER/INTERNAL:BUFFER-START-POINT BUFFER) POINT) to be true. βœ“ Expect (EQ POINT GOT) to be true. βœ“ Expect (LEM/BUFFER/INTERNAL:POINT= (LEM/BUFFER/INTERNAL:BUFFER-START-POINT BUFFER) POINT) to be true. ;; testing 'lem-tests/buffer-list-test' buffer-list βœ“ Expect (NULL (LEM/BUFFER/INTERNAL:BUFFER-LIST)) to be true. βœ“ Expect (LEM/BUFFER/INTERNAL:BUFFERP BUFFER) to be true. βœ“ Expect (NULL (LEM/BUFFER/INTERNAL:BUFFER-LIST)) to be true. make buffer-a βœ“ Expect (EQUAL (LIST BUFFER-A) (LEM/BUFFER/INTERNAL:BUFFER-LIST)) to be true. make buffer-b βœ“ Expect (EQUAL (LIST BUFFER-B BUFFER-A) (LEM/BUFFER/INTERNAL:BUFFER-LIST)) to be true. make buffer-c βœ“ Expect (EQUAL (LIST BUFFER-C BUFFER-B BUFFER-A) (LEM/BUFFER/INTERNAL:BUFFER-LIST)) to be true. any-modified-buffer-p βœ“ Expect (EQUAL (LIST BUFFER-C BUFFER-B BUFFER-A) (LEM/BUFFER/INTERNAL:BUFFER-LIST)) to be true. βœ“ Expect (LEM/BUFFER/INTERNAL:ANY-MODIFIED-BUFFER-P) to be false. edit buffer-a, any-modified-buffer-p = nil βœ“ Expect (LEM/BUFFER/INTERNAL:ANY-MODIFIED-BUFFER-P) to be false. edit buffer-b, any-modified-buffer-p = nil βœ“ Expect (LEM/BUFFER/INTERNAL:ANY-MODIFIED-BUFFER-P) to be false. edit buffer-c, any-modified-buffer-p = t βœ“ Expect (EQ T (LEM/BUFFER/INTERNAL:ANY-MODIFIED-BUFFER-P)) to be true. get-buffer argument type βœ“ Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. βœ“ Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. βœ“ Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. βœ“ Expect (NULL (LEM/BUFFER/INTERNAL:GET-BUFFER "a")) to be true. buffer-a βœ“ Expect (EQ BUFFER-A (LEM/BUFFER/INTERNAL:GET-BUFFER "a")) to be true. buffer-b βœ“ Expect (EQ BUFFER-A (LEM/BUFFER/INTERNAL:GET-BUFFER "a")) to be true. βœ“ Expect (EQ BUFFER-B (LEM/BUFFER/INTERNAL:GET-BUFFER "b")) to be true. buffer-c βœ“ Expect (EQ BUFFER-A (LEM/BUFFER/INTERNAL:GET-BUFFER "a")) to be true. βœ“ Expect (EQ BUFFER-B (LEM/BUFFER/INTERNAL:GET-BUFFER "b")) to be true. βœ“ Expect (EQ BUFFER-C (LEM/BUFFER/INTERNAL:GET-BUFFER "c")) to be true. receive the buffer-object itself βœ“ Expect (EQ BUFFER-A (LEM/BUFFER/INTERNAL:GET-BUFFER BUFFER-A)) to be true. βœ“ Expect (EQ BUFFER-B (LEM/BUFFER/INTERNAL:GET-BUFFER BUFFER-B)) to be true. βœ“ Expect (EQ BUFFER-C (LEM/BUFFER/INTERNAL:GET-BUFFER BUFFER-C)) to be true. unique-buffer-name argument type βœ“ Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. βœ“ Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. βœ“ Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. βœ“ Expect (EQUAL "foo" (LEM/BUFFER/INTERNAL:UNIQUE-BUFFER-NAME "foo")) to be true. βœ“ Expect (EQUAL "a<1>" NAME) to be true. βœ“ Expect (EQUAL "a<2>" NAME) to be true. βœ“ Expect (STRING= (LEM/BUFFER/INTERNAL:BUFFER-NAME BUFFER-A) "a") to be true. βœ“ Expect (STRING= (LEM/BUFFER/INTERNAL:BUFFER-NAME BUFFER-A<1>) "a<1>") to be true. βœ“ Expect (STRING= (LEM/BUFFER/INTERNAL:BUFFER-NAME BUFFER-A<2>) "a<2>") to be true. βœ“ Expect (EQUAL (LEM/BUFFER/INTERNAL:BUFFER-LIST) (LIST BUFFER-A<2> BUFFER-A<1> BUFFER-A)) to be true. βœ“ Expect (EQUAL "a<2>" (LEM/BUFFER/INTERNAL:UNIQUE-BUFFER-NAME "a")) to be true. βœ“ Expect (EQUAL (LEM/BUFFER/INTERNAL:BUFFER-LIST) (LIST BUFFER-A<1> BUFFER-A)) to be true. βœ“ Expect (EQUAL "a<1>" (LEM/BUFFER/INTERNAL:UNIQUE-BUFFER-NAME "a")) to be true. βœ“ Expect (EQUAL (LEM/BUFFER/INTERNAL:BUFFER-LIST) (LIST BUFFER-A<2> BUFFER-A)) to be true. βœ“ Expect (EQUAL "a" (LEM/BUFFER/INTERNAL:UNIQUE-BUFFER-NAME "a")) to be true. βœ“ Expect (EQUAL (LEM/BUFFER/INTERNAL:BUFFER-LIST) (LIST BUFFER-A<2> BUFFER-A<1>)) to be true. βœ“ Expect (EQUAL "b" (LEM/BUFFER/INTERNAL:UNIQUE-BUFFER-NAME "b")) to be true. delete-buffer argument type βœ“ Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. βœ“ Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. βœ“ Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. βœ“ Expect (FUNCALL FUNCTION "name") to signal TYPE-ERROR. βœ“ Expect (LEM/BUFFER/INTERNAL:DELETED-BUFFER-P DELETING-BUFFER) to be false. βœ“ Expect (LEM/BUFFER/INTERNAL:DELETED-BUFFER-P DELETING-BUFFER) to be true. βœ“ Expect (EQUAL RESULT EXPECTED-BUFFER-LIST) to be true. βœ“ Expect (LEM/BUFFER/INTERNAL:DELETED-BUFFER-P DELETING-BUFFER) to be false. βœ“ Expect (LEM/BUFFER/INTERNAL:DELETED-BUFFER-P DELETING-BUFFER) to be true. βœ“ Expect (EQUAL RESULT EXPECTED-BUFFER-LIST) to be true. βœ“ Expect (LEM/BUFFER/INTERNAL:DELETED-BUFFER-P DELETING-BUFFER) to be false. βœ“ Expect (LEM/BUFFER/INTERNAL:DELETED-BUFFER-P DELETING-BUFFER) to be true. βœ“ Expect (EQUAL RESULT EXPECTED-BUFFER-LIST) to be true. temporary buffer βœ“ Expect (LEM/BUFFER/INTERNAL:DELETED-BUFFER-P BUFFER) to be false. βœ“ Expect (EQUAL BUFFER-LIST (LEM/BUFFER/INTERNAL:DELETE-BUFFER BUFFER)) to be true. βœ“ Expect (LEM/BUFFER/INTERNAL:DELETED-BUFFER-P BUFFER) to be true. kill-buffer-hook buffer local βœ“ Expect (EQ HOOKED-BUFFER DELETING-BUFFER) to be true. βœ“ Expect (LEM/BUFFER/INTERNAL:DELETED-BUFFER-P HOOKED-BUFFER) to be false. βœ“ Expect CALLED-HOOK-P to be true. global βœ“ Expect (EQ HOOKED-BUFFER DELETING-BUFFER) to be true. βœ“ Expect (LEM/BUFFER/INTERNAL:DELETED-BUFFER-P HOOKED-BUFFER) to be false. βœ“ Expect CALLED-HOOK-P to be true. local/global called local hook βœ“ Expect (EQ HOOKED-BUFFER DELETING-BUFFER) to be true. βœ“ Expect (LEM/BUFFER/INTERNAL:DELETED-BUFFER-P HOOKED-BUFFER) to be false. called global hook βœ“ Expect (EQ HOOKED-BUFFER DELETING-BUFFER) to be true. βœ“ Expect (LEM/BUFFER/INTERNAL:DELETED-BUFFER-P HOOKED-BUFFER) to be false. βœ“ Expect (EQUAL '(:LOCAL :GLOBAL) (NREVERSE CALLED-ORDER)) to be true. get-next-buffer argument type βœ“ Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. βœ“ Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. βœ“ Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. βœ“ Expect (FUNCALL FUNCTION "name") to signal TYPE-ERROR. buffer-list length is 0 βœ“ Expect (EQ (FUNCALL FUNCTION (LEM/BUFFER/INTERNAL:MAKE-BUFFER NIL :TEMPORARY T)) NIL) to be true. buffer-list length is 1 βœ“ Expect (EQ (FUNCALL FUNCTION BUFFER-A) NIL) to be true. buffer-list length is 3 βœ“ Expect (EQ (LEM/BUFFER/INTERNAL:GET-NEXT-BUFFER BUFFER-C) BUFFER-B) to be true. βœ“ Expect (EQ (LEM/BUFFER/INTERNAL:GET-NEXT-BUFFER BUFFER-B) BUFFER-A) to be true. βœ“ Expect (EQ (LEM/BUFFER/INTERNAL:GET-NEXT-BUFFER BUFFER-A) NIL) to be true. βœ“ Expect (EQ (LEM/BUFFER/INTERNAL:GET-NEXT-BUFFER (LEM/BUFFER/INTERNAL:MAKE-BUFFER NIL :TEMPORARY T)) NIL) to be true. get-previous-buffer argument type βœ“ Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. βœ“ Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. βœ“ Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. βœ“ Expect (FUNCALL FUNCTION "name") to signal TYPE-ERROR. buffer-list length is 0 βœ“ Expect (EQ (FUNCALL FUNCTION (LEM/BUFFER/INTERNAL:MAKE-BUFFER NIL :TEMPORARY T)) NIL) to be true. buffer-list length is 1 βœ“ Expect (EQ (FUNCALL FUNCTION BUFFER-A) NIL) to be true. buffer-list length is 3 βœ“ Expect (EQ (LEM/BUFFER/INTERNAL:GET-PREVIOUS-BUFFER BUFFER-C) NIL) to be true. βœ“ Expect (EQ (LEM/BUFFER/INTERNAL:GET-PREVIOUS-BUFFER BUFFER-B) BUFFER-C) to be true. βœ“ Expect (EQ (LEM/BUFFER/INTERNAL:GET-PREVIOUS-BUFFER BUFFER-A) BUFFER-B) to be true. βœ“ Expect (EQ (LEM/BUFFER/INTERNAL:GET-PREVIOUS-BUFFER (LEM/BUFFER/INTERNAL:MAKE-BUFFER NIL :TEMPORARY T)) NIL) to be true. bury-buffer argument type βœ“ Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. βœ“ Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. βœ“ Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. βœ“ Expect (FUNCALL FUNCTION "name") to signal TYPE-ERROR. buffer-list length is 1 βœ“ Expect (EQ BUFFER-A (LEM/BUFFER/INTERNAL:BURY-BUFFER BUFFER-A)) to be true. βœ“ Expect (EQUAL (LEM/BUFFER/INTERNAL:BUFFER-LIST) (LIST BUFFER-A)) to be true. buffer-list length is 3 βœ“ Expect (EQ BUFFER-B (LEM/BUFFER/INTERNAL:BURY-BUFFER BUFFER-C)) to be true. βœ“ Expect (EQUAL (LEM/BUFFER/INTERNAL:BUFFER-LIST) (LIST BUFFER-B BUFFER-A BUFFER-C)) to be true. βœ“ Expect (EQ BUFFER-C (LEM/BUFFER/INTERNAL:BURY-BUFFER BUFFER-B)) to be true. βœ“ Expect (EQUAL (LEM/BUFFER/INTERNAL:BUFFER-LIST) (LIST BUFFER-C BUFFER-A BUFFER-B)) to be true. βœ“ Expect (EQ BUFFER-C (LEM/BUFFER/INTERNAL:BURY-BUFFER BUFFER-A)) to be true. βœ“ Expect (EQUAL (LEM/BUFFER/INTERNAL:BUFFER-LIST) (LIST BUFFER-C BUFFER-B BUFFER-A)) to be true. temporary buffer buffer-list length is 0 βœ“ Expect (EQ NIL (LEM/BUFFER/INTERNAL:BURY-BUFFER (LEM/BUFFER/INTERNAL:MAKE-BUFFER NIL :TEMPORARY T))) to be true. buffer-list length is 3 βœ“ Expect (EQ BUFFER-C (LEM/BUFFER/INTERNAL:BURY-BUFFER (LEM/BUFFER/INTERNAL:MAKE-BUFFER NIL :TEMPORARY T))) to be true. βœ“ Expect (EQUAL (LEM/BUFFER/INTERNAL:BUFFER-LIST) (LIST BUFFER-C BUFFER-B BUFFER-A)) to be true. unbury-buffer argument type βœ“ Expect (FUNCALL FUNCTION NIL) to signal TYPE-ERROR. βœ“ Expect (FUNCALL FUNCTION 1) to signal TYPE-ERROR. βœ“ Expect (FUNCALL FUNCTION #(#\a #\b)) to signal TYPE-ERROR. βœ“ Expect (FUNCALL FUNCTION "name") to signal TYPE-ERROR. buffer-list length is 1 βœ“ Expect (EQ BUFFER-A (LEM/BUFFER/INTERNAL:UNBURY-BUFFER BUFFER-A)) to be true. βœ“ Expect (EQUAL (LEM/BUFFER/INTERNAL:BUFFER-LIST) (LIST BUFFER-A)) to be true. buffer-list length is 3 βœ“ Expect (EQ BUFFER-A (LEM/BUFFER/INTERNAL:UNBURY-BUFFER BUFFER-A)) to be true. βœ“ Expect (EQUAL (LEM/BUFFER/INTERNAL:BUFFER-LIST) (LIST BUFFER-A BUFFER-C BUFFER-B)) to be true. βœ“ Expect (EQ BUFFER-B (LEM/BUFFER/INTERNAL:UNBURY-BUFFER BUFFER-B)) to be true. βœ“ Expect (EQUAL (LEM/BUFFER/INTERNAL:BUFFER-LIST) (LIST BUFFER-B BUFFER-C BUFFER-A)) to be true. βœ“ Expect (EQ BUFFER-C (LEM/BUFFER/INTERNAL:UNBURY-BUFFER BUFFER-C)) to be true. βœ“ Expect (EQUAL (LEM/BUFFER/INTERNAL:BUFFER-LIST) (LIST BUFFER-C BUFFER-B BUFFER-A)) to be true. temporary buffer buffer-list length is 0 βœ“ Expect (EQ BUFFER (LEM/BUFFER/INTERNAL:UNBURY-BUFFER BUFFER)) to be true. buffer-list length is 3 βœ“ Expect (EQ BUFFER (LEM/BUFFER/INTERNAL:UNBURY-BUFFER BUFFER)) to be true. βœ“ Expect (EQUAL (LEM/BUFFER/INTERNAL:BUFFER-LIST) (LIST BUFFER-C BUFFER-B BUFFER-A)) to be true. get-file-buffer argument type βœ“ Expect (LEM/BUFFER/INTERNAL:GET-FILE-BUFFER NIL) to signal TYPE-ERROR. βœ“ Expect (LEM/BUFFER/INTERNAL:GET-FILE-BUFFER T) to signal TYPE-ERROR. βœ“ Expect (LEM/BUFFER/INTERNAL:GET-FILE-BUFFER 1) to signal TYPE-ERROR. βœ“ Expect (LEM/BUFFER/INTERNAL:GET-FILE-BUFFER #(#\a)) to signal TYPE-ERROR. βœ“ Expect (NULL (LEM/BUFFER/INTERNAL:GET-FILE-BUFFER FILENAME)) to be true. βœ“ Expect (EQ (LEM/BUFFER/INTERNAL:GET-FILE-BUFFER FILENAME) BUFFER) to be true. ;; testing 'lem-tests/prompt' prompt-for-character βœ“ Expect (EQUAL #\a (LEM-CORE:PROMPT-FOR-CHARACTER "test: " :GRAVITY (MAKE-INSTANCE 'LEM/POPUP-WINDOW::GRAVITY-CURSOR))) to be true. (76ms) ;; testing 'lem-tests/isearch' replace-string βœ“ Expect (EQUAL (CL-PPCRE:REGEX-REPLACE-ALL "foo" *TEXT* "foobar") (BUFFER-TEXT (CURRENT-BUFFER))) to be true. ;; testing 'lem-tests/cursors' simple-fake-cursor-test Test the fake-cursor created buffer-fake-cursors βœ“ Expect (ALEXANDRIA:LENGTH= 1 (LEM-CORE:BUFFER-FAKE-CURSORS BUFFER)) to be true. βœ“ Expect (EQ CURSOR (FIRST (LEM-CORE:BUFFER-FAKE-CURSORS BUFFER))) to be true. killring βœ“ Expect (EQ (LEM-CORE:CURRENT-KILLRING) KILLRING) to be false. βœ“ Expect (EQUAL "aaa" (PEEK-KILLRING-ITEM KILLRING 2)) to be true. βœ“ Expect (EQUAL "bbb" (PEEK-KILLRING-ITEM KILLRING 1)) to be true. βœ“ Expect (EQUAL "ccc" (PEEK-KILLRING-ITEM KILLRING 0)) to be true. point-kind βœ“ Expect (EQ :LEFT-INSERTING (LEM/BUFFER/INTERNAL:POINT-KIND CURSOR)) to be true. Delete cursor βœ“ Expect (NULL (LEM-CORE:BUFFER-FAKE-CURSORS BUFFER)) to be true. test-to-execute-a-series-of-commands execute self-insert command βœ“ Expect (STRING= (LINES " abcdefg" " hijklmn" " opqrstu") (LEM/BUFFER/INTERNAL:BUFFER-TEXT BUFFER)) to be true. execute delete-previous-character command βœ“ Expect (STRING= (LINES "abcdefg" "hijklmn" "opqrstu") (LEM/BUFFER/INTERNAL:BUFFER-TEXT BUFFER)) to be true. multiple cursor killring βœ“ Expect (EQUAL '("abcd" "opqr" "hijk") (MAPCAR (LAMBDA (KILLRING) (PEEK-KILLRING-ITEM KILLRING 0)) (CONS LEM-CORE::*KILLRING* (MAPCAR (LAMBDA (CURSOR) (LEM-CORE::FAKE-CURSOR-KILLRING CURSOR)) (LEM-CORE:BUFFER-FAKE-CURSORS BUFFER))))) to be true. next-line/previous-line βœ“ Expect (POSITIONS-SET-EQUAL '((2 12) (3 10) (4 10)) (ALL-POSITIONS BUFFER)) to be true. βœ“ Expect (POSITIONS-SET-EQUAL '((1 14) (2 12) (3 10)) (ALL-POSITIONS BUFFER)) to be true. βœ“ Expect (POSITIONS-SET-EQUAL '((2 12) (3 10) (4 10)) (ALL-POSITIONS BUFFER)) to be true. ;; testing 'lem-tests/self-insert-command' self-insert-command βœ“ aaa βœ“ aaaa βœ“ Expect (SEARCH "Key not found: " (PRINC-TO-STRING E)) to be true. ;; testing 'lem/tests/interp' execute-the-same-command-consecutively βœ“ Expect (EQUAL '(NIL T T) *RESULT*) to be true. ;; testing 'lem/tests/file' get-file-mode βœ“ Expect (EQUAL 'LEM-POSIX-SHELL-MODE:POSIX-SHELL-MODE (LEM-CORE:GET-FILE-MODE ".bashrc")) to be true. βœ“ Expect (EQUAL 'LEM-POSIX-SHELL-MODE:POSIX-SHELL-MODE (LEM-CORE:GET-FILE-MODE "foo.bashrc")) to be true. βœ“ Expect (EQUAL 'LEM-LISP-MODE/INTERNAL:LISP-MODE (LEM-CORE:GET-FILE-MODE "foo.lisp")) to be true. βœ“ Expect (NULL (LEM-CORE:GET-FILE-MODE "foo.lisp.bak")) to be true. ;; testing 'lem-tests/completion' test-completion βœ“ Expect (EQUAL '("apple" "banana" "orange" "pineapple") (LEM-CORE:COMPLETION "a" ITEMS)) to be true. βœ“ Expect (EQUAL '("apple" "pineapple") (LEM-CORE:COMPLETION "app" ITEMS)) to be true. βœ“ Expect (EQUAL 'NIL (LEM-CORE:COMPLETION "xyz" ITEMS)) to be true. βœ“ Expect (EQUAL 'NIL (LEM-CORE:COMPLETION "APP" ITEMS)) to be true. βœ“ Expect (EQUAL '("apple" "pineapple") (LEM-CORE:COMPLETION "APP" ITEMS :KEY #'STRING-UPCASE)) to be true. βœ“ Expect (EQUAL '("foo-bar-baz" "foo-bar-y") (LEM-CORE:COMPLETION "foo-bar" '("foo-bar-baz" "foo-bar-y" "x-foo-bar-y") :SEPARATOR "-")) to be true. βœ“ 20 tests completed Summary: All 20 tests passed. >>> lem: Entering fakeroot... created directory: '/home/buildozer/aports/testing/lem/pkg/' created directory: '/home/buildozer/aports/testing/lem/pkg/lem/' created directory: '/home/buildozer/aports/testing/lem/pkg/lem/usr/' created directory: '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/' created directory: '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem' 'frontends/sdl2/resources/open-folder.png' -> '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/resources/open-folder.png' 'frontends/sdl2/resources/folder.png' -> '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/resources/folder.png' 'frontends/sdl2/resources/icon.png' -> '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/resources/icon.png' 'frontends/sdl2/resources/fonts/NotoColorEmoji.ttf' -> '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/resources/fonts/NotoColorEmoji.ttf' 'frontends/sdl2/resources/fonts/octicons.ttf' -> '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/resources/fonts/octicons.ttf' 'frontends/sdl2/resources/fonts/FreeMono.ttf' -> '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/resources/fonts/FreeMono.ttf' 'frontends/sdl2/resources/fonts/NotoSansMono-Bold.ttf' -> '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/resources/fonts/NotoSansMono-Bold.ttf' 'frontends/sdl2/resources/fonts/NotoSansCJK-Bold.ttc' -> '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/resources/fonts/NotoSansCJK-Bold.ttc' 'frontends/sdl2/resources/fonts/NotoSansCJK-Regular.ttc' -> '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/resources/fonts/NotoSansCJK-Regular.ttc' 'frontends/sdl2/resources/fonts/file-icons.ttf' -> '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/resources/fonts/file-icons.ttf' 'frontends/sdl2/resources/fonts/material-design-icons.ttf' -> '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/resources/fonts/material-design-icons.ttf' 'frontends/sdl2/resources/fonts/NotoSansMono-Regular.ttf' -> '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/resources/fonts/NotoSansMono-Regular.ttf' 'frontends/sdl2/resources/fonts/fontawesome.ttf' -> '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/resources/fonts/fontawesome.ttf' 'frontends/sdl2/resources/fonts/all-the-icons.ttf' -> '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/resources/fonts/all-the-icons.ttf' 'frontends/sdl2/resources/fonts' -> '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/resources/fonts' 'frontends/sdl2/resources' -> '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/resources' removed '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/resources/fonts/NotoColorEmoji.ttf' removed '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/resources/fonts/NotoSansCJK-Bold.ttc' removed '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/resources/fonts/NotoSansCJK-Regular.ttc' '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/resources/fonts/NotoColorEmoji.ttf' -> '/usr/share/fonts/noto/NotoColorEmoji.ttf' '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/resources/fonts/NotoSansCJK-Bold.ttc' -> '/usr/share/fonts/noto/NotoSansCJK-Bold.ttc' '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/resources/fonts/NotoSansCJK-Regular.ttc' -> '/usr/share/fonts/noto/NotoSansCJK-Regular.ttc' created directory: '/home/buildozer/aports/testing/lem/pkg/lem/usr/bin/' 'lem' -> '/home/buildozer/aports/testing/lem/pkg/lem/usr/bin/lem' 'lem-gui' -> '/home/buildozer/aports/testing/lem/pkg/lem/usr/bin/lem-gui' '/home/buildozer/aports/testing/lem/src/libasyncprocess.so' -> '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/libasyncprocess.so' created directory: '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/applications/' '/home/buildozer/aports/testing/lem/src/lem.desktop' -> '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/applications/lem.desktop' created directory: '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/licenses/' created directory: '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/licenses/lem' 'LICENCE' -> '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/licenses/lem/LICENSE' >>> lem-common*: Running split function common... '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/libasyncprocess.so' -> '/home/buildozer/aports/testing/lem/pkg/lem-common/usr/share/lem/libasyncprocess.so' '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/licenses/lem' -> '/home/buildozer/aports/testing/lem/pkg/lem-common/usr/share/licenses/lem' >>> lem-common*: Preparing subpackage lem-common... >>> lem-common*: Running postcheck for lem-common >>> lem-gui*: Running split function gui... '/home/buildozer/aports/testing/lem/pkg/lem/usr/bin/lem-gui' -> '/home/buildozer/aports/testing/lem/pkg/lem-gui/usr/bin/lem-gui' '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/applications/lem.desktop' -> '/home/buildozer/aports/testing/lem/pkg/lem-gui/usr/share/applications/lem.desktop' '/home/buildozer/aports/testing/lem/pkg/lem/usr/share/lem/resources' -> '/home/buildozer/aports/testing/lem/pkg/lem-gui/usr/share/lem/resources' >>> lem-gui*: Preparing subpackage lem-gui... >>> lem-gui*: Running postcheck for lem-gui >>> lem*: Running postcheck for lem >>> lem*: Preparing package lem... >>> lem-common*: Scanning shared objects >>> lem-gui*: Scanning shared objects >>> lem*: Scanning shared objects >>> lem-common*: Tracing dependencies... so:libc.musl-x86_64.so.1 >>> lem-common*: Package size: 60.0 KB >>> lem-common*: Compressing data... >>> lem-common*: Create checksum... >>> lem-common*: Create lem-common-2.2.0-r0.apk >>> lem-gui*: Tracing dependencies... lem-common=2.2.0-r0 font-noto-cjk font-noto-emoji libcrypto3 libssl3 so:libdecor-0.so.0 so:libffi.so.8 so:libsamplerate.so.0 so:libtiff.so.6 so:libSDL2-2.0.so.0 so:libSDL2_image-2.0.so.0 so:libSDL2_ttf-2.0.so.0 so:libc.musl-x86_64.so.1 so:libzstd.so.1 >>> lem-gui*: Package size: 30.7 MB >>> lem-gui*: Compressing data... >>> lem-gui*: Create checksum... >>> lem-gui*: Create lem-gui-2.2.0-r0.apk >>> lem*: Tracing dependencies... lem-common=2.2.0-r0 libcrypto3 libssl3 so:libncursesw.so.6 so:libc.musl-x86_64.so.1 so:libzstd.so.1 >>> lem*: Package size: 27.2 MB >>> lem*: Compressing data... >>> lem*: Create checksum... >>> lem*: Create lem-2.2.0-r0.apk >>> lem: Build complete at Mon, 29 Apr 2024 15:06:34 +0000 elapsed time 0h 11m 5s >>> lem: Cleaning up srcdir >>> lem: Cleaning up pkgdir >>> lem: Uninstalling dependencies... (1/181) Purging .makedepends-lem (20240429.145532) (2/181) Purging libdecor-dev (0.2.2-r0) (3/181) Purging libdecor (0.2.2-r0) (4/181) Purging sbcl (2.4.3-r0) (5/181) Purging sdl2_image-dev (2.8.2-r0) (6/181) Purging sdl2_image (2.8.2-r0) (7/181) Purging sdl2_ttf-dev (2.20.2-r0) (8/181) Purging sdl2_ttf (2.20.2-r0) (9/181) Purging roswell (22.12.14.113-r0) (10/181) Purging agetty-openrc (0.54-r1) (11/181) Purging agetty (2.40-r2) (12/181) Purging blkid (2.40-r2) (13/181) Purging cfdisk (2.40-r2) (14/181) Purging dbus-libs (1.14.10-r1) (15/181) Purging findmnt (2.40-r2) (16/181) Purging flock (2.40-r2) (17/181) Purging fstrim (2.40-r2) (18/181) Purging harfbuzz-dev (8.4.0-r0) (19/181) Purging harfbuzz-cairo (8.4.0-r0) (20/181) Purging harfbuzz-gobject (8.4.0-r0) (21/181) Purging harfbuzz-icu (8.4.0-r0) (22/181) Purging harfbuzz-subset (8.4.0-r0) (23/181) Purging hexdump (2.40-r2) (24/181) Purging icu-dev (74.2-r0) (25/181) Purging logger (2.40-r2) (26/181) Purging losetup (2.40-r2) (27/181) Purging lsblk (2.40-r2) (28/181) Purging mcookie (2.40-r2) (29/181) Purging mount (2.40-r2) (30/181) Purging pango (1.52.2-r0) Executing pango-1.52.2-r0.pre-deinstall (31/181) Purging partx (2.40-r2) (32/181) Purging py3-packaging-pyc (24.0-r1) (33/181) Purging py3-parsing-pyc (3.1.2-r1) (34/181) Purging python3-pyc (3.12.3-r1) (35/181) Purging python3-pycache-pyc0 (3.12.3-r1) (36/181) Purging xcb-proto-pyc (1.16.0-r1) (37/181) Purging pyc (3.12.3-r1) (38/181) Purging runuser (2.40-r2) (39/181) Purging sdl2-dev (2.28.5-r1) (40/181) Purging sdl2 (2.28.5-r1) (41/181) Purging mesa-dev (24.0.5-r0) (42/181) Purging libxdamage-dev (1.1.6-r5) (43/181) Purging libxdamage (1.1.6-r5) (44/181) Purging libxshmfence-dev (1.3.2-r6) (45/181) Purging mesa-egl (24.0.5-r0) (46/181) Purging mesa-gbm (24.0.5-r0) (47/181) Purging mesa-gl (24.0.5-r0) (48/181) Purging mesa-gles (24.0.5-r0) (49/181) Purging mesa-osmesa (24.0.5-r0) (50/181) Purging mesa-rusticl (24.0.5-r0) (51/181) Purging clang17-headers (17.0.6-r1) (52/181) Purging libclc (17.0.6-r0) (53/181) Purging mesa-xatracker (24.0.5-r0) (54/181) Purging mesa (24.0.5-r0) (55/181) Purging setpriv (2.40-r2) (56/181) Purging sfdisk (2.40-r2) (57/181) Purging spirv-llvm-translator-libs (17.0.0-r0) (58/181) Purging spirv-tools (1.3.261.1-r0) (59/181) Purging umount (2.40-r2) (60/181) Purging util-linux-misc (2.40-r2) (61/181) Purging setarch (2.40-r2) (62/181) Purging util-linux-openrc (2.40-r2) (63/181) Purging uuidgen (2.40-r2) (64/181) Purging wayland-dev (1.22.0-r4) (65/181) Purging wayland-libs-cursor (1.22.0-r4) (66/181) Purging wayland-libs-egl (1.22.0-r4) (67/181) Purging wayland-libs-server (1.22.0-r4) (68/181) Purging wayland-libs-client (1.22.0-r4) (69/181) Purging wipefs (2.40-r2) (70/181) Purging graphite2-dev (1.3.14-r6) (71/181) Purging cairo-dev (1.18.0-r0) (72/181) Purging cairo-tools (1.18.0-r0) (73/181) Purging xcb-util-dev (0.4.1-r3) (74/181) Purging util-macros (1.20.0-r0) (75/181) Purging xcb-util (0.4.1-r3) (76/181) Purging cairo-gobject (1.18.0-r0) (77/181) Purging cairo (1.18.0-r0) (78/181) Purging fontconfig-dev (2.15.0-r1) (79/181) Purging freetype-dev (2.13.2-r0) (80/181) Purging brotli-dev (1.1.0-r2) (81/181) Purging brotli (1.1.0-r2) (82/181) Purging glib-dev (2.80.0-r3) (83/181) Purging bzip2-dev (1.0.8-r6) (84/181) Purging docbook-xsl (1.79.2-r9) Executing docbook-xsl-1.79.2-r9.pre-deinstall (85/181) Purging docbook-xml (4.5-r9) Executing docbook-xml-4.5-r9.pre-deinstall (86/181) Purging gettext-dev (0.22.5-r0) (87/181) Purging xz (5.6.1-r3) (88/181) Purging gettext-asprintf (0.22.5-r0) (89/181) Purging gettext (0.22.5-r0) (90/181) Purging gettext-envsubst (0.22.5-r0) (91/181) Purging libxml2-utils (2.12.6-r2) (92/181) Purging libxslt (1.1.39-r1) (93/181) Purging py3-packaging (24.0-r1) (94/181) Purging py3-parsing (3.1.2-r1) (95/181) Purging pcre2-dev (10.43-r0) (96/181) Purging libpcre2-16 (10.43-r0) (97/181) Purging libpcre2-32 (10.43-r0) (98/181) Purging libedit-dev (20230828.3.1-r4) (99/181) Purging ncurses-dev (6.4_p20240330-r0) (100/181) Purging libncurses++ (6.4_p20240330-r0) (101/181) Purging bsd-compat-headers (0.7.2-r6) (102/181) Purging clang17-libs (17.0.6-r1) (103/181) Purging expat-dev (2.6.2-r0) (104/181) Purging expat (2.6.2-r0) (105/181) Purging libxft (2.3.8-r3) (106/181) Purging fontconfig (2.15.0-r1) (107/181) Purging harfbuzz (8.4.0-r0) (108/181) Purging freetype (2.13.2-r0) (109/181) Purging fribidi (1.0.14-r0) (110/181) Purging libxxf86vm-dev (1.1.5-r6) (111/181) Purging libxxf86vm (1.1.5-r6) (112/181) Purging libxrender-dev (0.9.11-r5) (113/181) Purging libxrender (0.9.11-r5) (114/181) Purging libxfixes-dev (6.0.1-r4) (115/181) Purging libxfixes (6.0.1-r4) (116/181) Purging libxext-dev (1.3.6-r2) (117/181) Purging libxext (1.3.6-r2) (118/181) Purging libx11-dev (1.8.9-r1) (119/181) Purging xtrans (1.5.0-r0) (120/181) Purging libx11 (1.8.9-r1) (121/181) Purging libxcb-dev (1.16.1-r0) (122/181) Purging libxcb (1.16.1-r0) (123/181) Purging xcb-proto (1.16.0-r1) (124/181) Purging python3 (3.12.3-r1) (125/181) Purging gdbm (1.23-r1) (126/181) Purging gettext-libs (0.22.5-r0) (127/181) Purging glib (2.80.0-r3) (128/181) Purging graphite2 (1.3.14-r6) (129/181) Purging libdrm-dev (2.4.120-r0) (130/181) Purging libdrm (2.4.120-r0) (131/181) Purging libpciaccess-dev (0.18.1-r0) (132/181) Purging libpciaccess (0.18.1-r0) (133/181) Purging hwdata-pci (0.381-r0) (134/181) Purging icu (74.2-r0) (135/181) Purging icu-libs (74.2-r0) (136/181) Purging icu-data-en (74.2-r0) (137/181) Purging util-linux-dev (2.40-r2) (138/181) Purging libfdisk (2.40-r2) (139/181) Purging libmount (2.40-r2) (140/181) Purging libsmartcols (2.40-r2) (141/181) Purging libuuid (2.40-r2) (142/181) Purging util-linux (2.40-r2) (143/181) Purging libblkid (2.40-r2) (144/181) Purging libxdmcp-dev (1.1.5-r1) (145/181) Purging libxdmcp (1.1.5-r1) (146/181) Purging libbsd (0.12.2-r0) (147/181) Purging libbz2 (1.0.8-r6) (148/181) Purging libcap-ng (0.8.4-r0) (149/181) Purging libeconf (0.6.2-r0) (150/181) Purging libelf (0.191-r0) (151/181) Purging libffi-dev (3.4.6-r0) (152/181) Purging linux-headers (6.6-r0) (153/181) Purging llvm17-libs (17.0.6-r1) (154/181) Purging libffi (3.4.6-r0) (155/181) Purging libformw (6.4_p20240330-r0) (156/181) Purging libgcrypt (1.10.3-r0) (157/181) Purging libgpg-error (1.48-r0) (158/181) Purging libintl (0.22.5-r0) (159/181) Purging libmd (1.1.0-r0) (160/181) Purging libmenuw (6.4_p20240330-r0) (161/181) Purging libpanelw (6.4_p20240330-r0) (162/181) Purging libpng-dev (1.6.43-r0) (163/181) Purging libpng (1.6.43-r0) (164/181) Purging libxau-dev (1.0.11-r4) (165/181) Purging libxau (1.0.11-r4) (166/181) Purging libxml2 (2.12.6-r2) (167/181) Purging libxshmfence (1.3.2-r6) (168/181) Purging linux-pam (1.6.0-r0) (169/181) Purging mesa-glapi (24.0.5-r0) (170/181) Purging mpdecimal (4.0.0-r0) (171/181) Purging pixman-dev (0.43.2-r0) (172/181) Purging pixman (0.43.2-r0) (173/181) Purging sqlite-dev (3.45.3-r0) (174/181) Purging sqlite-libs (3.45.3-r0) (175/181) Purging sqlite (3.45.3-r0) (176/181) Purging readline (8.2.10-r0) (177/181) Purging utmps-libs (0.1.2.2-r1) (178/181) Purging skalibs (2.14.1.1-r0) (179/181) Purging xorgproto (2024.1-r0) (180/181) Purging xz-libs (5.6.1-r3) (181/181) Purging zlib-dev (1.3.1-r1) Executing busybox-1.36.1-r26.trigger OK: 377 MiB in 107 packages >>> lem: Updating the testing/x86_64 repository index... >>> lem: Signing the index...