--- /srv/rebuilderd/tmp/rebuilderdNR5z5w/inputs/gcl27_2.7.1-31_armhf.deb +++ /srv/rebuilderd/tmp/rebuilderdNR5z5w/out/gcl27_2.7.1-31_armhf.deb ├── file list │ @@ -1,3 +1,3 @@ │ -rw-r--r-- 0 0 0 4 2026-06-27 17:32:41.000000 debian-binary │ --rw-r--r-- 0 0 0 6248 2026-06-27 17:32:41.000000 control.tar.xz │ --rw-r--r-- 0 0 0 64384652 2026-06-27 17:32:41.000000 data.tar.xz │ +-rw-r--r-- 0 0 0 6252 2026-06-27 17:32:41.000000 control.tar.xz │ +-rw-r--r-- 0 0 0 64328260 2026-06-27 17:32:41.000000 data.tar.xz ├── control.tar.xz │ ├── control.tar │ │ ├── ./control │ │ │ @@ -1,12 +1,12 @@ │ │ │ Package: gcl27 │ │ │ Version: 2.7.1-31 │ │ │ Architecture: armhf │ │ │ Maintainer: Camm Maguire │ │ │ -Installed-Size: 468186 │ │ │ +Installed-Size: 468160 │ │ │ Depends: libc6 (>= 2.38), libedit2 (>= 2.11-20080614-0), libgmp10 (>= 2:6.3.0+dfsg), libtirpc3t64 (>= 1.0.2), libx11-6, debconf (>= 0.5) | debconf-2.0, ucf, libtirpc-dev │ │ │ Suggests: gcl27-doc │ │ │ Section: lisp │ │ │ Priority: optional │ │ │ Homepage: http://gnu.org/software/gcl │ │ │ Description: GNU Common Lisp compiler │ │ │ GNU Common Lisp (GCL) is a Common Lisp compiler and interpreter │ │ ├── ./md5sums │ │ │ ├── ./md5sums │ │ │ │┄ Files differ ├── data.tar.xz │ ├── data.tar │ │ ├── file list │ │ │ @@ -20,15 +20,15 @@ │ │ │ -rw-r--r-- 0 root (0) root (0) 32543 2026-06-27 17:32:41.000000 ./usr/lib/gcl-2.7.1/lsp/gcl_export.lsp │ │ │ -rw-r--r-- 0 root (0) root (0) 3016 2026-06-27 17:32:41.000000 ./usr/lib/gcl-2.7.1/lsp/gcl_module.lsp │ │ │ -rw-r--r-- 0 root (0) root (0) 24790 2026-06-27 17:32:41.000000 ./usr/lib/gcl-2.7.1/lsp/gcl_top.lsp │ │ │ drwxr-xr-x 0 root (0) root (0) 0 2026-06-27 17:32:41.000000 ./usr/lib/gcl-2.7.1/pcl/ │ │ │ -rw-r--r-- 0 root (0) root (0) 692 2026-06-27 17:32:41.000000 ./usr/lib/gcl-2.7.1/pcl/package.lisp │ │ │ drwxr-xr-x 0 root (0) root (0) 0 2026-06-27 17:32:41.000000 ./usr/lib/gcl-2.7.1/unixport/ │ │ │ -rw-r--r-- 0 root (0) root (0) 11001 2026-06-27 17:32:41.000000 ./usr/lib/gcl-2.7.1/unixport/gcl.script │ │ │ --rw-r--r-- 0 root (0) root (0) 121911 2026-06-27 17:32:41.000000 ./usr/lib/gcl-2.7.1/unixport/gcl_cmpnopt_ansi_gcl.lsp │ │ │ +-rw-r--r-- 0 root (0) root (0) 95714 2026-06-27 17:32:41.000000 ./usr/lib/gcl-2.7.1/unixport/gcl_cmpnopt_ansi_gcl.lsp │ │ │ -rw-r--r-- 0 root (0) root (0) 160968 2026-06-27 17:32:41.000000 ./usr/lib/gcl-2.7.1/unixport/gcl_cmpnopt_gcl.lsp │ │ │ -rw-r--r-- 0 root (0) root (0) 5164 2026-06-27 17:32:41.000000 ./usr/lib/gcl-2.7.1/unixport/init_raw.lsp │ │ │ -rw-r--r-- 0 root (0) root (0) 65001808 2026-06-27 17:32:41.000000 ./usr/lib/gcl-2.7.1/unixport/libansi_gcl.a │ │ │ -rw-r--r-- 0 root (0) root (0) 65628518 2026-06-27 17:32:41.000000 ./usr/lib/gcl-2.7.1/unixport/libansi_gcl_gprof.a │ │ │ -rw-r--r-- 0 root (0) root (0) 67848 2026-06-27 17:32:41.000000 ./usr/lib/gcl-2.7.1/unixport/libboot.so │ │ │ -rw-r--r-- 0 root (0) root (0) 41709100 2026-06-27 17:32:41.000000 ./usr/lib/gcl-2.7.1/unixport/libgcl.a │ │ │ -rw-r--r-- 0 root (0) root (0) 42099802 2026-06-27 17:32:41.000000 ./usr/lib/gcl-2.7.1/unixport/libgcl_gprof.a │ │ ├── ./usr/lib/gcl-2.7.1/unixport/gcl_cmpnopt_ansi_gcl.lsp │ │ │ @@ -64,52 +64,24 @@ │ │ │ "((object*)((fixnum*)((fixnum)#0))[1])[#1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'COMMON-LISP::ARRAY-TOTAL-SIZE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-ARRAY-DIM '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000))) │ │ │ - "(((long*)((fixnum)#0))[2]&268435455)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-ARRAY-DIM '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000111111111111100000000000001110000000000000))) │ │ │ - "(((long*)((fixnum)#0))[2]&268435455)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000111111111111100000000000001000000000000000)) │ │ │ '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'CSTRUCT::C-ARRAY-DIM '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000111111111111100000000000001110000000000000))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000))) │ │ │ "(((long*)((fixnum)#0))[2]&268435455)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'COMMON-LISP::CAADR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ @@ -162,46 +134,28 @@ │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000010000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000010000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) "#0->c.c_cdr->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'COMMON-LISP::CAR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000010000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'COMMON-LISP::CAR '(0) │ │ │ '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000010000000000))) │ │ │ - "#0->c.c_car") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000010000000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'COMMON-LISP::CAR '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000010000000000))) │ │ │ "#0->c.c_car"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'COMMON-LISP::CDAR │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ @@ -248,25 +202,14 @@ │ │ │ '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000010000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'COMMON-LISP::CDR '(0) │ │ │ '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000010000000000))) │ │ │ - "#0->c.c_cdr") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000010000000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'COMMON-LISP::CDR '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000010000000000))) │ │ │ "#0->c.c_cdr"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'COMMON-LISP::CHAR-CODE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ @@ -759,137 +702,61 @@ │ │ │ (COMMON-LISP::LIST) "(((long*)((fixnum)#0))[3]&268435455)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'CSTRUCT::C-ARRAY-DIM │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-ARRAY-DIM '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000))) │ │ │ - "(((long*)((fixnum)#0))[2]&268435455)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000111111111111100000000000001110000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-ARRAY-DIM '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000111111111111100000000000001110000000000000))) │ │ │ - "(((long*)((fixnum)#0))[2]&268435455)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000111111111111100000000000001110000000000000)) │ │ │ '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11011011101101110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'CSTRUCT::C-ARRAY-DIM '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000111111111111100000000000001110000000000000))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000))) │ │ │ "(((long*)((fixnum)#0))[2]&268435455)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'CSTRUCT::C-ARRAY-ELTSIZE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000)) │ │ │ + '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000111111111111100000000000001110000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'CSTRUCT::C-ARRAY-ELTSIZE '(0) │ │ │ '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000))) │ │ │ - "((((ushort*)((fixnum)#0))[1]>>6)&7)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000111111111111100000000000001110000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-ARRAY-ELTSIZE '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000111111111111100000000000001110000000000000))) │ │ │ "((((ushort*)((fixnum)#0))[1]>>6)&7)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'CSTRUCT::C-ARRAY-ELTTYPE │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '(#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (0 . 31))) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-ARRAY-ELTTYPE '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000))) │ │ │ - "(((uchar*)((fixnum)#0))[0]>>3)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '(#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (0 . 31))) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-ARRAY-ELTTYPE '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000))) │ │ │ - "(((uchar*)((fixnum)#0))[0]>>3)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000111111111111100000000000001110000000000000)) │ │ │ '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '(#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*11011010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ (((COMMON-LISP::INTEGER (0 . 31))) COMMON-LISP::NIL │ │ │ COMMON-LISP::NIL)))) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'CSTRUCT::C-ARRAY-ELTTYPE '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000111111111111100000000000001110000000000000))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000))) │ │ │ "(((uchar*)((fixnum)#0))[0]>>3)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'CSTRUCT::C-ARRAY-HASFILLP │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ @@ -902,79 +769,31 @@ │ │ │ (COMMON-LISP::LIST) "(((uchar*)((fixnum)#0))[2]&1)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'CSTRUCT::C-ARRAY-RANK │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-ARRAY-RANK '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000))) │ │ │ - "((((uchar*)((fixnum)#0))[3]>>1)&63)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000111111111111100000000000001110000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-ARRAY-RANK '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000111111111111100000000000001110000000000000))) │ │ │ - "((((uchar*)((fixnum)#0))[3]>>1)&63)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000111111111111100000000000001110000000000000)) │ │ │ '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'CSTRUCT::C-ARRAY-RANK '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000111111111111100000000000001110000000000000))) │ │ │ + '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000))) │ │ │ "((((uchar*)((fixnum)#0))[3]>>1)&63)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'CSTRUCT::C-ARRAY-SELF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[1]") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000111111111111100000000000001110000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[1]") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000110000000000000000000000000000000000111111111111111111111111111110000000000000)) │ │ │ '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[1]"))) │ │ │ @@ -1297,78 +1116,16 @@ │ │ │ (COMMON-LISP::LIST) "((object*)((fixnum)#0))[6]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'CSTRUCT::C-STRSTD-SSELF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE PCL::FAST-METHOD-CALL)) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[2]") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE PCL::METHOD-CALL)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[2]") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE PCL::FAST-METHOD-CALL)) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[2]") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE PCL::METHOD-CALL)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[2]") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[2]") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000000000000011000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ + '(0) '1 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'CSTRUCT::C-STRUCTURE-DEF │ │ │ @@ -1382,65 +1139,27 @@ │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'CSTRUCT::C-STRUCTURE-DEF '(0) │ │ │ '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "((object*)((fixnum)#0))[1]") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-STRUCTURE-DEF '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "((object*)((fixnum)#0))[1]") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'CSTRUCT::C-STRUCTURE-DEF '(0) │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "((object*)((fixnum)#0))[1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'CSTRUCT::C-STRUCTURE-SELF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[2]") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '2 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) "((fixnum*)((fixnum)#0))[2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'CSTRUCT::C-SYMBOL-GFDEF │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ @@ -1558,21 +1277,14 @@ │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '(#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum*)((fixnum)#0))[2])[1]") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) "((object*)((fixnum*)((fixnum)#0))[2])[1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'PCL::%STD-INSTANCE-WRAPPER │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ @@ -1633,73 +1345,40 @@ │ │ │ (((COMMON-LISP::STRUCTURE PCL::FAST-METHOD-CALL)) │ │ │ COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum*)((fixnum)#0))[2])[0]") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE PCL::FAST-METHOD-CALL)) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) "((object*)((fixnum*)((fixnum)#0))[2])[0]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'PCL::FAST-METHOD-CALL-NEXT-METHOD-CALL │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ (((COMMON-LISP::STRUCTURE PCL::FAST-METHOD-CALL)) │ │ │ COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum*)((fixnum)#0))[2])[2]") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE PCL::FAST-METHOD-CALL)) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) "((object*)((fixnum*)((fixnum)#0))[2])[2]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'PCL::FAST-METHOD-CALL-PV-CELL │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ (((COMMON-LISP::STRUCTURE PCL::FAST-METHOD-CALL)) │ │ │ COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum*)((fixnum)#0))[2])[1]") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE PCL::FAST-METHOD-CALL)) │ │ │ - COMMON-LISP::NIL COMMON-LISP::NIL)))) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) "((object*)((fixnum*)((fixnum)#0))[2])[1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'PCL::GF-INFO-C-A-M-EMF-STD-P │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ @@ -1770,24 +1449,14 @@ │ │ │ 'SYSTEM::UNIQ-TP │ │ │ '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ (((COMMON-LISP::STRUCTURE PCL::METHOD-CALL)) COMMON-LISP::NIL │ │ │ COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum*)((fixnum)#0))[2])[1]") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE PCL::METHOD-CALL)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS ':OBJECT (SYSTEM::UNIQ-TP 'COMMON-LISP::T)) │ │ │ (COMMON-LISP::LIST) "((object*)((fixnum*)((fixnum)#0))[2])[1]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'PCL::METHOD-CALL-FUNCTION │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ @@ -1796,27 +1465,14 @@ │ │ │ (((COMMON-LISP::STRUCTURE PCL::METHOD-CALL)) COMMON-LISP::NIL │ │ │ COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':OBJECT │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((object*)((fixnum*)((fixnum)#0))[2])[0]") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '((#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::STRUCTURE PCL::METHOD-CALL)) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':OBJECT │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000011000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) "((object*)((fixnum*)((fixnum)#0))[2])[0]"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'PCL::PV-TABLE-SLOT-NAME-LISTS │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ @@ -1874,85 +1530,15 @@ │ │ │ '#*11000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) │ │ │ "((((fixnum*)((fixnum*)((fixnum)#0))[1])[(#1>>5)]>>(#2&31))&1)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'SYSTEM::ADDRESS │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum)#0)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum)#0)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000100000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum)#0)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000)) │ │ │ - '(0) '1 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum)#0)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000100000000000000000000000000000000000111111111111100000000000001110000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum)#0)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000001100000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum)#0)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST) "((fixnum)#0)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST) "((fixnum)#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ @@ -1997,31 +1583,14 @@ │ │ │ (COMMON-LISP::LIST) ""))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'SYSTEM::CLZL │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:FIXNUM) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '(#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (0 . 31))) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL)))) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::CLZL '(0) │ │ │ - '(#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "__builtin_clzl(#0)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ '((#*11011011101101110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*11011011101101110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ (((COMMON-LISP::INTEGER (0 . 2147483646))) COMMON-LISP::NIL │ │ │ COMMON-LISP::NIL)))) │ │ │ '(0) '0 '(:FIXNUM) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ @@ -2029,18 +1598,15 @@ │ │ │ '(#*11011011000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ #*11011010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ (((COMMON-LISP::INTEGER (0 . 31))) COMMON-LISP::NIL │ │ │ COMMON-LISP::NIL)))) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'SYSTEM::CLZL '(0) │ │ │ - '((#*11011011101101110110000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - #*11011011101101110100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 │ │ │ - (((COMMON-LISP::INTEGER (0 . 2147483646))) COMMON-LISP::NIL │ │ │ - COMMON-LISP::NIL))))) │ │ │ + '(#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ "__builtin_clzl(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'SYSTEM::HTENT-KEY │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP │ │ │ @@ -2226,36 +1792,24 @@ │ │ │ #*00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000 │ │ │ COMMON-LISP::T))) │ │ │ "({#0->d.e=1;(((object*)((fixnum*)((fixnum)#1))[1])[#2]=#3);})"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'SYSTEM::TP0 │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ + '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'SYSTEM::TP0 '(0) │ │ │ '(#*11011011101000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "tp0(#0)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'SYSTEM::TP0 '(0) '(COMMON-LISP::T))) │ │ │ "tp0(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'SYSTEM::TP1 │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ '(:OBJECT) │ │ │ @@ -2266,50 +1820,24 @@ │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST 'SYSTEM::TP1 '(0) '(COMMON-LISP::T))) │ │ │ "tp1(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'SYSTEM::TP2 │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000010100000000000000000000000000000000000111111111111100000000000001110010000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ + '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'SYSTEM::TP2 '(0) │ │ │ '(#*00000000000000000000000000000000000000000000000010100000000000000000000000000000000000111111111111100000000000001110010000000000))) │ │ │ - "tp2(#0)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111011111111111111111111111110111000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST │ │ │ - 'SYSTEM::TP2 '(0) │ │ │ - '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111011111111111111111111111110111000000000000))) │ │ │ - "tp2(#0)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'SYSTEM::TP2 '(0) '(COMMON-LISP::T))) │ │ │ "tp2(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'SYSTEM::TP3 │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ '(:OBJECT) │ │ │ @@ -2320,127 +1848,69 @@ │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST 'SYSTEM::TP3 '(0) '(COMMON-LISP::T))) │ │ │ "tp3(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'SYSTEM::TP4 │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111111111)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ + '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'SYSTEM::TP4 '(0) │ │ │ '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111111111))) │ │ │ - "tp4(#0)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'SYSTEM::TP4 '(0) '(COMMON-LISP::T))) │ │ │ "tp4(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'SYSTEM::TP5 │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111011111111111111111111111110111101111111111)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ + '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'SYSTEM::TP5 '(0) │ │ │ '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111011111111111111111111111110111101111111111))) │ │ │ - "tp5(#0)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'SYSTEM::TP5 '(0) '(COMMON-LISP::T))) │ │ │ "tp5(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'SYSTEM::TP6 │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111111111)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ + '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'SYSTEM::TP6 '(0) │ │ │ '(#*11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111101111111111))) │ │ │ - "tp6(#0)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'SYSTEM::TP6 '(0) '(COMMON-LISP::T))) │ │ │ - "tp6(#0)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '2 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'SYSTEM::TP6 '(0) '(COMMON-LISP::T))) │ │ │ "tp6(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'SYSTEM::TP7 │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR │ │ │ - 'SYSTEM::UNIQ-TP │ │ │ - '(#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - '(0) '0 '(:OBJECT) │ │ │ + (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '0 │ │ │ + '(:OBJECT) │ │ │ (COMMON-LISP::CONS │ │ │ ':FIXNUM │ │ │ (SYSTEM::UNIQ-TP │ │ │ '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ 'SYSTEM::TP7 '(0) │ │ │ '(#*00000000000000000000000000000000000000000000000000000000000001000000000000000000000000000000000000000000000000000000000000000000))) │ │ │ - "tp7(#0)") │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::MAPCAR 'SYSTEM::UNIQ-TP '(COMMON-LISP::T)) '(0) '1 │ │ │ - '(:OBJECT) │ │ │ - (COMMON-LISP::CONS │ │ │ - ':FIXNUM │ │ │ - (SYSTEM::UNIQ-TP │ │ │ - '#*11111111111111111111000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000)) │ │ │ - (COMMON-LISP::LIST │ │ │ - (COMMON-LISP::LIST 'SYSTEM::TP7 '(0) '(COMMON-LISP::T))) │ │ │ "tp7(#0)"))) │ │ │ (COMPILER::MERGE-INLS │ │ │ 'SYSTEM::^ │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::LIST │ │ │ (COMMON-LISP::MAPCAR │ │ │ 'SYSTEM::UNIQ-TP